我们可以给我们的QQ自动登陆器加多些功能，以吸引别人使用(钓鱼嘛~)，比如：
QQ性别任意修改：
Code Language : Delphi
-
-
procedure ChangeSex(sex:string);
-
var
-
tmp:pchar;
-
h,h1,h2,h3,h4,h5:HWND;
-
id:integer;
-
begin
-
h := FindWindow('#32770','QQ2007设置');
-
if h=0 then
-
h := FindWindow('#32770','QQ2006设置');
-
if h<>0 then begin
-
h1 := FindWindowEx(h,0,'#32770',nil);
-
h2 := FindWindowEx(h1,0,'#32770',nil);
-
h3 := GetDlgItem(h2,1356);
-
h4 := GetDlgItem(h2,551);
-
h5 := GetDlgItem(h1,1343);
-
SendMessage(h3,32,0,0); //WM_SETCURSOR
-
id := SendMessage(h3,323,0,longint(pchar(sex))); //给QQ性别组合框加一项
-
SendMessage(h3,334,id,0); //选择所加的那项
-
SendMessage(h4,13,10,longint(@tmp));
-
SendMessage(h4,12,0,longint(@tmp));
-
SendMessage(h5,245,0,0); //点击确定按钮
-
end
-
else
-
Application.MessageBox('请先打开QQ个人设置窗口！','提示',MB_OK);
-
end;
-
Parsed in 0.021 seconds QQ强行聊天：
Code Language : Delphi
-
-
procedure QQChat(number:string);
-
var
-
inum:integer;
-
begin
-
if trystrtoint(number,inum) then
-
begin
-
if inum>10000 then
-
ShellExecute(handle,nil,pchar('Tencent://Message/?Menu=YES&Exe=&Uin='+number),nil,nil,SW_NORMAL)
-
else
-
Application.MessageBox('无此QQ号码！','提示',MB_OK);
-
end
-
else
-
Application.MessageBox('请输入有效的QQ号码！','提示',MB_OK);
-
end;
-
Parsed in 0.011 seconds 这些功能的实现都是再简单不过了，但对于不懂编程的人来说却觉得很神奇(我给我身边的同学、朋友用的时候他们都崇拜地对我说：你太厉害了！而我，背后暗笑中……)
程序最终效果如图:
到这里我们的QQ钓鱼工程就快完成了，我们可以写个使用说明，使用点社会工程学技巧：
Quote:
程序功能:
1.自动登陆
能有效防止所有的QQ盗号木马，因为QQ盗号木马是通过截获QQ登陆窗口实现盗号的
使用本软件登陆QQ，即使你中了QQ木马，你的QQ也不会被盗
2.QQ性别任意修改
可以将你QQ性别修改为任意的(你的QQ好友查看你的QQ资料时即可看到效果)
3.强行聊天
能和任意QQ号码聊天，无须添加对方为好友
……
然后发到国内一些下载站上去，或者在一些论坛宣传……你就等着收QQ吧！
郑重声明:本文旨在技术交流，其中介绍的技术仅供测试，非法盗取他人帐号是违法的。对使用本文所介绍的技术引起的任何法律问题与本人无关!
上一页 1 2 |
安全中国首页 > 文章中心 > Q Q技巧