VFP如何用代码获取外网IP地址
dfwxj 2015-07-26 05:33:37 VFP如何通过代码直接获取外网IP?
网上找到例程,是通过打开外部网站,然后截取页面内容得到。但这种方式不完美,现需通过打开路由器界面获得,网上得一.net的代码,求高手翻译成VFP
23. ''' <summary>
24. ''' 获得外网IP
25. ''' </summary>
26. Public Function GetWanIp(ByVal UserName As String, ByVal Password As String) As String
27. Dim strIP As String = "0.0.0.0"
28. Dim xHttp As Object = CreateObject("MSXML2.XMLHTTP")
29. xHttp.open("GET", "http://192.168.2.2/userRpm/StatusRpm.htm?Connect=连 接&wan=1", False, UserName, Password)
30. xHttp.send()
31. If xHttp.readyState = 4 AndAlso xHttp.Status = 200 Then
32. Dim strHTML As String = Text.Encoding.Default.GetString(xHttp.responseBody)
33. strHTML = strHTML.Substring(strHTML.IndexOf("var wanPara"))
34. strHTML = strHTML.Substring(0, strHTML.IndexOf(";"))
35. strIP = strHTML.Split(",")(2).Replace("""", "").Trim()
36. End If
37. System.Runtime.InteropServices.Marshal.ReleaseComObject(xHttp)
38. xHttp = Nothing
39.
40. Return strIP
41. End Function