vb 6.0 获取本机公网IP_vb获取本机ip
vb 6.0 获取本机公网IP由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb获取本机ip”。
vb 6.0 获取本机公网IP
Private Declare Function InternetOpen Lib “wininet.dll” Alias “InternetOpenA”(_
ByVal sAgent As String, ByVal lAcceType As Long, _
ByVal sProxyName As String, ByVal sProxyBypa As String, _ByVal lFlags As Long)As Long
Private Declare Function InternetOpenUrl Lib “wininet.dll” Alias
“InternetOpenUrlA”(_
ByVal hInternetSeion As Long, ByVal sUrl As String, _
ByVal sHeaders As String, ByVal lHeadersLength As Long, _ByVal lFlags As Long, ByVal lContext As Long)As Long Private Declare Function InternetReadFile Lib “wininet.dll”(_
ByVal hFile As Long, ByVal sBuffer As String, _
ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long)As Integer
Private Declare Function InternetCloseHandle Lib “wininet.dll”(_
ByVal hInet As Long)As Integer
Private Const INTERNET_FLAG_NO_CACHE_WRITE = &H4000000 Private Declare Function URLDownloadToFile Lib “urlmon” Alias
“URLDownloadToFileA”(ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long)As Long
Public Function GetIP()As String
Dim wburl$, wburl2$, X1, X2, X3, X4
On Error GoTo err
wburl = “http:///ip2city.asp”
wburl = GetUrlFile(wburl)
If InStr(1, wburl, “无法找到该页”)= 0 Then
X1 = InStr(1, wburl, “[”)
X2 = InStr(1, wburl, “]”)
X1 = Mid(wburl, X1, X2X3)
X3 = Replace(X3, “”, “”)
X3 = Replace(X3, “ ”, “”)
X3 = Replace(X3, vbCrLf, “”)
GetIP = X3
Exit Function
Else
GetIP = “127.0.0.1”
End If
err:
GetIP = “127.0.0.1”
End Function
Private Function GetUrlFile(stUrl As String)As String
Dim lgInternet As Long, lgSeion As Long
Dim stBuf As String * 1024
Dim inRes As Integer
Dim lgRet As Long
Dim stTotal As String
stTotal = vbNullString
lgSeion = InternetOpen(“VBTagEdit”, 1, vbNullString, vbNullString, 0)If lgSeion Then
lgInternet = InternetOpenUrl(lgSeion, stUrl, vbNullString, _0, INTERNET_FLAG_NO_CACHE_WRITE, 0)If lgInternet Then
Do
inRes = InternetReadFile(lgInternet, stBuf, 1024, lgRet)stTotal = stTotal & Mid$(stBuf, 1, lgRet)
Loop While(lgRet 0)
End If
inRes = InternetCloseHandle(lgInternet)
End If
GetUrlFile = stTotal
End Function
使用方法：调用GetIP 返回值即为公网IP
Private Sub Command1_Click()
Dim aa As String
Dim strLocalIP As String
Dim winIP As Object
aa = aa & “本机电脑名称:” & Environ(“computername”)& vbCrLfaa = aa & “本机用户名称:” & Environ(“username”)& vbCrLfSet winIP = CreateObject(“MSWinsock.Winsock”)
strLocalIP = winIP.localip
MsgBox aa & “本机IP:” & strLocalIP
End Sub
VB 获取本机计算机名、用户名、ip地址的方法代码 Private Sub Command1_Click()Dim aa As StringDim strLocalIP As StringDim winIP As Objectaa = aa & "本机电脑名称:"......
公网IP和内网IP的区别在Internet网络上有上千百万台主机，为了能够将这些主机区分开来，于是就给每台主机都分别配了一个专门的地址，称为IP地址。在使用网络人远程控制软件办公版......
HiPER 811 V10.3版本。在很多时候，外网是ADSL 拨号接入，地址不固定，而我们又需要一个固定的公网IP地址，比如连接VPN，比如内网有服务器需要映射供外网访问，比如要远程管理设备。这......
VB中获取电脑外网IP的源代码大家知道每个能上网的电脑都拥有一个自己的IP，如果你是位于局域网呢，那么你的ip可能是192.168.***.***或者10.***.***.***之类的，这样的IP外网是无......
如何用远程桌面来连接连接另一个局域网中没有公网IP的电脑前提：1、其中一台电脑为可以获得公网IP的机器，包括动态IP或者Adsl都可以。这台电脑作为服务端(Server1)。2、另外一......
