在电脑上实现微信多开的技巧教程
更新时间:2023年03月05日 15:17:09 作者:webxue
这篇文章主要为大家介绍了在电脑上实现微信多开的技巧教程,有需要的朋友可以借鉴参考下,希望能够有所帮助,祝大家多多进步,早日升职加薪
需求分析
微信是我们日常生活中必不可少的社交软件,很多人不止有一个微信,但通常会面临一个问题,在电脑上只能同时打开一个微信,今天我闲来无事,写了一个在电脑上可以微信多开的脚本,最初使用的是bat
脚本,但bat
需要面对的是终端,不适用于普通人,就学习并使用了vbs
来实现
- 双击桌面的
vbs程序
,打开输入框,输入启动的微信数量 - 确定之后输入微信应用程序地址
- 确定之后循环第一步的数量执行启动微信操作
实现思路
- 需要打开输入框并获取到输入的数量,这里使用
inputbox
方法 - 输入微信应用程序地址并获取结果同样使用
inputbox
方法 - 使用
For...to
循环 - 使用
WScript.Shell
的Run
方法启动微信
具体代码
' 打开微信的数量 dim count ' 微信应用程序地址 dim src ' wsh脚本终端 dim wsh ' fso读取文件信息 dim fso ' 设置wsh脚本终端 set wsh = WScript.CreateObject("WScript.Shell") ' 设置fso来读取文件 Set fso = CreateObject("Scripting.FileSystemObject") ' 调用函数打开输入框 Call GetCount() ' 定义一个函数用来打开输入框弹窗 Sub GetCount() ' 获取打开的微信数量,默认打开两个 count = inputbox("请输入微信多开数量","微信多开",2) ' 判断是否输入内容 if count = "" Then ' 如果点击取消,直接退出函数 if IsEmpty(count) Then WScript.quit else ' 如果点击确定则提示输入数量 msgbox("请输入打开微信的数量") Call GetCount() end If end If ' 获取微信可执行文件地址,默认是我本机的微信应用程序地址 src = inputbox("请输入微信程序地址","微信程序地址","E:\WeChat\WeChat.exe") ' 判断是否输入微信程序地址 if src = "" Then ' 如果点击取消,直接退出函数 if IsEmpty(src) Then WScript.quit else ' 如果点击确定则提示输入微信程序地址 msgbox("请输入微信可执行文件地址") Call GetCount() end If end If if count > 7 Then msgbox("最多打开7个微信") Call GetCount() elseif count < 0 Then msgbox("最少打开1个微信") Call GetCount() end If ' 检查文件路径是否存在 if Not fso.FileExists(src) Then msgbox("指定的微信启动程序不存在") Call GetCount() end If dim runStatus For i = 1 to count runStatus = wsh.Run(src) If runStatus <> 0 Then msgbox("程序出现异常") Exit Sub End If Next Set wsh = NoThing End Sub
最后将代码保存在桌面,并将后缀修改为.vbs
,双击就可以直接运行啦
收获
vbs
中定义变量可以使用dim
- 通过
CreateObject
来创建一个对象 - 通过
Sub
或Function
来声明一个函数 - 通过
Call
来调用一个函数 - 不等于符号可以使用
<>
- 输入框可以使用
inputbox
控件 - 消息弹框可以使用
msgbox
控件 if
条件判断必须以end if
结束且大小写不敏感
结语
这也是我第一次学习vbs
,并做了这么一个小工具
,肯定会有很多地方不够规范,甚至如果有错误希望你可以指出,对了,这个东西是基于微软的,所以只能在windows
上使用哦~
以上就是在电脑上实现微信多开的技巧教程的详细内容,相关文章!
最新评论