脚本

AutoIt是个很好的脚本工具，具体说明大家可以百度一下

///////////////////////1. 自动备份所选文本的AutoIt脚本

备份一些网页文本、资料等比较省力气，选中文本，按下Win＋S，自动将所选文本追加到制定的文本文件中，然后自动打开编辑器查看。
很简单，懒得多说了，可以根据自己的具体需要修改完善它。
用法：
在Hoekey中添加：
~S=keys|\cc\C
=Run|bak.exe

AutoIt脚本，编译成Bak.exe
#include

;Config
$strTime=_Now()& " 星期" & @WDAY
$strSp = "------------- "& $strTime & " --------------"
$strFile= "G:\Backup\Bak.txt" ;备份到的文本文件
$strEditor="D:\Program Files\EditPlus 2\editplus.exe" ;打开文件所用的编辑器

FileWriteLine($strFile,"")
FileWriteLine($strFile,$strSp)
FileWriteLine($strFile,ClipGet())

Run($strEditor&" "&$strFile)


//////////////////////////2.监测网络是否连通的AutoIt脚本

通过不停ping某个地址，来检测网络是否连通。

如果连通，跳出对话框提示。并且播放声音提醒。

具体可以自己改下，代码在下面：

#include

GUICreate("Checking...",220,20);创建一个进度条窗口
$progressbar = GUICtrlCreateProgress (0,0,220,20)
;GUICtrlSetColor(-1,32250);
GUISetState ()

$i=1 ;进度条前进变量

While 1 ;use infinite loop since ExitLoop will get called
$var = Ping("192.168.0.1",400) ;192.168.0.1代表ping的地址，用来检测网络连接
If $var Then; Ping通则退出循环
ExitLoop
Else ;否则继续ping，并设置进度条
If $i=100 Then
$i=1
EndIf
GUICtrlSetData ($progressbar,$i)
$i=$i+1
EndIf
WEnd

GUIDelete();关掉进度条窗体
Msgbox(0,"Status","Connected",5)
while 1
SoundPlay("ring.wav",1) ;播放声音提醒，ring.wav位于当前目录
WEnd


/////////////////////////3. AutoIt快捷进入QQ设置的脚本

要进入QQ的设置，只能依靠菜单，这一点上十分不方便。

用AutoIt写了个脚本。

基本思路就是监视QQ的菜单消息，获得后然后向其发送。

编译为可执行文件后，可以在Hoekey中制定一个快捷键，例如Win+Q

下面是脚本，很简单：

#include
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)

$hwnd = WinGetHandle("classname=#32770","请输入关键字")
;QQ窗口的句柄，因为很多窗口是#32770，所以用后面这个"请输入关键字"限定是主QQ窗口
_SendMessage($hwnd, 273, 25304,$hwnd)
;用SPY++监视QQ窗口的WM_COMMAND消息，获得wparam和lparm参数

If Not WinActive("QQ2007设置","") Then WinActivate("QQ2007设置","")
WinWaitActive("QQ2007设置","")


///////////////////////4. 调用IP Tools 局域网MAC扫描

Opt("TrayIconHide",1)

Run("F:\Soft\Net\[Anti]\[Tools]\IP Tools\iptools.exe","F:\Soft\Net\[Anti]\[Tools]\IP Tools\")

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)


WinWait("IP Tools 1.89.0.0 By Erwan L.","")
If Not WinActive("IP Tools 1.89.0.0 By Erwan L.","") Then WinActivate("IP Tools 1.89.0.0 By Erwan L.","")
WinWaitActive("IP Tools 1.89.0.0 By Erwan L.","")

;~ MouseMove(200,37)
;~ MouseDown("left")
;~ MouseUp("left")
;~ Sleep(1000)
;~ MouseMove(493,227)
;~ MouseDown("left")
;~ MouseUp("left")
;~ Sleep(1000)
;~ WinWait("Mac Addresses Discovery","")
;~ If Not WinActive("Mac Addresses Discovery","") Then WinActivate("Mac Addresses Discovery","")
;~ WinWaitActive("Mac Addresses Discovery","")
;~ MouseMove(308,58)
;~ MouseDown("left")
;~ MouseUp("left")
;~ Sleep(1000)

;WinMenuSelectItem("Untitled - ", "", "&File", "Page Set&up..." )
;WinMenuSelectItem("IP Tools 1.89.0.0 By Erwan L.","","&Tools","A&RP","A&RP Scan")
WinMenuSelectItem("IP Tools 1.89.0.0 By Erwan L.","","Help","About")