做了一个函数网页,打开这个网页之后,我想自动连接到新的网址,函数如下: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
请问需要哪里改下?
Case "fagui.htm"
Functions.Execute("知识库链接", e)
浏览器使用下面地址访问:
http://127.0.0.1:8005/fagui.htm
另外wb.AppendHtml代码不全,放到记事本发上来
试试
wb.AppendHtml("<meta http-equiv='refresh' content='1; url=" & PageURL & "'>", True)