獲取外網(wǎng)IP并發(fā)送到指定的郵箱的腳本
更新時(shí)間：2012年05月17日 17:41:57 作者：
來自小A的源碼，其實(shí)用到的全部是AU3自帶的UDF，非常有學(xué)習(xí)的意義！功能：獲取外網(wǎng)IP并將IP發(fā)送到配置文件中定義的郵箱
腳本之家編譯后的exe文件，方便大家直接使用 下載地址 http://www.dbjr.com.cn/softs/44627.html
配置文件內(nèi)容如下：
配置文件代碼
[收件人]
收件地址=
郵件標(biāo)題=
[發(fā)送人]
郵箱=
密碼=
核心代碼:
#region AutoIt3Wrapper 預(yù)編譯參數(shù)(常用參數(shù))
#AutoIt3Wrapper_Icon=D:\ico\3444\2222.ico ;圖標(biāo),支持EXE,DLL,ICO
#AutoIt3Wrapper_OutFile=GetIp_Sendmail.exe ;輸出文件名
#AutoIt3Wrapper_OutFile_Type=exe ;文件類型
#AutoIt3Wrapper_Compression=4 ;壓縮等級
#AutoIt3Wrapper_UseUpx=y ;使用壓縮
#AutoIt3Wrapper_Res_Comment= ;注釋
#AutoIt3Wrapper_Res_Description= ;詳細(xì)信息
#AutoIt3Wrapper_Res_Fileversion= ;文件版本
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p ;自動更新版本
#AutoIt3Wrapper_Res_LegalCopyright= ;版權(quán)
#AutoIt3Wrapper_Change2CUI=N ;修改輸出的程序?yàn)镃UI(控制臺程序)
;#AutoItAutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer% ;自定義資源段
;#AutoIt3Wrapper_Run_Tidy= ;腳本整理
;#AutoIt3Wrapper_Run_Obfuscator= ;代碼迷惑
;#AutoIt3Wrapper_Run_AU3Check= ;語法檢查
;#AutoIt3Wrapper_Run_Before= ;運(yùn)行前
;#AutoIt3Wrapper_Run_After= ;運(yùn)行后
#endregion AutoIt3Wrapper 預(yù)編譯參數(shù)(常用參數(shù))
#include <file.au3>
#include <Inet.au3>
#include <Date.au3>
;禁止重復(fù)運(yùn)行。
$g_szVersion = '獲取外網(wǎng)IP并發(fā)送到指定郵箱'
If WinExists($g_szVersion) Then
Exit
EndIf
AutoItWinSetTitle($g_szVersion)
;托盤事件
Opt("TrayOnEventMode", 1);托盤事件通知
Opt("TrayMenuMode", 1) ; 默認(rèn)菜單項(xiàng)目 (腳本暫停中/退出)(Script Paused/Exit) 將不會顯示.
TrayCreateItem("發(fā)送")
TrayItemSetOnEvent(-1,'_Sendmail')
$exititem = TrayCreateItem("退出程序")
TrayItemSetOnEvent($exititem, "_Exit")
TraySetClick(16) ; 只有單擊第二個(gè)鼠標(biāo)按鍵(默認(rèn)右鍵)才會顯示托盤菜單
TraySetToolTip('獲取外網(wǎng)IP并發(fā)送到指定郵箱')
TraySetState()
Global $testIp
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$s_ToAddress = IniRead(@ScriptDir & "\Config.ini", '收件人', '收件地址', '-1');收件人地址
$s_Subject = IniRead(@ScriptDir & "\Config.ini", '收件人', '郵件標(biāo)題', '-1');郵件標(biāo)題
TrayTip("準(zhǔn)備就緒", "收件人地址:" & $s_ToAddress _
& @CRLF & "郵件標(biāo)題:" & $s_Subject, 5, 1)
_Sendmail();發(fā)送郵件
AdlibRegister('_ReduceMemory', 1000 * 10);10秒整理一次內(nèi)存
AdlibRegister('_Sendmail',1000*15)
While 1
Sleep(3000)
WEnd
Func _Exit()
Exit
EndFunc ;==>_Exit
;發(fā)送郵件====================================================================
Func _Sendmail()
$s_SmtpServer = "smtp.163.com" ;SMTP服務(wù)器
$s_FromName = "bbs.wglm.net" ;郵件發(fā)送人
$s_FromAddress = IniRead(@ScriptDir & "\Config.ini", '發(fā)送人', '郵箱', '-1') ;郵件發(fā)送者地址
$s_ToAddress = IniRead(@ScriptDir & "\Config.ini", '收件人', '收件地址', '-1');"19377708@qq.com" ;收件人地址
$s_Subject = IniRead(@ScriptDir & "\Config.ini", '收件人', '郵件標(biāo)題', '-1');"AU3郵件發(fā)送測試" ;郵件標(biāo)題
Do
$Getip = _GetIP();外網(wǎng)IP
Sleep(300)
TrayTip("提示", '正在獲取外網(wǎng)IP', 5, 1)
Until $Getip <> -1
If $testIp = $Getip Then
TrayTip("提示", '外網(wǎng)IP與上次發(fā)送的相同' & @CRLF & '程序?qū)⒉恢貜?fù)發(fā)送.', 5, 1)
Return ;MsgBox(0,'',$Getip)
EndIf
$testIp = $Getip
$as_Body = "外網(wǎng)IP:" & $Getip & @CRLF & "發(fā)送時(shí)間:" & _NowDate() & " " & _NowTime() ;郵件正文;獲取外網(wǎng)IP
$s_AttachFiles = "" ;附件地址
$s_CcAddress = "" ;抄送地址
$s_BccAddress = "" ;密件抄送地址
$s_Username = IniRead(@ScriptDir & "\Config.ini", '發(fā)送人', '郵箱', '-1') ;用戶名
$s_Password = IniRead(@ScriptDir & "\Config.ini", '發(fā)送人', '密碼', '-1') ;密碼
$IPPort = 25 ;發(fā)送端口，Gmail使用的發(fā)送端口為465
$ssl = 0
$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)
If @error Then
_FileWriteLog(@ScriptDir & "\MailSendlog.log", "郵件發(fā)送失敗 錯(cuò)誤代碼:" & @error & " 描述:" & $rc)
TrayTip("郵件發(fā)送失敗", "錯(cuò)誤代碼:" & @error _
& @CRLF & "描述:" & $rc, 5, 1)
Else
_FileWriteLog(@ScriptDir & "\MailSendlog.log", "郵件發(fā)送成功 收件人地址: " & $s_ToAddress & " 郵件標(biāo)題: " & $s_Subject & " 郵件正文:" & $as_Body)
TrayTip("郵件發(fā)送成功", "收件人地址: " & $s_ToAddress _
& @CRLF & "郵件標(biāo)題: " & $s_Subject _
& @CRLF & "郵件正文:" & $as_Body, 5, 1)
EndIf
EndFunc ;==>_Sendmail
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)
$objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ",");文件分格符
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment($S_Files2Attach[$x])
Else
$i_Error_desciption = $i_Error_desciption & @LF & 'File not found to attach: ' & $S_Files2Attach[$x]
SetError(1)
Return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $ssl Then
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Sent the Message
$objEmail.Send
If @error Then
SetError(2)
Return $oMyRet[1]
EndIf
EndFunc ;==>_INetSmtpMailCom
; Com Error Handler
Func MyErrFunc()
$HexHexNumber = Hex($oMyError.number, 8)
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description, 3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc
;發(fā)送郵件結(jié)束====================================================================
;整理內(nèi)存
Func _ReduceMemory()
$I_PID = @AutoItPID
Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $I_PID)
Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])
Return $ai_Return[0]
EndFunc ;==>_ReduceMemory
配置文件內(nèi)容如下：
復(fù)制代碼 代碼如下:
配置文件代碼
[收件人]
收件地址=
郵件標(biāo)題=
[發(fā)送人]
郵箱=
密碼=
核心代碼:
復(fù)制代碼 代碼如下:
#region AutoIt3Wrapper 預(yù)編譯參數(shù)(常用參數(shù))
#AutoIt3Wrapper_Icon=D:\ico\3444\2222.ico ;圖標(biāo),支持EXE,DLL,ICO
#AutoIt3Wrapper_OutFile=GetIp_Sendmail.exe ;輸出文件名
#AutoIt3Wrapper_OutFile_Type=exe ;文件類型
#AutoIt3Wrapper_Compression=4 ;壓縮等級
#AutoIt3Wrapper_UseUpx=y ;使用壓縮
#AutoIt3Wrapper_Res_Comment= ;注釋
#AutoIt3Wrapper_Res_Description= ;詳細(xì)信息
#AutoIt3Wrapper_Res_Fileversion= ;文件版本
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p ;自動更新版本
#AutoIt3Wrapper_Res_LegalCopyright= ;版權(quán)
#AutoIt3Wrapper_Change2CUI=N ;修改輸出的程序?yàn)镃UI(控制臺程序)
;#AutoItAutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer% ;自定義資源段
;#AutoIt3Wrapper_Run_Tidy= ;腳本整理
;#AutoIt3Wrapper_Run_Obfuscator= ;代碼迷惑
;#AutoIt3Wrapper_Run_AU3Check= ;語法檢查
;#AutoIt3Wrapper_Run_Before= ;運(yùn)行前
;#AutoIt3Wrapper_Run_After= ;運(yùn)行后
#endregion AutoIt3Wrapper 預(yù)編譯參數(shù)(常用參數(shù))
#include <file.au3>
#include <Inet.au3>
#include <Date.au3>
;禁止重復(fù)運(yùn)行。
$g_szVersion = '獲取外網(wǎng)IP并發(fā)送到指定郵箱'
If WinExists($g_szVersion) Then
Exit
EndIf
AutoItWinSetTitle($g_szVersion)
;托盤事件
Opt("TrayOnEventMode", 1);托盤事件通知
Opt("TrayMenuMode", 1) ; 默認(rèn)菜單項(xiàng)目 (腳本暫停中/退出)(Script Paused/Exit) 將不會顯示.
TrayCreateItem("發(fā)送")
TrayItemSetOnEvent(-1,'_Sendmail')
$exititem = TrayCreateItem("退出程序")
TrayItemSetOnEvent($exititem, "_Exit")
TraySetClick(16) ; 只有單擊第二個(gè)鼠標(biāo)按鍵(默認(rèn)右鍵)才會顯示托盤菜單
TraySetToolTip('獲取外網(wǎng)IP并發(fā)送到指定郵箱')
TraySetState()
Global $testIp
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$s_ToAddress = IniRead(@ScriptDir & "\Config.ini", '收件人', '收件地址', '-1');收件人地址
$s_Subject = IniRead(@ScriptDir & "\Config.ini", '收件人', '郵件標(biāo)題', '-1');郵件標(biāo)題
TrayTip("準(zhǔn)備就緒", "收件人地址:" & $s_ToAddress _
& @CRLF & "郵件標(biāo)題:" & $s_Subject, 5, 1)
_Sendmail();發(fā)送郵件
AdlibRegister('_ReduceMemory', 1000 * 10);10秒整理一次內(nèi)存
AdlibRegister('_Sendmail',1000*15)
While 1
Sleep(3000)
WEnd
Func _Exit()
Exit
EndFunc ;==>_Exit
;發(fā)送郵件====================================================================
Func _Sendmail()
$s_SmtpServer = "smtp.163.com" ;SMTP服務(wù)器
$s_FromName = "bbs.wglm.net" ;郵件發(fā)送人
$s_FromAddress = IniRead(@ScriptDir & "\Config.ini", '發(fā)送人', '郵箱', '-1') ;郵件發(fā)送者地址
$s_ToAddress = IniRead(@ScriptDir & "\Config.ini", '收件人', '收件地址', '-1');"19377708@qq.com" ;收件人地址
$s_Subject = IniRead(@ScriptDir & "\Config.ini", '收件人', '郵件標(biāo)題', '-1');"AU3郵件發(fā)送測試" ;郵件標(biāo)題
Do
$Getip = _GetIP();外網(wǎng)IP
Sleep(300)
TrayTip("提示", '正在獲取外網(wǎng)IP', 5, 1)
Until $Getip <> -1
If $testIp = $Getip Then
TrayTip("提示", '外網(wǎng)IP與上次發(fā)送的相同' & @CRLF & '程序?qū)⒉恢貜?fù)發(fā)送.', 5, 1)
Return ;MsgBox(0,'',$Getip)
EndIf
$testIp = $Getip
$as_Body = "外網(wǎng)IP:" & $Getip & @CRLF & "發(fā)送時(shí)間:" & _NowDate() & " " & _NowTime() ;郵件正文;獲取外網(wǎng)IP
$s_AttachFiles = "" ;附件地址
$s_CcAddress = "" ;抄送地址
$s_BccAddress = "" ;密件抄送地址
$s_Username = IniRead(@ScriptDir & "\Config.ini", '發(fā)送人', '郵箱', '-1') ;用戶名
$s_Password = IniRead(@ScriptDir & "\Config.ini", '發(fā)送人', '密碼', '-1') ;密碼
$IPPort = 25 ;發(fā)送端口，Gmail使用的發(fā)送端口為465
$ssl = 0
$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)
If @error Then
_FileWriteLog(@ScriptDir & "\MailSendlog.log", "郵件發(fā)送失敗 錯(cuò)誤代碼:" & @error & " 描述:" & $rc)
TrayTip("郵件發(fā)送失敗", "錯(cuò)誤代碼:" & @error _
& @CRLF & "描述:" & $rc, 5, 1)
Else
_FileWriteLog(@ScriptDir & "\MailSendlog.log", "郵件發(fā)送成功 收件人地址: " & $s_ToAddress & " 郵件標(biāo)題: " & $s_Subject & " 郵件正文:" & $as_Body)
TrayTip("郵件發(fā)送成功", "收件人地址: " & $s_ToAddress _
& @CRLF & "郵件標(biāo)題: " & $s_Subject _
& @CRLF & "郵件正文:" & $as_Body, 5, 1)
EndIf
EndFunc ;==>_Sendmail
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)
$objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ",");文件分格符
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment($S_Files2Attach[$x])
Else
$i_Error_desciption = $i_Error_desciption & @LF & 'File not found to attach: ' & $S_Files2Attach[$x]
SetError(1)
Return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $ssl Then
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Sent the Message
$objEmail.Send
If @error Then
SetError(2)
Return $oMyRet[1]
EndIf
EndFunc ;==>_INetSmtpMailCom
; Com Error Handler
Func MyErrFunc()
$HexHexNumber = Hex($oMyError.number, 8)
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description, 3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc
;發(fā)送郵件結(jié)束====================================================================
;整理內(nèi)存
Func _ReduceMemory()
$I_PID = @AutoItPID
Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $I_PID)
Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])
Return $ai_Return[0]
EndFunc ;==>_ReduceMemory
相關(guān)文章
對于聽說過autoit腳本的朋友，下面的入門教程是個(gè)不錯(cuò)的教材，建議大家看看2008-06-06
所謂函數(shù)是指可在腳本中調(diào)用并實(shí)現(xiàn)特定“功能”的代碼片段。在 AutoIt 中有兩種函數(shù)，包括 內(nèi)建函數(shù) 和 自定義函數(shù)。2008-06-06
這篇文章主要介紹了AutoIt腳本的反編譯和代碼格式化問題分析,需要的朋友可以參考下2015-10-10
AutoIt3和按鍵精靈的比較 無其他的意思，剛看到，順手轉(zhuǎn)了過來，給想學(xué)AUtoIT的同志看看，以下是國內(nèi)(AutoIT )二位高手的評價(jià)（本論壇高手也多，只是一直默默無聞，象幾位版主2008-06-06
最近在用AU3開發(fā)一款用來調(diào)用飛信發(fā)送短信的小東東 飛信是個(gè)很好的東西,可惜用的人少,很多不厚道的同學(xué)注冊之后就不再登錄了.2008-09-09
AutoIt 腳本可創(chuàng)建（由窗口及其控件組成的）簡單的圖形用戶界面（GUI）。2008-06-06
命令行參數(shù) AutoIt 腳本程序可通過命令行調(diào)用，當(dāng)我們傳遞命令行參數(shù)到腳本中的時(shí)候會有一個(gè)特殊的數(shù)組 $CmdLine 保存相關(guān)數(shù)據(jù)。2008-06-06
HotKeySet 設(shè)置一個(gè)可調(diào)用某用戶函數(shù)的熱鍵。2008-06-06
騰訊的天氣是相當(dāng)?shù)臏?zhǔn)呀.而且還有實(shí)時(shí)天氣, 今天把它給應(yīng)用上了,附上源代碼拋磚引玉.2008-09-09
來自小A的源碼，其實(shí)用到的全部是AU3自帶的UDF，非常有學(xué)習(xí)的意義！功能：獲取外網(wǎng)IP并將IP發(fā)送到配置文件中定義的郵箱2012-05-05