AutoIt 相关范例丨 RAIN MAN

AutoIt 相关范例

案例一

#AutoIt3Wrapper_Icon=D:\SHARE\door.ico ;更换图标
Sleep(1000) ;延迟一秒
ShellExecute("E:\APMServ5.2.6\APMServ.exe", "", "", "runas") ; 请求管理员权限
;Run("E:\APMServ5.2.6\APMServ.exe") ; 普通运行方式

案例二

#AutoIt3Wrapper_Icon=D:\SHARE\door.ico ;更换图标
Sleep(1000) ;延迟一秒
Send("#r") ;开始运行
Sleep(1000)
WinActivate("运行","Windows 将根据您所输入的名称，为您打开相应的程序、文件夹、文档或Internet资源") ;激活窗口设置为焦点窗口
ControlClick("运行","打开","[class:Button;INSTANCE:1]") ;向指定控件发送鼠标点击命令
Send("cmd")
Sleep(1000)
ControlClick("运行","确定","[class:Button;INSTANCE:2]")
;ControlClick("运行","取消","[class:Button;INSTANCE:3]") ;向指定控件发送鼠标点击命令

案例三

#AutoIt3Wrapper_Icon=D:\SHARE\door.ico ;更换图标
Sleep(1000) ;延迟一秒
ShellExecute("E:\JCA\票务管理系统\DoorCtrl.exe", "", "", "runas")
Sleep(1000)
WinActivate("用户登录","Admin") ;激活窗口设置为焦点窗口
;ControlClick("用户登录","","[CLASS:TEdit; INSTANCE:1]") ;向指定控件发送鼠标点击命令
ControlSend("用户登录", "", "TEdit1", "8")
Sleep(1000)
ControlClick('用户登录','','[CLASS:TRzPanel; INSTANCE:1]','left',1,272, 178) ;根据屏幕坐标点击登录按钮
Sleep(1000)
WinActivate("票务管理系统官方正版","")
Sleep(2000)
ControlClick('票务管理系统官方正版','','[CLASS:TToolBar; INSTANCE:1]','left',1,25, 16) ;根据屏幕坐标点击启动监控
Sleep(1000)
;WinSetState("票务管理系统官方正版","","@SW_MINIMIZE") ;最小化

案例四

#include <IE.au3>
#AutoIt3Wrapper_Icon=E:\AUTORUN\ico.ico ;
#AutoIt3Wrapper_UseX64=n

While 1 ;每60分钟执行一次
;获取主机IP
$sUrl = 'http://phpwebhome.com/ip.php'
$oHTTP = ObjCreate('microsoft.xmlhttp')
$oHTTP.Open('get', $sUrl, False)
$oHTTP.Send()
$sText = BinaryToString($oHTTP.responseBody, 4)

If StringRegExp($sText, '\d+\.\d+\.\d+\.\d+$',0) Then
;MsgBox(0,"IP",$sText)
Else
MsgBox(0,"网络错误报告","无法获取外网IP，请检测您的网络。")
$sUrla = 'http://192.168.10.30:2016/dmz.php'
$oHTTPa = ObjCreate('microsoft.xmlhttp')
$oHTTPa.Open('get', $sUrla, False)
$oHTTPa.Send()
$sTexta = BinaryToString($oHTTPa.responseBody, 4)
$errlog=@YEAR & "-" & @MON & "-" & @MDAY & " "& @HOUR & ":" & @MIN & ":" & @SEC & " 无法获取外网IP，请检测您的网络;
"
FileWrite('error.htm', $errlog)
;MsgBox(0,"DMZ",$sTexta)
Exit
EndIf

;获取汇率
$sUrlrate = 'http://phpwebhome.com/rate.php'
$oHTTPrate = ObjCreate('microsoft.xmlhttp')
$oHTTPrate.Open('get', $sUrlrate, False)
$oHTTPrate.Send()
$sTextrate = BinaryToString($oHTTPrate.responseBody, 4)

If $sTextrate<>'' Then

If FileExists(@YEAR&@MON&@MDAY&".htm") Then
Else
FileWrite(@YEAR&@MON&@MDAY&".htm", $sTextrate)
EndIf

EndIf

发送QQ消息
Run('"E:\Program Files\Tencent\QQLite\Bin\QQScLauncher.exe" /uin:QQ号 /quicklunch:D17B0262964CB5B91BDB261A185D5F2F739E0142DD979F1E3BA17B26DD23EDA177105761106F3AD3')
Sleep(5000)
;WinActivate("RAINMAN","")
$objrate=ObjCreate("WWSCommon.TCGroup")
$objrate.TransMessage("RAINMAN",$sTextrate)
Sleep(2000)
WinClose("RAINMAN")
;发送QQ消息

;获取汇率

$file = FileOpen("ip.ini", 0)
; 检查打开的文件是否可为读
If $file = -1 Then
;MsgBox(0, "错误", "未能找到文本ip.ini")
FileWrite('ip.ini', '')
EndIf

$chars = FileRead($file)
;MsgBox(0, "读取的字符:", $chars)

FileClose($file) ;关闭文本
If $chars <> $sText Then
;发送QQ消息
Run('"E:\Program Files\Tencent\QQLite\Bin\QQScLauncher.exe" /uin:QQ号 /quicklunch:D17B0262964CB5B91BDB261A185D5F2F739E0142DD979F1E3BA17B26DD23EDA177105761106F3AD3')
Sleep(3000)
;WinActivate("RAINMAN","")
$obj=ObjCreate("WWSCommon.TCGroup")
$note="您的主机IP已变更为 "&$sText
;MsgBox(0, "IP变更提醒", $note)
$obj.TransMessage("RAINMAN",$note)
Sleep(2000)
WinClose("RAINMAN")
;发送QQ消息
FileClose(FileOpen("ip.ini", 2)) ;清空文本内容
FileWrite('ip.ini', $sText)
EndIf

Sleep(3600000)
WEnd

案例五

#include <Array.au3>
#Include <File.au3>
#AutoIt3Wrapper_Icon=E:\AUTORUN\ico.ico ;

Local $FileNumber = 0 ;记录数组维数，全局变量
Local $FileArray[1] ;返回的文件名主数组（全路径），全局变量
Local $result = "result.txt"

;FindFiles("C:\photo", "*.jpg") ;这里改为你自己要遍历的文件夹
MsgBox(0,"使用说明-RAINMAN","温馨提示:此程序要放在照片目录下运行^_^")
FindFiles(@WorkingDir, "*.*") ;遍历当前工作目录
;$FileArray[0] = $FileNumber
;_ArrayDisplay($FileArray, "Pictures");调用“Array.au3”的子函数函数，显示整个数组信息
FileClose(FileOpen($result, 2)) ;清空文本内容
For $i = 1 To $FileNumber
;$FileArray[$i]=StringTrimRight ( $FileArray[$i],4 ) ;删除后缀
If $FileArray[$i]<> @ScriptName Then
FileWriteLine($result, $FileArray[$i])
EndIf
Next
Run("Notepad.exe result.txt")

Func FindFiles($path,$filelx)
Local $filelist
Local $folders
Local $i,$j,$newpath
$filelist = _FileListToArray ($path,$filelx,1)
if not @error then
if $filelist[0]>0 Then
for $i=1 to $filelist[0]
$FileNumber = $FileNumber + 1
ReDim $FileArray[UBound($FileArray) + 1]
;$FileArray[$FileNumber] = $path & "\" & $filelist[$i]
$FileArray[$FileNumber] = $filelist[$i]
Next
EndIf
EndIf
$folders = _FileListToArray ($path,"*",2)
if Not @error Then
If $folders[0] > 0 Then
For $j=1 to $folders[0]
$newpath = $path & "\" & $folders[$j]
FindFiles($newpath,$filelx)
Next
EndIf
EndIf
EndFunc

转载请注明：RAIN MAN » AutoIt 相关范例

喜欢 0

标签: AutoIt