a = WaitKey()
If a = 88 Then
KeyPress "D", 1
Delay 10
KeyPress "D", 1
Delay 10
KeyPress "J", 1
Delay 10
KeyPress "E", 1
Delay 10
KeyPress "J", 1
Delay 10
KeyPress "I", 1
Delay 10
KeyPress "J", 1
End If
如果你加载了大漠的话就使用这个吧:
Do
key = WaitKey()
If key = 123 Then
dm.KeyPressStr "d,d,j,e,j,i,j",10
End If
Loop
这个无限循环呢就是你每次按F12就会启用一次
楼下的代码写的很对,不知你有按键精灵吗,还是需要按键精灵压缩出来的可执行文件,如果是后者,留个邮箱,给你发文件,可以直接使用了