| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]Foxtable2016可否实现外网间通讯 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76608) |
| -- 作者：pcxjxjhkw -- 发布时间：2015/11/2 11:22:00 -- [求助]Foxtable2016可否实现外网间通讯 如题，谢谢。 |
| -- 作者：狐狸爸爸 -- 发布时间：2015/11/2 11:23:00 -- OpenQQ可以跨网通讯，内置了NAT穿透功能。
|
| -- 作者：pcxjxjhkw -- 发布时间：2015/11/2 11:25:00 -- 跟问：如何获取当前计算机外网IP? |
| -- 作者：大红袍 -- 发布时间：2015/11/2 12:19:00 -- Dim WinHttpReq As Object = CreateObject("Msxml2.ServerXMLHTTP") WinHttpReq.Open("GET", "http://www.ip138.com/ip2city.asp") WinHttpReq.Send \'正则表达式解析出外网IP Dim MyRegExp MyRegExp = CreateObject("VBScript.RegExp") MyRegExp.Pattern = "((2[0-4]\\d|25[0-5]|[01]?\\d\\d?)\\.){3}(2[0-4]\\d|25[0-5]|[01]?\\d\\d?)" MyRegExp.IgnoreCase = True MyRegExp.Global = True Dim Matches As object = MyRegExp.Execute(WinHttpReq.ResponseText) Return Matches.Item(0).Value |
| -- 作者：pcxjxjhkw -- 发布时间：2015/11/2 15:55:00 -- 谢谢 |