Beiträge von Greenhorn

[autoit]

; #FUNCTION# ;===============================================================================
;
; Name...........: _Array2D_FromArrays
; Description ...: Returns 2D Array from several Arrays
; Syntax.........: _Array2D_FromArrays($sArrays_n, $flag = 0)
; Parameters ....: $sArrays_n - String of Arraynames delimetered by |
; $flag - [optional] Sort Arrays by size. (Default = 0, Sort = 1)
; Return values .: Success - a two-dimensional Array.
; Failure - Returns 0 and Sets @Error:
; |0 - No error.
; |1 - Invalid string in $sArrays_n
; |2 - Invalid Array in $sArrays_n
; Author ........: Greenhorn
; Modified.......:
; Remarks .......: $arExample[0][0] contains number of elemants in first dimension,
; $arExample[0][1] contains number of elemants in second dimension.
; Related .......:
; Link ..........;
; Example .......; Yes
;
; ;==========================================================================================
Func _Array2D_FromArrays($sArrays_n, $flag = 0)

[/autoit] [autoit][/autoit] [autoit]

Local $i1stDim, $i2ndDim, $iMax2ndDim
If Not IsString($sArrays_n) Then
Return SetError(1, 0, 0)
Else
If StringRegExp($sArrays_n, '(\$)') Then
$sArrays_n = StringRegExpReplace($sArrays_n, '(\$)', '')
EndIf
If StringInStr($sArrays_n, '|') Then
$arArrays_n = StringSplit($sArrays_n, '|')
$i2ndDim = $arArrays_n[0]
For $i = 1 To $arArrays_n[0]
$arArrays_n[$i] = Eval($arArrays_n[$i])
If Not IsArray($arArrays_n[$i]) Then
Return SetError(2, 0, 0)
Else
If UBound($arArrays_n[$i])-1 > $i1stDim Then
$i1stDim = UBound($arArrays_n[$i])
EndIf
EndIf
Next
Else
$arArray_n = Eval($sArrays_n)
If Not IsArray($arArray_n) Then
Return SetError(2, 0, 0)
Else
$i1stDim = UBound($arArray_n)
$i2ndDim = 1
EndIf
EndIf
EndIf

If $flag Then $arArrays_n = _ArraySortSizeOfArrays($arArrays_n)

Local $ar2D_Array[$i1stDim][$i2ndDim]
$ar2D_Array[0][0] = $i1stDim-1
$ar2D_Array[0][1] = $i2ndDim

For $c = 1 To $arArrays_n[0]
Local $iRow = 1
For $value In $arArrays_n[$c]
If IsInt($value) Then
If $value = UBound($arArrays_n[$c])-1 Then
ContinueLoop
Else
$ar2D_Array[$iRow][$c-1] &= $value
$iRow += 1
ContinueLoop
EndIf
EndIf
$ar2D_Array[$iRow][$c-1] &= $value
$iRow += 1
Next
Next

Return $ar2D_Array

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _ArraySortSizeOfArrays($arArrays)

[/autoit] [autoit][/autoit] [autoit]

Local $arSort[$arArrays[0] + 1]
$arSort[0] = $arArrays[0]
$iLast = 0
For $i1 = 1 To $arArrays[0]
$iSize_1 = UBound($arArrays[$i1])
$iMax = 0
For $i2 = 1 To $arArrays[0]
$iSize_2 = UBound($arArrays[$i2])
If $iSize_2 > $iMax Then
If $iLast = 0 Then
$iMax = $iSize_2
$arSort[$i1] = $arArrays[$i2]
ElseIf $iSize_2 < $iLast Then
$iMax = $iSize_2
$arSort[$i1] = $arArrays[$i2]
EndIf
EndIf
Next
$iLast = $iMax
Next

Return $arSort

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; #EXAMPLE# ;================================================================================
#include-once
#include <Array.au3>
#include <File.au3>
$arFirst = _FileListToArray(@WindowsDir & '\Media', '*', 1)
$arSecond = _FileListToArray(@WindowsDir & '\Fonts', '*', 1)
$arThird = _FileListToArray(@WindowsDir & '\Cursors', '*', 1)

[/autoit] [autoit][/autoit] [autoit]

$ar2D = _Array2D_FromArrays('$arFirst|$arSecond|$arThird')
If @error = 1 Then MsgBox(0, '', 'Error!')
_ArrayDisplay($ar2D, 'Sorted Array')

[/autoit] [autoit][/autoit] [autoit]

$ar2D = _Array2D_FromArrays('$arFirst|$arSecond|$arThird', 1)
If @error = 1 Then MsgBox(0, '', 'Error!')
_ArrayDisplay($ar2D, 'Sorted Array')
; ;==========================================================================================

[/autoit] [autoit][/autoit] [autoit][/autoit]

[autoit]

Func OK()
$handle5 = GUICreate("TEST GUI",1024,768,0,0, $WS_POPUP)
GUISetBkColor (0x00E0FFFF)
GUISetFont(18, 400, -1)
GUICtrlCreateLabel("Tests completed without any failure.", 210, 150, 600, 100, 0x01)
GUICtrlCreateLabel("(Click the button below to continue)", 260, 185, 500, 100, 0x01)
$buttonOK = GuiCtrlCreateButton("", 375, 250, 270, 270,$BS_BITMAP)
GUICtrlSetImage (-1, "C:\Programs\OK.bmp")
GUISetState () ; will display a dialog box
While 1 ; will do an endless loop.
$msg = GUIGetMsg()
If $msg = $buttonOK Then
GUIDelete($handle5)
Return 0 ; will exit the Function !!!
Sleep(100)
EndIf
WEnd
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func not_ok()
$handle6 = GUICreate("TEST GUI",1024,768,0,0, $WS_POPUP)
GUISetBkColor (0x00E0FFFF)
GUISetFont(18, 400, -1)
GUICtrlCreateLabel("Tests completed with failure!", 210, 130, 600, 100, 0x01)
GUICtrlCreateLabel("(Click the button below to continue.)", 260, 200, 500, 100, 0x01)
$button_not_ok = GuiCtrlCreateButton("", 375, 250, 270, 270,$BS_BITMAP)
GUICtrlSetImage (-1, "C:\Programs\not-ok.bmp")
GUISetState ()
While 1 ; will do an endless loop.
$msg = GUIGetMsg()
If $msg = $button_not_ok Then
GuiDelete($handle6)
Return 0 ; will exit the Function !!!
Sleep(100)
EndIf
WEnd
EndFunc

[/autoit]

[autoit]

#include <GUIConstants.au3>
#include <File.au3>
#Include <process.au3>

[/autoit] [autoit][/autoit] [autoit]

;Global $USBOK
;Global $NOSPACE

[/autoit] [autoit][/autoit] [autoit]

$hWndMain = GUICreate("MY GUI",1024,768,-1,-1, $WS_POPUP) ; will create a dialog box that when displayed is centered
$btnCheckLogs = GUICtrlCreateButton ("Check logs", 422, 200, 180, 100)
$btnSaveData = GUICtrlCreateButton ( "Save Data", 422, 350, 180, 100)
GUISetState () ; will display a dialog box

[/autoit] [autoit][/autoit] [autoit]

; MAIN PROGRAM
While 1
$msg = GUIGetMsg()
Switch $msg
Case $btnCheckLogs
GUISetState(@SW_DISABLE, $hWndMain)
GUISetState(@SW_HIDE, $hWndMain)
;$USBDRIVE = Assign_USB()
$USBDRIVE = DriveGetDrive('REMOVABLE')
If @error = 1 Then
MsgBox(4096,"WARNING", "NO USB MEMORY FOUND!")
Exit
Else
$NOSPACE = Check_USB_Space($USBDRIVE)
Sleep(100)
check_all()
EndIf
GUISetState(@SW_ENABLE, $hWndMain)
GUISetState(@SW_SHOW, $hWndMain)
Case $btnSaveData ; DELETE SYSDATA
$USBDRIVE = Assign_USB()
Save_Data()
MsgBox(0,"INFO", "Data saved")
EndSwitch
Wend

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func Assign_USB()

Local $sDrive
Local $RemovableDrives = DriveGetDrive('REMOVABLE')
If @error Then
Return SetError(1, 0, 0)
Else
If $RemovableDrives[0] > 1 Then
For $i = 1 To $RemovableDrives[0]
$sDrive = $RemovableDrives[$i]
; Was tun wenn mehrere USB Sticks angeschlossen sind ???
Next
Else
Return $RemovableDrives[1]
EndIf
EndIf

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Check_USB_Space($drive)

Local $USBFREESPACE = Round(DriveSpaceFree($drive)) ; calculate free space on USB memory
; determine the space of C:\Data
Local $USERDATASPACE = Round(DirGetSize("C:\Data") / 1024 / 1024) ; calculate space of C:\Data
If $USBFREESPACE < $USERDATASPACE Then ; Check whether USBmemory has enough space, if not
$DIFF = ($USERDATASPACE - $USBFREESPACE) ; calculate needed space
MsgBox(0, "WARNING", "USB memory does NOT have enough space for saving Userdata!" & @CR & "Please use a higher capacity USB memory or make additional " & $DIFF & " MB free space on it")
MsgBox(0, "SPACE INFO", "The size of directory C:\Data is " & $USERDATASPACE & " MB. " & @CR & "Missing space on USB memory is: " & $DIFF & " MB.")
Return SetError(1, 0, 0) ; Not enough spae on USB memory
Else
Return 0 ; enough space on USB memory
EndIf

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Save_Data()
Assign_USB()
If FileExists($USBDRIVE & "\SYSBACKUP") = 0 then
DirCreate($USBDRIVE & "\SYSBACKUP")
EndIf
FileCopy("C:\Data" , $USBDRIVE & "\SYSBACKUP",1)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func OK()
$hWndOK = GUICreate("OK",1024,768,-1,-1, $WS_POPUP)
GUISetBkColor (0x00E0FFFF)
GUISetFont(18, 400, -1)
GUICtrlCreateLabel("Tests completed without any failure.", 210, 150, 600, 100, 0x01)
GUICtrlCreateLabel("(Click the button below to continue)", 260, 185, 500, 100, 0x01)
$btnOK = GuiCtrlCreateButton("", 375, 250, 270, 270,$BS_BITMAP)
GUICtrlSetImage (-1, "C:\Programs\OK.bmp")
GUISetState () ; will display a dialog box
While 1 ; will do an endless loop.
$msg = GUIGetMsg()
If $msg = $btnOK Then
GUIDelete($hWndOK)
Return 0 ; will exit the Function !!!
Sleep(100)
EndIf
WEnd
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func not_ok()
$hWndNotOK = GUICreate("NotOK",1024,768,-1,-1, $WS_POPUP)
GUISetBkColor (0x00E0FFFF)
GUISetFont(18, 400, -1)
GUICtrlCreateLabel("Tests completed with failure!", 210, 130, 600, 100, 0x01)
GUICtrlCreateLabel("(Click the button below to continue.)", 260, 200, 500, 100, 0x01)
$btnNotOK = GuiCtrlCreateButton("", 375, 250, 270, 270,$BS_BITMAP)
GUICtrlSetImage (-1, "C:\Programs\not-ok.bmp")
GUISetState ()
While 1 ; will do an endless loop.
$msg = GUIGetMsg()
If $msg = $btnNotOK Then
GuiDelete($hWndNotOK)
Return 0 ; will exit the Function !!!
Sleep(100)
EndIf
WEnd
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func check_all()
If $NOSPACE = 0 Then
OK()
Else
not_ok()
EndIf
EndFunc

[/autoit]

[autoit]

; #FUNCTION# ;===============================================================================
;
; Name...........: _RegToAu3
; Description ...: Converts Registry files to AutoIt code.
; Syntax.........: _RegToAu3($sPathRegFile, $flag = 0)
; Parameters ....: $sPathRegFile - Path to *.reg file
; $flag -
; |0 - No changes. (Default)
; |1 - Sets the pathes in Value strings to AutoIt Macros.
; |2 - Sets HKU to HKCU.
; Return values .: Success - An Array, containing lines of AutoIt code.
; Failure - Returns 0 and Sets @Error:
; |0 - No error.
; |1 - Invalid path.
; |2 - Invalid *.reg file.
; Author ........: Greenhorn
; Modified.......:
; Remarks .......: Supports REGEDIT4 and Windows Registry Editor Version 5.00.
; Readable Valuelength is limited to 32767 Chars!
; Flags can be combined.
; Related .......:
; Link ..........;
; Example .......; Yes
;
; ;==========================================================================================
Func _RegToAu3($sPathRegFile, $flag = 0)

[/autoit] [autoit][/autoit] [autoit]

#Region Tempfile
Local $fhRegFile, $sRegFile, $iRegAdd, $iVersionRegedit
Local $sHive, $sHiveKey, $sValueName, $sValueType, $sValue, $sAu3File
If FileExists($sPathRegFile) Then
$fhRegFile = FileOpen($sPathRegFile, 0)
If FileReadLine($fhRegFile, 1) = 'REGEDIT4' Then
$iVersionRegedit = 4
ElseIf FileReadLine($fhRegFile, 1) = 'Windows Registry Editor Version 5.00' Then
$iVersionRegedit = 5
Else
Return SetError(2) ; Maybe this isn't a regular *.reg File.
EndIf
Else
Return SetError(1) ; Maybe path is wrong.
EndIf
; Delete line breaks.
$sRegFile = StringRegExpReplace(FileRead($fhRegFile), '(\\\r\n )', '')
FileClose(FileWrite(FileOpen(StringReplace($sPathRegFile, '.reg', '.tmp'), 2), $sRegFile))
FileClose($fhRegFile)
#EndRegion

[/autoit] [autoit][/autoit] [autoit]

Local $arSectionNames = IniReadSectionNames(StringReplace($sPathRegFile, '.reg', '.tmp'))

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To $arSectionNames[0]
If StringRegExp($arSectionNames[$i], '\A\s?;') Then
$sAu3File &= $arSectionNames[$i] & @CRLF
ContinueLoop
ElseIf StringRegExp($arSectionNames[$i], '\A(HKEY)') Then
$sHiveKey = "'" & $arSectionNames[$i]
$iRegAdd = 1
Else
$sHiveKey = "'" & StringReplace($arSectionNames[$i], '-HKEY', 'HKEY')
EndIf
#Region HiveKey
$sHive = StringRegExp($sHiveKey, '(HKEY\w*\\)', 1)
If @extended Then
Switch $sHive[0]
Case 'HKEY_CLASSES_ROOT\'
$sHiveKey = StringReplace($sHiveKey, $sHive[0], 'HKCR\')
Case 'HKEY_CURRENT_USER\'
$sHiveKey = StringReplace($sHiveKey, $sHive[0], 'HKCU\')
Case 'HKEY_LOCAL_MACHINE\'
$sHiveKey = StringReplace($sHiveKey, $sHive[0], 'HKLM\')
Case 'HKEY_USERS\'
If $flag = 2 Or $flag = 3 Then
$sHiveKey = _HKUsersToHKCUser($sHiveKey)
Else
$sHiveKey = StringReplace($sHiveKey, $sHive[0], 'HKU\')
EndIf
Case 'HKEY_CURRENT_CONFIG\'
$sHiveKey = StringReplace($sHiveKey, $sHive[0], 'HKCC\')
EndSwitch
EndIf
$sHiveKey &= "'"
#EndRegion
Local $arSection = IniReadSection(StringReplace($sPathRegFile, '.reg', '.tmp'), $arSectionNames[$i])
If @error Then
If $iRegAdd Then
$sAu3File &= 'RegWrite(' & $sHiveKey & ') ; Please check if maybe the valuelimit is exceeded!' & @CRLF
ContinueLoop
Else
$sAu3File &= 'RegDelete(' & $sHiveKey & ') ; Please check if maybe the valuelimit is exceeded!' & @CRLF
ContinueLoop
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

#Region Valuename
For $ii = 1 To $arSection[0][0]
If $arSection[$ii][0] = '@' Then
$sValueName = "''" ; Default ValueName
ElseIf StringInStr($arSection[$ii][0], '\\') Then
$sValueName = StringReplace(StringReplace($arSection[$ii][1], '\\', '\'), '"', "'")
Else
$sValueName = StringReplace($arSection[$ii][0], '"', "'") ; ValueName
EndIf
If Not $iRegAdd Then ; RegDelete.
$sAu3File &= 'RegDelete(' & $sHiveKey & $sValueName & ')' & @CRLF
ContinueLoop
EndIf
#EndRegion

#Region Value
$sValue = "'"
Select
Case StringRegExp($arSection[$ii][1], '(hex\(0?1?4?5?6?8?9?a?\):)') ; Not supported Registry Valuetypes!
$sAu3File &= '; Can not write ' & $sHiveKey & $sValueName & ': Valuetype is not supported by AutoIt!' & @CRLF
ContinueLoop
Case StringInStr($arSection[$ii][1], '\"') ; REG_SZ
$sValueType = "'REG_SZ'"
$sValue &= StringTrimLeft(StringTrimRight(StringReplace(StringReplace($arSection[$ii][1], '\\', '\'), '\"', '"'), 1), 1)
Case StringInStr($arSection[$ii][1], '\\') ; REG_SZ
$sValueType = "'REG_SZ'"
$sValue &= StringReplace(StringReplace($arSection[$ii][1], '\\', '\'), '"', '')
Case StringInStr($arSection[$ii][1], 'dword:') ; REG_DWORD
$sValueType = "'REG_DWORD'"
$sValue &= StringReplace($arSection[$ii][1], 'dword:', '')
Case StringRegExp($arSection[$ii][1], '(hex\(?0?3?\)?:)') ; REG_BINARY
$sValueType = "'REG_BINARY'"
$sValue &= StringRegExpReplace(StringReplace($arSection[$ii][1], ',', ''), '(hex\(?0?3?\)?:)', '')
Case StringRegExp($arSection[$ii][1], '(hex\(0?7\):)') ; REG_MULTI_SZ
$sValueType = "'REG_MULTI_SZ'"
If $iVersionRegedit = 4 Then
$sValue &= _HexToCharString($arSection[$ii][1])
Else
$sValue &= _HexToCharString($arSection[$ii][1], 1)
EndIf
Case StringRegExp($arSection[$ii][1], '(hex\(0?2\):)') ; REG_EXPAND_SZ
$sValueType = "'REG_EXPAND_SZ'"
$sValue &= _HexToCharString($arSection[$ii][1])
Case Else ; REG_SZ
$sValueType = "'REG_SZ'"
$sValue &= StringReplace($arSection[$ii][1], '"', '')
EndSelect
If $flag = 1 Or $flag = 3 And $sValueType = "'REG_SZ'" Then
;_SetCustomMacroToString($sValue, $arSection[0][0], $arSection[0][0])
$sValue = _SetPathMacroToString($sValue)
EndIf
$sValue &= "'"
#EndRegion
If $iRegAdd Then
$sAu3File &= 'RegWrite(' & $sHiveKey & ', ' & $sValueName & ', ' & $sValueType & ', ' & $sValue & ')' & @CRLF
Else
$sAu3File &= 'RegDelete(' & $sHiveKey & ', ' & $sValueName & ')' & @CRLF
EndIf
Next
Next
$arAu3File = StringSplit(StringStripCR($sAu3File), @LF)
FileDelete(StringReplace($sPathRegFile, '.reg', '.tmp'))
Return $arAu3File

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_RegToAu3
; -------------------------------------------------------------------------------------------
; _HexToCharString($sHexValues, $iFlag = 0)
; -------------------------------------------------------------------------------------------
Func _HexToCharString($sHexValues, $iFlag = 0)

[/autoit] [autoit][/autoit] [autoit]

Local $sHexANSI, $arHexANSI, $sChar
If $iFlag Then ; Windows Registry Editor Version 5.00 REG_MULTI_SZ !
$sHexANSI = StringRegExpReplace(StringReplace(StringReplace(StringReplace($sHexValues, ',00,00,00,00,00', ''), ',00,00,00', ',0a'), ',00', ''), '(hex\(0?\d\):)', '')
Else ; REGEDIT4 REG_MULTI_SZ & REG_EXPAND_SZ / Windows Registry Editor Version 5.00 REG_EXPAND_SZ !
$sHexANSI = StringRegExpReplace(StringReplace($sHexValues, ',00', ''), '(hex\(0?\d\):)', '')
EndIf
$arHexANSI = StringSplit($sHexANSI, ',')
For $i = 1 To $arHexANSI[0]
Switch $arHexANSI[$i]
Case '0a'
$sChar &= "' & @LF & '"
Case '27'
$sChar &= "' & " & '"' & Chr(39) & '"' & " & '"
Case Else
$sChar &= Chr(Dec($arHexANSI[$i]))
EndSwitch
Next
Return $sChar

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_HexToCharString

[/autoit] [autoit][/autoit] [autoit]

; -------------------------------------------------------------------------------------------
; _HKUsersToHKCUser($sHiveKey)
; -------------------------------------------------------------------------------------------
Func _HKUsersToHKCUser($sHiveKey)

[/autoit] [autoit][/autoit] [autoit]

Local $sChangeKey = StringRegExpReplace($sHiveKey, 'HKEY_USERS\\.*?\\', 'HKCU\\')
Return $sChangeKey

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_HKUsersToHKCUser

[/autoit] [autoit][/autoit] [autoit]

; -------------------------------------------------------------------------------------------
; _SetPathMacroToString($sString)
; -------------------------------------------------------------------------------------------
Func _SetPathMacroToString($sString)

Local $arSection = IniReadSection(@ScriptDir & '\pattern.ini', 'DefaultPathMacro')
Local $sMacroStr, $sAppend = ''
If @error = 1 Then Return SetError(1)
;_ArrayDisplay($arSection)
For $i = 1 To $arSection[0][0]
$arResult = StringRegExp($sString, $arSection[$i][1], 3)
If @error = 0 Then
If StringInStr($sString, $arResult[0]) Then
If StringRight($arResult[0], 1) = '\' Then $sAppend = " & '\"
$sMacroStr = StringTrimLeft(StringReplace($sString, $arResult[0], $arSection[$i][0] & $sAppend), 1)
Return $sMacroStr
EndIf
EndIf
Next
Return $sString

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_SetPathMacroToString

[/autoit]

[autoit]

#include-once
#include <Inet.au3>

[/autoit] [autoit][/autoit] [autoit]

$urlOperaDL = FTP_OperaDotCom()
$urlHttpMirror = 'http://netmirror.org'
$urlOperaMirrorDL = Mirror($urlHttpMirror)

[/autoit] [autoit][/autoit] [autoit]

MsgBox(0, '', 'Opera Direktlink: ' & $urlOperaDL & @CRLF _
& 'Opera Mirrorlink: ' & $urlOperaMirrorDL)

[/autoit] [autoit][/autoit] [autoit]

Func FTP_OperaDotCom()

Local $iVersion = GetVersion()
Local $urlFtpOpera = 'ftp.opera.com/pub/opera/win/' & $iVersion & '/int/'
Local $sSourceFtpOpera = _INetGetSource($urlFtpOpera)
Local $arDownloadPath = StringRegExp($sSourceFtpOpera, '(O?o?pera.*?\.exe)', 3)
Local $urlDownload = 'ftp://' & $urlFtpOpera & $arDownloadPath[0]
Return $urlDownload

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Mirror($url)

Local $iVersion = GetVersion()
Local $sPathWinInt = '/mirror/opera/win/' & $iVersion & '/int/'
Local $sSourceMirror = _INetGetSource($urlHttpMirror & $sPathWinInt)
Local $arMirrorDownloadPath = StringRegExp($sSourceMirror, '(' & $sPathWinInt & '.*?\.exe)', 3)
Local $urlMirrorDownload = $urlHttpMirror & $arMirrorDownloadPath[0]
Return $urlMirrorDownload

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func GetVersion()

Local $sSourceOpera = _INetGetSource('http://www.opera.com/download/')
Local $arOperaWin = StringRegExp($sSourceOpera, '(Opera \d?\d\.\d?\d? for Windows)', 3)
Local $iOperaVersion = StringRegExpReplace($arOperaWin[0], '(Opera )|\.|( for Windows)', '')
Return $iOperaVersion

EndFunc

[/autoit]