Sub T
KeyPressS "T", 1
End Sub
Sub Y
KeyPressS "Y", 1
End Sub
Sub U
KeyPressS "U", 1
End Sub
Sub I
KeyPressS "I", 1
End Sub
tt = 1
While 1
Delay 1000
If tt mod 8 = 0 Then
Call T
End If
If tt mod 4 = 0 Then
Call Y
End If
If tt mod 18 = 0 Then
Call U
End If
If tt mod 45 = 0 Then
Call I
End If
tt = tt + 1
If tt = 1621 Then
tt = 1
End If
Wend
如果你要后台的,只需要把前面的那4个过程中的按键代码该一下即可,如果你不会改,我只能无语了。写了这么多,记得采纳。
你自己去网上下载一个吧!另外如果真想玩的话建议你下载个破解版的防护病毒或者保护电脑的软件,这样即使你下载了带木马和病毒的东西,你的电脑也不会受到破坏!