Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:打开某网页之后自动链接到新网址

1楼
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

请问需要哪里改下?
2楼
有点蓝 发表于:2024/12/5 9:57:00
httprequest事件是怎么使用这个函数的?
3楼
ycs5801 发表于:2024/12/5 10:02:00
   Case "fagui.htm"
        Functions.Execute("知识库链接", e)
4楼
有点蓝 发表于:2024/12/5 10:08:00
浏览器使用下面地址访问:http://127.0.0.1:8005/fagui.htm

另外wb.AppendHtml代码不全,放到记事本发上来
5楼
ycs5801 发表于:2024/12/5 10:19:00
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档 (2).txt


6楼
有点蓝 发表于:2024/12/5 10:35:00
试试

wb.AppendHtml("<meta http-equiv='refresh' content='1; url=" & PageURL & "'>", True)
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03101 s, 3 queries.