下载月排行
立即下载简单打造QQ聊天器[语音]
| 软件大小: | 9.70 MB |
|---|---|
| 软件语言: | 简体中文 |
| 软件类别: | 黑客教学 - 黑客动画 |
| 授权方式: | 共享版 |
| 应用平台: | Win9X/2000/XP/2003/ |
| 更新时间: | 2008/8/18 13:29:35 |
| 开 发 商: | 暂无信息 |
| 联 系 人: | 暂无联系方式 |
| 分享收藏 | |
| 解压密码: | 本站默认解压密码：www.987654321sf.com |
| 推荐等级: |  |
| 会员中心: | 【账号登录】 【账号注册】 开通VIP下载流程 |
| 查毒情况: |  |
[复制下载页面地址给QQ/MSN上的好友]软件介绍
------------------------------------------------------------------------------------------
大家好，我是爱吹冷风，今天给大家做用记事本做QQ聊天器的教程o(∩_∩)o...
我想跟沉睡在游戏中的朋友们说：“不要整天沉浸在游戏，多一分学习，多一分收获o(∩_∩)o...”
------------------------------------------------------------------------------------------
工具：
1.记事本
------------------------------------------------------------------------------------------
本人技术交流群
总群：28053896（满）
2群：42084146
3群：43062302
4群：43081337 欢迎加入交流学习o(∩_∩)o...
-----------------------------------------------------------------------------------------
第一种方法：
ON ERROR RESUME NEXT
Dim QQ_NUM
if Wscript.arguments.count<1 then
QQ_NUM=InputBox("爱吹冷风"&vbCr&vbCr&" "&vbCr&vbCr&" ","QQ强行聊天器VBS版","10000")
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
解释下上面的代码：
ON ERROR RESUME NEXT 如果程序发生错误继续执行
Dim QQ_NUM 定义变量
InputBox界面中的内容
if QQ_NUM="" then 对话框中的内容
Wscript.quit 退出脚本
http://wpa.qq.com/msgrd?V=1&Uin="+QQ_NUM+"&Site=ioshenmue&Menu=yes",0 QQ聊天临时代码
---------------------------------------------------------------------------------------
第二种：
@echo off
echo 爱国者黑客 http://www.3800cc.com
rem 以下代码用于循环
:start
set /p a=请输入聊天的QQ号码:
start tencent://message/?uin=%a%
goto start
-----------------------------------------------------------------------
第三种：
@echo off
Set/p qq=请输入你想要聊天的QQ号码
start tencent://Message/?Uin=%qq%
------------------------------------------------------------------
第四种：
@echo off
title QQ强行聊天器 by：爱吹冷风
color le
cls
echo ...................
echo . QQ强行聊天器
echo ...................
echo
echo 本程序可与任意号码聊天
echo -请先打开QQ-
pause
:q
Set /p qq=请输入你想要聊天的QQ号码:
If/I"%qq%"=="n"Exit
start tencent://Message/?Uin=%qq%
pause
goto q
-----------------------------------------------------------