╃苍狼山庄╃

Windows 7英文系统显示中文乱码的解决方法

Clang — Fri, 27 Jan 2012 02:59:57 +0000

　　很多安装Windows7英文操作系统的朋友会显示中文乱码，特别是在安装了中文程序的时候，那么如何解决呢？　　
　　如果我们所使用的操作系统是英文版的，那么会发现在运行简体中文的程序时无法正常显示中文，中文都变成了乱码。这是由于大部分中文程序所使用的文字编码与Windows7英文系统的文字编码不同，所以会发生显示乱码的情况。我们可以通过下面的方法对系统进行设置，来正常显示中文。　　
1、点击Start Menu并点击Control Panel来打开控制面板，点击Clock,Language,and Region下面的Change display language。如图所示：

2、在弹出窗口中点击Formats选项卡，修改Format为Chinese(Simplified,PRC)，如图所示：

3、切换到Location选项卡，修改Current Location为China，如图所示：

4、切换到Administrative选项卡，点击Change system locale按钮，将Current system locale改为Chinese(Simplified,PRC)，点击“Apply”应用设置，如图所示：

5、系统会提示重新启动，先不要重启系统，还需要修改一处注册表，定位注册表位置HKEY_CURRENT_USER\Control Panel\International，修改Locale键值为00000804

查看代码 REG

Windows Registry Editor Version 5.00
 
[HKEY_CURRENT_USER\Control Panel\International]
"Locale"="00000804"

6、重启电脑后软件可以正常显示中文了。

动态IP地址监控器

Clang — Wed, 31 Aug 2011 02:44:35 +0000

动态监控公网IP地址变化并邮件通知

程序下载：IPMon.zip
源代码：
IPMon.au3

查看代码 AUTOIT

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=5.ico
#AutoIt3Wrapper_outfile=IPMon.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=动态IP地址监控器
#AutoIt3Wrapper_Res_Description=动态IP地址监控器
#AutoIt3Wrapper_Res_Fileversion=2.3.11.823
#AutoIt3Wrapper_Res_LegalCopyright=╃苍狼山庄╃
#AutoIt3Wrapper_Res_Field=作者|Clang
#AutoIt3Wrapper_Res_Field=网站|http://www.clang.cn
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
 
#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
 
 AutoIt 版本: 3.3.5.6
 脚本作者: Clang
	Email: admin@clnag.cn
	QQ/TM: 4370001
 脚本版本: 监控ADSL动态IP地址
 脚本功能: 监控ADSL动态IP地址
 
#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
 
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <Constants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <SmtpMailer.au3>
 
Opt("GUIOnEventMode", 1)
Opt("GUICloseOnESC",0)
Opt("TrayMenuMode",1) 		;托盘内容要
Opt("TrayOnEventMode", 1)	;托盘转换成事务模式
Opt("TrayAutoPause", 0)		;把系统自动的单击暂停去掉
TrayTip("", "正在启动监控程序,请稍候...", 5)
TraySetClick ( 16 )			;仅允许点右键时出托盘菜单
 
Global Const $CrVer = "2.3.11.0823"
Global Const $strName = "动态IP地址监控程序"
Global $strPorgameName = $strName & " v" & $CrVer
 
If WinExists($strPorgameName) Then
	_WinRestore()
	Exit ; 此脚本已经运行了
EndIf
AutoItWinSetTitle($strPorgameName)
 
Global Const $strConfigINI=@ScriptDir&"\IPMonConfig.ini"	;配置加上绝对路径较可靠，不加则是相对即时的“当前工作路径”，可能会导致找都找不到文件
Global $LogFile=@ScriptDir & "\Log\"& "log_" & @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & ".log"
 
Global $Button[3],$Checkbox[4],$strInIP,$strTime,$srtFile
 
Global $str_EncryptPassword = "P@ss"
;$sdfsdf = _StringEncryptX(1, "s13936660688", $str_EncryptPassword, 2)
;MsgBox(0,"",$sdfsdf)
;ClipPut ( $sdfsdf )
 
Global $sendCount = 0 ;发送计数
 
Global $s_SmtpServer,$s_FromName,$s_FromAddress,$s_ToAddress,$s_Subject,$as_Body,$s_AttachFiles,$s_CcAddress,$s_BccAddress,$s_Username,$s_Password,$IPPort,$ssl
Global Const $sInfoSource = "ip138"
Global $SetAutoStart=IniRead($strConfigINI,"Config","AutoStart","")
Global $SetAutoMon=IniRead($strConfigINI,"Config","AutoMon","")
Global $SetCloseToMin=IniRead($strConfigINI,"Config","CloseToMin","")
Global $SetStartToMin=IniRead($strConfigINI,"Config","StartToMin","")
Global $SetiTime =  IniRead($strConfigINI, "Config", "iTime", "")
 
Global $SetFromAddress =  IniRead($strConfigINI, "MailConfig", "FromAddress", "")
Global $SetSmtpServer =  IniRead($strConfigINI, "MailConfig", "SmtpServer", "")
Global $SetUsername =  IniRead($strConfigINI, "MailConfig", "Username", "")
Global $SetPassword =  IniRead($strConfigINI, "MailConfig", "Password", "")
Global $SetToAddress =  IniRead($strConfigINI, "MailConfig", "ToAddress", "")
Global $SetIPPort =  IniRead($strConfigINI, "MailConfig", "IPPort", "")
Global $SetSubject =  IniRead($strConfigINI, "MailConfig", "Subject", "")
 
 
Global $s_FromName = ""                                 ;邮件发送人
Global $s_AttachFiles = ""                            ;附件地址
Global $s_CcAddress = ""                             ;抄送地址
Global $s_BccAddress = ""                           ;密件抄送地址
Global $ssl = 0      
 
 
#Region ### START Koda GUI section ### Form=d:\clang\desktop\ip监控\form1.kxf
$Form1 = GUICreate($strPorgameName, 490, 433, (@DesktopWidth - 490) / 2, (@DesktopHeight - 433) / 2, BitOR($WS_SYSMENU,$WS_MINIMIZEBOX,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("当前IP", 16, 16, 241, 105)
$Label12 = GUICtrlCreateLabel("内网IP地址：", 24, 40, 74, 17)
$strInsideIP = GUICtrlCreateLabel("", 112, 32, 130, 49)
$Label9 = GUICtrlCreateLabel("当前公网IP地址：", 24, 96, 98, 17)
$strInternetIP = GUICtrlCreateLabel("", 128, 96, 100, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("邮件发送设置", 16, 136, 457, 225)
$Label1 = GUICtrlCreateLabel("发邮件人邮箱：", 32, 160, 88, 17)
$inputFromAddress = GUICtrlCreateInput("", 128, 160, 329, 21)
GUICtrlSetData ( $inputFromAddress, $SetFromAddress )
$Label2 = GUICtrlCreateLabel("SMTP地址：", 32, 192, 70, 17)
$inputSmtpServer = GUICtrlCreateInput("", 128, 192, 193, 21)
GUICtrlSetData ( $inputSmtpServer, $SetSmtpServer )
$Label8 = GUICtrlCreateLabel("端口：", 336, 192, 40, 17)
$inputIPPort = GUICtrlCreateInput("", 384, 192, 73, 21)
GUICtrlSetData ( $inputIPPort, $SetIPPort )
$Label3 = GUICtrlCreateLabel("发件箱用户名：", 32, 224, 88, 17)
$inputUsername = GUICtrlCreateInput("", 128, 224, 329, 21)
GUICtrlSetData ( $inputUsername, $SetUsername )
$Label4 = GUICtrlCreateLabel("发件箱密码：", 32, 256, 76, 17)
$inputPassword = GUICtrlCreateInput("", 128, 256, 329, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
GUICtrlSetData ( $inputPassword, $SetPassword )
$Label5 = GUICtrlCreateLabel("收件箱地址：", 32, 288, 76, 17)
$inputToAddress = GUICtrlCreateInput("", 128, 288, 329, 21)
GUICtrlSetData ( $inputToAddress, $SetToAddress )
$Label11 = GUICtrlCreateLabel("邮件主题：", 32, 320, 64, 17)
$inputSubject = GUICtrlCreateInput("", 128, 320, 329, 21)
GUICtrlSetData ( $inputSubject, $SetSubject )
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("参数设置", 272, 16, 201, 105)
$Checkbox[0] = GUICtrlCreateCheckbox("随系统启动",  280, 40, 89, 17)
If $SetAutoStart="1" Then
	GUICtrlSetState($Checkbox[0],$GUI_CHECKED)
Else
	GUICtrlSetState($Checkbox[0], $GUI_UNCHECKED)
EndIf
$Checkbox[1] = GUICtrlCreateCheckbox("开始监控", 376, 40, 89, 17)
If $SetAutoMon="1" Then
	GUICtrlSetState($Checkbox[1],$GUI_CHECKED)
Else
	GUICtrlSetState($Checkbox[1], $GUI_UNCHECKED)
EndIf
$Checkbox[2] = GUICtrlCreateCheckbox("启动后最小化", 280, 64, 89, 17)
If $SetStartToMin="1" Then
	GUICtrlSetState($Checkbox[2],$GUI_CHECKED)
Else
	GUICtrlSetState($Checkbox[2], $GUI_UNCHECKED)
EndIf
$Checkbox[3] = GUICtrlCreateCheckbox("关闭最小化", 376, 64, 81, 17)
If $SetCloseToMin="1" Then
	GUICtrlSetState($Checkbox[3],$GUI_CHECKED)
Else
	GUICtrlSetState($Checkbox[3], $GUI_UNCHECKED)
EndIf
$Label6 = GUICtrlCreateLabel("监控时间间隔", 288, 96, 76, 17)
$inputTime = GUICtrlCreateInput("", 368, 92, 49, 21)
If $SetiTime <> "" Then
	GUICtrlSetData ( $inputTime, $SetiTime )
Else
	GUICtrlSetData ( $inputTime, "5" )
EndIf
$Label7 = GUICtrlCreateLabel("分钟", 424, 96, 28, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button[0] = GUICtrlCreateButton("发送测试", 216, 376, 75, 25)
$Button[1] = GUICtrlCreateButton("清空设置", 304, 376, 75, 25)
$Button[2] = GUICtrlCreateButton("保存设置", 392, 376, 75, 25)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
Dim $StatusBar1_PartsWidth[2] = [280, -1]
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, "", 0)
_GUICtrlStatusBar_SetText($StatusBar1, @TAB & @TAB & "╃苍狼山庄╃ http://www.clang.cn", 1)
 
 
;======托盘菜单区======
$TrayShow = TrayCreateItem("显示主界面")
TrayItemSetOnEvent($TrayShow,"_ShowMain")
TrayItemSetState ( $TrayShow, $TRAY_UNCHECKED)
TrayCreateItem("")
$TrayExit = TrayCreateItem("退出")
TrayItemSetOnEvent(-1,"_Quit")
 
TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE,"_ShowMain")		;左键双击通知区域
TraySetState()
 
TrayTip("", "", 5)
 
TraySetToolTip($strName)
 
 
$info =_NetworkAdapterInfo()
$InsideIPCount = $info[0][0]
For $i = 1 to $info[0][0] Step +1
	$strIP = "IP[" & $i & "]：" &  $info[$i][5]
	If $strInIP = "" Then
		$strInIP = $strIP
	Else
		$strInIP = $strInIP & @CRLF & $strIP
	EndIf
Next
 
$asResult = fn_GetWanIP($sInfoSource)
If Not IsArray($asResult) Then
	GUICtrlSetData ( $strInternetIP, "unknown ip" )
Else
	GUICtrlSetData ( $strInternetIP, $asResult[0] )
EndIf
 
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
If GUICtrlRead($Checkbox[3])=1 Then
	GUISetOnEvent($GUI_EVENT_CLOSE, "_WinMinimize")
Else
	GUISetOnEvent($GUI_EVENT_CLOSE, "_Quit")
EndIf
If GUICtrlRead($Checkbox[2])=1 Then
	_WinMinimize()
EndIf
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_WinMinimize")
For $i=0 To 2
	GUICtrlSetOnEvent($Button[$i], "_btnEvent")
Next
For $i=0 To 3
	GUICtrlSetOnEvent($Checkbox[$i], "_cbEvent")
Next
;======释放内存======
_ReduceMemory(@AutoItPID)
_FirstRun()
 
While 1
	$oldIP = GUICtrlRead( $strInternetIP )
	$asResult = fn_GetWanIP($sInfoSource)
	If Not IsArray($asResult) Then
		GUICtrlSetData ( $strInternetIP, "unknown ip" )
	Else
		GUICtrlSetData ( $strInternetIP, $asResult[0] )
	EndIf
	;MsgBox (0,"",$strInIP )
	GUICtrlSetData ( $strInsideIP, $strInIP )
	If GUICtrlRead($Checkbox[1])=1 Then
		$result = StringCompare($oldIP, GUICtrlRead( $strInternetIP ))		
		$strTime = @YEAR & "年" & @MON & "月" & @MDAY & "日" & @HOUR & "时" & @MIN & "分" & @SEC & "秒"
		If $result <> 0 Then
			$s_FromAddress =  IniRead($strConfigINI, "MailConfig", "FromAddress", "")
			$s_SmtpServer =  IniRead($strConfigINI, "MailConfig", "SmtpServer", "")
			$s_Username =  IniRead($strConfigINI, "MailConfig", "Username", "")
			$s_Password =  _StringEncryptX(0, IniRead($strConfigINI, "MailConfig", "Password", ""), $str_EncryptPassword, 2)
			$s_ToAddress =  IniRead($strConfigINI, "MailConfig", "ToAddress", "")
			$IPPort =  IniRead($strConfigINI, "MailConfig", "IPPort", "")
			$s_Subject =  IniRead($strConfigINI, "MailConfig", "Subject", "") & "-" & $strTime
			$as_Body = "来自计算机【" & @ComputerName & "】" & @CRLF & "用户【" & @UserName & "】" & @CRLF & "获得内网IP地址" & $InsideIPCount & "个：" & @CRLF & GUICtrlRead( $strInsideIP ) & @CRLF & "公网IP：" & GUICtrlRead( $strInternetIP )
			_sendmailFunc()	
			$sendCount = $sendCount + 1
		EndIf
	EndIf
	_TraySetToolTip()
	$SetiTime = IniRead($strConfigINI, "Config", "iTime", "")
	If $SetiTime = "" Then
		$SetiTime = "5"
	EndIf
	_ReduceMemory(@AutoItPID)
	Sleep( $SetiTime * 60000 )
	;MsgBox(0,"","t")
WEnd
 
 
Func _FirstRun()
	GUICtrlSetData ( $strInsideIP, $strInIP )
	If GUICtrlRead($Checkbox[1])=1 Then
		$s_FromAddress =  IniRead($strConfigINI, "MailConfig", "FromAddress", "")
		$s_SmtpServer =  IniRead($strConfigINI, "MailConfig", "SmtpServer", "")
		$s_Username =  IniRead($strConfigINI, "MailConfig", "Username", "")
		$s_Password =  _StringEncryptX(0, IniRead($strConfigINI, "MailConfig", "Password", ""), $str_EncryptPassword, 2)
		$s_ToAddress =  IniRead($strConfigINI, "MailConfig", "ToAddress", "")
		$IPPort =  IniRead($strConfigINI, "MailConfig", "IPPort", "")
		$strTime = @YEAR & "年" & @MON & "月" & @MDAY & "日" & @HOUR & "时" & @MIN & "分" & @SEC & "秒"
		$s_Subject =  IniRead($strConfigINI, "MailConfig", "Subject", "") & "-" & $strTime
		$as_Body = "来自计算机【" & @ComputerName & "】" & @CRLF & "用户【" & @UserName & "】" & @CRLF & "获得内网IP地址" & $InsideIPCount & "个：" & @CRLF & GUICtrlRead( $strInsideIP ) & @CRLF & "公网IP：" & GUICtrlRead( $strInternetIP )
		_sendmailFunc()	
		$sendCount = $sendCount + 1
	EndIf
	_TraySetToolTip()
	_ReduceMemory(@AutoItPID)
EndFunc
 
;======事件函数======
Func _btnEvent()
	Switch @GUI_CtrlId
		Case $Button[0]
			$s_FromAddress =  IniRead($strConfigINI, "MailConfig", "FromAddress", "")
			$s_SmtpServer =  IniRead($strConfigINI, "MailConfig", "SmtpServer", "")
			$s_Username =  IniRead($strConfigINI, "MailConfig", "Username", "")
			$s_Password =  _StringEncryptX(0, IniRead($strConfigINI, "MailConfig", "Password", ""), $str_EncryptPassword, 2)
			$s_ToAddress =  IniRead($strConfigINI, "MailConfig", "ToAddress", "")
			$IPPort =  IniRead($strConfigINI, "MailConfig", "IPPort", "")
			$strTime = @YEAR & "年" & @MON & "月" & @MDAY & "日" & @HOUR & "时" & @MIN & "分" & @SEC & "秒"
			$s_Subject =  IniRead($strConfigINI, "MailConfig", "Subject", "") & "-" & $strTime
			$as_Body = "来自计算机【" & @ComputerName & "】" & @CRLF & "用户【" & @UserName & "】" & @CRLF & "获得内网IP地址：" & $InsideIPCount & "个" & @CRLF & GUICtrlRead( $strInsideIP ) & @CRLF & "公网IP：" & GUICtrlRead( $strInternetIP )
			;MsgBox(0,"",$as_Body)
			_sendmailFunc()
			$sendCount = $sendCount + 1
			_TraySetToolTip()
		Case $Button[1]
			IniWrite($strConfigINI, "MailConfig", "FromAddress", "")
			IniWrite($strConfigINI, "MailConfig", "SmtpServer", "")
			IniWrite($strConfigINI, "MailConfig", "Username", "")
			IniWrite($strConfigINI, "MailConfig", "Password", "")
			IniWrite($strConfigINI, "MailConfig", "ToAddress", "")
			IniWrite($strConfigINI, "MailConfig", "IPPort", "")
			IniWrite($strConfigINI, "MailConfig", "Subject", "")
			IniWrite($strConfigINI, "Config", "iTime", "")
			GUICtrlSetData ( $inputFromAddress, "" )
			GUICtrlSetData ( $inputSmtpServer, "" )
			GUICtrlSetData ( $inputIPPort, "" )
			GUICtrlSetData ( $inputUsername, "" )
			GUICtrlSetData ( $inputPassword, "" )
			GUICtrlSetData ( $inputToAddress, "" )
			GUICtrlSetData ( $inputSubject, "" )
			GUICtrlSetData ( $inputTime, "" )
 
			IniWrite($strConfigINI,"Config","AutoStart","0")
			RegDelete("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","IPMon_C")
 
			IniWrite($strConfigINI,"Config","AutoMon","0")
 
			IniWrite($strConfigINI,"Config","StartToMin","0")
 
			IniWrite($strConfigINI,"Config","CloseToMin","0")
		Case $Button[2]
			IniWrite($strConfigINI, "MailConfig", "FromAddress", GUICtrlRead( $inputFromAddress ))
			IniWrite($strConfigINI, "MailConfig", "SmtpServer", GUICtrlRead( $inputSmtpServer ))
			IniWrite($strConfigINI, "MailConfig", "Username", GUICtrlRead( $inputUsername ))
			If $SetPassword <> GUICtrlRead( $inputPassword ) Then
				IniWrite($strConfigINI, "MailConfig", "Password", _StringEncryptX(1, GUICtrlRead( $inputPassword ), $str_EncryptPassword, 2))
			Else
				IniWrite($strConfigINI, "MailConfig", "Password",GUICtrlRead( $inputPassword ))
			EndIf
			IniWrite($strConfigINI, "MailConfig", "ToAddress", GUICtrlRead( $inputToAddress ))
			IniWrite($strConfigINI, "MailConfig", "IPPort", GUICtrlRead( $inputIPPort ))
			IniWrite($strConfigINI, "MailConfig", "Subject", GUICtrlRead( $inputSubject ))
			IniWrite($strConfigINI, "Config", "iTime", GUICtrlRead( $inputTime ))
	EndSwitch
EndFunc
 
Func _cbEvent()
	Switch @GUI_CtrlId
		Case $Checkbox[0]
			If GUICtrlRead($Checkbox[0])=1 Then
				IniWrite($strConfigINI,"Config","AutoStart","1")
				RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","IPMon_C","REG_SZ",@ScriptFullPath)
				If RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","IPMon_C") <> @ScriptFullPath Then
					GUICtrlSetState($Checkbox[0],$GUI_UNCHECKED)
					IniWrite($strConfigINI,"Config","AutoStart","0")
				EndIf
			Else
				IniWrite($strConfigINI,"Config","AutoStart","0")
				RegDelete("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","IPMon_C")
			EndIf
		Case $Checkbox[1]
			If GUICtrlRead($Checkbox[1])=1 Then
				IniWrite($strConfigINI,"Config","AutoMon","1")
				_FirstRun()
				TraySetToolTip("正在监控 - 已发送邮件" & $sendCount & "次." & @CRLF & "最后一次监控时间：" & $strTime)
				_GUICtrlStatusBar_SetText($StatusBar1, "最后监控时间：" & $strTime, 0)
			Else
				IniWrite($strConfigINI,"Config","AutoMon","0")
				TraySetToolTip("停止监控 - 已发送邮件" & $sendCount & "次。" & @CRLF & "最后一次监控时间：" & $strTime)
				_GUICtrlStatusBar_SetText($StatusBar1, "最后监控时间：" & $strTime, 0)
			EndIf
		Case $Checkbox[2]
			If GUICtrlRead($Checkbox[2])=1 Then
				IniWrite($strConfigINI,"Config","StartToMin","1")
			Else
				IniWrite($strConfigINI,"Config","StartToMin","0")
			EndIf
		Case $Checkbox[3]
			If GUICtrlRead($Checkbox[3])=1 Then
				GUISetOnEvent($GUI_EVENT_CLOSE, "_WinMinimize")
				IniWrite($strConfigINI,"Config","CloseToMin","1")
			Else
				GUISetOnEvent($GUI_EVENT_CLOSE, "_Quit")
				IniWrite($strConfigINI,"Config","CloseToMin","0")
			EndIf
	EndSwitch
EndFunc
 
Func _TraySetToolTip()
	If GUICtrlRead($Checkbox[1])=1 Then
		TraySetToolTip("正在监控 - 已发送邮件" & $sendCount & "次。" & @CRLF & "最后一次监控时间：" & $strTime)
		_GUICtrlStatusBar_SetText($StatusBar1, "最后监控时间：" & $strTime, 0)
	Else
		TraySetToolTip("停止监控 - 已发送邮件" & $sendCount & "次。" & @CRLF & "最后一次监控时间：" & $strTime)		
		_GUICtrlStatusBar_SetText($StatusBar1, "最后监控时间：" & $strTime, 0)
	EndIf
EndFunc
 
Func _sendmailFunc()
	If GUICtrlRead( $inputFromAddress ) <> "" And GUICtrlRead( $inputSmtpServer ) <> "" And GUICtrlRead( $inputUsername ) <> "" And GUICtrlRead( $inputPassword ) <> "" And GUICtrlRead( $inputToAddress ) <> "" And GUICtrlRead( $inputIPPort ) <> "" And GUICtrlRead( $inputSubject ) <> "" Then
		sendmail ()
	Else
		MsgBox(0+16+262144, $strName, "未配置“邮件发送设置”！")
	EndIf
EndFunc
 
;======最小化====== 
Func _WinMinimize()    ;窗口最小化隐藏操作
    TrayTip("提示","监控正在运行，双击此图标显示监视界面！",10,1)
    GUISetState(@SW_HIDE)
	_ReduceMemory(@AutoItPID)
;~     AdlibEnable("DSTask", 1000)
EndFunc
 
;======恢复======
Func _WinRestore()        ;窗口恢复还原操作
	TrayItemSetState ( $TrayShow, $TRAY_UNCHECKED)
    GUISetState(@SW_SHOW)
    GUISetState(@SW_RESTORE)
    if WinActive($strPorgameName)=0 Then WinActivate($strPorgameName)
	_ReduceMemory(@AutoItPID)
EndFunc ;==> kcWinRestore
 
;======显示主界面======
Func _ShowMain()
	_WinRestore()
EndFunc
 
;======退出======
Func _Quit()
	Exit
EndFunc 
 
;======邮件发送======
Func sendmail()
        Global $oMyRet[2]
        Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
        $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
			;MsgBox(0+16+262144, $strName, "邮件发送失败，错误代号:" & @error & @CRLF & "描述:" & $rc)
			_Log(@error,$rc)
        EndIf
EndFunc   ;==>sendmail
 
;======日志记录======
Func _Log($strErr,$strDes)
	$srtFile = FileOpen($LogFile, 10)
	FileWrite($srtFile,"On " & @YEAR & "年" & @MON & "月" & @MDAY & "日" & @HOUR & "时" & @MIN & "分" & @SEC & "秒" & @CRLF & "邮件发送失败，错误代号:" & $strErr & @CRLF & "描述:" & $strDes)
	FileClose($srtFile)
EndFunc	
 
;======内存释放======
Func _ReduceMemory($i_PID = -1);内存释放函数 该函数抄自ACN论坛(http://autoit.net.cn)
    If $i_PID <> -1 Then
        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])
    Else
        Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
    EndIf
    Return $ai_Return[0]
EndFunc   ;==>_ReduceMemory 
 
 
;======密码加密======
Func _StringEncryptX($i_Encrypt, $s_EncryptText, $s_EncryptPassword, $i_EncryptLevel = 1)
        If $i_Encrypt <> 0 And $i_Encrypt <> 1 Then
                SetError(1)
                Return ''
        ElseIf $s_EncryptText = '' Or $s_EncryptPassword = '' Then
                SetError(1)
                Return ''
        Else
                If Number($i_EncryptLevel) <= 0 Or Int($i_EncryptLevel) <> $i_EncryptLevel Then $i_EncryptLevel = 1
                Local $v_EncryptModified, $i_EncryptCountH, $i_EncryptCountG, $v_EncryptSwap, $av_EncryptBox[256][2]
                Local $i_EncryptCountA, $i_EncryptCountB, $i_EncryptCountC, $i_EncryptCountD, $i_EncryptCountE
                Local $v_EncryptCipher, $v_EncryptCipherBy
                If $i_Encrypt = 1 Then
                        For $i_EncryptCountF = 0 To $i_EncryptLevel Step 1
                                $i_EncryptCountG = ''
                                $i_EncryptCountH = ''
                                $v_EncryptModified = ''
                                For $i_EncryptCountG = 1 To StringLen($s_EncryptText)
                                        If $i_EncryptCountH = StringLen($s_EncryptPassword) Then
                                                $i_EncryptCountH = 1
                                        Else
                                                $i_EncryptCountH += 1
                                        EndIf
                                        $v_EncryptModified = $v_EncryptModified & ChrW(BitXOR(AscW(StringMid($s_EncryptText, $i_EncryptCountG, 1)), AscW(StringMid($s_EncryptPassword, $i_EncryptCountH, 1)), 255))
                                Next
                                $s_EncryptText = $v_EncryptModified
                                $i_EncryptCountA = ''
                                $i_EncryptCountB = 0
                                $i_EncryptCountC = ''
                                $i_EncryptCountD = ''
                                $i_EncryptCountE = ''
                                $v_EncryptCipherBy = ''
                                $v_EncryptCipher = ''
                                $v_EncryptSwap = ''
                                $av_EncryptBox = ''
                                Local $av_EncryptBox[256][2]
                                For $i_EncryptCountA = 0 To 255
                                        $av_EncryptBox[$i_EncryptCountA][1] = AscW(StringMid($s_EncryptPassword, Mod($i_EncryptCountA, StringLen($s_EncryptPassword)) + 1, 1))
                                        $av_EncryptBox[$i_EncryptCountA][0] = $i_EncryptCountA
                                Next
                                For $i_EncryptCountA = 0 To 255
                                        $i_EncryptCountB = Mod(($i_EncryptCountB + $av_EncryptBox[$i_EncryptCountA][0] + $av_EncryptBox[$i_EncryptCountA][1]), 256)
                                        $v_EncryptSwap = $av_EncryptBox[$i_EncryptCountA][0]
                                        $av_EncryptBox[$i_EncryptCountA][0] = $av_EncryptBox[$i_EncryptCountB][0]
                                        $av_EncryptBox[$i_EncryptCountB][0] = $v_EncryptSwap
                                Next
                                For $i_EncryptCountA = 1 To StringLen($s_EncryptText)
                                        $i_EncryptCountC = Mod(($i_EncryptCountC + 1), 256)
                                        $i_EncryptCountD = Mod(($i_EncryptCountD + $av_EncryptBox[$i_EncryptCountC][0]), 256)
                                        $i_EncryptCountE = $av_EncryptBox[Mod(($av_EncryptBox[$i_EncryptCountC][0] + $av_EncryptBox[$i_EncryptCountD][0]), 256)][0]
                                        $v_EncryptCipherBy = BitXOR(AscW(StringMid($s_EncryptText, $i_EncryptCountA, 1)), $i_EncryptCountE)
                                        $v_EncryptCipher &= Hex($v_EncryptCipherBy, 2)
                                Next
                                $s_EncryptText = $v_EncryptCipher
                        Next
                Else
                        For $i_EncryptCountF = 0 To $i_EncryptLevel Step 1
                                $i_EncryptCountB = 0
                                $i_EncryptCountC = ''
                                $i_EncryptCountD = ''
                                $i_EncryptCountE = ''
                                $v_EncryptCipherBy = ''
                                $v_EncryptCipher = ''
                                $v_EncryptSwap = ''
                                $av_EncryptBox = ''
                                Local $av_EncryptBox[256][2]
                                For $i_EncryptCountA = 0 To 255
                                        $av_EncryptBox[$i_EncryptCountA][1] = AscW(StringMid($s_EncryptPassword, Mod($i_EncryptCountA, StringLen($s_EncryptPassword)) + 1, 1))
                                        $av_EncryptBox[$i_EncryptCountA][0] = $i_EncryptCountA
                                Next
                                For $i_EncryptCountA = 0 To 255
                                        $i_EncryptCountB = Mod(($i_EncryptCountB + $av_EncryptBox[$i_EncryptCountA][0] + $av_EncryptBox[$i_EncryptCountA][1]), 256)
                                        $v_EncryptSwap = $av_EncryptBox[$i_EncryptCountA][0]
                                        $av_EncryptBox[$i_EncryptCountA][0] = $av_EncryptBox[$i_EncryptCountB][0]
                                        $av_EncryptBox[$i_EncryptCountB][0] = $v_EncryptSwap
                                Next
                                For $i_EncryptCountA = 1 To StringLen($s_EncryptText) Step 2
                                        $i_EncryptCountC = Mod(($i_EncryptCountC + 1), 256)
                                        $i_EncryptCountD = Mod(($i_EncryptCountD + $av_EncryptBox[$i_EncryptCountC][0]), 256)
                                        $i_EncryptCountE = $av_EncryptBox[Mod(($av_EncryptBox[$i_EncryptCountC][0] + $av_EncryptBox[$i_EncryptCountD][0]), 256)][0]
                                        $v_EncryptCipherBy = BitXOR(Dec(StringMid($s_EncryptText, $i_EncryptCountA, 2)), $i_EncryptCountE)
                                        $v_EncryptCipher = $v_EncryptCipher & ChrW($v_EncryptCipherBy)
                                Next
                                $s_EncryptText = $v_EncryptCipher
                                $i_EncryptCountG = ''
                                $i_EncryptCountH = ''
                                $v_EncryptModified = ''
                                For $i_EncryptCountG = 1 To StringLen($s_EncryptText)
                                        If $i_EncryptCountH = StringLen($s_EncryptPassword) Then
                                                $i_EncryptCountH = 1
                                        Else
                                                $i_EncryptCountH += 1
                                        EndIf
                                        $v_EncryptModified &= ChrW(BitXOR(AscW(StringMid($s_EncryptText, $i_EncryptCountG, 1)), AscW(StringMid($s_EncryptPassword, $i_EncryptCountH, 1)), 255))
                                Next
                                $s_EncryptText = $v_EncryptModified
                        Next
                EndIf
                Return $s_EncryptText
        EndIf
EndFunc   ;==>_StringEncryptX
 
 
Func _NetworkAdapterInfo()
;======================================================
;
; 函数名称:        _NetworkAdapterInfo()
; 详细信息:        获取系统所有网卡信息
; 返回值说明:
; 以二维数组方式返回.例如 $info=_NetworkAdapterInfo()
; $info[0][0] 网卡数量
; $info[1][0] 第一块网卡的标志1
; $info[1][1] 第一块网卡的状态 
; 状态说明：;Case 0 strConnStatus = "Disconnected"
			;Case 1 strConnStatus = "Connecting"
			;Case 1 strConnStatus = "connected"
			;Case 3 strConnStatus = "Disconnecting"
			;Case 4 strConnStatus = "Hardware not present"
			;Case 5 strConnStatus = "Hardware disabled"
			;Case 6 strConnStatus = "Hardware malfunction"
			;Case 7 strConnStatus = "Media disconnected"
			;Case 8 strConnStatus = "Authenticating"
			;Case 9 strConnStatus = "Authentication succeeded"
			;Case 10 strConnStatus = "Authentication failed"
			;Case 11 strConnStatus = "Invalid address"
			;Case 12 strConnStatus = "Connecting"
			;Case Else strConnStatus = "Credentials required"
; $info[1][2] 第一块网卡的网卡名称
; $info[1][3] 第一块网卡的连接名称
; $info[1][4] 第一块网卡的MAC地址
; $info[1][5] 第一块网卡的IP地址
; $info[1][6] 第一块网卡的默认网关
; $info[1][7] 第一块网卡的子网掩码
; $info[1][8] 第一块网卡的主DNS
; $info[1][9] 第一块网卡的次DNS
; 第二块网卡：
; $info[2][0] 第二块网卡的标志1
; $info[2][9] 第二块网卡的次DNS
 
; 其他网卡信息依次类推。。。
; 注意，此UDF不会获取已经禁用的网卡。
; 作者:      Sanhen ([email]gxbeiliu@163.com[/email])
; 网站: [url]www.lunhui.net.cn[/url]  [url]www.autoit.net.cn[/url]
;======================================================
        Local $colItem
        Local $objItem
        Local $colItems 
        Local $objItems
        Local $objWMIService 
        Local $Adapters[1][10]
        $Adapters[0][0] = 0
        $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
        $colItem  = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionStatus = 2", "WQL", 0x30)
        If IsObj($colItem) Then
				For $objItem In $colItem
                        If $objItem.MACAddress = "00:00:00:00:00:00" Then ContinueLoop
                        $Adapters[0][0] += 1
                        ReDim $Adapters[UBound($Adapters) + 1][10]
                        $Adapters[$Adapters[0][0]][0] += $Adapters[0][0]
                        $Adapters[$Adapters[0][0]][1] = $objItem.NetConnectionStatus
                        $Adapters[$Adapters[0][0]][2] = $objItem.Description
                        $Adapters[$Adapters[0][0]][3] = $objItem.NetConnectionID
                        $Adapters[$Adapters[0][0]][4] = $objItem.MACAddress     
                        $colItems  = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration WHERE MACAddress = "'&$Adapters[$Adapters[0][0]][4]&'" And IPEnabled != 0 ' , "WQL", 0x30)                                             
                        If IsObj($colItems) Then
                                For $objItems In $colItems
                                        ;if $objItem1.IPAddress(0) = "0.0.0.0" Then ContinueLoop
                                        $Adapters[$Adapters[0][0]][5] = $objItems.IPAddress(0)
                                        $Adapters[$Adapters[0][0]][6] = $objItems.DefaultIPGateway(0)
                                        $Adapters[$Adapters[0][0]][7] = $objItems.IPSubnet(0)
                                        $Adapters[$Adapters[0][0]][8] = $objItems.DNSServerSearchOrder(0)
										If UBound($objItems.DNSServerSearchOrder)=1 Then
											$Adapters[$Adapters[0][0]][9] = "0"
										Else
											$Adapters[$Adapters[0][0]][9] = $objItems.DNSServerSearchOrder(1)
										EndIf
										;$Adapters[$Adapters[0][0]][9] = $objItems.DNSServerSearchOrder(1)
										;$i=1
										;$dnsnum = UBound($objItems.DNSServerSearchOrder)-1
										;$dnss= ""
										;MsgBox(0,"","网卡型号=" &  $objItem.Description & @crlf & $dnsnum)
										;For $i=0 To $dnsnum
										;	$dns = $objItems.DNSServerSearchOrder($i)
										;	$dnss = $dnss & $dns & "/"
										;	$Adapters[$Adapters[0][0]][8] = StringTrimRight($dnss, 1)
										;Next
                                Next    
                        EndIf
                Next
        EndIf
 
Return $Adapters
 
EndFunc
 
; ===============================================================================================================================
; 函数名称: fn_GetWanIP
; 函数环境: AutoIt3 v3.3.6.1
; 函数版本: 1.1.0 Build 20110316
; 函数说明: 跟据参数,选择从不同的信息渠道获取外网IP地址
; 函数语法: fn_GetWanIP($sInfoSource, $sTempDir, $sTempFile)
; 参数说明: $sInfoSource        ——        信息源标识/标号
;                   |1                        ——        信息源标号,选择信息源：                        http://www.ip138.com/ip2city.asp
;                   |2                        ——        信息源标号,选择信息源：                         http://www.whatismyip.com/automation/n09230945.asp
;                   |3                        ——        信息源标号,选择信息源：                         http://www.aamailsoft.com/getip.php
;                   |4                        ——        信息源标号,选择信息源：                         http://checkip.dyndns.org/
;                   |5                        ——        信息源标号,选择信息源：                         http://www.geobytes.com/IpLocator.htm
;                   |6                        ——        (默认)信息源标号,选择信息源：        http://ip.qq.com/cgi-bin/index
;                   |7                        ——        信息源标号,选择信息源：                         http://www.123cha.com/ip/
;                                |8                        ——        信息源标号,选择信息源：                         http://ip.91cool.net/ip.php
;                   
;                   |ip138                ——        信息源标识,选择信息源：                        http://www.ip138.com/ip2city.asp
;                   |whatismyip        ——        信息源标识,选择信息源：                         http://www.whatismyip.com/automation/n09230945.asp
;                   |aamailsoft        ——        信息源标识,选择信息源：                         http://www.aamailsoft.com/getip.php
;                   |dyndns                ——        信息源标识,选择信息源：                         http://checkip.dyndns.org/
;                   |geobytes        ——        信息源标识,选择信息源：                         http://www.geobytes.com/IpLocator.htm
;                   |qq                        ——        信息源标识,选择信息源：                         http://ip.qq.com/cgi-bin/index
;                   |123cha                ——        信息源标识,选择信息源：                         http://www.123cha.com/ip/
;                   |91cool                ——        信息源标识,选择信息源：                         http://ip.91cool.net/ip.php
;                   
;           $iMode                        ——        是否只使用指定的信息源获取IP地址(1 = yes|0(默认) = no)
;           $sTempDir                ——        参数已取消，保留此参数格式只为了兼容旧版本函数
;           $sTempFile                ——        参数已取消，保留此参数格式只为了兼容旧版本函数
; 返 回 值: 返回一个数组：
;                                        第一个元素($array[0])保存外网IP地址，获取失败返回 "0.0.0.0"
;                                        第二个元素($array[1])保存外网IP地址所在的物理地址，获取失败返回空字符
;                                        第三个元素($array[2])保存信息来源地址，获取失败返回空字符
; 函数作者: easefull
; 创建日期: 2009-12-31
; 更新日期: 2011-03-16
; 函数改良: 
; 修改说明: 
; 相关函数: 
; 链接网页: 
; 函数示例: 
;           Example 1: 
;           #include 
;           $Array = fn_GetWanIP()
;           _ArrayDisplay($Array)
;           
;           Example 2: 
;           #include 
;           $iInfoSource = 1
;           $Array = fn_GetWanIP($iInfoSource)
;           _ArrayDisplay($Array)
;           
;           Example 3: 
;           #include 
;           $sInfoSource = "ip138"
;           $Array = fn_GetWanIP($sInfoSource)
;           _ArrayDisplay($Array)
;           
;           Example 4: 
;           #include 
;           $iInfoSource = "ip138"
;           $iMode = 1
;           $Array = fn_GetWanIP($iInfoSource, $iMode)
;           _ArrayDisplay($Array)
; ===============================================================================================================================
Func fn_GetWanIP($sInfoSource = 6, $iMode = 0, $sTempDir = "", $sTempFile = "")
        ;=================================================
        ; 定义局部变量
        ; $sURL                                ——        储存 IP获取页面URL(Key)
        ; $asURL                        ——        储存 IP获取页面URL(数组)
        ; $asResult                        ——        储存 外网IP地址和物理地址
        ; $nIndex                        ——        储存 可获取的信息源数量
        ; $iStep                        ——        储存 信息标识累加器
        ; $sHTML                        ——        储存 下载页面内容
        ; $asIP[0]                        ——        中转变量 匹配的正则返回值
        ;=================================================
        Local $sURL = @CR & _
        "http://www.ip138.com/ip2city.asp" & @CR & _
        "http://www.whatismyip.com/automation/n09230945.asp" & @CR & _
        "http://www.aamailsoft.com/getip.php" & @CR & _
        "http://checkip.dyndns.org/" & @CR & _
        "http://www.geobytes.com/IpLocator.htm" & @CR & _
        "http://ip.QQ.com/cgi-bin/index" & @CR & _
        "http://www.123cha.com/ip/" & @CR & _
        "http://ip.91cool.net/ip.php" & @CR
        Local $asURL  = StringRegExp($sURL, '(?<=\r)[\S]+(?=\r)', 3)
        Local $nIndex = UBound($asURL), $iStep = 0, $iMark
        Local $asResult[3], $sHTML, $asIP[1]
        ;=================================================
        ; 检查参数，防止意外错误
        ;=================================================
        ; 格式化参数 信息源标识
        ;=================================================
        If StringIsDigit($sInfoSource) = 0 Or $sInfoSource > $nIndex Or $sInfoSource < 0 Then
                For $i = 0 To $nIndex - 1 Step 1
                        $asIP = StringRegExp($asURL[$i], '(?<=\.)\w+(?=\.)', 1)
                        If $sInfoSource == $asIP[0] Then
                                $sInfoSource = $i + 1
                                ExitLoop
                        EndIf
                Next
                If StringIsDigit($sInfoSource) = 0 Or $sInfoSource > $nIndex Or $sInfoSource < 0 Then $sInfoSource = 6
        EndIf
        ;=================================================
        ; 使用机械指针结构,从不同信息点循环获取IP信息
        ;=================================================
        Do
                ;=================================================
                ; 从指定的信息源获取信息
                ;=================================================
                $sHTML = BinaryToString(InetRead($asURL[$sInfoSource - 1], 1))
                $asIP  = StringRegExp($sHTML, '(((25[0-5]|2[0-4]\d|[01]?\d?\d)\.){3}(25[0-5]|2[0-4]\d|[01]?\d?\d))', 1)
                ;=================================================
                ; 如果成功获取信息
                ;=================================================
                If Not @error Then
                        ;=================================================
                        ; 保存 IP地址
                        ;=================================================
                        $asResult[0] = $asIP[0]
                        ;=================================================
                        ; 获取 信息来源地址
                        ;=================================================
                        $asIP        = StringRegExp($asURL[$sInfoSource - 1], '(?<=\.)\w+\.\w+(?=\/)', 1)
                        If Not @error Then $asResult[2] = $asIP[0]
                        ;=================================================
                        ; 获取 IP所在的物理地址
                        ;=================================================
                        If $sInfoSource <> 6 And $sInfoSource <> 8 Then
                                ;=================================================
                                ; 信息源不提供物理地址的将从第6信息源获取物理地址
                                ;=================================================
                                $sInfoSource = 6
                                $sHTML = BinaryToString(InetRead($asURL[$sInfoSource - 1], 1))
                        EndIf
                        Select
                                Case $sInfoSource = 6
                                        $asIP = StringRegExp($sHTML, '(?<=)[^<]+(?=
)', 1)
                                        If Not @error Then $asResult[1] = StringRegExpReplace($asIP[0], ' ', '')
                                Case $sInfoSource = 8
                                        $asIP = StringRegExp($sHTML, '(?<=来自)[^"]+(?=")', 1)
                                        If Not @error Then $asResult[1] = $asIP[0]
                        EndSelect
                EndIf
                ;=================================================
                ; 机械指针计算
                ; 继续循环查找IP
                ;=================================================
                $iStep += 1
                $sInfoSource = $sInfoSource + $iStep
                If $sInfoSource > $nIndex Then $sInfoSource -= $nIndex
        Until $asResult[0] Or $iMode Or $iStep = $nIndex
        ;=================================================
        ; 返回执行结果
        ;=================================================
        If Not $asResult[0] Then $asResult[0] = "0.0.0.0"
        Return($asResult)
EndFunc   ;==>fn_GetWanIP

SmtpMailer.au3

查看代码 AUTOIT

#Include <file.au3>
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
;~ $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
;~    MsgBox(0, "Error sending message", "Error code:" & @error & "    Description:" & $rc)
;~ EndIf
;
 
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()
    $HexNumber = 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

掌握win7的快捷键，没有鼠标您也从容使用系统。

Clang — Sun, 10 Jul 2011 14:32:25 +0000

一、Win键相关的快捷键
Win + Home 将所有使用中窗口以外的窗口最小化（和摇动使用中窗口一样意思）
Win + Space空格键将所有桌面上的窗口透明化（和鼠标移到工作列的最右下角一样意思）
Win + ↑上方向键最大化使用中窗口（和将窗口用鼠标拖到屏幕上缘一样意思）
Shift + Win + ↑上方向键垂直最大化使用中窗口（但水平宽度不变）
Win +↓下方向键最小化窗口／还原先前最大化的使用中窗口
Win +左／右方向键窗口靠到屏幕的左右两侧（和将窗口用鼠标拖到左右边缘一样意思）
Shift + Win +左/右方向键将窗口移到左、右屏幕（如果你有接双屏幕的话）工作列快速列
Win + 1~9 开启工作列上相对应的软件，从左到右依顺序为Win+1到Win+9
Shift + Win + 1~9 开启对应位置软件的一个新「分身」，例如firefox的话会是开新窗口（鼠标是Shift+点软件）
Ctrl + Win + 1~9 在对应位置软件已开的分身中切换
Alt + Win + 1~9 开启对应位置软件的右键选单
Ctrl + Shift + 鼠标点软件以管理员权限开启该软件
WIN +点击任务栏快捷方式在此程序中新建一个实例
Win + (+/-)：　　　　　　打开Windows放大、缩小功能
Win + G 在屏幕上的Gadget间切换
Win + X 打开移动中心
Win + D 显示桌面，最小化所有窗口
Win + E 打开资源管理器
Win + F 打开资源管理器搜索结果
Win + L 锁定计算机，回到登陆窗口
Win + M 最小化当前窗口
Win + P 投影机输出设定（仅屏幕、同步显示、延伸、仅投影机）
Win + R 打开运行窗口
Win + T 工作列的Alt+Tab
Win + U 打开控制面板轻松访问中心
Win + Break 打开控制面板系统属性
Win + Tab 打开Flip3D任务切换功能

二、Windows基础快捷键
F1 帮助
Ctrl+C ( Ctrl+Insert) 复制选中项目
Ctrl+X 剪切选中项目
Ctrl+V ( Shift+Insert) 粘贴选中项目
Ctrl+Z 撤销
Ctrl+Y 重做
Delete ( Ctrl+D) 删除选中项目至回收站
Shift+Delete 直接删除选中项目
F2 重命名选中项目
Ctrl+A 全选
F3 搜索
Alt+Enter 显示选中项目属性
Alt+F4 关闭当前项目或退出当前程序
Alt+空格打开当前窗口的快捷方式菜单
Alt+Tab 在当前运行的窗口中切换
Ctrl+Alt+Tab 使用方向键在当前运行的窗口中切换
Ctrl+滚轮改变桌面图标大小
win+Tab 开启Aero Flip 3-D
Ctrl+win +Tab 使用方向键在Aero Flip 3D程序中切换
Alt+Esc 在当前打开的程序间切换
F4 显示资源管理器的地址栏列表
Shift+F10 显示选中项目的快捷方式菜单
Ctrl+Esc 打开开始菜单
F10 激活当前窗口的菜单栏
F5 ( Ctrl+R) 刷新
Alt+↑ 资源管理区中返回文件夹的上一级菜单
Esc 取消当前操作
Ctrl+Shift+Esc 打开任务栏管理器
插入光盘时按住Shift 禁止CD/DVD的自动运行
右边或左边的Ctrl+Shift 改变阅读顺序

让wordpress在HTML编辑器下添加链接在新窗口中打开

Clang — Sun, 03 Jul 2011 13:36:01 +0000

一直都在用wordpress的HTML编辑器，经常要添加链接，可是HTML编辑器里的添加链接按钮并没有“在另一窗口打开”这一选项。于是修改其js源码解决之。
方法如下：
打开wp-includes/js/quicktags.js，查找

查看代码 JAVASCRIPT

1	if(a){edButtons[c].tagStart='+a+'">';

修改为：

查看代码 JAVASCRIPT

1	if(a){edButtons[c].tagStart='+a+'" target="_blank">';

Forefront TMG 2010 导入ISA策略

Clang — Tue, 28 Jun 2011 02:02:25 +0000

一、ISA 2004/2006 标谁版策略导入到TMG 2010 (未安装企业服务管理器)，可直接导入（要注意的是：导出时要先择导出机密信息和用户权限设定）

二、ISA 2004/2006 企业版策略导入到TMG 2010 (安装企业服务管理器)，可直接导入（要注意的是：策略导出时要从企业的根位置导出，且导出时要先择导出机密信息和用户权限设定）

三、ISA 2004/2006 企业版策略导入到TMG 2010 (未安装企业服务管理器)，使用工具”EESingleServerConversionPack.exe”转换ISA2004/2006导出的删策略，然后再导入。

注意：

1、如果源服务器名称或IP地址与目标服务器名称或IP地址不一样时，需要将ISA导出的“.xml”文件中源服务器名称或IP地址更改为目标服务器名称或IP地址后方可导入。

2、如果TMG 2010未开启WEB缓存需要将ISA导出的“.xml”文件中

查看代码 XML

1	StorageName="Servers" StorageType="1">

的值由“1”改为“0”,后方可导入。

3、EESingleServerConversionPack.exe工具由微软官方网站下载，地址为：
http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=8809cfda-2ee1-4e67-b993-6f9a20e08607

工具的使用方法为：

EESingleServerConversionPack.ex /s 源文件路径\文件名 /t 目标文件路径\文件名 /v

如果在windows 2008/vista/7 下执行，请确认命令界面是使用管理员方式执行的。

转自：WinOS-专注微软ITPro技术

Forefront TMG 2010 工作组和域考虑事项

Clang — Mon, 04 Apr 2011 12:03:46 +0000

一般考虑事项

在选择域部署或工作组部署时，应当考虑以下事项：

工作组环境中的企业部署和阵列部署要求执行在域环境中并非必需的额外准备步骤，而且需要在 Forefront TMG 计算机上维护镜像环境来用于管理目的。
工作组环境中不支持 EMS 复制。
工作组环境中不支持自动检测 Web 代理。有关信息，请参阅有关 Web 代理的自动检测规划。
在工作组环境中，必须在 Forefront TMG 计算机上安装服务器证书。有关详细信息，请参阅服务器证书规划。
可以配置 VPN 客户端用户映射，将非 Microsoft Windows 操作系统用户映射到域用户帐户。仅当域中安装了 Forefront TMG 时才支持用户映射。
在域中，可以使用组策略来锁定 Forefront TMG 服务器，而不是通过仅配置本地策略来将其锁定。
在域环境中，如果 Active Directory 域服务 (AD DS) 遭到破坏（例如受到内部攻击），则防火墙也可能会遭到破坏，这是因为具有域管理员权限的用户可以管理每个域成员（包括运行 Forefront TMG 的服务器）。同样，如果防火墙遭到破坏，则 Forefront TMG 所在的域也存在风险。默认情况下，Domain Admins 组位于 Forefront TMG 服务器的 Administrators 组中。

网络拓扑注意事项

Forefront TMG 通常用在下面的网络拓扑配置中：

边缘配置
- Forefront TMG 保护边缘，一个适配器连接到内部网络，另一个适配器连接到外部网络。
- 后端到后端配置，使用 Forefront TMG 作为前端防火墙保护边缘，一个适配器连接到外部网络，一个适配器连接到外围网络。在外围网络和内部网络之间配置后端防火墙（可以是 Forefront TMG 或第三方产品）。
- 三向配置，Forefront TMG 配置有三个网络适配器，分别连接到内部网络、外部网络和外围网络。
在边缘，可以在工作组模式下或以域成员身份安装 Forefront TMG。以域成员身份安装时，建议在单独的林（而不是在公司网络的内部林）中安装 Forefront TMG，该林具有与公司林的单向信任关系。这样有助于防止内部林的安全性受到威胁，即使攻击针对的是 Forefront TMG 计算机的林也是如此。但是，此部署方式存在一些限制；例如，只能为 Forefront TMG 域中定义的用户配置客户端证书身份验证，而不能为公司内部域或林中的用户进行配置。
内部配置
- Forefront TMG 在后端到后端方案中的后端。在典型的方案中，一个 Forefront TMG 服务器安装在边缘，另一个 Forefront TMG 服务器安装在后端的典型方案是：以工作组模式安装前端 Forefront TMG 服务器，以域成员身份安装后端服务器。以域成员身份安装后端服务器可让您对请求进行 AD DS 身份验证。另外，还可以使用组策略强化内部 Forefront TMG 计算机以便于管理。
- Forefront TMG 配置了单个网络适配器。在该方案中，Forefront TMG 起到 Web 代理或缓存服务器的作用。在此方案中，以域成员身份安装 Forefront TMG 计算机的主要优势在于便于对用户进行 AD DS 身份验证。

身份验证考虑事项

在选择域部署或工作组部署时，应当考虑以下身份验证问题：

当访问规则要求内部客户端针对出站访问进行身份验证时，Forefront TMG 可以对域用户帐户进行 AD DS 身份验证。可以对工作组环境中的 Web 代理请求进行 RADIUS 服务器身份验证。
防火墙客户端请求自动包括用户凭据。若要验证这些请求，Forefront TMG 应属于一个域。在工作组环境中，可以使用镜像到 Forefront TMG 服务器上本地安全帐户管理器 (SAM) 中存储的帐户的用户帐户来验证请求，但这需要花费一些管理开销进行安全管理。
若要使用域帐户凭据或证书身份验证来验证对内部 Web 服务器的入站请求，Forefront TMG 必须属于一个域。在工作组环境中，RADIUS 或 SecurID 服务器可用于身份验证。
若要使用域帐户凭据或证书来验证虚拟专用网络 (VPN) 请求，Forefront TMG 必须属于一个域。在工作组环境中，RADIUS 服务器可用于身份验证。

墨迹天气

Clang — Sat, 12 Mar 2011 11:36:00 +0000

前一阵用Go天气，现在换成墨迹天气了，感觉非常的漂亮。

Alarm Clock Plus （超级系统闹钟）

Clang — Sun, 06 Mar 2011 10:15:23 +0000

- 完全整合到系统闹钟功能中，可卸载系统自带闹钟，Milestone2 、Droid 2 Global必备完美闹钟增强，完全支持横向坞站功能；
- 可同时设定多个循环闹钟方案（如周一到周五，周六和周日的不同闹钟时间和音乐铃声）；
- 可选MP3及播放列表作为铃声；
- 可以设定音量渐进增强及渐进时长；
- 强大的贪睡功能；
- 强大的闹钟解除功能，包括做数学题解除闹钟；
- 提供快速计时闹钟功能（比如30分钟后、2小时后闹响）。

系统安全锁

Clang — Sun, 06 Mar 2011 10:06:58 +0000

这是一款来自CarrotApp的解锁软件，可以为M9中任何应用程序加上一把安全锁，并可以使用很帅的图形解锁方案。
用它你可以使用图形密码锁定短信，锁定QQ等很多应用。宅男们的救星啊，下次爱机被拿去玩的时候就不怕有秘密泄露啦。

自动任务杀手 Automatic Task Killer

Clang — Sun, 06 Mar 2011 09:58:59 +0000

一款自动在后台清理关闭任务进程的工具。像GoogleReader一样，加个星标，就列入了”自杀黑名单”，哪怕手机进入休眠状态，也照杀不误！