)...
..Код: Выделить всё
#include ;Только для _ArrayDisplay()
Global $MainArray = GetArray(24, 12)
_ArrayDisplay($MainArray)
Func GetArray($iElements = 24, $iRandom = 12)
Local $iRandNum, $avRetArray[$iElements + 1]
For $i = 1 To $iElements
$iRandNum = Random(1, $iRandom, 1)
If _FindInArray($avRetArray, $iRandNum) = -1 Then
$avRetArray[$i] = $iRandNum
Else
While _FindInArray($avRetArray, $iRandNum) > 1
$iRandNum = Random(1, $iRandom, 1)
WEnd
$avRetArray[$i] = $iRandNum
EndIf
Next
$avRetArray[0] = $iElements
Return $avRetArray
EndFunc
Func _FindInArray(ByRef $avArray, $StrToFind)
Local $iRetCount = 0
For $i = 1 To UBound($avArray)-1
If $avArray[$i] "" And $avArray[$i] = $StrToFind Then $iRetCount += 1
Next
If $iRetCount 0 Then Return $iRetCount
Return -1
EndFuncКод: Выделить всё
$NotepadTitle = "[CLASS:Notepad]"
Run(@WindowsDir & "\Notepad.exe")
WinWait($NotepadTitle)
ControlSetText($NotepadTitle, "", "Edit1", "Просто текст с + ") ;Задаём текст с "+"
$EditText = ControlGetText($NotepadTitle, "", "Edit1")
If StringInStr($EditText, "+") Then
;Делаем наше действие ;)
MsgBox(0, "", "Это могло бы быть ваше действие ;)")
EndIf
;Просто закроем то что открыли
WinClose($NotepadTitle)
WinWaitClose($NotepadTitle, "", 1)
If WinActive("[CLASS:#32770]", "&") Then ControlClick("[CLASS:#32770]", "&", "Button2")Код: Выделить всё
%path_cmdutils%\Autoit3.exe "%~dp0\FlashPlayerUpdate.au3" /p "%AppPath%"
Код: Выделить всё
HotKeySet("{Esc}", "Quit")
_PhoneRing(8)
;===============================================================================
;
; Function Name: _PhoneRing()
; Description: Beep Sound Imitation of Phone Rings.
; Parameter(s): $iRings [Optional] - Rings to beep (5 is the default),
; If $iRings > 0 Then this time of rings will be sounded.
; If $iRings < 0 Then number after - sign will be used to indicate how long (seconds) the function will ring.
; If $iRings = 0 Then the function will ring (loop) forever :)
; $iDuration [Optional] - Duration of the Ring to beep (15 is the default).
; $iWait - [Optional] How long to wait between each rings in milleseconds (1500 is the default).
;
; Return Value(s): Always returns 1 regardless of success.
; Requirement(s): None.
; Author(s): G.Sandler (a.k.a CreatoR).
;
;===============================================================================
Func _PhoneRing($iRings=5, $iDuration=15, $iWait=1500)
Local $iCount = 0, $iTimerInit = TimerInit()
While 1
$iCount += 1
For $i = 1 To $iDuration
Beep(1000, 35)
Beep(2000, 30)
Beep(1500, 25)
Next
If $iRings > 0 And $iCount = $iRings Then Return 1
If $iRings = -$iRings Then Return 1
Sleep($iWait)
WEnd
EndFunc
Func Quit()
Exit
EndFuncКод: Выделить всё
#include
Opt("GuiOnEventMode", 1)
$Btn_Color = 0x7A9DD8
$Hover_Color = 0xFF0000
$GUIMain = GuiCreate("GuiCtrlSetOnHover - Letters Demo", 570, 200)
GUISetOnEvent(-3, "Quit")
GUICtrlCreateLetters(10, 60, 18, 20)
$Close = GuiCtrlCreateButton("Close", 30, 120, 100, 30)
GUICtrlSetOnEvent($Close, "Quit")
GuiSetState()
While 1
Sleep(100)
WEnd
Func GUICtrlCreateLetters($iLeft, $Top, $Width=15, $Height=15)
Local $iLeft_Begin = $iLeft
Local $iAsc_Char = 64
For $i = 0 To 25
$iLeft_Begin += 20
$iAsc_Char += 1
GUICtrlCreateButton(Chr($iAsc_Char), $iLeft_Begin, $Top, $Width, $Height)
GUICtrlSetOnEvent(-1, "LetterEvents")
GUICtrlSetOnHover(-1, "Hover_Func", "Leave_Hover_Func")
GUICtrlSetBkColor(-1, $Btn_Color)
GUICtrlSetFont(-1, 6)
Next
EndFunc
Func LetterEvents()
MsgBox(64, "Pressed", "Letter = " & GUICtrlRead(@GUI_CtrlId))
EndFunc
Func Hover_Func($CtrlID)
GUICtrlSetBkColor($CtrlID, $Hover_Color)
EndFunc
Func Leave_Hover_Func($CtrlID)
GUICtrlSetBkColor($CtrlID, $Btn_Color)
EndFunc
Func Quit()
Exit
EndFunc
