快捷導(dǎo)航

在電腦上實(shí)現(xiàn)微信多開的技巧教程

更新時間：2023年03月05日 15:17:09 作者：webxue

這篇文章主要為大家介紹了在電腦上實(shí)現(xiàn)微信多開的技巧教程，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步，早日升職加薪

需求分析

微信是我們?nèi)粘Ｉ钪斜夭豢缮俚纳缃卉浖?，很多人不止有一個微信，但通常會面臨一個問題，在電腦上只能同時打開一個微信，今天我閑來無事，寫了一個在電腦上可以微信多開的腳本，最初使用的是bat腳本，但bat需要面對的是終端，不適用于普通人，就學(xué)習(xí)并使用了vbs來實(shí)現(xiàn)

雙擊桌面的vbs程序，打開輸入框，輸入啟動的微信數(shù)量
確定之后輸入微信應(yīng)用程序地址
確定之后循環(huán)第一步的數(shù)量執(zhí)行啟動微信操作

實(shí)現(xiàn)思路

需要打開輸入框并獲取到輸入的數(shù)量，這里使用inputbox方法
輸入微信應(yīng)用程序地址并獲取結(jié)果同樣使用inputbox方法
使用For...to循環(huán)
使用WScript.Shell的Run方法啟動微信

具體代碼

' 打開微信的數(shù)量
dim count
' 微信應(yīng)用程序地址
dim src
' wsh腳本終端
dim wsh
' fso讀取文件信息
dim fso

' 設(shè)置wsh腳本終端
set wsh = WScript.CreateObject("WScript.Shell")
' 設(shè)置fso來讀取文件
Set fso = CreateObject("Scripting.FileSystemObject")
	
' 調(diào)用函數(shù)打開輸入框
Call GetCount()

' 定義一個函數(shù)用來打開輸入框彈窗
Sub GetCount()
    ' 獲取打開的微信數(shù)量，默認(rèn)打開兩個
    count = inputbox("請輸入微信多開數(shù)量","微信多開",2)
	
    ' 判斷是否輸入內(nèi)容
    if count = "" Then
        ' 如果點(diǎn)擊取消，直接退出函數(shù)
        if IsEmpty(count) Then
            WScript.quit
        else
            ' 如果點(diǎn)擊確定則提示輸入數(shù)量
            msgbox("請輸入打開微信的數(shù)量")
            Call GetCount()
        end If		
    end If
	
    ' 獲取微信可執(zhí)行文件地址，默認(rèn)是我本機(jī)的微信應(yīng)用程序地址
    src = inputbox("請輸入微信程序地址","微信程序地址","E:\WeChat\WeChat.exe")
	
    ' 判斷是否輸入微信程序地址
    if src = "" Then
        ' 如果點(diǎn)擊取消，直接退出函數(shù)
        if IsEmpty(src) Then
            WScript.quit
        else
            ' 如果點(diǎn)擊確定則提示輸入微信程序地址
            msgbox("請輸入微信可執(zhí)行文件地址")
            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("程序出現(xiàn)異常")
            Exit Sub
        End If
    Next

    Set wsh = NoThing
End Sub

最后將代碼保存在桌面，并將后綴修改為.vbs，雙擊就可以直接運(yùn)行啦