以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 打开某网页之后自动链接到新网址 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194390) |
-- 作者:ycs5801 -- 发布时间:2024/12/5 9:50:00 -- 打开某网页之后自动链接到新网址 做了一个函数网页,打开这个网页之后,我想自动连接到新的网址,函数如下: Dim e As RequestEventArgs = args(0) Dim wb As New weui Dim PageURL = "http://fgzsk.yg.ore/chat/share?shareId=3c3fgxt5avi9xvkawwvcta&chatId=iAgoSN1X7kPi" \'合成当前页面链接 wb.AppendHtml("<meta http-equiv=\'refresh\' c>", True) e.WriteString(wb.Build) 现在打开这个地址后会自动打开这样的网址: http://127.0.0.1:8005/http://fgzsk.yg.ore/chat/share?shareId=3c3fgxt5avvkawwjwvcta&chatId=iAgoSN1X7kPi 请问需要哪里改下? |
-- 作者:有点蓝 -- 发布时间:2024/12/5 9:57:00 -- httprequest事件是怎么使用这个函数的? |
-- 作者:ycs5801 -- 发布时间:2024/12/5 10:02:00 -- Case "fagui.htm" Functions.Execute("知识库链接", e)
|
-- 作者:有点蓝 -- 发布时间:2024/12/5 10:08:00 -- 浏览器使用下面地址访问:http://127.0.0.1:8005/fagui.htm 另外wb.AppendHtml代码不全,放到记事本发上来
|
-- 作者:ycs5801 -- 发布时间:2024/12/5 10:19:00 -- |
-- 作者:有点蓝 -- 发布时间:2024/12/5 10:35:00 -- 试试 wb.AppendHtml("<meta http-equiv=\'refresh\' content=\'1; url=" & PageURL & "\'>", True)
|