vbscript 怎样读取一个URL链接的内容?(实现自动登陆)

rwl6813021 2005-10-08 02:27:14

我需要得到一个URL链接的内容!
如: http://www.sina.com.cn
然后加入登陆邮箱用户名的和密码自动登陆!

请问这个用 vbscript怎么实现啊?

谢谢!

...全文

200 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

chaircat 2005-11-21

打赏
举报

如楼上再楼上所说...用AJAX...

haitun1983 2005-11-15

打赏
举报

wqhkl 2005-10-16

打赏
举报

得到那个页面的内容很简单的：
VBSCRIPT》》
'设置对象
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function

Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function
%>

'获取也面内容
<%
Dim wstr,str,url,start,over,dtime
'<table width=""93%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" >
dtime="<html>" '要取的开始位置
'http://192.168.1.2/system/system_more.asp?rd=401
url="http://www.sina.com.cn" '要获取页面地址
wstr=GetHTTPPage(url)
start=Newstring(wstr,dtime)
over=Newstring(wstr,"</html>") '要取的结束位置
body=mid(wstr,start,over-start)
response.write (body) '输出的信息，

%>