关于vb软件上的QQ留言！

Question

本人做了一个软件，想在上面设置一个QQ留言的按钮，点击后直接和我的QQ对话，不知道怎么做，求助？？？

Answer 1

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
  Dim strUrl As String
  strUrl = "http://wpa.qq.com/msgrd?V=1&Uin=42102845&Site=www.cnking.cn&Menu=yes"
  ShellExecute hwnd, "Open", strUrl, "", "", 1
End Sub

Answer 2

hank212(IT民工)：你好，你告诉我的方法我用了，就是有点慢，网页打开要半天？

Answer 3

strUrl = "http://wpa.qq.com/msgrd?V=1&Uin=42102845&Site=www.cnking.cn&Menu=yes"是什么意思啊？而且www.cnking.cn是什么网站，可以不可以换成其他的网站呢？

Answer 4

不好意思,www.cnking.cn是俺過去的個人網站.你可以隨意改.俺只有這一種方法,如果有好的方法一同學習.