以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  软件联网问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123201)
--  作者：jick0526
--  发布时间：2018/8/9 19:51:00
--  软件联网问题
老师，请问下，我的表A有一个IP列，我想每次打开软件后IP列自动输入这个软件所联网的IP地址，这个代码要怎么写？谢谢！
--  作者：有点甜
--  发布时间：2018/8/9 20:00:00
--  

获取本机的外网ip？红色地址会变，不稳定。

 

Dim WinHttpReq As Object = CreateObject("Msxml2.ServerXMLHTTP")
WinHttpReq.Open("GET", "http://2018.ip138.com/ic.asp")
WinHttpReq.Send
\'正则表达式解析出外网IP
Dim str As String = WinHttpReq.ResponseText
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+")
If mc.count > 0 Then
    Return mc(0).value

Else
    Return Nothing
End If

 

 
--  作者：jick0526
--  发布时间：2018/8/9 20:24:00
--  
老师，我说错了，应该是每次打开项目后会自动在新的一行输入IP地址，我要每次打开软件都要知道这个软件打开时是在哪里登入的，这样的代码要怎么写？谢谢！
--  作者：有点甜
--  发布时间：2018/8/9 20:42:00
--  

服务器那里搭建一个http吧。打开的时候访问一下服务器的http。

 

http://www.foxtable.com/mobilehelp/scr/0001.htm

 

http://www.foxtable.com/mobilehelp/scr/0159.htm

 

获取ip号，参考 e.Request.RemoteEndPoint.Address.ToString