• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.6.5
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.6
软件大小:29.2M
更新时间:12-06

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

这几天弄QUI界面,快被弄死了,求神指教啊! [复制链接]

1#
我要做的是这样的,多选框1 内容;“等待鼠标左键按下,执行按下F键,鼠标左键一下,按下G键,鼠标左键再点击一下”(最重要的是,只要勾选上这个多选框1,点下鼠标就会进行!可是一开循环就卡死)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
多选框2 内容;“按下空格,执行按下F键,鼠标左键一下,按下G键,鼠标左键再点击一下”(最重要的是,只要勾选上这个多选框1,点下鼠标就会进行!不是只使用一次,可是一开循环就卡死)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´

2#

Event Form1.CheckBox1.Clicku:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Hwnd = Plugin.Window.MousePoint()u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
qq = WaitClick()u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
If qq = 32769 Thenu:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.KeyDown(Hwnd, 70)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.KeyPress(Hwnd, 71)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.KeyUp(Hwnd, 70)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
End If u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
End Eventu:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´

3#

Event Form1.CheckBox1.Clicku:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Hwnd = Plugin.Window.MousePoint()u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Do u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
qq = WaitClick()u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
If qq = 32769 Thenu:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.KeyDown(Hwnd, 70)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.KeyPress(Hwnd, 71)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.KeyUp(Hwnd, 70)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
End If u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Loop u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
End Eventu:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´

4#

Hwnd = Plugin.Window.MousePoint()u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integeru:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Dim key, nu:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
key = 32u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
WaitKeyu:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Event Form1.CheckBox2.Clicku:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
n = GetAsyncKeyState(key)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
If n < 0 Then u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
i=i+1u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.KeyDown(Hwnd, 70)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.KeyPress(Hwnd, 71)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Call Plugin.Bkgnd.KeyUp(Hwnd, 70)u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
Elseu:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
End Ifu:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´
End Eventu:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´

5#

GUI界面最好使用多线程,用死循环会卡死u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´

6#

界面代码是不能出现死循环,也不合适执行长时间的代码,这是基本常识。u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´

7#

真是有点无语了,一年多的帖子,放在面板上。。。。u:~X#©Ù÷bbs.vrbrothers.com3YÂwjO´

发新话题 回复该主题