中国DOS联盟

1. 下载得到网页源代码

@echo off

<"%~f0" more +5 >tmp.vbs

cscript //NoLogo /e:vbscript tmp.vbs %1

del tmp.vbs

goto:eof

Set oDOM = WScript.GetObject(WScript.Arguments(0))

do until oDOM.readyState = "complete"

WScript.sleep 200

loop

WScript.echo oDOM.documentElement.outerHTML

2. 下载得到网页文本

@echo off

<"%~f0" more +5 >tmp.vbs

cscript //NoLogo /e:vbscript tmp.vbs %1

del tmp.vbs

goto:eof

Set oDOM = WScript.GetObject(WScript.Arguments(0))

do until oDOM.readyState = "complete"

WScript.sleep 200

loop

WScript.echo oDOM.documentElement.outerText

提示：
1. 该批处理的参数比较严格：网址前必须有 http:// 或 ftp:// ，否则出错。
例如，我保存第二个代码为： iGet.bat，然后我运行
iGet.bat ftp://www.dormforce.net 就可以得到一个FTP的内容，然后结合 for 就可以输出FTP的列表

2. 该批处理会直接把结果输出到屏幕，要保存到文件，请使用 > 或者 >> 重定向

3. 该批处理的好处是不需要任何组件（xmlhttp），能自动处理编码问题，缺点是：如果原网页有弹出广告的话，还是会弹出的。如果要完全后台安静下载，可以用经典的 iGet.vbs http://xxxxxx C:\down.htm
该 iGet.vbs 不能直接得到网页文本

Set xPost = CreateObject("Microsoft.XMLHTTP") 

xPost.Open "GET",LCase(WScript.Arguments(0)),0 

xPost.Send() 

Set sGet = CreateObject("ADODB.Stream") 

sGet.Mode = 3 

sGet.Type = 1 

sGet.Open() 

sGet.Write(xPost.responseBody) 

sGet.SaveToFile LCase(WScript.Arguments(1)),2 

[ Last edited by electronixtar on 2006-11-1 at 05:42 AM ]

赞啊~~~呵呵~

我倒是有一个想法，像

@echo off
<"%~f0" more +5 >tmp.vbs
cscript //NoLogo /e:vbscript tmp.vbs %1
del tmp.vbs
goto:eof

这样的，每次我都要重复写，干脆联盟成立一个标准的可以拿来引用（include）的批处理头（header），然后每次大家的格式都统一点

如果有高人再写一个批处理的IDE，呵呵，就可以大大的简化批处理的书写了。

[ Last edited by electronixtar on 2006-11-1 at 05:32 AM ]

Originally posted by electronixtar at 2006-11-1 05:30:
我倒是有一个想法，像

这样的，每次我都要重复写，干脆联盟成立一个标准的可以拿来引用（include）的批处理头（header），然后每次大家的格式都 ...

我在想:
set/p 1= 批处理名字:
set/p 2= 批处理中间内容:
echo .............

只是这样想想，不过最好是出个写的标准 ,那样更容易阅读的,不要一个个写的天书似的,例如开头先写
:: 思路:
:: 原理:
等等

Re electronixtar
可以在“新建”里指定模板文件。
比如将上述内容保存到D:\BAT\template.cmd
然后添加下面的注册表项。

Windows Registry Editor Version 5.00





"FileName"="D:\\BAT\\template.cmd"

无奈何 兄高招啊！学习

期待中……

不错

不过还是借用了vbs 等其他的方法，能不能只用dos命令的，而且不要ie的
纯粹在dos 的那个黑色界面下，那就更好了。

哈哈。。。
谁能写一个batch啊？？

骗人。用vbs的。o(∩_∩)o...哈哈。
不过也学习了。

est失踪一段时间了哦

以下是我在网上D来的

if lcase(right(wscript.fullname,11))="wscript.exe" then

shell.run("cmd.exe /k echo off&cls&cscript //nologo "&chr(34)&wscript.scriptfullname&chr(34))

wscript.quit

end if 

看到楼主的贴我有点模糊的想法，是否我们一直追求的隐藏运行批处理也可以利用模版VBS来达成

继续失踪

老实说你是不是马甲

楼主把vbs代码搬进了批处理文件里，给vbscript脚本换了个外衣~~~
这外衣下面能不能再穿条批处理自己的裤子呢？
就是批处理完成一部分工作
遇到功能薄弱处再借助vbs来辅助一下，2者混编，比如

@echo off

IF  exist tmp.vbs (start notepad&del tmp.vbs&exit) ELSE goto scr

:scr

<"%~f0" more +6 >tmp.vbs

cscript //NoLogo /e:vbscript tmp.vbs %1

goto:eof

Set oDOM = WScript.GetObject(WScript.Arguments(0))

do until oDOM.readyState = "complete"

WScript.sleep 200

loop

WScript.echo oDOM.documentElement.outerText

程序的 实际起效流程是先vbs完成部分任务，接着批处理完成余下的任务
我是新手，不过杂7杂8的代码收集了一大堆有些vbs代码单一功能不错想借助一下，然后利用相对易懂的批处理做一些功能的衍变
这样的思路是不是可行啊