QQ自动登陆脚本生成器 v1.0

it2024-03-29  17

@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增强版
最新回复(0)