分别用Delphi,VB,易语言打造QQ强行聊天器

                    --------------------------------------------------------------
                                    黑客动画吧 http://www.hack58.com

                                     致力于中国最专业的黑客安全站点

                                           黑客动画吧，有你更精彩

                     --------------------------------------------------------------
这就是我们今天的教程，我们先用易语言来做
首先我们把界面做一下
代码我打好了，如下
tencent://message/?uin= 这是关键的一句，好，我们做好了，现在试试，哈哈，看，是不是可以了，我是随便输的一个QQ号。
下面我们用VB来做：
用VB本来我可以采用Webbrowser控件的，但用的是精简版，里面没有这控件，我就采用API函数来做了，首先，我们也是把界面做一下，然后我们声明一个API函数，代码如下。下面我们再调用这API函数。采用ShellExecute函数来打开，看是不是也成，好，下面我们继续用DELPHI来做，哈哈，看我做就行了！
看，是不是也可以了，好了，今天的教程就到这了，欢迎大家能来瑞冠社区与我交流： http://bbs.rg98.com.我的QQ：26043009
教程就到此结束，88!
易语言代码：

超级链接框1.类型 ＝ 1
超级链接框1.Internet地址 ＝ “tencent://message/?uin=” ＋ 编辑框1.内容
超级链接框1.跳转 ()

VB代码
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()
ShellExecute 0, "open", "tencent://message/?uin=" + Text1.Text, "", "", 1
End Sub

DELPHI代码
 Webbrowser1.Navigate('tencent://message/?uin='+edit1.Text);