html自动增加vbs代码,vbs脚本病毒代码大全编步骤四个

应用程序通过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 ("&current&") "&c&chr(8)'13号ASCII码是回到行首，8号是退格'

end function

。