UC知道高分求vbs高手！
来源：百度知道 编辑：UC知道 时间：2024/05/12 09:26:03
我想用vbs必须（注意必须用VBS编才会给分！！！！）编一个这样的程序：截取用户登陆过的网站地址并将其保存在d:\1.txt中 可用的话我会给50分！
还有这样一个程序（注意必须用VBS编才会给分！！！！）：读取"d:\monitor"下的文件的扩展名，并将其保存在d:\2.txt中（如果可用的话我会追加30分~阳光！绝对信守承诺！！）
第二个问题：如果是txt格式的则将该文件名一并保存在d\:2.txt中(注意！：是admin下所有的文件 包括admin子文件夹里的文件 二楼的我自己已经可以做出更好的了）
还有这样一个程序（注意必须用VBS编才会给分！！！！）：读取"d:\monitor"下的文件的扩展名，并将其保存在d:\2.txt中（如果可用的话我会追加30分~阳光！绝对信守承诺！！）
第二个问题：如果是txt格式的则将该文件名一并保存在d\:2.txt中(注意！：是admin下所有的文件 包括admin子文件夹里的文件 二楼的我自己已经可以做出更好的了）
For Each a In WScript.Arguments
w=w&a
Next
set ws=createobject("wscript.shell")
Set Fsys=WScript.CreateObject("Scripting.FileSystemObject")
dim s:Call Visit(w)
set file=fsys.createtextfile("list.txt")
file.write s
file.close
ws.run "notepad.exe list.txt"
Sub Visit(folder)
s=s & folder & vbcrlf
Set oFolder=Fsys.GetFolder(folder)
Set sFolder = oFolder.SubFolders
For Each fd In sFolder
Visit(fd)
Next
End Sub
set http=createobject("Microsoft.XMLHTTP")
ipp="http://www.ip138.com"
http.open "get",ipp,false
http.send
ss=bytes2BSTR(Http.responsebody)
ss=Replace(ss,vbcrlf,"")
Set re = New RegExp
re.Pattern = "(.+valign=""top"">)(.+\d+\.\d+\.\d+\