********cn-dos论坛登录******** - 中国DOS联盟论坛

生成论坛登录文件,运行此文件则登录.

@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

[ Last edited by s11ss on 2007-10-13 at 11:08 AM ]

真是好东西。希望能详细讲解一下。也可以用于其它论坛登录啊。不错。

好东东，加分！

s11ss兄你好，小弟想下载下面的地址，然后保存到一个html文件中，由于要认证
前些时间用 CURL 工具下载不到。
如果你有时间可否写一个jave脚本，或者用 curl 工具得到下面地址的html文件呢？
先谢谢了！！！先加分支持。

http://bbs.chinaunix.net/viewthread.php?tid=452942

[ Last edited by junchen2 on 2007-10-13 at 02:31 PM ]

fengjing001, 修改此处即可:

%t% location="http://www.cn-dos.net/forum/logging.php?action=login"+"&"+"cookietime=0"+"&"+"username="+%user%+"&"+"password="+%pwd%+"&"+"loginsubmit=."

Originally posted by junchen2 at 2007-10-13 02:26 PM:
s11ss兄你好，小弟想下载下面的地址，然后保存到一个html文件中，由于要认证
前些时间用 CURL 工具下载不到。
如果你有时间可否写一个jave脚本，或 ...

正在研究中....

Originally posted by junchen2 at 2007-10-13 02:26 PM:
s11ss兄你好，小弟想下载下面的地址，然后保存到一个html文件中，由于要认证
前些时间用 CURL 工具下载不到。
如果你有时间可否写一个jave脚本，或 ...

没屏蔽右键啊，查看源文件——文件——另存为——"c:\ok.html"

是这样的，我想在命令行中调用，然后我将下载下来的html文件一些信息提取出来

我现在就是不能得到要认证的页面，就差这一步，花了我不少时间，由于没有学vbscript

JSscript，PHP等知识，害苦我了，期待中！！！

[ Last edited by junchen2 on 2007-10-13 at 03:12 PM ]

Originally posted by junchen2 at 2007-10-13 03:01 PM:
是这样的，我想在命令行中调用，然后我将下载下来的html文件一些信息提取出来

我现在就是不能得到要认证的页面，就差这一步，花了我不少时间 ...

要认证的页面?认证什么啊?
不好意思,我不是高手,也就懂一点儿,爱莫能助啊~~~~~~~~

是用户名和密码，在兄弟的上面的代码学到不少东西，支持再发作品，奉贤代码。

Originally posted by junchen2 at 2007-10-13 04:51 PM:
支持再发作品，奉贤代码。

谢谢支持啊~~~~~~~~~

对论坛都熟练到着地步了?
佩服佩服。。

Originally posted by knoppix7 at 2007-10-13 05:42 PM:
对论坛都熟练到着地步了?
佩服佩服。。

前辈又见笑了,
其实很简单的,就是把网址搞出来就行了.

谢谢slss的热心答复！

第1楼　s11ss	发表于 2007-10-13 11:05
银牌会员　发帖 566　积分 2,098
[原创]******cn-dos论坛登录**** 生成论坛登录文件,运行此文件则登录.** @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)+1005+20 %t% else %t% encoded=encoded^&chr(44)^&(asc(one)+1005+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)-1005-20) next de=s end function [ Last edited by s11ss on 2007-10-13 at 11:08 AM* ]

第2楼　HAT	发表于 2007-10-13 11:15
版主　发帖 5,017　积分 9,023
学习&&加分

第3楼　fengjing001	发表于 2007-10-13 13:19
初级用户　发帖 37　积分 69
真是好东西。希望能详细讲解一下。也可以用于其它论坛登录啊。不错。

第4楼　jmz573515	发表于 2007-10-13 13:59
银牌会员　发帖 464　积分 1,212
好东东，加分！

第5楼　junchen2	发表于 2007-10-13 14:26
高级用户　发帖 219　积分 537　来自杭州--半山
s11ss兄你好，小弟想下载下面的地址，然后保存到一个html文件中，由于要认证前些时间用 CURL 工具下载不到。如果你有时间可否写一个jave脚本，或者用 curl 工具得到下面地址的html文件呢？先谢谢了！！！先加分支持。 http://bbs.chinaunix.net/viewthread.php?tid=452942 [ Last edited by junchen2 on 2007-10-13 at 02:31 PM ]

第6楼　s11ss	发表于 2007-10-13 14:39
银牌会员　发帖 566　积分 2,098
fengjing001, 修改此处即可: %t% location="http://www.cn-dos.net/forum/logging.php?action=login"+"&"+"cookietime=0"+"&"+"username="+%user%+"&"+"password="+%pwd%+"&"+"loginsubmit=."

第7楼　s11ss	发表于 2007-10-13 14:41
银牌会员　发帖 566　积分 2,098
Originally posted by junchen2 at 2007-10-13 02:26 PM: s11ss兄你好，小弟想下载下面的地址，然后保存到一个html文件中，由于要认证前些时间用 CURL 工具下载不到。如果你有时间可否写一个jave脚本，或 ... 正在研究中....

第8楼　s11ss	发表于 2007-10-13 14:51
银牌会员　发帖 566　积分 2,098
Originally posted by junchen2 at 2007-10-13 02:26 PM: s11ss兄你好，小弟想下载下面的地址，然后保存到一个html文件中，由于要认证前些时间用 CURL 工具下载不到。如果你有时间可否写一个jave脚本，或 ... 没屏蔽右键啊，查看源文件——文件——另存为——"c:\ok.html"

第9楼　junchen2	发表于 2007-10-13 15:01
高级用户　发帖 219　积分 537　来自杭州--半山
是这样的，我想在命令行中调用，然后我将下载下来的html文件一些信息提取出来我现在就是不能得到要认证的页面，就差这一步，花了我不少时间，由于没有学vbscript JSscript，PHP等知识，害苦我了，期待中！！！ [ Last edited by junchen2 on 2007-10-13 at 03:12 PM ]

第10楼　s11ss	发表于 2007-10-13 16:25
银牌会员　发帖 566　积分 2,098
Originally posted by junchen2 at 2007-10-13 03:01 PM: 是这样的，我想在命令行中调用，然后我将下载下来的html文件一些信息提取出来我现在就是不能得到要认证的页面，就差这一步，花了我不少时间 ... 要认证的页面?认证什么啊? 不好意思,我不是高手,也就懂一点儿,爱莫能助啊~~~~~~~~

第11楼　junchen2	发表于 2007-10-13 16:51
高级用户　发帖 219　积分 537　来自杭州--半山
是用户名和密码，在兄弟的上面的代码学到不少东西，支持再发作品，奉贤代码。

第12楼　s11ss	发表于 2007-10-13 17:14
银牌会员　发帖 566　积分 2,098
Originally posted by junchen2 at 2007-10-13 04:51 PM: 支持再发作品，奉贤代码。谢谢支持啊~~~~~~~~~

第13楼　knoppix7	发表于 2007-10-13 17:42
银牌会员　发帖 634　积分 1,287　来自 cmd.exe
对论坛都熟练到着地步了? 佩服佩服。。

第14楼　s11ss	发表于 2007-10-13 17:54
银牌会员　发帖 566　积分 2,098
Originally posted by knoppix7 at 2007-10-13 05:42 PM: 对论坛都熟练到着地步了? 佩服佩服。。前辈又见笑了, 其实很简单的,就是把网址搞出来就行了.

第15楼　fengjing001	发表于 2007-10-13 19:08
初级用户　发帖 37　积分 69
谢谢slss的热心答复！