按键精灵8后台鼠标单击无效
以下为后台脚本,除了鼠标单击没有实现,其他均已实现,求高手帮忙改下!!要求最好是在屏幕正中间单击鼠标5次!!游戏窗口分辨率为640*480*16,显示器分辨率为:1900...
以下为后台脚本,除了鼠标单击没有实现,其他均已实现,求高手帮忙改下!!要求最好是在屏幕正中间单击鼠标5次!!游戏窗口分辨率为640*480*16,显示器分辨率为:1900*1200,
按键精灵8的复制到源文件中
Dim Hwnd
Hwnd = Plugin.Window.MousePoint()
Rem 循环
Call Plugin.Bkgnd.KeyPress(Hwnd, 119)
Delay 300
Call Plugin.Bkgnd.LeftClick(Hwnd,825, 386)
Delay 4000
Call Plugin.Bkgnd.KeyPress(Hwnd, 120)
Delay 1000
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 3000
Goto 循环
正确答案我将追加50分!! 展开
按键精灵8的复制到源文件中
Dim Hwnd
Hwnd = Plugin.Window.MousePoint()
Rem 循环
Call Plugin.Bkgnd.KeyPress(Hwnd, 119)
Delay 300
Call Plugin.Bkgnd.LeftClick(Hwnd,825, 386)
Delay 4000
Call Plugin.Bkgnd.KeyPress(Hwnd, 120)
Delay 1000
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 3000
Goto 循环
正确答案我将追加50分!! 展开
3个回答
展开全部
Dim Hwnd
Hwnd = Plugin.Window.MousePoint()
Rem 循环
Call Plugin.Bkgnd.KeyPress(Hwnd, 119)
Delay 300
Call Plugin.Bkgnd.LeftClick(Hwnd,320, 240)
Delay 4000
Call Plugin.Bkgnd.KeyPress(Hwnd, 120)
Delay 1000
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 3000
Goto 循环
Hwnd = Plugin.Window.MousePoint()
Rem 循环
Call Plugin.Bkgnd.KeyPress(Hwnd, 119)
Delay 300
Call Plugin.Bkgnd.LeftClick(Hwnd,320, 240)
Delay 4000
Call Plugin.Bkgnd.KeyPress(Hwnd, 120)
Delay 1000
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 3000
Goto 循环
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询