多开也可以多开方法
把第一个开后台的窗口放在前面 后按启动键 按完后缩小窗口
在把第二个窗口放在最前面 后按启动键 按完后缩小窗口
就这样循环开吧
下面是源代码
UserVar ys= 1000 请输入喊话之间的延时秒数
UserVar Var1=DropList{循环到按停止键为止:值1|循环一遍:值2}=0 循环到按停止键为止
UserVar han1= "请输入喊话内容" 请输入喊第一句话内容
UserVar han2= "请输入喊话内容" 请输入喊第二句话内容
UserVar han3= "请输入喊话内容" 请输入喊第三句话内容
UserVar han4= "请输入喊话内容" 请输入喊第四句话内容
UserVar han5= "请输入喊话内容" 请输入喊第五句话内容
Plugin Hwnd = Window.Foreground()
//下面这句是最小化窗口
Plugin Window.Min(Hwnd)
Delay 500
Plugin Hwnd = Window.FindEx(Hwnd, 0, "Edit", 0)
dim h
If Var1="值1"
//下面这句是在屏幕上范围位置(0, 0, 1024, 768)进行输出内容("冷月制做欢迎使用")
Plugin Msg.ShowScrTXT(0, 0, 1024, 768, "冷月制做欢迎使用", "0000FF")
Rem xh
SetSimMode 1
h=han1
Gosub an
Gosub hua
Delay ys
h=han2
Gosub an
Gosub hua
Delay ys
h=han3
Gosub an
Gosub hua
Delay ys
h=han4
Gosub an
Gosub hua
Delay ys
h=han5
Gosub an
Gosub hua
Delay ys
SetSimMode 0
Goto xh
//下面这句是直接对屏幕进行刷新清除
Plugin Msg.HideScrTXT()
Else
//下面这句是在屏幕上范围位置(0, 0, 1024, 768)进行输出内容("冷月制做欢迎使用")
Plugin Msg.ShowScrTXT(0, 0, 1024, 768, "冷月制做欢迎使用", "0000FF")
h=han1
SetSimMode 1
Gosub an
Gosub hua
Delay ys
h=han2
Gosub an
Gosub hua
Delay ys
h=han3
Gosub an
Gosub hua
Delay ys
h=han4
Gosub an
Gosub hua
Delay ys
h=han5
Gosub an
Gosub hua
Gosub an
//下面这句是直接对屏幕进行刷新清除
Plugin Msg.HideScrTXT()
Delay ys
SetSimMode 0
EndScript
EndIf
Sub OnScriptExit
MessageBox "脚本已经停止,欢迎使用"
Return
Sub hua
Plugin Bkgnd.SendString(hwnd,h)
Return hua
Sub an
Plugin Bkgnd.KeyDown(hwnd,13)
Return an
看到没 ?那个禁止脚本重复运行 选择 否 然后在每个窗口按一下 启动键 就行了
dim hwn(2)
for i=0 to 2
hwn(i) = Plugin.Window.MousePoint()
msgbox "窗口句柄为:" & HWN(I)
DELAY 2000
NEXT
这样窗口句柄就保存完了
HWN(0)~HWN(2)