应用程序通过ActiveX的属性HTMLPageTextWithTags(主页不嵌有HTML代码时用属性HTMLPageTextWithOutTags)读页面文本交互模式；允许显示用户提示和脚本错误
2.ntlm.vbs
'***************
'ntlm.vbsby黑嘿黑
'***************
dimwsh
setwsh=CreateObject("WScript.Shell")
wsh.regwrite"HKLM\Software\Microsoft\TelnetServer\1.0\NTLM",WScript.Arguments(0),"REG_DWORD"
wsh.regwrite"HKLM\Software\Microsoft\TelnetServer\1.0\TelnetPort",WScript.Arguments(1),"REG_DWORD"
功能：自定义telnet的ntml和端口说不定在设为单一使用者後，还来不及建立另外的连线时，就
有其他的Process先进入该资料库
请先使用算号器算出匹配当前Windows的序列号，复制并粘贴到下面空格中
作为变量声明的数组不能使用全部数组空间；只有数组描述符对64K的限制起作用
set oDOM=WScript.GetObject("")
flag=0
for i=1 to 10
if oDOM.readyState="complete" then
flag=1
exit for
end if
WScript.sleep 500
next
if flag=0 then
WScript.Echo "timeout ..."
wscript.quit
end if
s=oDOM.documentElement.innerText
Set Re=New RegExp
Re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
for each r in Re.Execute(s)
res=r
exit for
Next
WScript.Echo "IPAddress: " & res
----1．在Win98的第二级开始菜单中，可以用鼠标所以移动菜单项到任何位置，可是当你再次打开开始菜单时，菜单却又恢复了原样，不知道为什么
您无法指定其他起始位置且无法反向读取(即从末尾到开头)自瞄ios
----2.配置串口
----Windows95的串口配置比Windows3.x较为复杂，但其功能更强大，对一般程序可使用CommConfigDialog函数以对话框方式设置波特率、数据位、奇偶校验、停止位和流控制方式，并且可以恢复缺省值'
if http.status>299 then die("Error: "&http.status&" "&http.statustext) '不是吧，又出错？'
if not http.status=206 then die("Server Not Support Partial Content.") '服务器不支持断点续传'
aso.type=1 '数据流类型设为字节'
aso.open
aso.loadfromfile filename '打开文件'
aso.position=start'设置文件指针初始位置'
aso.write http.responsebody '写入数据'
aso.savetofile filename,2 '覆盖保存'
aso.close
range=http.getresponseheader("Content-Range") '获得http头中的"Content-Range"'
if range="" then die("Can not get range.")'没有它就不知道下载完了没有'
temp=mid(range,instr(range,"-")+1) 'Content-Range是类似123-456/789的样子'
current=clng(left(temp,instr(temp,"/")-1))'123是开始位置，456是结束位置'
total=clng(mid(temp,instr(temp,"/")+1)) '789是文件总字节数'
if total-current=1 then exit do '结束位置比总大小少1就表示传输完成了'
start=start+20480 '否则再下载20k'
loop while true
wscript.echo chr(13)&"Download ("&total&") Done." '下载完了，显示总字节数'
function die(msg) '函数名来自Perl内置函数die'
wscript.echo msg '交代遗言^_^'
wscript.quit '去见马克思了'
end function
function showplan() '显示下载进度'
if i mod 3=0 then c="/" '简单的动态效果'
if i mod 3=1 then c="-"
if i mod 3=2 then c=""
wscript.stdout.write chr(13)&"Download ("¤t&") "&c&chr(8)'13号ASCII码是回到行首，8号是退格'
end function
。
