电脑微信多开脚本怎么做(利用vbs在电脑上实现微信多开教程)

微信是我们日常生活中必不可少的社交软件,很多人有多个微信,但通常会面临一个问题,在电脑上只能同时打开一个微信,今天小编教大家利用vbs脚本来实现在电脑上实现微信多开。

1.新建文本文档,复制以下代码,保存后缀名为vbs。

电脑微信多开脚本怎么做(利用vbs在电脑上实现微信多开教程)(1)

代码如下:

' 打开微信的数量

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

2.双击刚刚保存的vbs程序,打开输入框,输入启动的微信数量。

3.确定之后输入微信应用程序地址。

这样就可以在同一台电脑上登录多个微信啦!~

想要学习更多关于VBS脚本知识,欢迎关注"vbs_edit"(VBS脚本之家)!

vbs脚本之家

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页