VB程序下调用第三方可执行软件问
6。获取主机名称和IP用以下函数
Option Explicit
Public Const WS_VERSION_REQD = &H101
Public Const WS_VERSION_MAJOR = WS_VERSION_REQD \ &H100 And &HFF&
Public Const WS_VERSION_MINOR = WS_VERSION_REQD And &HFF&
Public Const MIN_SOCKETS_REQD = 1
Public Const SOCKET_ERROR = -1
Public Const WSADescription_Len = 256
P...全部
6。获取主机名称和IP用以下函数
Option Explicit
Public Const WS_VERSION_REQD = &H101
Public Const WS_VERSION_MAJOR = WS_VERSION_REQD \ &H100 And &HFF&
Public Const WS_VERSION_MINOR = WS_VERSION_REQD And &HFF&
Public Const MIN_SOCKETS_REQD = 1
Public Const SOCKET_ERROR = -1
Public Const WSADescription_Len = 256
Public Const WSASYS_Status_Len = 128
Public Type HOSTENT
hName As Long
hAliases As Long
hAddrType As Integer
hLength As Integer
hAddrList As Long
End Type
Public Type WSADATA
wversion As Integer
wHighVersion As Integer
szDescription(0 To WSADescription_Len) As Byte
szSystemStatus(0 To WSASYS_Status_Len) As Byte
iMaxSockets As Integer
iMaxUdpDg As Integer
lpszVendorInfo As Long
End Type
Public Declare Function WSAGetLastError Lib "WSOCK32。
DLL" () As Long
Public Declare Function WSAStartup Lib "WSOCK32。DLL" (ByVal wVersionRequired&, lpWSAData As WSADATA) As Long
Public Declare Function WSACleanup Lib "WSOCK32。
DLL" () As Long
Public Declare Function gethostname Lib "WSOCK32。DLL" (ByVal hostname$, ByVal HostLen As Long) As Long
Public Declare Function gethostbyname Lib "WSOCK32。
DLL" (ByVal hostname$) As Long
Public Declare Sub RtlMoveMemory Lib "KERNEL32" (hpvDest As Any, ByVal hpvSource&, ByVal cbCopy&)
Public Function hibyte(ByVal wParam As Integer)
hibyte = wParam \ &H100 And &HFF&
End Function
Public Function lobyte(ByVal wParam As Integer)
lobyte = wParam And &HFF&
End Function
Public Sub SocketsInitialize()
Dim WSAD As WSADATA
Dim iReturn As Integer
Dim sLowByte As String, sHighByte As String, sMsg As String
iReturn = WSAStartup(WS_VERSION_REQD, WSAD)
If iReturn <> 0 Then
MsgBox "Winsock。
dll is not responding。"
End
End If
If lobyte(WSAD。wversion) 0 Then
MsgBox "Socket错误" & Trim$(Str$(lReturn))
End If
End Sub
Public Function strGetMyIp() As String
Dim hostname As String * 256
Dim hostent_addr As Long
Dim host As HOSTENT
Dim hostip_addr As Long
Dim temp_ip_address() As Byte
Dim i As Integer
Dim ip_address As String
SocketsInitialize
If gethostname(hostname, 256) = SOCKET_ERROR Then
Exit Function
Else
hostname = Trim$(hostname)
End If
hostent_addr = gethostbyname(hostname)
If hostent_addr = 0 Then
End If
RtlMoveMemory host, hostent_addr, LenB(host)
RtlMoveMemory hostip_addr, host。
hAddrList, 4
ReDim temp_ip_address(1 To host。hLength)
RtlMoveMemory temp_ip_address(1), hostip_addr, host。
hLength
For i = 1 To host。hLength
ip_address = ip_address & temp_ip_address(i) & "。
"
Next
ip_address = Mid$(ip_address, 1, Len(ip_address) - 1)
strGetMyIp = ip_address
End Function
获取主机名称用gethostname,当前时间用Now。
收起