VB access to external network IP
2016-08-23
0 0 0
no vote
Other
Earn points
' Get the external network IP source
Private Sub Command1_Click()
Dim h As Object
Dim i As Integer
Dim s As String
Set h = CreateObject("Microsoft.XMLHTTP")
GetInternetIP = False
g_strInternetServerIP = ""
h.Open "GET", "http://ip.3322.net", True 'False
h.Send
If (h.ReadyState = 4) And (h.Status = 200) Then
's = h.responsebody
s =
vb
IP
获取
Related Source Codes
Implementing ntrip function with Python
0
0
no vote
Student Management System
0
0
no vote
FTP upload and download written in VB
0
0
no vote
Qq batch login
0
0
no vote
Example MSNPopup
0
0
no vote
No comment