AutoIt 自动屏幕捕获程序
HotKeySet ( "{F10}", "DID_CLICK" )
HotKeySet ( "{F11}", "CLOSE" )
TraySetToolTip("Mr.Numbers Quick Screen Shot")
Opt("TrayMenuMode",1)
$JPEG_ITEM = TrayCreateItem("JPEG")
TrayCreateItem("")
$PNG_ITEM = TrayCreateItem("PNG")
TrayCreateItem("")
$BMP_ITEM = TrayCreateItem("BMP")
TrayCreateItem("")
$EXIT_ITEM = TrayCreateItem("Exit")
MsgBox( 0, "Mr.Numbers Quick Screen Shot", "Welcome to Mr.Numbers quick screen shot tool! Using this tool, you can take quick screenshots!")
MsgBox( 0, "Mr.Numbers Quick Screen Shot", "Please tell me where to save your files!")
$WINDOWSPATH = FileSelectFolder ( "Choose A Folder", "" , 1 )
If $WINDOWSPATH = "" Then
Exit 0
Endif
MsgBox( 0, "Mr.Numbers Quick Screen Shot", "Press OK to start your screen capturing! Simply press F10! (Your clipboard will be erased)")
MsgBox( 0, "Mr.Numbers Quick Screen Shot", "Edit the DATA.INI File to change the desired file format")
MsgBox( 0, "Mr.Numbers Quick Screen Shot", "Press F11 to close this program")
$NUMBER = IniRead( $WINDOWSPATH & "\" & "DATA.INI", "INI", "NUMBER", "x")
If $NUMBER = "X" Then
IniWrite( $WINDOWSPATH & "\DATA.INI", "INI", "NUMBER", "1")
IniWrite( $WINDOWSPATH & "\DATA.INI", "INI", "FILETYPE", "JPEG")
IniWrite( $WINDOWSPATH & "\DATA.INI", "COMMENTS", "DIFFERENT FILE TYPES", "JPEG, PNG, BMP")
$NUMBER = IniRead( $WINDOWSPATH & "\" & "DATA.INI", "INI", "NUMBER", "")
$FILETYPE = IniRead( $WINDOWSPATH & "\" & "DATA.INI", "INI", "FILETYPE", "JPEG")
EndIf
TraySetState()
While 1
$msg = TrayGetMsg()
Select
Case $msg = 0
ContinueLoop
Case $msg = $JPEG_ITEM
IniWrite( $WINDOWSPATH & "\DATA.INI", "INI", "FILETYPE", "JPEG")
Case $msg = $PNG_ITEM
IniWrite( $WINDOWSPATH & "\DATA.INI", "INI", "FILETYPE", "PNG")
Case $msg = $BMP_ITEM
IniWrite( $WINDOWSPATH & "\DATA.INI", "INI", "FILETYPE", "BMP")
Case $msg = $EXIT_ITEM
ExitLoop
EndSelect
WEnd
Func DID_CLICK()
$NUMBER = IniRead( $WINDOWSPATH & "\" & "DATA.INI", "INI", "NUMBER", "x")
$FILETYPE = IniRead( $WINDOWSPATH & "\" & "DATA.INI", "INI", "FILETYPE", "JPEG")
Send("{PRINTSCREEN}")
Run( "mspaint.exe" )
WinWaitActive("Untitled - Paint")
Send("^v")
WinClose("Untitled - Paint")
WinWaitActive( "Paint")
Send("s")
WinWaitActive( "Save As" )
Send($WINDOWSPATH & "\" & $NUMBER)
If $FILETYPE = "JPEG" Then
Send("{Enter}")
Elseif $FILETYPE = "PNG" Then
Send("{TAB}")
Send("p")
Send("{ENTER}")
Elseif $FILETYPE = "BMP" Then
Send("{TAB}")
Send("{DOWN}")
Send("{UP}")
Send("{ENTER}")
Send("{ENTER}")
Endif
INIWrite( $WINDOWSPATH & "\DATA.INI", "INI", "NUMBER", $NUMBER + 1)
EndFunc
Func CLOSE()
Exit 0
EndFuncAutoIt 用户输入的ant提示
<input message="Are you sure?" validargs="y,n" addproperty="input"/>
<condition property="abort">
<equals arg1="n" arg2="${input}"/>
</condition>
<fail if="abort">User aborted.</fail>AutoIt Autohotkey hotstrings用于快速html编码
:O:h1::<h1></h1>{Left 5}
:O:h2::<h2></h2>{Left 5}
:O:h3::<h3></h3>{Left 5}
:O:h4::<h4></h4>{Left 5}
:O:h5::<h5></h5>{Left 5}
:O:h6::<h6></h6>{Left 5}
:O:i::<i></i>{Left 4}
:O:b::<b></b>{Left 4}
:O:p::<p></p>{Left 4}
:O:a::<a href=""></a>{Left 4}
:O:div::<div id="" class=""></div>{Left 6}
:O:img::<img src="" alt="" />{Left 11}
:O:ul::<ul>{Enter}{Tab}<li>{Enter}{Tab}{Enter}{Backspace}</li>{Enter}</ul>{Left 6}{Delete}{Up}{Up}{End}
:O:ul::<ol>{Enter}{Tab}<li>{Enter}{Tab}{Enter}{Backspace}</li>{Enter}</ol>{Left 6}{Delete}{Up}{Up}{End}
:O:li::<li></li>{Left 5}
:O:table::<table>{Enter}{Tab}<tr>{Enter}{Tab}<td></td>{Enter}{Backspace}</tr>{Enter}{Backspace}</table>{Up}{Up}{Right 4}
:O:tr::<tr>{Enter}{Tab}<td></td>{Enter}{Backspace}</tr>{Up}{Right 3}
:O:td::<td></td>{Left 4}
:O:form::<form name="formname" method="post" action="">{Enter}{Tab}{Enter}{Backspace}</form>{Up}
:O:label::<label for=""></label>{Left 8}
:O:input::<input type="" id="" name="" />{Left 4}
:O:button::<button></button>{Left 9}
:O:style::<style type="text/css"></style>{Left 8}
:O:css::<link type="text/css" rel="stylesheet" media="screen" href="" >{Left 3}
:O:js::<script type='text/javascript'></script>{Left 9}
:O:meta::<meta http-equiv="Content-Type" content="text/html;" >
:O:ico::<link type="image/x-icon" rel="shortcut icon" href="" >{Left 3}
:O:body::<body>{Enter}{Tab}{Enter}{Backspace}</body>{Up}
:O:title::<title>{Enter}{Tab}{Enter}{Backspace}</title>{Up}
:O:head::<head>{Enter}{Tab}{Enter}{Backspace}</head>{Up}
:O:html::<html>{Enter}{Tab}<head>{Enter}{Tab}{Enter}{Backspace}</head>{Enter}<title>{Enter}{Tab}{Enter}{Backspace}</title>{Enter}{Backspace}</html>{Up}{Up}
:O:dummy::Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec sed pede. Etiam ante purus, consectetuer id, bibendum fermentum, accumsan sed, nunc. Vestibulum dignissim, leo vel aliquam dignissim, nibh ligula cursus tortor, in vulputate neque lorem eu sem. Morbi nibh nulla, tempus ac, varius sed, porta sit amet, nulla. Proin laoreet. Phasellus quis tortor eu augue rutrum posuere. Suspendisse quis dolor vitae nisl fermentum rutrum. Etiam mi mauris, imperdiet sed, volutpat ac, ornare in, urna. Sed laoreet turpis nec sem. Nam consectetuer, tellus rhoncus lacinia euismod, augue tellus consectetuer sem, a molestie tellus nisi a dolor. Nunc tempus ante sit amet arcu. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Aliquam vitae quam. Integer consectetuer lacinia ligula. Praesent adipiscing viverra libero.AutoIt 使用AutoHotkey切换Windows 7音频设备（第二个设备）
;
; AutoHotkey Version: 1.x
; Language: English
; Platform: Win9x/NT
; Author: A.N.Other <myemail@nowhere.com>
;
; Script Function:
; Template script (you can customize this template by editing "ShellNew\Template.ahk" in your Windows folder)
;
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
Run, mmsys.cpl
Sleep, 100
WinWait, Audio ; change ALL Audio references to the corresponding window title of the panel (vary upon different languages)
IfWinNotActive, Audio WinActivate, Audio
WinWaitActive, Audio
Send, {Down}
Sleep, 50
Send, {Down}
Sleep, 50
Send, {Tab}
Sleep, 50
Send, {Enter}
Sleep, 50
Send, {Enter}