主题：[求助]AfterOpenProject事件

老师你好,AfterOpenProject事件代码,登录日志出现重复的行,麻烦老师看一下代码,谢谢!

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:afteropenproject事件,登录日志重复行.txt

此主题相关图片如下：登录日志行重复.bmp

 

Dim IPAdress As System.Net.IPAddress
Dim HostName As String
HostName = System.Net.Dns.GetHostName '获得本机的机器名
Dim l As Integer = System.Net.Dns.GetHostByName(HostName).AddressList.Length
Dim s As String = ""
Dim s1 As String = ""
For i As Integer=0 To l-1
    IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.getValue(i) '获得本机的IP
    s &= IPAdress.Tostring & " | "
Next
Dim query As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()
Dim mo As New System.Management.ManagementObject
For Each mo In queryCollection
    If IsDBNull(mo.Item("macaddress")) = False Then
        If mo.Item("macaddress") <> "" AndAlso mo.Item("IPEnabled") Then
            s1 & =  mo.Item("macaddress") & " | "
        End If
    End If
Next

Dim dr As  DataRow
dr=DataTables("登录日志").AddNew
dr("用户名")= User.Name
dr("计算机名")= HostName
dr("登录时间")= Date.now
dr("ip")= s.trim("|")
dr("MAC")= s1.trim(",")
DataTables("登录日志").save

谢谢老师