&智能获取外网IP，并自动发送到指定邮箱
秒后自动跳转到登录页
快捷登录：
举报类型：
不规范：上传重复资源
不规范：标题与实际内容不符
不规范：资源无法下载或使用
其他不规范行为
违规：资源涉及侵权
违规：含有危害国家安全等内容
违规：含有反动/色情等内容
违规：广告内容
详细原因：
任何违反下载中心规定的资源，欢迎Down友监督举报，第一举报人可获5-10下载豆奖励。
视频课程推荐
智能获取外网IP，并自动发送到指定邮箱
上传时间：
技术分类：
资源评价：
（11位用户参与评价）
已被下载&213&次
首先，将mail.ini中的邮箱信息修改为你自己的邮箱信息！然后，将getipmail.exe添加到计划任务中(可适当设置好运行周期)，即可实现对主机外网ip的监控，并随时可以从指定的接收邮箱中获得。getipmail.exe可以自动获取已连接internet的本机外网ip地址，无论是adsl本地连接还是路由器自动连接，程序先按adsl连接方式直接获取外网ip地址，如果不能获取有效ip，则按路由器连接方式进行网络获取，因此成功较高。成功获取外网ip地址后，...
51CTO下载中心常见问题：
1.如何获得下载豆？
1)上传资料
2)评论资料
3)每天在首页签到领取
4)购买VIP会员服务，无需下载豆下载资源
5)更多途径：点击此处
2.如何删除自己的资料？
下载资料意味着您已同意遵守以下协议：
1.资料的所有权益归上传用户所有
2.未经权益所有人同意，不得将资料中的内容挪作商业或盈利用途
3.51CTO下载中心仅提供资料交流平台，并不对任何资料负责
4.本站资料中如有侵权或不适当内容，请邮件与我们联系（）
5.本站不保证资源的准确性、安全性和完整性, 同时也不承担用户因使用这些资料对自己和他人造成任何形式的伤害或损失
相关专题推荐
《深入理解计算机网络》与本书相关的
深信服VPN相关资料和硬件使用手册等，
二进制的转换是学习计算机最基础的知
IT运维管理过程中需要注意的问题和解
linux视频教程从最简单的类的介绍到系
2016开始啦，小编为大家整理出来一份
转眼就到三月了，小编为大家整理出来
网络管理实用教程：内容包括了linux简
四月啦~小编为大家整理出来三月份最新
华为讲座详解，讲解了协议，华为讲座
本次大会是互联网运维人员的福利，包
小编为大家整理出了4月份最受大家欢迎
小编为大家整理出了5月份最受大家欢迎
华为无线实战系列分为几个部分，（1）
小编为大家整理出了6月份最受大家欢迎
网络工程师、网络管理员、信息系统维
意见或建议：
联系方式：
您已提交成功！感谢您的宝贵意见，我们会尽快处理君，已阅读到文档的结尾了呢~~
工业以太网控制系统的网络协议研究分析及在现代工业水处理自动化中的应用硕士论文
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
工业以太网控制系统的网络协议研究分析及在现代工业水处理自动化中的应用硕士论文
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口获取外网IP并发送到指定的邮箱的脚本
脚本之家编译后的exe文件，方便大家直接使用 下载地址 配置文件内容如下：
代码如下: 配置文件代码 [收件人] 收件地址= 邮件标题= [发送人] 邮箱= 密码=
代码如下: #region AutoIt3Wrapper 预编译参数(常用参数) #AutoIt3Wrapper_Icon=D:\ico\.图标,支持EXE,DLL,ICO #AutoIt3Wrapper_OutFile=GetIp_Sendmail.输出文件名 #AutoIt3Wrapper_OutFile_Type=文件类型 #AutoIt3Wrapper_Compression=4 ;压缩等级 #AutoIt3Wrapper_UseUpx=使用压缩 #AutoIt3Wrapper_Res_Comment= ;注释 #AutoIt3Wrapper_Res_Description= ;详细信息 #AutoIt3Wrapper_Res_Fileversion= ;文件版本 #AutoIt3Wrapper_Res_FileVersion_AutoIncrement=自动更新版本 #AutoIt3Wrapper_Res_LegalCopyright= ;版权 #AutoIt3Wrapper_Change2CUI=N ;修改输出的程序为CUI(控制台程序) ;#AutoItAutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer% ;自定义资源段 ;#AutoIt3Wrapper_Run_Tidy= ;脚本整理 ;#AutoIt3Wrapper_Run_Obfuscator= ;代码迷惑 ;#AutoIt3Wrapper_Run_AU3Check= ;语法检查 ;#AutoIt3Wrapper_Run_Before= ;运行前 ;#AutoIt3Wrapper_Run_After= ;运行后 #endregion AutoIt3Wrapper 预编译参数(常用参数) #include &file.au3& #include &Inet.au3& #include &Date.au3& ;禁止重复运行。 $g_szVersion = '获取外网IP并发送到指定邮箱' If WinExists($g_szVersion) Then Exit EndIf AutoItWinSetTitle($g_szVersion) ;托盘事件 Opt("TrayOnEventMode", 1);托盘事件通知 Opt("TrayMenuMode", 1) ; 默认菜单项目 (脚本暂停中/退出)(Script Paused/Exit) 将不会显示. TrayCreateItem("发送") TrayItemSetOnEvent(-1,'_Sendmail') $exititem = TrayCreateItem("退出程序") TrayItemSetOnEvent($exititem, "_Exit") TraySetClick(16) ; 只有单击第二个鼠标按键(默认右键)才会显示托盘菜单 TraySetToolTip('获取外网IP并发送到指定邮箱') 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", '收件人', '邮件标题', '-1');邮件标题 TrayTip("准备就绪", "收件人地址:" & $s_ToAddress _ & @CRLF & "邮件标题:" & $s_Subject, 5, 1) _Sendmail();发送邮件 AdlibRegister('_ReduceMemory', 1000 * 10);10秒整理一次内存 AdlibRegister('_Sendmail',1000*15) While 1 Sleep(3000) WEnd Func _Exit() Exit EndF==&_Exit ;发送邮件==================================================================== Func _Sendmail() $s_SmtpServer = "" ;SMTP服务器 $s_FromName = "bbs.wglm.net" ;邮件发送人 $s_FromAddress = IniRead(@ScriptDir & "\Config.ini", '发送人', '邮箱', '-1') ;邮件发送者地址 $s_ToAddress = IniRead(@ScriptDir & "\Config.ini", '收件人', '收件地址', '-1');"" ;收件人地址 $s_Subject = IniRead(@ScriptDir & "\Config.ini", '收件人', '邮件标题', '-1');"AU3邮件发送测试" ;邮件标题 Do $Getip = _GetIP();外网IP Sleep(300) TrayTip("提示", '正在获取外网IP', 5, 1) Until $Getip && -1 If $testIp = $Getip Then TrayTip("提示", '外网IP与上次发送的相同' & @CRLF & '程序将不重复发送.', 5, 1) RMsgBox(0,'',$Getip) EndIf $testIp = $Getip $as_Body = "外网IP:" & $Getip & @CRLF & "发送时间:" & _NowDate() & " " & _NowTime() ;邮件正文;获取外网IP $s_AttachFiles = "" ;附件地址 $s_CcAddress = "" ;抄送地址 $s_BccAddress = "" ;密件抄送地址 $s_Username = IniRead(@ScriptDir & "\Config.ini", '发送人', '邮箱', '-1') ;用户名 $s_Password = IniRead(@ScriptDir & "\Config.ini", '发送人', '密码', '-1') ;密码 $IPPort = 25 ;发送端口，Gmail使用的发送端口为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", "邮件发送失败 错误代码:" & @error & " 描述:" & $rc) TrayTip("邮件发送失败", "错误代码:" & @error _ & @CRLF & "描述:" & $rc, 5, 1) Else _FileWriteLog(@ScriptDir & "\MailSendlog.log", "邮件发送成功 收件人地址: " & $s_ToAddress & " 邮件标题: " & $s_Subject & " 邮件正文:" & $as_Body) TrayTip("邮件发送成功", "收件人地址: " & $s_ToAddress _ & @CRLF & "邮件标题: " & $s_Subject _ & @CRLF & "邮件正文:" & $as_Body, 5, 1) EndIf EndF==&_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("/cdo/configuration/sendusing") = 2 $objEmail.Configuration.Fields.Item("/cdo/configuration/smtpserver") = $s_SmtpServer $objEmail.Configuration.Fields.Item("/cdo/configuration/smtpserverport") = $IPPort ;Authenticated SMTP If $s_Username && "" Then $objEmail.Configuration.Fields.Item("/cdo/configuration/smtpauthenticate") = 1 $objEmail.Configuration.Fields.Item("/cdo/configuration/sendusername") = $s_Username $objEmail.Configuration.Fields.Item("/cdo/configuration/sendpassword") = $s_Password EndIf If $ssl Then $objEmail.Configuration.Fields.Item("/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 EndF==&_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 EndF==&MyErrFunc ;发送邮件结束==================================================================== ;整理内存 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] EndF==&_ReduceMemory
如果您喜欢本文请分享给您的好友，谢谢！
评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）2012年2月 移动平台大版内专家分月排行榜第二2012年1月 移动平台大版内专家分月排行榜第二2011年5月 移动平台大版内专家分月排行榜第二2011年4月 移动平台大版内专家分月排行榜第二2009年1月 移动平台大版内专家分月排行榜第二
2011年12月 移动平台大版内专家分月排行榜第三2011年11月 移动平台大版内专家分月排行榜第三2011年9月 移动平台大版内专家分月排行榜第三2011年8月 移动平台大版内专家分月排行榜第三2010年3月 移动平台大版内专家分月排行榜第三2010年2月 移动平台大版内专家分月排行榜第三2009年4月 移动平台大版内专家分月排行榜第三2009年3月 硬件/嵌入开发大版内专家分月排行榜第三
2010年1月 移动平台大版内专家分月排行榜第一2009年12月 移动平台大版内专家分月排行榜第一2009年11月 移动平台大版内专家分月排行榜第一2009年10月 移动平台大版内专家分月排行榜第一2009年9月 移动平台大版内专家分月排行榜第一2009年8月 移动平台大版内专家分月排行榜第一2009年7月 移动平台大版内专家分月排行榜第一2009年6月 移动平台大版内专家分月排行榜第一2009年5月 移动平台大版内专家分月排行榜第一
2010年5月 移动平台大版内专家分月排行榜第二2009年4月 移动平台大版内专家分月排行榜第二
2009年7月 移动平台大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。}