有什么办法可以获得CLIENT的IP地址.

Eric.Zhang

请问人什么办法可以把USER的IP地址记录到LOG中.如读取文件的时,在某一个LOG中记录读取此文件的主机的IP地址.这样更容易查询谁在做不应该做的事.
请问IBM在那个版本的NOTES中有提供这样的功能.(非B/S结构的架构哦)

numbwood

此方法测试成功

Private Const WS_VERSION_REQD = &H101
Private Const WS_VERSION_MAJOR = WS_VERSION_REQD \ &H100 And &HFF&
Private Const WS_VERSION_MINOR = WS_VERSION_REQD And &HFF&
Private Const MIN_SOCKETS_REQD = 1
Private Const SOCKET_ERROR = -1
Private Const WSADescription_Len = 256
Private Const WSASYS_Status_Len = 128

Private Type HOSTENT
        hName As Long
        hAliases As Long
        hAddrType As Integer
        hLength As Integer
        hAddrList As Long
End Type

Private 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


Sub Click(Source As Button)
        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
       
        hostent_addr = gethostbyname(Text1)
       
        If hostent_addr = 0 Then
                Msgbox "Can't resolve name."
                Exit Sub
        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)
       
        Msgbox ip_address
End Sub

numbwood

API申明
Declare Function WSAGetLastError Lib "WSOCK32.DLL" () As Long
Declare Function WSAStartup Lib "WSOCK32.DLL" (Byval wVersionRequired&, lpWSAData As WSADATA) As Long
Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long
Declare Function gethostbyname Lib "WSOCK32.DLL" (Byval hostname$) As Long
Declare Sub RtlMoveMemory Lib "KERNEL32" (hpvDest As Any, Byval hpvSource&, Byval cbCopy&)

Eric.Zhang

感谢,感谢!!

Y.C.Yang

收集，谢谢!