@echo
off
title QQ自动登陆脚本生成器 v1
.
0
echo
.
echo
.
echo
QQ自动登陆脚本生成器 v1
.
0
echo
Code by
:t0nsha
echo
Email
:liaodunxia{at}gmail.com
echo
Blog
:http
:
//
blog
.
csdn
.
net
/
t0nsha
/
echo
注意事项:
echo
(一)用本脚本登陆的QQ必须已经手动登陆过一次;
echo
(二)脚本运行中最好不要失去焦点,不行可多试几次。
echo
.
set
/
p qqpath
=(
1
/
3
)
请输入QQ路径(带引号):
set
/
p qqnum
=(
2
/
3
)
请输入QQ号:
set
/
p qqpass
=(
3
/
3
)
请输入QQ密码:
echo
'Created by
:QQ自动登陆脚本生成器
v1
.
0
.
bat
>
%qqnum%
.
vbs
echo
'Writer
:t0nsha
,
Email
:tunhsiaAT
gmail
.
com
>>
%qqnum%
.
vbs
echo
'Welcom to MyBlog
:http
:
//
blog
.
csdn
.
net
/
t0nsha
/
>>
%qqnum%
.
vbs
echo
qqpath
=
%qqpath%
>>
%qqnum%
.
vbs
echo
Set
ws
=
wscript
.
createobject
(
"
wscript.shell
"
)
>>
%qqnum%
.
vbs
echo
Set
oExec
=
ws
.
Exec
(
qqpath
)
>>
%qqnum%
.
vbs
echo
Do
While
1
>>
%qqnum%
.
vbs
echo
If
ws
.
AppActivate
(
"
QQ用户登录
"
)=
True
Then
>>
%qqnum%
.
vbs
echo
ws
.
SendKeys
"
{TAB}
"
>>
%qqnum%
.
vbs
echo
ws
.
SendKeys
"
%qqnum%
"
>>
%qqnum%
.
vbs
echo
'暂停200毫秒,等待qq号输入完
>>
%qqnum%
.
vbs
echo
wscript
.
Sleep
(
200
)
>>
%qqnum%
.
vbs
echo
ws
.
SendKeys
"
{TAB}
"
>>
%qqnum%
.
vbs
echo
ws
.
SendKeys
"
%qqpass%
"
>>
%qqnum%
.
vbs
echo
wscript
.
Sleep
(
200
)
>>
%qqnum%
.
vbs
echo
ws
.
SendKeys
"
{ENTER}
"
>>
%qqnum%
.
vbs
echo
Exit
Do
>>
%qqnum%
.
vbs
echo
End
If
>>
%qqnum%
.
vbs
echo
Wscript
.
Sleep
200
>>
%qqnum%
.
vbs
echo
Loop
>>
%qqnum%
.
vbs
echo
.
echo
恭喜,脚本已生成!
pause
转载于:https://www.cnblogs.com/zlja/archive/2007/10/24/2449208.html
相关资源:DirectX修复工具V4.0增强版
转载请注明原文地址: https://win8.8miu.com/read-1535853.html