VB.Net控制QQ发送信息

刚研究VB控制QQ发送信息，网上找了点资料在VS2010中的VB中测试了一下，能够发信息，目前只研究到这种程序不知道有没有更好的办法！PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click'1234567是对方的QQ号WebBrowser1.Navigate("tencent://message/?uin=1234567&Site=lvehe&Menu=yes")PauseWait(300)