刚研究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