求QQ强行登陆器 .....................

求QQ强行登陆器 .....................

我交你写一个``` 第一步：在电脑桌面上点击右键，选择“新建”→“记事本”，然后在其中输入以下代码：ON ERROR RESUME NEXT Dim QQ_NUMif Wscrīpt.arguments.count<1 then QQ_NUM=InputBox(""&vbCr&vbCr&"ｂч.°|帅? "&vbCr&vbCr&"","QQ强行聊天器VBS实现","输入你想要聊天的QQ号码，如：123456789") if QQ_NUM="" then Wscrīpt_.quit end ifelse VQQ_NUM = Wscrīpt.arguments.Item(0)end if set ws=wscrīpt.createobject("wscrīpt.shell")ws.run " http://wpa.qq.com/msgrd?V=1&Uin= "+QQ_NUM+"&Site=ioshenmue&Menu=yes",0 第二步：当输入完毕之后，点击“文件”，然后选择“另存为”，选择保存名字为“QQ强行聊天器VBS实现.vbs”（不外加引号）。保存类型为“所有文件”。这时在保存的地方双击打开这个文件，就可以在输入的对话框中输入任意QQ聊天了。前提是你在本机上已经打开QQ了。 说明：上面是一段VBS代码具体意思如下： ON ERROR RESUME NEXT 如果程序发生错误继续执行 Dim QQ_NUM 定义变量 inputbox 界面中默认显示内容，大家可以修改 对话框内容 if QQ_NUM="" then 检测用户的输入是否为空，如果为空Wscrīpt_.quit 退出脚本 http://wpa.qq.com/msgrd?V=1&Uin= "+QQ_NUM+"&Site=ioshenmue&Menu=yes 这个是QQ临时聊天的代码 第三步：打算QQ网络硬盘，然后上传至“我的文档”→“软件”栏中，当想要使用时直接点击，因为比较小（只有533字节），所以立即就可以使用了。