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

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.5
软件大小:62.5M
更新时间:9-25

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

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

快捷导航

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

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

[已回复] 开神盾后下面代码失效了。请高手指点 [复制链接]

1#
只要开神盾下面代码失效了。怎么办?
DimEnv 跑停
跑停 = 9 //9是跑1是定
BeginThread 检测按键()
Delay 200
BeginThread 检测鼠标()
Delay 200
BeginThread 检测解药 ()
Sub 检测按键()
While 1
按键 = WaitKey()
If 按键 = 68 or 按键 = 70 Then
If 按键 = 68 Then
跑停 = 9
TracePrint 跑停
TracePrint 按键
End If
If 按键 = 70 Then
跑停 = 1
TracePrint 跑停
TracePrint 按键
End If
Delay 500
End If
Delay 20
Wend
End Sub
Sub 检测鼠标()
While 1
鼠标 = WaitClick()
If 鼠标 =32777 Then
跑停 = 9
TracePrint 跑停
End If
Delay 50
Wend
End Sub

Sub 检测解药()
WaitClick
IfColor 1267,441,"006D9C",0 Then
MessageBox "解药不够"
Else
End If
Delay 10000
End Sub

本主题由 超级版主 n15976906190 于 2016/11/26 22:44:02 执行 主题分类 操作
2#

回复 1楼hzcaizi的帖子

注:你好 用这个API代替下
  1. Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
  2. Dim key, n
  3. key = 65'A的按键码=65
  4. Do
  5. n = GetAsyncKeyState(key)
  6. If n = 1 Then
  7. TracePrint "按了" & Chr(key) & "键"
  8. ElseIf n < 0 Then
  9. TracePrint "按住了" & Chr(key) & "键"
  10. Else
  11. TracePrint "无按键,等待!"
  12. End If
  13. Delay 500
  14. Loop
复制代码

收徒索引 ←点击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
3#

回复 2楼n15976906190的帖子

好的,我试试,谢谢

4#

该用户帖子内容已被屏蔽

发新话题 回复该主题