Код: Выделить всё
;~ Использование:
;~ Tiled_BgImage("Путь к изображению с текстурой","ширина изображения", "высота изображения")
Func Tiled_BgImage($ImagePath,$width,$height)
$yTile=Round(@DesktopHeight/$height)
$xTile=Round(@DesktopWidth/$width)
For $y=0 To $yTile
For $x=0 To $xTile
GUICtrlCreatePic($ImagePath,$width*$x,$height*$y,$width,$height)
GUICtrlSetResizing(-1,802) ; $GUI_DOCKALL
GUICtrlSetState(-1,128) ; $GUI_DISABLE
Next
Next
EndFuncКод: Выделить всё
#include
$WebPage = "http://www.autoitscript.com"
$WhatToFind = "autoit"
$Source = _INetGetSource($WebPage)
$FindPos = StringInStr($Source, $WhatToFind)
If $FindPos 0 Then MsgBox(64, "", "Текст найден в позиции: " & $FindPos)
) Код: Выделить всё
#include
Opt("GuiOnEventMode", 1)
$GUI = GUICreate("Test")
GUISetOnEvent($GUI_EVENT_CLOSE, "Quit")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "LV_Event")
$ListViewID = GUICtrlCreateListView("Column", 20, 40)
GUISetState()
While 1
Sleep(10)
WEnd
Func LV_Event()
Local $CursorInfoArr = GUIGetCursorInfo($GUI)
If $CursorInfoArr[4] = $ListViewID Then MsgBox(0, "", "Ok, List View was Clicked")
EndFunc
Func Quit()
Exit
EndFuncКод: Выделить всё
#include
Opt("GuiOnEventMode", 1)
$GUI = GUICreate("Test")
GUISetOnEvent($GUI_EVENT_CLOSE, "Quit")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "Tab_Event")
$TabID = GUICtrlCreateTab(20, 40)
GUICtrlCreateTabItem("Tab Item")
GUISetState()
While 1
Sleep(10)
WEnd
Func Tab_Event()
Local $CursorInfoArr = GUIGetCursorInfo($GUI)
If $CursorInfoArr[4] = $TabID Then MsgBox(0, "", "Ok, Tab control was Clicked")
EndFunc
Func Quit()
Exit
EndFuncКод: Выделить всё
$Dict = ObjCreate("Scripting.Dictionary")
;~ Наполняем словарь неотсортированными данными:
$Dict.Add ("3", "Delta")
$Dict.Add ("1", "Foxtrot")
$Dict.Add ("4", "Bravo")
$Dict.Add ("2", "Echo")
$Dict.Add ("6", "Alpha")
$Dict.Add ("5", "Charlie")
;~ Сортировка:
SortDictionary($Dict, 0)
;~ Просмотр результатов сортировки:
For $o In $Dict
MsgBox(0+262144 ,$o, $Dict($o) )
Next
;~ Эта функция основана на:
;~ http://support.microsoft.com/support/kb/articles/q246/0/67.asp
Func SortDictionary(ByRef $objDict, $intSort=0)
Local Const $dictKey = 0
Local Const $dictItem = 1
Local $strDict[1]
Local $objKey
Local $strKey, $strItem
Local $intCount, $i, $j
$intCount = $objDict.Count
If $intCount > 1 Then
ReDim $strDict[$intCount][2]
$i = 0
For $objKey In $objDict
$strDict[$i][$dictKey] = String($objKey)
$strDict[$i][$dictItem] = String($objDict($objKey))
$i = $i + 1
Next
For $i = 0 To $intCount-2
For $j = $i To $intCount-1
If StringCompare($strDict[$i][$intSort], $strDict[$j][$intSort]) > 0 Then
$strKey = $strDict[$i][$dictKey]
$strItem = $strDict[$i][$dictItem]
$strDict[$i][$dictKey] = $strDict[$j][$dictKey]
$strDict[$i][$dictItem] = $strDict[$j][$dictItem]
$strDict[$j][$dictKey] = $strKey
$strDict[$j][$dictItem] = $strItem
EndIf
Next
Next
$objDict.RemoveAll
For $i = 0 To $intCount-1
$objDict.Add ($strDict[$i][$dictKey], $strDict[$i][$dictItem])
Next
EndIf
EndFunc
...Код: Выделить всё
Func SetParent($hWndChild, $hWndNewParent)
Local $vRtn = DllCall("USER32.DLL", "hwnd", "SetParent", "hwnd", $hWndChild, "hwnd", $hWndNewParent)
Return $vRtn[0]
EndFunc
.Код: Выделить всё
$Hwnd = WinGetHandle(WinGetTitle(""))
_MsgBox(0, "", "", $Hwnd)
Func _MsgBox($MsgBoxType, $MsgBoxTitle, $MsgBoxText, $mainGUI="")
$ret = DllCall ("user32.dll", "int", "MessageBox", _
"hwnd", $mainGUI, _
"str", $MsgBoxText , _
"str", $MsgBoxTitle, _
"int", $MsgBoxType)
Return $ret [0]
EndFuncКод: Выделить всё
if WinWaitActive('Мастер новых подключений', 'Выберите, надо ли автоматически подключаться к Интернету','5' )==1 Then
Send ( '{UP}{ENTER}' )
EndIf