2008-02-29 23:40
看到上面的效果吧!
下面我和大家不用工具编写自己的QQ强行聊天器 下面就是代码，绝对不用编写工具。
这的后缀要写成VBS
代码如下
ON ERROR RESUME NEXT
Dim QQ_NUM
if Wscript.arguments.count<1 then
QQ_NUM=InputBox("Eing天体﹎QQ:117551392"&vbCr&vbCr&" "&vbCr&vbCr&" ","QQ强行聊天器﹎http://user.qzone.qq.com/117551392")
if QQ_NUM="" then
Wscript.quit
end if
else
VQQ_NUM = Wscript.arguments.Item(0)
end if
set ws=wscript.createobject("wscript.shell")
ws.run "http://wpa.qq.com/msgrd?V=1&Uin="+QQ_NUM+"&Site=Eing天体http://user.qzone.qq.com/117551392=yes",0
下面给大家解释一下那写代码的意思吧~ 我先大概说下代码的意思
ON ERROR RESUME NEXT 如果程序发生错误继续执行
Dim QQ_NUM 定义变量 inputbox 弹出对话框
对话框内容 if QQ_NUM="" then 检测用户的输入是否为空
如果为空 Wscript.quit 退出脚本 vbs
制作方法:
在电脑桌面右键盘新建一个记事本文档, 然后复制上面的代码放入 再把代码里面的一些字修改成妳喜欢的
然后保存文件/ 另存为/ 保存类型/所有格式/文件名/QQ强制聊天.vbs 记住后缀一定是vbs才可以的
好了,现在妳直接点击刚保存好的文件就看到效果了, 简单吧.......嘿嘿
如果想和谁聊天直接输入对方的号码就开始聊天了,不需要加对方为好友的 有些人不允许加好友都可以跟
她聊天了, 我是菜乌来的 请别见笑........... |
|
|
|
加为好友
送他礼物
发送消息
