VB6利用QQ群聊写个可以跟任何人聊天的程序

作者：hackyang 文章来源：http://www.kuangruan.com

大家好。小弟菜鸟。也写个程序发给大家。
本程序利用QQ群组聊天。向群里任何人私聊的漏洞。
其实本程序不难，主要在于一个思路。
思路是这样的。利用这个http://wpa.qq.com/msgrd?V=1&Uin=陌生人的QQ号&Site=im.qq.com&Menu=yes
只要在“陌生人的QQ号”的地方打上你要聊天的QQ号，就可以调出聊天的对话框。
好了，不多说了。 Lets go。。。。
首先创建20个控件数组（WEB浏览器控件），不然第二次连接网址的时候会出错！
Dim i As Integer 用来记载单击了多少次连接。
Private Sub CmdSend_Click()
    If Len(Text1.Text) < 5 Or Len(Text1.Text) > 9 Then 判断QQ号是否小于5位大于9位
        MsgBox "输入的QQ号有误，请重新输入。", , "提示"
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
        Exit Sub
    End If
    打开相对应的网址
    WebBrowser1(i + 1).Navigate "http://wpa.qq.com/msgrd?V=1&Uin=" & Text1.Text & "&Site=im.qq.com&Menu=yes"
    i = i + 1
    判断点击“连接”的次数，等于19次的时候，提示关闭程序
    If i = 19 Then
        MsgBox "本程序只允许使用20次。" & Chr(10) & Chr(13) & "点击确定重新启动程序。", , "提示"
        End
    End If
End Sub

关键就是上边这些。相信学过VB的一眼就会。
再给大家加些内容，都是用来补助这个程序的。
Private Sub CmdClose_Click()
    退出询问
    If MsgBox("你确认要退出程序吗？", vbOKCancel + vbQuestion, "提示") = vbOK Then
        End
    Else
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
    End If
End Sub
Private Sub Form_Load()
    text1获得焦点
    Text1.TabIndex = 0
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    点击窗体上关闭的时候询问
    If MsgBox("你确认要退出程序吗？", vbOKCancel + vbQuestion, "提示") = vbOK Then
        Cancel = 0
    Else
        Cancel = 1
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
    End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    如果是退格键，那么不做任何操作，正常删除字符
    If KeyAscii = 8 Then
        Exit Sub
    End If
    只允许输入数字，禁止输入其他字符
    If KeyAscii > 57 Or KeyAscii < 48 Then
        KeyAscii = 0
    End If
End Sub
使用本程序前必须登陆QQ，而且QQ支持在群组内单独向个人聊天的版本！好象是2004beatⅡ版！版本高了更好。
文章写的太乱了。不好意思呦！我的QQ是307700575！大家对这个程序还有什么不理解的话可以加我哦！！``

补充：软件开发 , Vb ,