挑战高手的思维 制作QQ登陆器

hisplay

虽然有过帖制作过这样的效果。。可我觉得并不完美。。

希望高手们发挥潜力。。制作出一个更实用的。

在P窗口中 有----帐号：    密码：   ----这两个选择  ，并提供用户输入。并保存。输入完毕按任意键继续。。
如何打开QQ呢。。。
利用自动扫。。得到位置。并打开QQ登陆器。。把上面的帐号和密码自动输入到QQ登陆器上。。在http://www.bathome.net/thread-1748-1-1.html 中，已提到自动登陆。。

Batcher

你准备用哪个方式自动登陆？BAT还是VBS?

hisplay

只要能实现就可以。。。什么格式都可以

hisplay

要注意。。如果某台电脑上装有两个或更多QQ文件。。应做到避免重复执行。。免得弹出一大堆

jsj30651

似乎从QQ2009开始，TX取消了QQ和TM的那个接口，所以QQ2009以后不能用这种方式自动登录QQ了

jsj30651

这是一个完全用VBS写的QQ自动登录，写了有一段时间了。用的ACCESS数据库，带有计算pwdhash功能，我现在就是用的这个。
管理起帐号来比较方便。
登录时会先读取注册表中的路径，如果不存在，就会生成一个文件，专门用来保存路径

lzwudi

试一试这个:

@echo off
color 46
title QQ自动登陆
mode con cols=40 lines=10
echo.
echo       本程序将为您开机自动登陆QQ
echo.
echo        请确认您的QQ不是新安装的
echo      如果是:请登陆一次QQ号码再运行
echo 正在查找QQ安装目录,请等待......
set "primitivepath=%cd%"
for %%a in (a b c d e f g h i j) do (
  if exist %%a:\ (
  for /f "delims=" %%i in ('dir "%%a:\qq.exe" /b /s 2^>nul') do set _path=%%~dpi&goto :next
))
:next
echo 安装目录:%_path%
set /p qqhaoma=请输入要登陆的QQ号码：
set /p qqmima=请输入您的密码：
echo @echo off >%windir%\qq.bat
echo title QQ自动登陆器>>%windir%\qq.bat
echo color 46>>%windir%\qq.bat
echo echo.>>%windir%\qq.bat
echo echo.>>%windir%\qq.bat
echo echo                    准备登陆您的QQ，请等待。。。。>>%windir%\qq.bat
echo echo.>>%windir%\qq.bat
echo echo.>>%windir%\qq.bat
echo echo.>>%windir%\qq.bat
echo echo        此次登陆的QQ号码为：%qqhaoma%   为了安全起见，将不显示您的密码>>%windir%\qq.bat
echo echo        请不要动鼠标或键盘!!>>%windir%\qq.bat
echo ping -n 5 127.1 ^>nul 2^>nul >>%windir%\qq.bat
echo echo set os = CreateoBject("wscript.shell")^>^>1.vbs >>%windir%\qq.bat
echo echo wscript.sleep 50^>^>1.vbs >>%windir%\qq.bat
echo echo os.run """%_path%QQ.exe"""^>^>1.vbs >>%windir%\qq.bat
echo echo wscript.sleep 5000^>^>1.vbs >>%windir%\qq.bat
echo echo os.sendkeys "{tab}"^>^>1.vbs >>%windir%\qq.bat
echo echo wscript.sleep 300^>^>1.vbs >>%windir%\qq.bat
echo echo os.sendkeys "%qqhaoma%"^>^>1.vbs >>%windir%\qq.bat
echo echo wscript.sleep 300^>^>1.vbs >>%windir%\qq.bat
echo echo os.sendkeys "{tab}"^>^>1.vbs >>%windir%\qq.bat
echo echo wscript.sleep 300^>^>1.vbs >>%windir%\qq.bat
echo echo os.sendkeys "%qqmima%"^>^>1.vbs >>%windir%\qq.bat
echo echo wscript.sleep 300^>^>1.vbs >>%windir%\qq.bat
echo echo os.sendkeys "{enter}"^>^>1.vbs >>%windir%\qq.bat
echo echo createobject^("scripting.filesystemobject"^).deletefile wscript.scriptname^>^>1.vbs >>%windir%\qq.bat 
echo start 1.vbs >>%windir%\qq.bat
reg add  "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v qq /d "%windir%\qq.bat" /f
echo set os = CreateoBject("wscript.shell")>%n%.vbs
echo a=msgbox("点 是 立即登陆QQ   点 否 重启后生效",4,"询问")>>%n%.vbs
echo if a=6 then>>%n%.vbs
echo os.run """C:\windows\qq.bat""">>%n%.vbs
echo end if>>%n%.vbs
echo createobject^("scripting.filesystemobject"^).deletefile wscript.scriptname>>%n%.vbs 
start %n%.vbs
exit
复制代码

hisplay

。。。如果一个XP系统装有 N个 QQ软件 。。如何只运行一个。。
由于这个问题，有些对电脑不熟悉的朋友  都会在不同路径及装多个 QQ。及不同版本。。。能否只运行一个 。

flyinspace

从注册表里读取的qq只会是你最后打开的路径。

flyinspace

从注册表里读取的qq只会是你最后打开的路径。