怎样获取在线刷新的数据？急，在线等待
有个网站，需要用户名、密码登陆的，登陆后才可以看到里面的信息（每10秒钟刷新一次）。我怎样才能获取这些信息，并且实现同步更新呢？
急急急！
谢谢！！
问题点数：0、回复次数：6Top
1 楼ccmoon（IzuaL）回复于 2003-09-01 18:03:18 得分 0
不可以刷新页面么？Top
2 楼skyarrow（谁敢偷我的奶酪？！）回复于 2003-09-01 18:07:36 得分 0
简单办法：参考网上的新浪新闻小偷的程序
复杂的：自己写一个Top
3 楼bubuy（始不垂翅，终能奋翼）回复于 2003-09-01 18:13:51 得分 0
刷新同时提交给服务器就可以了嘛Top
4 楼leekyh（做梦）回复于 2003-09-02 12:05:09 得分 0
数据是人家的，我怎样能这些数据存为自己的呢？Top
5 楼superdullwolf（超级大笨狼,每天要自强,MVP）回复于 2003-09-02 13:02:03 得分 0
vb获得一页的html代码,把数据偷回来
Private Sub Command1_Click()
WebBrowser1.Navigate "http://localhost/"
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim doc, objhtml As Object
Dim i As Integer
Dim strhtml As String
If Not WebBrowser1.Busy Then
Set doc = WebBrowser1.Document
i = 0
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text1.Text = objhtml.htmltext
End If
Timer1.Enabled = False
End If
End Sub
Top
6 楼possible_Y（████本人签名需要刮开,方可看到 ）回复于 2003-09-02 13:27:41 得分 0
xmlHttp
try:
<script language="vbscript">
Function bytes2BSTR(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
</script>
<script language="javascript">
var xmlhttp= new ActiveXObject("Msxml2.xmlhttp")
xmlhttp.open("GET","http://www.sina.com.cn",false)
xmlhttp.send()
alert(bytes2BSTR(xmlhttp.ResponseBody))
</script>Top
