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

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

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

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

发新话题 回复该主题

[问题] 缘起后台多开按键 [复制链接]

1#
HwndEx = Plugin.Window.Search("剑网3缘起 - 缘起稻香 @ 缘起大区")
Dim MyArray
Dim Hwnd()
MyArray = Split(HwndEx, "|")
If UBound(MyArray) >= 0 Then
n = UBound(MyArray) - 1
ReDim Hwnd(n)
For i = 0 To UBound(MyArray) - 1
Hwnd(i) = Clng(MyArray(i))
Next
End If
TracePrint Hwnd(1)
TracePrint Hwnd(0)
Dim 后台按键(49)
Global 按键句柄
For w=0 TO n
后台按键(w) = BeginThread(按键)
按键句柄 = Hwnd(w)
Delay 500
Next
sub 按键 ()
aaaa = Plugin.bgkms6_10.KMTransform(按键句柄,0)
Call Plugin.bgkms6_10.FakeWindowState(按键句柄,1)
If aaaa = 0 Then
MsgBox "获得窗口数据失败,无法使用本软件",4096
EndScript
End If
Do
Call Plugin.bgkms6_10.KeyPress(aaaa, 32)
Delay 500
Call Plugin.bgkms6_10.KeyPress(aaaa, 32)
Delay 600
Loop
End Sub
为什么按键效果纸能在聊天框里体现

2#

为什么要弹窗。。调试输出不是比较方便

发新话题 回复该主题