1、电脑上面新建一个文本文档，将文本文档进行重命名并修改其后缀名（如：“新建文本文档.txt”改成“OpenNweChat.vbs”）。（可根据实际需要命名，但后缀名“.txt”一定要改成“.vbs”）
2、在vbs文档上边单击右键，在“打开方式”里边选择“记事本”，再输入以下vbs脚本程碌食撞搁序并保存。Dim Message, Title荑樊综鲶, Default, MyValue,i,Msg, Style, Title2, ResponseSet WSHshella = Wscript.Createobject("Wscript.Shell")Message = "打开的微信个数尽量在1-10之间" ' 设置提示信息Title = "请输入打开微信的个数" ' 设置标题Default = "2" ' 设置缺省值（默认值）MyValue = InputBox(Message, Title, Default) '显示信息、标题及默认值Set wmi=GetObject("winmgmts:\\.\root\cimv2")Set list=wmi.ExecQuery("select * from win32_process where name='WeChat.exe'")If list.count <> 0 Then '判断WeChat.exe进程是否停止，不等于0则表示它正在运行Title2 = "重新打开微信提示" ' 定义标题Msg = "是否退出微信后重新打开 " & MyValue &" 个微信 ?" ' 定义信息Style = vbYesNo + VbExclamation + vbDefaultButton2 ' 定义按钮Response = MsgBox(Msg, Style, Title2) '弹出结束程序进程提示If Response = vbYes ThenWSHshella.run "taskkill /F /IM WeChat.exe /T",0 '结束程序进程Do '获取程序进程信息并判断其是否已经结束Set wmi=GetObject("winmgmts:\\.\root\cimv2")Set list=wmi.ExecQuery("select * from win32_process where name='WeChat.exe'")If list.count = 0 Then '判断进程是否已经结束，如果结束则退出do循环exit Doend ifloopFor i = 1 To MyValue '快速打开输入值里面的微信个数WSHshella.run "D:\软件安装\微信\WeChat\WeChat.exe" '打开安装路径下的微信NextEnd IfElseFor i = 1 To MyValue '快速打开输入值里面的微信个数WSHshella.run "D:\软件安装\微信\WeChat\WeChat.exe" '打开安装路径下的微信NextEnd If
3、双击该vbs脚本程序文件，输入要打开的个数（如：2）并点击【确定】。
4、在弹出的提示里边选择“是”，之后将会结束当前的程序进程并重新打开指定的个数，否则将不会结束当前的程序进程。（如果该程序没有后台运行，首次打开将不会有该提示）
5、电脑上面将会重新打开指定个数的登录窗口，此时需要重新扫码登录。
6、手机上面打开微信，使用“扫一扫”功能进行扫码登录。同理，使用同样的方法登录其他微信。
7、电脑上边打开多个微信并登录完成。
