中国DOS联盟

set Shell=CreateObject("Wscript.Shell")
set WshShell = WScript.CreateObject("WScript.Shell")
Shell.run "www.cn-dos.net/forum"
WshShell.sendkeys "{tab}"
Wscript.sleep 5000
WshShell.sendkeys "{tab}"
Wscript.sleep 2000
WshShell.sendkeys "{tab}"
Wscript.sleep 200
WshShell.sendkeys "{tab}"
Wscript.sleep 200
WshShell.sendkeys "{tab}"
Wscript.sleep 200
WshShell.sendkeys "{tab}"
Wscript.sleep 200
WshShell.sendkeys "{tab}"
Wscript.sleep 200
WshShell.sendkeys "{enter}"
Wscript.sleep 5000
WshShell.sendkeys "{tab}"
Wscript.sleep 200
WshShell.sendkeys "{tab}"
Wscript.sleep 200
WshShell.sendkeys "都市浪子666"
Wscript.sleep 200
WshShell.sendkeys "{tab}"
Wscript.sleep 200
WshShell.sendkeys "XXX"
Wscript.sleep 200
WshShell.sendkeys "{enter}"

@echo off
::::::::CN-DOS BBS Login {s11ss 2007-10-13}::::::::
setlocal enabledelayedexpansion
if "%1" equ "" (
        echo 参数一：用户名，如user
        echo 参数二：密码，如123456
        echo 参数三：是否将当前文件夹下生成的文件cn-dos.hta移到收藏夹/m（移）或/f（不移）
        echo 例如：%0 user 123456 /m
        pause>nul
        goto :eof
)
set u=%1
set p=%2
set a=%3
< "%~f0" more +44 >cn-dos.hta
set t=^>^>t.vbs echo
call :e %u%
set user=de^(array^(!encoded!^)^)
call :e %p%
set pwd=de^(array^(!encoded!^)^)
del t.t
set t=^>^>cn-dos.hta echo
%t% location="http://www.cn-dos.net/forum/logging.php?action=login"+"&"+"cookietime=0"+"&"+"username="+%user%+"&"+"password="+%pwd%+"&"+"loginsubmit=."
%t% close()
%t% ^</script^>
%t% ^<hta:application
%t% showInTaskBar=no
%t% /^>
if not "%a%" equ "/m" goto :eof
move cn-dos.hta "%userprofile%"\Favorites
goto :eof
:e
%t% for i=1 to len("%1")
%t%         one=mid("%1",i,1)
%t%         if i=1 then
%t%                        encoded=asc(one)+100*5+20
%t%         else
%t%                        encoded=encoded^&chr(44)^&(asc(one)+100*5+20)
%t%                end if
%t% next
%t% CreateObject("Scripting.FileSystemObject").CreateTextFile("t.t").write(encoded)
cscript //nologo t.vbs & del t.vbs
set/p encoded=<t.t
goto :eof
<script language="javascript">
window.moveTo(screen.width,screen.height);
</script>
<script language="vbscript">
function de(x)
        decoded=x
        for i=0 to ubound(decoded)
                s=s&chr(decoded(i)-100*5-20)
        next
        de=s
end function

http://www.cn-dos.net/forum/logging.php?action=login&cookietime=0&username=都市浪子666&password=XXX&loginsubmit=.