朋友让我用VB做QQ对战平台挤房间工具，怎么做啊？急！！！

来源：百度知道 编辑：UC知道 时间：2024/05/15 20:16:33
当满人的消息框出来就会自动确定还有遇到错误自动关闭QQ对战平台，把代码写出来我参考一下

按住回车 在用鼠标点
就是模拟键盘按下回车

1个time `2个按扭
利用 SendKeys "{Enter}"

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 100
Command1.Caption = "开始"
Command2.Caption = "停止"
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
SendKeys "{Enter}"
End Sub