
CODE: [Copy to clipboard]Set oDOM=WScript.GetObject("http://www.163.com")
Do Until oDOM.readyState="complete"
WScript.sleep 200
Loop
CreateObject("Scripting.FileSystenObject").OpenTextFile("163.txt",2,true).Write oDOM.documentElement.outerText
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |