微信是我们日常生活中必不可少的社交软件，很多人有多个微信，但通常会面临一个问题，在电脑上只能同时打开一个微信，今天小编教大家利用vbs脚本来实现在电脑上实现微信多开。
1.新建文本文档，复制以下代码，保存后缀名为vbs。
代码如下：
' 打开微信的数量
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脚本之家
,
