中国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

用户：都市浪子666
密码：XXX
该如何写呀。请大侠们帮帮忙

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