在电脑上实现微信多开的技巧教程

在电脑上实现微信多开的技巧教程

这篇文章主要为大家介绍了在电脑上实现微信多开的技巧教程，有需要的朋友可以借鉴参考下，希望能够有所帮助，祝大家多多进步，早日升职加薪

目录

• 需求分析
• 实现思路
• 具体代码
• 收获
• 结语

需求分析

微信是我们日常生活中必不可少的社交软件，很多人不止有一个微信，但通常会面临一个问题，在电脑上只能同时打开一个微信，今天我闲来无事，写了一个在电脑上可以微信多开的脚本，最初使用的是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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75

最后将代码保存在桌面，并将后缀修改为.vbs，双击就可以直接运行啦

收获

• vbs中定义变量可以使用dim
• 通过CreateObject来创建一个对象
• 通过Sub或Function来声明一个函数
• 通过Call来调用一个函数
• 不等于符号可以使用<>
• 输入框可以使用inputbox控件
• 消息弹框可以使用msgbox控件
• if条件判断必须以end if结束且大小写不敏感