vb自动输入用户名密码

来源：百度知道 编辑：UC知道 时间：2024/06/01 17:59:22
'一个按钮，2个文本框，2个时间控件（command1,text1,text2,timer1,timer2）
'输入用户名，输入密码，点确定。
’把光标放在游戏登陆的用户名那个框里。
’按下F4，就会自动输入，梦幻要把密码保护那个勾去掉。
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim i As Integer
Private Sub Command1_Click()
Me.WindowState = 1
Timer1.Interval = 100
End Sub

Private Sub Form_Load()
i = 0
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(115) Then
Timer2.Interval = 300
End If
End Sub

Private Sub Timer2_Timer()
i = i + 1
If i = 1 Then SendKeys Text1
If i = 2 Then SendKeys "{tab}"
If i = 3 Then SendKeys Text2
If i = 4 Then SendKeys "{enter}"
i = 0
Timer2.Interval = 0
End Sub

当我按F4的时候 只输入 text1的内容
If i = 2 Then SendKeys "{tab}"
If i = 3 Then SendKeys Text2
If i =

i = i + 1
If i = 1 Then SendKeys Text1
If i = 2 Then SendKeys "{tab}"
If i = 3 Then SendKeys Text2
If i = 4 Then SendKeys "{enter}"
i = 0
注意最后的一句，当Timer2_Timer开始时，i永远是0，所以后三个IF永远不会被执行，要想正常执行，把i = 0 改成If i >= 4 Then i = 0

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim i As Integer
Private Sub Command1_Click()
Me.WindowState = 1
Timer1.Interval = 100
End Sub

Private Sub Form_Load()
i = 0
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(115) Then
Timer2.Interval = 300
End If
End Sub

Private Sub Timer2_Timer()
i = i + 1
If i = 1 Then SendKeys Text1
If i = 2 Then SendKeys "{tab}"
If i = 3 Then SendKeys Text2
If i = 4 Then SendKeys "{enter}"
If i > 4 Then
i