按键精灵怎么实现多窗口同时操作按键? 15
比如我现在在用窗口化玩游戏,分别有1,2两个窗口,我要对两个窗口同时实行用F1施放技能。应该怎么写?BeginThreadFunction1()SubFunction1(...
比如我现在在用窗口化玩游戏,分别有1,2两个窗口,我要对两个窗口同时实行用F1施放技能。应该怎么写?
BeginThread Function1()
Sub Function1()
While True
Dim h
h = Plugin.Window.Find("GAMEAPP", 0)
KeyPress "F1", 1
Delay 500
Call Plugin.Window.SendKeyPress(h, 13)
Wend
End Sub
单窗口可以用这个命令实施,可两个窗口一起运行的时候就只能运行选中的窗口,怎么才能同时让两个窗口都同时实现按F1发放技能 展开
BeginThread Function1()
Sub Function1()
While True
Dim h
h = Plugin.Window.Find("GAMEAPP", 0)
KeyPress "F1", 1
Delay 500
Call Plugin.Window.SendKeyPress(h, 13)
Wend
End Sub
单窗口可以用这个命令实施,可两个窗口一起运行的时候就只能运行选中的窗口,怎么才能同时让两个窗口都同时实现按F1发放技能 展开
3个回答
展开全部
DimEnv key
Hwnd = split(Plugin.Window.Search("GAMEAPP"), "|")
For i = 0 To UBound(Hwnd) - 1
Hwnda=Hwnd(i)
BeginThread an
Delay 500
Next
Do
key = WaitKey
Delay 100
Loop
Sub an
Do
If key <> "" Then
Call Plugin.Window.SendKeyPress(Hwnda, key)
key = ""
End If
Delay 100
Loop
End Sub
Hwnd = split(Plugin.Window.Search("GAMEAPP"), "|")
For i = 0 To UBound(Hwnd) - 1
Hwnda=Hwnd(i)
BeginThread an
Delay 500
Next
Do
key = WaitKey
Delay 100
Loop
Sub an
Do
If key <> "" Then
Call Plugin.Window.SendKeyPress(Hwnda, key)
key = ""
End If
Delay 100
Loop
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你会用大漠吗?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用后台,多线程,
追问
能不能帮我写一下,我不会多线程
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询