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

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

按键精灵安卓版
立即下载

软件版本:3.3.6
软件大小:62.5M
更新时间:01-16

按键精灵iOS版
立即下载

软件版本:1.6.0
软件大小:29.2M
更新时间:07-29

最新企业版UiBot
立即下载

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

快捷导航

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

登录 注册
发新话题 回复该主题

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

1#
我要做的是这样的,多选框1 内容;“等待鼠标左键按下,执行按下F键,鼠标左键一下,按下G键,鼠标左键再点击一下”(最重要的是,只要勾选上这个多选框1,点下鼠标就会进行!可是一开循环就卡死)

多选框2 内容;“按下空格,执行按下F键,鼠标左键一下,按下G键,鼠标左键再点击一下”(最重要的是,只要勾选上这个多选框1,点下鼠标就会进行!不是只使用一次,可是一开循环就卡死)

2#

Event Form1.CheckBox1.Click
Hwnd = Plugin.Window.MousePoint()


qq = WaitClick()
If qq = 32769 Then

Call Plugin.Bkgnd.KeyDown(Hwnd, 70)
Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)
Call Plugin.Bkgnd.KeyPress(Hwnd, 71)
Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)
Call Plugin.Bkgnd.KeyUp(Hwnd, 70)

End If

End Event

3#

Event Form1.CheckBox1.Click
Hwnd = Plugin.Window.MousePoint()

Do
qq = WaitClick()
If qq = 32769 Then

Call Plugin.Bkgnd.KeyDown(Hwnd, 70)
Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)
Call Plugin.Bkgnd.KeyPress(Hwnd, 71)
Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)
Call Plugin.Bkgnd.KeyUp(Hwnd, 70)

End If
Loop
End Event

4#

Hwnd = Plugin.Window.MousePoint()
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Dim key, n
key = 32
WaitKey
Event Form1.CheckBox2.Click

n = GetAsyncKeyState(key)
If n < 0 Then
i=i+1
Call Plugin.Bkgnd.KeyDown(Hwnd, 70)
Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)
Call Plugin.Bkgnd.KeyPress(Hwnd, 71)
Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)
Call Plugin.Bkgnd.KeyUp(Hwnd, 70)
Else

End If

End Event

5#

GUI界面最好使用多线程,用死循环会卡死

6#

界面代码是不能出现死循环,也不合适执行长时间的代码,这是基本常识。

7#

真是有点无语了,一年多的帖子,放在面板上。。。。

发新话题 回复该主题