超简单制作QQ强制聊天器
用记事本输入@echo off
title QQ强制聊天器
color 3e
set/p qq=输入你要聊天的QQ号码
start tencent://Message/?Uin=%qq%
然后保存为bat文件就可以 ON ERROR RESUME NEXT
Dim QQ_NUM
if Wscript.arguments.count<1 then
QQ_NUM=InputBox(""&vbCr&vbCr&"Hello谢谢大家的使用,我的QQ空间:[url]http://user.qzone.qq.com/280097765[/url]"&vbCr&vbCr&"","QQ强行聊天器 by LY","输入你想要聊天的QQ号码")
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=ioshenmue&Menu=yes",0
保存成vbs 界面要好看一些 下面的这个是什么啊?
也是吗? 这是什么原理呢 ``是不是在那种命令下的QQ 我忘记叫什么了`` 2楼的那个也可以吖``::21:: 可是你做什么广告咯还什么QQ空间... 现在窗口抖动不就和强制聊天差不多么?::04:: 怎么用行后出现登陆框了??::08:: ::08:: 早知道了。方法太多了,楼主的那个是利用批处理来弄的 ::22:: 为怎么会酱紫呢::22::
回复 1# 的帖子
请问下 怎么保存为bat文件啊 我靠 那是cfan上的文章,LZ真会运用啊::04:: 好东西!~
继续发扬啊LZ ::04:: ::04:: ::04:: ::04:: ::04:: ::04:: ~~~~~~~~~什么是窗口抖动?
不懂 强制聊天很简单的
只要在运行里输入:tencent://message/?uin=*******
回车就OK了。
注:(****)QQ号码 不错顶下。真的很好哦
急!急!
详解 详解啊 !!!::08:: ::08::回复 10# 的帖子
bat文件就是dos的批处理文件 tencent://message/?uin=*******这一句能不能详细解释一下,路经什么的
message/? 希望可以详细解释!!! 不错不错 都是高手阿。。。
页:
[1]
2
