获取外网IP并发送到指定的邮箱的脚本[源码]

配置文件内容如下：

1. 
   
2. 代码如下:
   
3. 配置文件代码
   
4. [收件人]
   
5. 收件地址=
   
6. 邮件标题=
   
7. [发送人]
   
8. 邮箱=
   
9. 密码=
   

复制代码

核心代码:

1. 
   
2. 代码如下:
   
3. #region AutoIt3Wrapper 预编译参数(常用参数)
   
4. #AutoIt3Wrapper_Icon=D:\ico\3444\2222.ico ;图标,支持EXE,DLL,ICO
   
5. #AutoIt3Wrapper_OutFile=GetIp_Sendmail.exe ;输出文件名
   
6. #AutoIt3Wrapper_OutFile_Type=exe ;文件类型
   
7. #AutoIt3Wrapper_Compression=4 ;压缩等级
   
8. #AutoIt3Wrapper_UseUpx=y ;使用压缩
   
9. #AutoIt3Wrapper_Res_Comment= ;注释
   
10. #AutoIt3Wrapper_Res_Description= ;详细信息
    
11. #AutoIt3Wrapper_Res_Fileversion= ;文件版本
    
12. #AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p ;自动更新版本
    
13. #AutoIt3Wrapper_Res_LegalCopyright= ;版权
    
14. #AutoIt3Wrapper_Change2CUI=N ;修改输出的程序为CUI(控制台程序)
    
15. ;#AutoItAutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer% ;自定义资源段
    
16. ;#AutoIt3Wrapper_Run_Tidy= ;脚本整理
    
17. ;#AutoIt3Wrapper_Run_Obfuscator= ;代码迷惑
    
18. ;#AutoIt3Wrapper_Run_AU3Check= ;语法检查
    
19. ;#AutoIt3Wrapper_Run_Before= ;运行前
    
20. ;#AutoIt3Wrapper_Run_After= ;运行后
    
21. #endregion AutoIt3Wrapper 预编译参数(常用参数)
    
22. #include <file.au3>
    
23. #include <Inet.au3>
    
24. #include <Date.au3>
    
25. ;禁止重复运行。
    
26. $g_szVersion = '获取外网IP并发送到指定邮箱'
    
27. If WinExists($g_szVersion) Then
    
28. Exit
    
29. EndIf
    
30. AutoItWinSetTitle($g_szVersion)
    
31. ;托盘事件
    
32. Opt("TrayOnEventMode", 1);托盘事件通知
    
33. Opt("TrayMenuMode", 1) ; 默认菜单项目 (脚本暂停中/退出)(Script Paused/Exit) 将不会显示.
    
34. TrayCreateItem("发送")
    
35. TrayItemSetOnEvent(-1,'_Sendmail')
    
36. $exititem = TrayCreateItem("退出程序")
    
37. TrayItemSetOnEvent($exititem, "_Exit")
    
38. TraySetClick(16) ; 只有单击第二个鼠标按键(默认右键)才会显示托盘菜单
    
39. TraySetToolTip('获取外网IP并发送到指定邮箱')
    
40. TraySetState()
    
41. Global $testIp
    
42. Global $oMyRet[2]
    
43. Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
    
44. $s_ToAddress = IniRead(@ScriptDir & "\Config.ini", '收件人', '收件地址', '-1');收件人地址
    
45. $s_Subject = IniRead(@ScriptDir & "\Config.ini", '收件人', '邮件标题', '-1');邮件标题
    
46. TrayTip("准备就绪", "收件人地址:" & $s_ToAddress _
    
47. & @CRLF & "邮件标题:" & $s_Subject, 5, 1)
    
48. _Sendmail();发送邮件
    
49. AdlibRegister('_ReduceMemory', 1000 * 10);10秒整理一次内存
    
50. AdlibRegister('_Sendmail',1000*15)
    
51. While 1
    
52. Sleep(3000)
    
53. WEnd
    
54. Func _Exit()
    
55. Exit
    
56. EndFunc ;==>_Exit
    
57. ;发送邮件====================================================================
    
58. Func _Sendmail()
    
59. $s_SmtpServer = "smtp.163.com" ;SMTP服务器
    
60. $s_FromName = "bbs.wglm.net" ;邮件发送人
    
61. $s_FromAddress = IniRead(@ScriptDir & "\Config.ini", '发送人', '邮箱', '-1') ;邮件发送者地址
    
62. $s_ToAddress = IniRead(@ScriptDir & "\Config.ini", '收件人', '收件地址', '-1');"10361539@qq.com" ;收件人地址
    
63. $s_Subject = IniRead(@ScriptDir & "\Config.ini", '收件人', '邮件标题', '-1');"AU3邮件发送测试" ;邮件标题
    
64. Do
    
65. $Getip = _GetIP();外网IP
    
66. Sleep(300)
    
67. TrayTip("提示", '正在获取外网IP', 5, 1)
    
68. Until $Getip <> -1
    
69. If $testIp = $Getip Then
    
70. TrayTip("提示", '外网IP与上次发送的相同' & @CRLF & '程序将不重复发送.', 5, 1)
    
71. Return ;MsgBox(0,'',$Getip)
    
72. EndIf
    
73. $testIp = $Getip
    
74. $as_Body = "外网IP:" & $Getip & @CRLF & "发送时间:" & _NowDate() & " " & _NowTime() ;邮件正文;获取外网IP
    
75. $s_AttachFiles = "" ;附件地址
    
76. $s_CcAddress = "" ;抄送地址
    
77. $s_BccAddress = "" ;密件抄送地址
    
78. $s_Username = IniRead(@ScriptDir & "\Config.ini", '发送人', '邮箱', '-1') ;用户名
    
79. $s_Password = IniRead(@ScriptDir & "\Config.ini", '发送人', '密码', '-1') ;密码
    
80. $IPPort = 25 ;发送端口，Gmail使用的发送端口为465
    
81. $ssl = 0
    
82. $rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl)
    
83. If @error Then
    
84. _FileWriteLog(@ScriptDir & "\MailSendlog.log", "邮件发送失败 错误代码:" & @error & " 描述:" & $rc)
    
85. TrayTip("邮件发送失败", "错误代码:" & @error _
    
86. & @CRLF & "描述:" & $rc, 5, 1)
    
87. Else
    
88. _FileWriteLog(@ScriptDir & "\MailSendlog.log", "邮件发送成功 收件人地址: " & $s_ToAddress & " 邮件标题: " & $s_Subject & " 邮件正文:" & $as_Body)
    
89. TrayTip("邮件发送成功", "收件人地址: " & $s_ToAddress _
    
90. & @CRLF & "邮件标题: " & $s_Subject _
    
91. & @CRLF & "邮件正文:" & $as_Body, 5, 1)
    
92. EndIf
    
93. EndFunc ;==>_Sendmail
    
94. Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    
95. $objEmail = ObjCreate("CDO.Message")
    
96. $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    
97. $objEmail.To = $s_ToAddress
    
98. Local $i_Error = 0
    
99. Local $i_Error_desciption = ""
    
100. If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
     
101. If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
     
102. $objEmail.Subject = $s_Subject
     
103. If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
     
104. $objEmail.HTMLBody = $as_Body
     
105. Else
     
106. $objEmail.Textbody = $as_Body & @CRLF
     
107. EndIf
     
108. If $s_AttachFiles <> "" Then
     
109. Local $S_Files2Attach = StringSplit($s_AttachFiles, ",");文件分格符
     
110. For $x = 1 To $S_Files2Attach[0]
     
111. $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
     
112. If FileExists($S_Files2Attach[$x]) Then
     
113. $objEmail.AddAttachment($S_Files2Attach[$x])
     
114. Else
     
115. $i_Error_desciption = $i_Error_desciption & @LF & 'File not found to attach: ' & $S_Files2Attach[$x]
     
116. SetError(1)
     
117. Return 0
     
118. EndIf
     
119. Next
     
120. EndIf
     
121. $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
     
122. $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
     
123. $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
     
124. ;Authenticated SMTP
     
125. If $s_Username <> "" Then
     
126. $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
     
127. $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
     
128. $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
     
129. EndIf
     
130. If $ssl Then
     
131. $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
     
132. EndIf
     
133. ;Update settings
     
134. $objEmail.Configuration.Fields.Update
     
135. ; Sent the Message
     
136. $objEmail.Send
     
137. If @error Then
     
138. SetError(2)
     
139. Return $oMyRet[1]
     
140. EndIf
     
141. EndFunc ;==>_INetSmtpMailCom
     
142. ; Com Error Handler
     
143. Func MyErrFunc()
     
144. $HexHexNumber = Hex($oMyError.number, 8)
     
145. $oMyRet[0] = $HexNumber
     
146. $oMyRet[1] = StringStripWS($oMyError.description, 3)
     
147. ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
     
148. SetError(1); something to check for when this function returns
     
149. Return
     
150. EndFunc ;==>MyErrFunc
     
151. ;发送邮件结束====================================================================
     
152. ;整理内存
     
153. Func _ReduceMemory()
     
154. $I_PID = @AutoItPID
     
155. Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $I_PID)
     
156. Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
     
157. DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])
     
158. Return $ai_Return[0]
     
159. EndFunc ;==>_ReduceMemory
     

复制代码