每隔多少秒刷新网页的代码？急
我想做把一个网页，把百度空间的网页放到我做的网页中去，每隔一段时间就会自动刷新百度空间。不要下载什么软件，不想用其他的浏览器！谢谢请高手帮忙解决...
我想做把一个网页，把百度空间的网页放到我做的网页中去，每隔一段时间就会自动刷新百度空间。
不要下载什么软件，不想用其他的浏览器！
谢谢
请高手帮忙解决 展开
不要下载什么软件，不想用其他的浏览器！
谢谢
请高手帮忙解决 展开
7个回答
展开全部
XMLHTTP我使用了确实存在这样的问题，在进程没结束前结果永远不变
不过我找到了解决方案，我没你那么快，我是5分钟，5分钟旧的程序自动退出前启动一个新的进程，这样就可以刷新了，我已经使用了三个多月，只要计算机开着都实时刷新，处理代码，效果非常理想，望采纳，谢谢！
以下是VBS代码:
========edit1.vbs=========
Dim s, t, fso, w
Set w = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
s = GetCode("GB2312", "")
's是代码，在这里处理
wscript.sleep 5000
w.run "wscript.exe """ & wscript.scriptfullname & """"
Public Function BytesToBstr(strBody, CodeBase)
Dim ObjStream
Set ObjStream = CreateObject("Adodb.Stream")
With ObjStream
.Type = 1
.Mode = 3
.open
.write strBody
.Position = 0
.Type = 2
.Charset = CodeBase
BytesToBstr = .ReadText
.Close
End With
Set ObjStream = Nothing
End Function
Public Function GetCode(CodeBase, Url)
Dim xmlHTTP1
Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
xmlHTTP1.open "get", Url, True
xmlHTTP1.send
While xmlHTTP1.readyState <> 4
wscript.sleep 100
Wend
GetCode = xmlHTTP1.responseBody
If CStr(GetCode) <> "" Then GetCode = BytesToBstr(GetCode, CodeBase)
Set ObjXML = Nothing
End Function
不过我找到了解决方案，我没你那么快，我是5分钟，5分钟旧的程序自动退出前启动一个新的进程，这样就可以刷新了，我已经使用了三个多月，只要计算机开着都实时刷新，处理代码，效果非常理想，望采纳，谢谢！
以下是VBS代码:
========edit1.vbs=========
Dim s, t, fso, w
Set w = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
s = GetCode("GB2312", "")
's是代码，在这里处理
wscript.sleep 5000
w.run "wscript.exe """ & wscript.scriptfullname & """"
Public Function BytesToBstr(strBody, CodeBase)
Dim ObjStream
Set ObjStream = CreateObject("Adodb.Stream")
With ObjStream
.Type = 1
.Mode = 3
.open
.write strBody
.Position = 0
.Type = 2
.Charset = CodeBase
BytesToBstr = .ReadText
.Close
End With
Set ObjStream = Nothing
End Function
Public Function GetCode(CodeBase, Url)
Dim xmlHTTP1
Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
xmlHTTP1.open "get", Url, True
xmlHTTP1.send
While xmlHTTP1.readyState <> 4
wscript.sleep 100
Wend
GetCode = xmlHTTP1.responseBody
If CStr(GetCode) <> "" Then GetCode = BytesToBstr(GetCode, CodeBase)
Set ObjXML = Nothing
End Function
追问
不知道怎么用，新手。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
展开全部
做一个百度网页的框架。。<iframe name="web" src="www.baidu.com" width="***" height="****" frameborder="0" marginwidth="0" marginheight="0" scrolling="no"allowtransparency="true" ></iframe>
你的网页插入命令：
<script language="javascript" type="text/javascript">
function refresh()
{
web.location.reload();
}
setTimeout('refresh()',60000);
</script>
你的网页插入命令：
<script language="javascript" type="text/javascript">
function refresh()
{
web.location.reload();
}
setTimeout('refresh()',60000);
</script>
追问
是不是要架构环境呢？好像不行。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<html>
<head>
<title>test</title>
<meta http-equiv="refresh" content="5;url=test.html">
<!-- 每隔5秒自动转到本目录下的test.html，请将本文件保存为test.html -->
</head>
<body>
<frame src="URL"></frame>
<!-- 将URL改为你的baidu空间地址 -->
</body>
</html>
<head>
<title>test</title>
<meta http-equiv="refresh" content="5;url=test.html">
<!-- 每隔5秒自动转到本目录下的test.html，请将本文件保存为test.html -->
</head>
<body>
<frame src="URL"></frame>
<!-- 将URL改为你的baidu空间地址 -->
</body>
</html>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<html>
<head>
<title>test</title>
<meta
http-equiv="refresh"
content="5;url=test.html">
<!--
每隔5秒自动转到本目录下的test.html，请将本文件保存为test.html
-->
</head>
<body>
<frame
src="URL"></frame>
<!--
将URL改为你的baidu空间地址
-->
</body>
</html>
<head>
<title>test</title>
<meta
http-equiv="refresh"
content="5;url=test.html">
<!--
每隔5秒自动转到本目录下的test.html，请将本文件保存为test.html
-->
</head>
<body>
<frame
src="URL"></frame>
<!--
将URL改为你的baidu空间地址
-->
</body>
</html>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
学习学习..
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（5）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
