免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
楼主: skrypto

Net::OICQ 1.3 版 [复制链接]

求职 : 网络信息安全
论坛徽章:
0
发表于 2007-02-08 23:05 |显示全部楼层
呵呵,请查收。

论坛徽章:
0
发表于 2007-02-08 23:09 |显示全部楼层
哈哈,可以做坏事了。
sub check
{
    my ($uid,$pw) = @_;
    my $oicq = new Net::OICQ;
    $oicq->{Debug} = 9;
    my $login;
    eval { $login = $oicq->login($uid, $pw, 'Invisible') };
    $oicq->logout if not $@ and $login;
    print "\n$@\n";
    return 0 if $@ =~ /您的密码不正确/;
    return 1;
};

论坛徽章:
0
发表于 2007-02-08 23:12 |显示全部楼层
原帖由 菜田守望者 于 2007-2-8 23:09 发表
哈哈,可以做坏事了。
sub check
{
    my ($uid,$pw) = @_;
    my $oicq = new Net::OICQ;
    $oicq->{Debug} = 9;
    my $login;
    eval { $login = $oicq->login($uid, $pw, 'Invisible') } ...


做坏事时要记得用代理

Net::OICQ只支持HTTP代理。

论坛徽章:
0
发表于 2007-02-08 23:47 |显示全部楼层
做的非常不错,就是win32::GUI界面似乎不够理想,缺少滚动条!

论坛徽章:
0
发表于 2007-02-08 23:58 |显示全部楼层
原帖由 y6cmE 于 2007-2-8 23:05 发表
呵呵,请查收。


小旺呀,你这个号用腾讯的QQ都登陆不上,好象你的好友太多了吧。




【QQ  版本】Build 15.95.370
【QQ  号码】9044185
【操作系统】Microsoft Windows XP Service Pack 2 [Build 5.1.2600]

【网络设置】局域网内使用透明代理
【登录过程】
---------------------------------------------------------------------------
        开始第一次号码注册登录......时间[2007-02-08 11:15:28]
        初始化登录服务器列表,上次的登录方式为【初始登录方式】
        UDP服务器【sz.tencent.com:8000】需要域名解析...
        UDP服务器【sz5.tencent.com:8000】需要域名解析...
        UDP服务器【sz2.tencent.com:8000】需要域名解析...
        UDP服务器【sz6.tencent.com:8000】需要域名解析...
        UDP服务器【sz8.tencent.com:8000】需要域名解析...
        UDP服务器【sz7.tencent.com:8000】需要域名解析...
        UDP服务器【sz3.tencent.com:8000】需要域名解析...
        UDP服务器【sz9.tencent.com:8000】需要域名解析...
        UDP服务器【sz4.tencent.com:8000】需要域名解析...
        UDP服务器域名解析成功【sz.tencent.com:8000】==>【219.133.49.171】
        UDP服务器域名解析成功【sz5.tencent.com:8000】==>【58.60.14.33】
        UDP服务器域名解析成功【sz2.tencent.com:8000】==>【58.60.14.42】
        UDP服务器域名解析成功【sz6.tencent.com:8000】==>【219.133.60.37】
        UDP服务器域名解析成功【sz8.tencent.com:8000】==>【219.133.40.37】
        UDP服务器域名解析成功【sz7.tencent.com:8000】==>【219.133.48.89】
        UDP服务器域名解析成功【sz3.tencent.com:8000】==>【219.133.48.88】
        UDP服务器域名解析成功【sz9.tencent.com:8000】==>【219.133.60.39】
        UDP服务器域名解析成功【sz4.tencent.com:8000】==>【58.60.14.32】
        UDP登录服务器全部尝试失败,尝试下一种登录方式
        TCP服务器【tcpconn.tencent.com:80】需要域名解析...
        TCP服务器【tcpconn5.tencent.com:80】需要域名解析...
        TCP服务器【tcpconn2.tencent.com:80】需要域名解析...
        TCP服务器【tcpconn6.tencent.com:80】需要域名解析...
        TCP服务器【tcpconn4.tencent.com:80】需要域名解析...
        TCP服务器【tcpconn3.tencent.com:80】需要域名解析...
        TCP服务器域名解析成功【tcpconn.tencent.com:80】==>【219.133.48.103】
        TCP服务器域名解析成功【tcpconn5.tencent.com:80】==>【219.133.49.211】
        TCP服务器域名解析成功【tcpconn2.tencent.com:80】==>【219.133.38.230】
        TCP服务器域名解析成功【tcpconn6.tencent.com:80】==>【219.133.60.173】
        TCP服务器域名解析成功【tcpconn4.tencent.com:80】==>【58.60.14.45】
        TCP服务器域名解析成功【tcpconn3.tencent.com:80】==>【219.133.38.5】
        连接TCP服务器成功【219.133.48.103:80】
        连接TCP服务器成功【219.133.38.230:80】
        连接TCP服务器成功【219.133.49.211:80】
        连接TCP服务器成功【219.133.60.173:80】
        连接TCP服务器成功【219.133.38.5:80】
        确定登录TCP服务器IP【219.133.48.103】,端口【80】
        开始下载好友数据步骤1
        下载好友信息步骤2.......
        下载好友信息步骤2发生超时
        UDP登录服务器全部尝试失败,尝试下一种登录方式
        连接TCP服务器成功【219.133.49.211:80】
        连接TCP服务器成功【219.133.38.230:80】
        连接TCP服务器成功【219.133.60.173:80】
        连接TCP服务器成功【219.133.38.5:80】
        连接TCP服务器成功【58.60.14.45:80】
        确定登录TCP服务器IP【219.133.49.211】,端口【80】
        开始下载好友数据步骤1
        下载好友信息步骤2.......
        下载好友信息步骤2发生超时
        UDP登录服务器全部尝试失败,尝试下一种登录方式
        连接TCP服务器成功【219.133.38.230:80】
        连接TCP服务器成功【219.133.60.173:80】
        连接TCP服务器成功【219.133.38.5:80】
        连接TCP服务器成功【58.60.14.45:80】
        收到重定向【219.133.38.230:80 TCP=1】 ==> 【219.133.49.6:80 TCP=1】
        确定登录TCP服务器IP【219.133.60.173】,端口【80】
        开始下载好友数据步骤1
        下载好友信息步骤2.......
        下载好友信息步骤2发生超时
        UDP登录服务器全部尝试失败,尝试下一种登录方式
        连接TCP服务器成功【219.133.49.6:80】
        连接TCP服务器成功【219.133.38.5:80】
        确定登录TCP服务器IP【219.133.49.6】,端口【80】
        开始下载好友数据步骤1
        下载好友信息步骤2.......
        下载好友信息步骤2发生超时
        UDP登录服务器全部尝试失败,尝试下一种登录方式
        连接TCP服务器成功【219.133.38.5:80】
        连接TCP服务器成功【58.60.14.45:80】
        收到重定向【219.133.38.5:80 TCP=1】 ==> 【219.133.49.73:80 TCP=1】
        连接TCP服务器成功【219.133.49.73:80】
        确定登录TCP服务器IP【58.60.14.45】,端口【80】
        开始下载好友数据步骤1
        下载好友信息步骤2.......
        下载好友信息步骤2发生超时
        UDP登录服务器全部尝试失败,尝试下一种登录方式
        连接TCP服务器成功【219.133.49.73:80】
        UDP登录服务器全部尝试失败,尝试下一种登录方式
        TCP登录服务器全部尝试失败
        UDP登录服务器全部尝试失败,尝试下一种登录方式
        TCP登录服务器全部尝试失败
        最终第一次号码注册登录失败,时间:2007-02-08 10:53:23

论坛徽章:
0
发表于 2007-02-09 00:03 |显示全部楼层
原帖由 helbreathszw 于 2007-2-8 23:47 发表
做的非常不错,就是win32::GUI界面似乎不够理想,缺少滚动条!


滚动条貌似是Win32::GUI模块的问题,我调用AddTextfield时用了-autohscroll => 1, -autovscroll => 1,它就是死活不出现。

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
发表于 2007-02-09 00:16 |显示全部楼层
原帖由 skrypto 于 2007-2-9 00:03 发表

滚动条貌似是Win32::GUI模块的问题,我调用AddTextfield时用了-autohscroll => 1, -autovscroll => 1,它就是死活不出现。

呵呵,这就是你的不对了。
Win32::GUI 我比较熟悉。

BTW:赶紧把 sf.net 改成 SVN 吧。要不我帮你改?
再或者我们挪到 svn.perlchina.org 上?趁早把他弄完善一些。协议这块你比较熟,边边角角的我相信我还是可以帮你打理一些的。

论坛徽章:
0
发表于 2007-02-09 00:49 |显示全部楼层
flw,

svn.perlchina.org 要是可靠的话,我没意见。我也想学svn。

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
发表于 2007-02-09 00:56 |显示全部楼层
原帖由 skrypto 于 2007-2-9 00:49 发表
flw,

svn.perlchina.org 要是可靠的话,我没意见。我也想学svn。

那这样,我明天跟春子联系一下,尽快给你开个帐户。
你把想要的用户名、口令 PM 给我。
如果可以的话,我就以你发布在 sf.net 上的源码作为初始版本放在 svn.perlchina.org 了——这里虽然比较慢一些,但是还算稳定。

求职 : 网络信息安全
论坛徽章:
0
发表于 2007-02-09 07:04 |显示全部楼层
呵呵,Perl/TK和Win32::GUI我也比较熟一些,或许可以帮点小忙。
呵呵,我天天都在用TM2005,刚才试了一下QQ2006也可以,好友多少也有差别啊:(
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP