刚研究VB控制QQ发送信息,网上找了点资料
在VS2010中的VB中测试了一下,能够发信息,目前只研究到这种程序
不知道有没有更好的办法!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'1234567是对方的QQ号
WebBrowser1.Navigate("tencent://message/?uin=1234567&Site=lvehe&Menu=yes")
PauseWait(300)
SendKeys.Send(Now.ToString)
PauseWait(1000)
SendKeys.Send("^~")
PauseWait(300)
SendKeys.Send("{ESC}")
End Sub
'延时程序
Public Sub PauseWait(ByVal HowLong As Long)
Dim tick As Long
tick = My.Computer.Clock.TickCount
Do
My.Application.DoEvents()
Loop Until tick + HowLong < My.Computer.Clock.TickCount
End Sub
1