VB的代码问题。急！！！

是我写错啦，还是……

Private Sub Command2_Click()
Text1.Text = ""
Texe2.Text = ""
Text3.Text = "00"
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Timer1_Timer()
Text3.Text = CStr(Val(Text3.Text) - 1)
If Text3.Text = "00" Then
 If Text2.Text = "0" Then
  If Text1.Text = "" Then
  MsgBox "时间到！！！"
  Else
  Text1.Text = CStr(Val(Text1.Text) - 1)
  Text2.Text = "60"
  End If
 End If
End If
End Sub

答案：
获取QQ号。。这个我给你一个思路把，注册表容易，你直接在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run 这里添加一个字符串值·然后输入路径就可以实现开机启动，然后加一个TIMER控件用FindWindow这个API函数检测QQ登陆窗口运行，在用FindWindowex获取用户名输入框句柄，这里有个问题那就是密码输入框不能获取要排除，因为密码输入框对密码进行了加密，所以不行，然后就用GetWindowText获取该控件的内容，从而获取到QQ号，再进行判断即可·如果是的话，再用GetWindowThreadProcessId 获取PID，然后在用OpenProcess获取进程句柄·再调用API函数TerminateProcess结束进程即可，具体的代码不写了，可能有点多，再说了你没给分·这些都是我自己打的 ，希望能帮助到你！
错了一句：
Texe2.Text = ""

Text2

上一个：VB制作一个网址的窗口
下一个：vb如何快速读取某一行