如何在WINFORM 下带开IE和指定的网站（不是VB的里面的控件），如何调用QQ让弹出与指定人的聊天窗口（非好友）

Question

如何在WINFORM 下带开IE和指定的网站（不是VB的里面的控件），如何调用QQ让弹出与指定人的聊天窗口（非好友） 高手指教啊！！！！！！！！

Answer 1

打开指定的网站：Dim strUrl As String
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
strUrl = "www.google.com"
ShellExecute hwnd, "Open", strUrl, "", "", 1

Answer 2

这样更灵活一些：
Private Sub Command1_Click()
    '首先引用 Microsoft Internet Controls
    Dim IE As New InternetExplorer
    IE.Navigate "www.csdn.net"
    IE.Visible = True
End Sub

Answer 3

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 LongPrivate Sub Command1_Click()
  Dim strUrl As String
  strUrl = "http://wpa.qq.com/msgrd?V=1&Uin=342102845&Site=www.cnking.cn&Menu=yes"
  ShellExecute hwnd, "Open", strUrl, "", "", 1
End Sub

Answer 4

如果你装了QQ.可以考虑用临时对话的功能...不过前提是你登陆了QQ
http://wpa.qq.com/msgrd?V=1&Uin=428743&Menu=yes
在IE中打开上述网址,把428743改成你需要说话的对象就可以了,QQ会自动弹出来与它对话的窗口