python操作模拟器多开操作_窗口多开模拟器同步操作器▲按键精灵脚本▲

[Visual Basic] 纯文本查看 复制代码Dim WindowsCount//定义一个变量，存入要多开的窗口数量

WindowsCount = 0//变量赋值为0

Dim Windows(999)//定义一个数组，用来存入游戏句柄，可存入1000个游戏窗口，我想应该也许大概可能没人能开1000个游戏窗口吧，要是开1000个记事本窗口我也是服的

Dim i, j, ClickType

MessageBox "先设置每个窗口的句柄，需要多少填多少，没有留空！"

Do //循环 配合loop使用 exit do跳出循环

Delay 200

//If Form1.ComboBox1.ListIndex = 0 Then

MessageBox "获取句柄模式： 注意！"&vbcr&"在需要获取的窗口内单击鼠标，提示成功后进行相关即可！"

do

ClickType = WaitClick()

Windows(WindowsCount) = Plugin.Window.MousePoint()

//Call Plugin.Sys.SetCLB(Hwnd) 这句也不需要了，我注释掉了

i = msgbox("句柄："&Windows(WindowsCount)&vbcr&"获取句柄成功！！！"&vbcr&"需要再次获取，点击确定继续！取消退出此模式！", vbOKCancel, "获取句柄模式")

If i = 2 Then

//EndScript 这里应该是有问题的，代码应该改成 Exit Do

Exit Do

//============================以下为我添加的代码

Else

WindowsCount = WindowsCount + 1//添加一个判断，继续添加