怎样用VB编写在指定时间输入enter键

来源：百度知道 编辑：UC知道 时间：2024/05/15 04:05:32
我是一个台服的魔兽玩家，因为排队现象很严重，导致我下班回来要排2个小时队，不能跟公会出团。所以我想用vb编一个exe来提早登陆游戏。

内容大概是：
在时间21：30 按enter键

看过之前的答案，试过都不行，只能自己发问了，而且我又完全不懂VB，只是听说按键精灵算是WG，用了会封号，所以别叫我用按键精灵了。
不过我也不知道这类用vb编辑出来的东西会不会被官方知道而封号。
求求高手帮我，感恩！

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
A = Time
If A = "下午 21:30:00" Then
sendkeys "{enter}"
End If
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer) '测试： 点击回车！ 效果： 显示 OK字符 并有声音提示！
If KeyAscii = 13 Then
Print "OK"
Beep

End If
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim MyTime
MyTime = Time
If MyTime = "21:19:30" Then
SendKeys "{ENTER}"
End If
Label1.Caption = Time

End Sub

sendkeys"{ENTER}"

vb 编出来的跟按键精灵差不多...都是一样