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

页面导航:首页 > 软件编程 > vb.net > VB6利用QQ群聊写个可以跟任何人聊天的程序

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

来源: 作者: 时间:2016-02-05 12:32 【

作者:hackyang文章来源:http://www.kuangruan.com大家好。小弟菜鸟。也写个程序发给大家。本程序利用QQ群组聊天。向群里任何人私聊的漏洞。其实本程序不难,主要在于一个思路。思路是这

作者:hackyang    文章来源: 

大家好。小弟菜鸟。也写个程序发给大家。
本程序利用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! 大家对这个程序还有什么不理解的话可以加我哦!!``

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <