Beiträge von Sirocool

[autoit]

#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Copyright: R. Gilman (rasim) ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
Global $hDLL_7ZIP = DllOpen(@ScriptDir & "\data\zip32.dll")
If $hDLL_7ZIP = -1 Then Exit 1
Global Const $FNAME_MAX32 = 512
Global $hArchiveProc
Global Const $FA_RDONLY = 0x01 ;Reading private file
Global Const $FA_HIDDEN = 0x02 ;Invisibility attribute file
Global Const $FA_SYSTEM = 0x04 ;System file
Global Const $FA_LABEL = 0x08 ;Volume label
Global Const $FA_DIREC = 0x10 ;Directory
Global Const $FA_ARCH = 0x20 ;Retention bit
Global Const $FA_ENCRYPTED = 0x40 ;The password the file which is protected
Global $tagINDIVIDUALINFO = "int dwOriginalSize;int dwCompressedSize;int dwCRC;uint uFlag;uint uOSType;short wRatio;" & _
"short wDate;short wTime;char szFileName[" & $FNAME_MAX32 + 1 & "];char dummy1[3];" & _
"char szAttribute[8];char szMode[8]"
Global Const $tagEXTRACTINGINFO = "int dwFileSize;int dwWriteSize;char szSourceFileName[" & $FNAME_MAX32 + 1 & "];" & _
"char dummy1[3];char szDestFileName[" & $FNAME_MAX32 + 1 & "];char dummy[3]"
Global Const $tagEXTRACTINGINFOEX = $tagEXTRACTINGINFO & ";dword dwCompressedSize;dword dwCRC;uint uOSType;short wRatio;" & _
"short wDate;short wTime;char szAttribute[8];char szMode[8]"

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

Func _7ZipAdd($hWnd, $sArcName, $sFileName, $sHide = 0, $sCompress = 5, $sRecurse = 1, $sIncludeFile = 0, $sExcludeFile = 0, _
$sPassword = 0, $sSFX = 0, $sVolume = 0, $sWorkDir = 0)

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

$sArcName = '"' & $sArcName & '"'
$sFileName = '"' & $sFileName & '"'

Local $iSwitch = ""

If $sHide Then $iSwitch &= " -hide"

$iSwitch &= " -mx" & $sCompress
$iSwitch &= _RecursionSet($sRecurse)

If $sIncludeFile Then $iSwitch &= _IncludeFileSet($sIncludeFile)
If $sExcludeFile Then $iSwitch &= _ExcludeFileSet($sExcludeFile)

If $sPassword Then $iSwitch &= " -p" & $sPassword

If FileExists($sSFX) Then $iSwitch &= " -sfx" & $sSFX

If $sVolume Then $iSwitch &= " -v" & $sVolume

If $sWorkDir Then $iSwitch &= " -w" & $sWorkDir

Local $tOutBuffer = DllStructCreate("char[32768]")

Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZip", _
"hwnd", $hWnd, _
"str", "a " & $sArcName & " " & $sFileName & " " & $iSwitch, _
"ptr", DllStructGetPtr($tOutBuffer), _
"int", DllStructGetSize($tOutBuffer))

If Not $aRet[0] Then Return SetError(0, 0, DllStructGetData($tOutBuffer, 1))
Return SetError(1, 0, 0)
EndFunc ;==>_7ZipAdd
Func _7ZipDelete($hWnd, $sArcName, $sFileName, $sHide = 0, $sCompress = 5, $sRecurse = 1, $sIncludeFile = 0, $sExcludeFile = 0, _
$sPassword = 0, $sWorkDir = 0)

$sArcName = '"' & $sArcName & '"'
$sFileName = '"' & $sFileName & '"'

Local $iSwitch = ""

If $sHide Then $iSwitch &= " -hide"

$iSwitch &= " -mx" & $sCompress
$iSwitch &= _RecursionSet($sRecurse)

If $sIncludeFile Then $iSwitch &= _IncludeFileSet($sIncludeFile)

If $sExcludeFile Then $iSwitch &= _ExcludeFileSet($sExcludeFile)

If $sPassword Then $iSwitch &= " -p" & $sPassword
If $sWorkDir Then $iSwitch &= " -w" & $sWorkDir

Local $tOutBuffer = DllStructCreate("char[32768]")

Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZip", _
"hwnd", $hWnd, _
"str", "d " & $sArcName & " " & $sFileName & " " & $iSwitch, _
"ptr", DllStructGetPtr($tOutBuffer), _
"int", DllStructGetSize($tOutBuffer))

If Not $aRet[0] Then Return SetError(0, 0, DllStructGetData($tOutBuffer, 1))
Return SetError(1, 0, 0)
EndFunc ;==>_7ZipDelete

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

Func _7ZIPExtract($hWnd, $sArcName, $sOutput = 0, $sHide = 0, $sOverwrite = 0, $sRecurse = 1, $sIncludeArc = 0, $sExcludeArc = 0, _
$sIncludeFile = 0, $sExcludeFile = 0, $sPassword = 0, $sYes = 0)

$sArcName = '"' & $sArcName & '"'

Local $iSwitch = ""

If $sOutput Then $iSwitch = ' -o"' & $sOutput & '"'
If $sHide Then $iSwitch &= " -hide"

$iSwitch &= _OverwriteSet($sOverwrite)
$iSwitch &= _RecursionSet($sRecurse)

If $sIncludeArc Then $iSwitch &= _IncludeArcSet($sIncludeArc)
If $sExcludeArc Then $iSwitch &= _ExcludeArcSet($sExcludeArc)

If $sIncludeFile Then $iSwitch &= _IncludeFileSet($sIncludeFile)
If $sExcludeFile Then $iSwitch &= _ExcludeFileSet($sExcludeFile)

If $sPassword Then $iSwitch &= " -p" & $sPassword
If $sYes Then $iSwitch &= " -y"

Local $tOutBuffer = DllStructCreate("char[32768]")

Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZip", _
"hwnd", $hWnd, _
"str", "e " & $sArcName & " " & $iSwitch, _
"ptr", DllStructGetPtr($tOutBuffer), _
"int", DllStructGetSize($tOutBuffer))

If Not $aRet[0] Then Return SetError(0, 0, DllStructGetData($tOutBuffer, 1))
Return SetError(1, 0, 0)
EndFunc ;==>_7ZIPExtract

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

Func _7ZipExtractEx($hWnd, $sArcName, $sOutput = 0, $sHide = 0, $sOverwrite = 0, $sRecurse = 1, $sIncludeArc = 0, _
$sExcludeArc = 0, $sIncludeFile = 0, $sExcludeFile = 0, $sPassword = 0, $sYes = 0)

$sArcName = '"' & $sArcName & '"'

Local $iSwitch = ""

If $sOutput Then $iSwitch = ' -o"' & $sOutput & '"'
If $sHide Then $iSwitch &= " -hide"

$iSwitch &= _OverwriteSet($sOverwrite)
$iSwitch &= _RecursionSet($sRecurse)

If $sIncludeArc Then $iSwitch &= _IncludeArcSet($sIncludeArc)
If $sExcludeArc Then $iSwitch &= _ExcludeArcSet($sExcludeArc)

If $sIncludeFile Then $iSwitch &= _IncludeFileSet($sIncludeFile)
If $sExcludeFile Then $iSwitch &= _ExcludeFileSet($sExcludeFile)

If $sPassword Then $iSwitch &= " -p" & $sPassword
If $sYes Then $iSwitch &= " -y"

Local $tOutBuffer = DllStructCreate("char[32768]")

Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZip", _
"hwnd", $hWnd, _
"str", "x " & $sArcName & " " & $iSwitch, _
"ptr", DllStructGetPtr($tOutBuffer), _
"int", DllStructGetSize($tOutBuffer))

If Not $aRet[0] Then Return SetError(0, 0, DllStructGetData($tOutBuffer, 1))
Return SetError(1, 0, 0)
EndFunc ;==>_7ZIPExtractEx

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

Func _7ZipUpdate($hWnd, $sArcName, $sFileName, $sHide = 0, $sCompress = 5, $sRecurse = 1, $sIncludeFile = 0, $sExcludeFile = 0, _
$sPassword = 0, $sSFX = 0, $sWorkDir = 0)

$sArcName = '"' & $sArcName & '"'
$sFileName = '"' & $sFileName & '"'

Local $iSwitch = ""

If $sHide Then $iSwitch &= " -hide"

$iSwitch = " -mx" & $sCompress
$iSwitch &= _RecursionSet($sRecurse)

If $sIncludeFile Then $iSwitch &= _IncludeFileSet($sIncludeFile)
If $sExcludeFile Then $iSwitch &= _ExcludeFileSet($sExcludeFile)

If $sPassword Then $iSwitch &= " -p" & $sPassword
If FileExists($sSFX) Then $iSwitch &= " -sfx" & $sSFX
If $sWorkDir Then $iSwitch &= " -w" & $sWorkDir

Local $tOutBuffer = DllStructCreate("char[32768]")

Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZip", _
"hwnd", $hWnd, _
"str", "u " & $sArcName & " " & $sFileName & " " & $iSwitch, _
"ptr", DllStructGetPtr($tOutBuffer), _
"int", DllStructGetSize($tOutBuffer))

If Not $aRet[0] Then Return SetError(0, 0, DllStructGetData($tOutBuffer, 1))
Return SetError(1, 0, 0)
EndFunc ;==>_7ZIPUpdate

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

Func _7ZipSetOwnerWindowEx($hWnd, $sProcFunc)
If $hArchiveProc Then DllCallbackFree($hArchiveProc)
$hArchiveProc = DllCallbackRegister($sProcFunc, "int", "hwnd;uint;uint;ptr")
If $hArchiveProc = 0 Then Return SetError(1, 0, 0)

Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipSetOwnerWindowEx", _
"hwnd", $hWnd, _
"ptr", DllCallbackGetPtr($hArchiveProc))
Return $aRet[0]
EndFunc ;==>_7ZipSetOwnerWindowEx

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

Func _7ZipKillOwnerWindowEx($hWnd)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipKillOwnerWindowEx", _
"hwnd", $hWnd)
Return $aRet[0]
EndFunc ;==>_7ZipKillOwnerWindowEx

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

Func _7ZipOpenArchive($hWnd, $sArcName)
Local $hArc = DllCall($hDLL_7ZIP, "hwnd", "SevenZipOpenArchive", "hwnd", $hWnd, "str", $sArcName, "int", 0)
Return $hArc[0]
EndFunc ;==>_7ZipOpenArchive

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

Func _7ZipCloseArchive($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipCloseArchive", "hwnd", $hArc)
Return $aRet[0]
EndFunc ;==>_7ZipCloseArchive

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

Func _7ZipFindFirst($hArc, $sSearch)
Local $INDIVIDUALINFO = DllStructCreate($tagINDIVIDUALINFO)

Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipFindFirst", _
"hwnd", $hArc, _
"str", $sSearch, _
"ptr", DllStructGetPtr($INDIVIDUALINFO))
If $aRet[0] = -1 Then Return $aRet[0]
Return $INDIVIDUALINFO
EndFunc ;==>_7ZipFindFirst

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

Func _7ZipFindNext($hArc, $tINDIVIDUALINFO)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipFindNext", _
"hwnd", $hArc, _
"ptr", DllStructGetPtr($tINDIVIDUALINFO))
If $aRet[0] = 0 Then Return $tINDIVIDUALINFO
EndFunc ;==>SevenZipFindNext

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

Func _7ZipGetFileName($hArc)
Local $tNameBuffer = DllStructCreate("char[" & $FNAME_MAX32 + 1 & "]")

Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetFileName", _
"hwnd", $hArc, _
"ptr", DllStructGetPtr($tNameBuffer), _
"int", DllStructGetSize($tNameBuffer))
If $aRet[0] = 0 Then Return DllStructGetData($tNameBuffer, 1)
EndFunc ;==>_7ZipGetFileName

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

Func _7ZipGetArcOriginalSize($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetArcOriginalSize", _
"hwnd", $hArc)
Return $aRet[0]
EndFunc ;==>_7ZipGetArcOriginalSize

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

Func _7ZipGetArcCompressedSize($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetArcCompressedSize", _
"hwnd", $hArc)
Return $aRet[0]
EndFunc ;==>_7ZipGetArcCompressedSize

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

Func _7ZipGetArcRatio($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "short", "SevenZipGetArcRatio", _
"hwnd", $hArc)
Return $aRet[0]
EndFunc ;==>_7ZipGetArcRatio

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

Func _7ZipGetDate($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "short", "SevenZipGetDate", _
"hwnd", $hArc)
If $aRet[0] = -1 Then Return $aRet[0]
Return "0x" & Hex($aRet[0], 4)
EndFunc ;==>_7ZipGetDate

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

Func _7ZipGetTime($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "short", "SevenZipGetTime", _
"hwnd", $hArc)
If $aRet[0] = -1 Then Return $aRet[0]
Return "0x" & Hex($aRet[0], 4)
EndFunc ;==>_7ZipGetTime

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

Func _7ZipGetCRC($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "dword", "SevenZipGetCRC", _
"hwnd", $hArc)
Return $aRet[0]
EndFunc ;==>_7ZipGetCRC

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

Func _7ZipGetAttribute($hArc)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetAttribute", _
"hwnd", $hArc)
If $aRet[0] = -1 Then Return $aRet[0]
Return "0x" & Hex($aRet[0], 2)
EndFunc ;==>_7ZipGetAttribute

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

Func _7ZipGetMethod($hArc)
Local $sBUFFER = DllStructCreate("char[8]")

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

Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetMethod", _
"hwnd", $hArc, _
"ptr", DllStructGetPtr($sBUFFER), _
"int", DllStructGetSize($sBUFFER))
If $aRet[0] <> 0 Then Return False
Return DllStructGetData($sBUFFER, 1)
EndFunc ;==>_7ZipGetMethod

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

Func _7ZipCheckArchive($sArcName)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipCheckArchive", _
"str", $sArcName, _
"int", 0)
Return $aRet[0]
EndFunc ;==>_7ZIPCheckArchive

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

Func _7ZipGetArchiveType($sArcName)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetArchiveType", _
"str", $sArcName)
Return $aRet[0]
EndFunc ;==>_7ZIPGetArchiveType

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

Func _7ZipGetFileCount($sArcName)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipGetFileCount", _
"str", $sArcName)
Return $aRet[0]
EndFunc

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

Func _7ZipConfigDialog($hWnd)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipConfigDialog", _
"hwnd", $hWnd, _
"ptr", 0, _
"int", 0)
Return $aRet[0]
EndFunc ;==>SevenZipConfigDialog

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

Func _7ZipQueryFunctionList($iFunction = 0)
Local $aRet = DllCall($hDLL_7ZIP, "int", "SevenZipQueryFunctionList", _
"int", $iFunction)
Return $aRet[0]
EndFunc ;==>_7ZipQueryFunctionList

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

Func _7ZipGetVersion()
Local $aRet = DllCall($hDLL_7ZIP, "short", "SevenZipGetVersion")
Return StringLeft($aRet[0], 1) & "." & StringTrimLeft($aRet[0], 1)
EndFunc ;==>_7ZipGetVersion

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

Func _7ZipGetSubVersion()
Local $aRet = DllCall($hDLL_7ZIP, "short", "SevenZipGetSubVersion")
Return $aRet[0]
EndFunc ;==>_7ZipGetSubVersion
Func _RecursionSet($sVal)
Switch $sVal
Case 1
Return " -r"
Case 2
Return " -r0"
Case Else
Return " -r-"
EndSwitch
EndFunc ;==>_RecursionSet
Func _IncludeFileSet($sVal)
If StringInStr($sVal, "*") Then
Return ' -i!"' & $sVal & '"'
ElseIf StringLeft($sVal, 1) = "@" Then
Return ' -i"' & $sVal & '"'
Else
Return ' -i!"' & $sVal & '"'
EndIf
EndFunc ;==>_IncludeFileSet
Func _ExcludeFileSet($sVal)
If StringInStr($sVal, "*") Then
Return ' -x!"' & $sVal & '"'
ElseIf StringLeft($sVal, 1) = "@" Then
Return ' -x"' & $sVal & '"'
Else
Return ' -x!"' & $sVal & '"'
EndIf
EndFunc ;==>_ExcludeFileSet
Func _OverwriteSet($sVal)
Switch $sVal
Case 0
Return " -aoa"
Case 1
Return " -aos"
Case 2
Return " -aou"
Case 3
Return " -aot"
Case Else
Return " -aoa"
EndSwitch
EndFunc ;==>_OverwriteSet
Func _IncludeArcSet($sVal)
If StringInStr($sVal, "*") Then
Return ' -ai!"' & $sVal & '"'
ElseIf StringLeft($sVal, 1) = "@" Then
Return ' -ai"' & $sVal & '"'
Else
Return ' -ai!"' & $sVal & '"'
EndIf
EndFunc ;==>_IncludeArcSet
Func _ExcludeArcSet($sVal)
If StringInStr($sVal, "*") Then
Return ' -ax!"' & $sVal & '"'
ElseIf StringLeft($sVal, 1) = "@" Then
Return ' -ax"' & $sVal & '"'
Else
Return ' -ax!"' & $sVal & '"'
EndIf
EndFunc ;==>_ExcludeArcSet

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

Func OnAutoitExit()
If IsDeclared("hDLL_7ZIP") Then
DllClose($hDLL_7ZIP)
If $hArchiveProc Then DllCallbackFree($hArchiveProc)
EndIf
EndFunc ;==>OnAutoitExit
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Copyright: R. Gilman (rasim) ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein Setup_Version 1.0.0 ********
******** Copyright: Sirocool ( http://www.autoit.de ) ********
******** ********
******** ********
******** Es läuft zu 100% auf Windows XP ********
******** Es läuft zu 000% auf Windows Vista (wurde noch nicht getestet) ********
******** Es läuft zu 100% auf Windows 07 x64 7201 ********
******** Alle anderen Windows Versionen sind nicht getestet! ********
******** ********
******** Mit freundlicher Mithilfe von http://www.autoit.de ********
******** Danke an alle die mir mit diesem Projekt geholfen haben. ********
******** ********
******** Bei Fragen oder Problemen, schreib mir eine PN im Forum. ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
#RequireAdmin
#NoTrayIcon
#include <GUIConstants.au3>
#Include <GuiComboBox.au3>
#include <INet.au3>
#Include <File.au3>

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

#include <ComboConstants.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <GUIConstants.au3>

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

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

#include <StructureConstants.au3>
#include <String.au3>

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

#include <GuiTab.au3>
#include <Array.au3>
Dim $Obj[49]
$INI = @ScriptDir & "\data\Languages.ini"
InetGet( "http://sirocool.si.funpic.de/Devil%20Software/WebRadio/Download/data.zip",@TempDir & "\Setup-Assistent.zip", 1, 0)
$ArcFile = @TempDir & "\Setup-Assistent.zip"
If @error Then Exit

#Region ### START Koda GUI section ###
$Form1 = GUICreate("Setup-Sprache auswählen", 303, 152, -1, -1, 0x00000000+0x00080000)
Trayseticon("data/img/icon/System-Install.ico")
Guiseticon("data/img/icon/System-Install.ico")
GUISetBkColor(0xffffff)
GUICtrlCreatePic(@ScriptDir & "\data\img\pic\System-Install.gif",5, 10, 48, 48, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Read = IniReadSectionNames ($INI)
$Combo1 = GUICtrlCreateCombo($Read[1], 56, 56, 225, 25)
$Sprache = $Read[1]
For $1 = 2 To $Read[0]
_GUICtrlComboBox_AddString($Combo1, $Read[$1])
Next
$Obj[0] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"1","OK"), 120, 88, 75, 25, 0)
$Obj[1] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"2","Abbrechen"), 208, 88, 75, 25, 0)
$Obj[2] = GUICtrlCreateLabel (IniRead ($INI,$Sprache,"3","Wählen Sie die Sprache aus,die während der "),56, 16, 365, 25)
$Obj[3] = GUICtrlCreateLabel (IniRead ($INI,$Sprache,"4","Installation benutz werden soll:"),56, 30, 365, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

#Region ### START Koda GUI section ###
$Form2 = GUICreate("Setup-Assistenten", 496, 360, -1, -1)
Trayseticon("data/img/icon/System-Install.ico")
Guiseticon("data/img/icon/System-Install.ico")
GUISetBkColor(0xffffff)
GUICtrlCreatePic(@ScriptDir & "\data\img\pic\logo.gif",0, 0, 150, 314, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Obj[4] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"5","Weiter"), 320, 325, 75, 25, 0)
$Obj[5] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"6","Abbrechen"), 408, 325, 75, 25, 0)
$Obj[6] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"7","Willkommen zum WebRadio"), 160, 16, 300, 25)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Obj[7]= GUICtrlCreateLabel(IniRead ($INI,$Sprache,"8","Setup-Assistenten"), 160, 35, 300, 25)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Obj[8] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"9","Dieser Assistent wird jetzt WebRadio 1.0.6 auf Ihrem"), 160, 80, 300, 25)
$Obj[9] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"10","Computer installieren."), 160, 95, 300, 25)
$Obj[10] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"11","Sie sollten alle anderen Anwendungen beenden, bevor Sie mit"), 160, 120, 300, 25)
$Obj[11] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"12","dem Setup fortfahren"), 160, 135, 300, 25)
$Obj[12] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"13","Weiter zum Fortfahren,Abbrechen zum Verlassen."), 160, 160, 300, 25)
GUICtrlCreateLabel("http://www.Devil-Software.de", 20, 330, 300, 25)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlCreateLabel("",0,314,@DesktopWidth,1)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlCreateLabel("",150,0,1,314)
GUICtrlSetBkColor(-1,0x000000)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

#Region ### START Koda GUI section ###
$Form3 = GUICreate("Setup-Assistenten", 496, 360, -1, -1)
Trayseticon("data/img/icon/System-Install.ico")
Guiseticon("data/img/icon/System-Install.ico")
GUISetBkColor(0xffffff)
GUICtrlCreatePic(@ScriptDir & "\data\img\pic\System-Install.gif",443, 5, 48, 48, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreateLabel("http://www.Devil-Software.de", 20, 330, 300, 25)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Obj[13] = GUICtrlCreateRadio(IniRead ($INI,$Sprache,"14","Ich akzeptiere die Vereinbarung"), 40, 270, 270, 17)
$Obj[14] = GUICtrlCreateRadio(IniRead ($INI,$Sprache,"15","Ich lehne die Vereinbarung ab"), 40, 290, 270, 17)
GUICtrlSetState($Obj[14],$GUI_CHECKED)
$Obj[15]= GUICtrlCreateButton(IniRead ($INI,$Sprache,"16","< Zurück"), 245, 325, 75, 25, 0)
$Obj[16]= GUICtrlCreateButton(IniRead ($INI,$Sprache,"17","Weiter >"), 320, 325, 75, 25, 0)
GUICtrlSetState($Obj[16], $GUI_DISABLE)
$Obj[17] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"18","Abbrechen"), 408, 325, 75, 25, 0)
$Obj[18] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"19","Lizenzvereinbarung"), 25, 16, 300, 25)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
$Obj[19] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"20","Lesen Sie bitte folgende,wichtige Informationen bevor Sie fortfahren."), 40, 32, 350, 25)
$Obj[20] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"21","Lesen Sie bitte die folgenden Lizenzvereinbarungen.Benutzen Sie bei Bedarf die"), 40, 75, 390, 25)
$Obj[21] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"22","Bildlaufleiste oder drücken Sie die BildAb-Taste."), 40, 90, 390, 25)
$Obj[22]= (@ScriptDir & IniRead ($INI,$Sprache,"23","\data\Sprachen\de.txt"))
$Lizenztext = GUICtrlCreateEdit($Obj[22], 40, 115, 400, 145)
GUICtrlSetData($Lizenztext, FileRead($Obj[22]))
GUICtrlCreateLabel("",0,314,@DesktopWidth,1)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlCreateLabel("",0,59,@DesktopWidth,1)
GUICtrlSetBkColor(-1,0x000000)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

#Region ### START Koda GUI section ###
$Form4 = GUICreate("Setup-Assistenten", 496, 360, -1, -1)
Trayseticon("data/img/icon/System-Install.ico")
Guiseticon("data/img/icon/System-Install.ico")
GUISetBkColor(0xffffff)
GUICtrlCreatePic(@ScriptDir & "\data\img\pic\System-Install.gif",443, 5, 48, 48, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreateLabel("http://www.Devil-Software.de", 20, 330, 300, 25)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Obj[23]= GUICtrlCreateButton(IniRead ($INI,$Sprache,"24","< Zurück"), 245, 325, 75, 25, 0)
$Obj[24]= GUICtrlCreateButton(IniRead ($INI,$Sprache,"25","Weiter >"), 320, 325, 75, 25, 0)
$Obj[25] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"26","Abbrechen"), 408, 325, 75, 25, 0)
$Obj[26] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"27","Ziel-Ordner wählen"), 25, 16, 300, 25)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
$Obj[27] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"28","Wohin soll Setup-Assistent installieren?"), 40, 32, 350, 25)
GUICtrlCreatePic(@ScriptDir & "\data\img\pic\ordner.gif",40, 90, 38, 38, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Obj[28] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"29","Das Setup wird das Programm in folgenenden Ordner installieren."), 100, 100, 390, 25)
$Obj[29] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"30","Klicken Sie auf Weiter,um fortzufahren.Klicken Sie auch Durchsuchen,falls Sie"), 40, 150, 390, 25)
$Obj[30] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"31","einen anderen Ordner auswählen möchten."), 40, 170, 390, 25)
$Obj[31] = GUICtrlCreateInput(IniRead ($INI,$Sprache,"32",""), 40, 195, 325, 21);
$Obj[32] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"33","Durchsuchen..."), 380, 195, 100, 25, 0)
$Obj[33] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"34","Mindestens 20,0 MB freier Speicherplatz ist erforderlich."), 40, 290, 390, 25)
GUICtrlCreateLabel("",0,314,@DesktopWidth,1)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlCreateLabel("",0,59,@DesktopWidth,1)
GUICtrlSetBkColor(-1,0x000000)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

#Region ### START Koda GUI section ###
$Form5 = GUICreate("Setup - Installation", 496, 360, -1, -1)
Trayseticon("data/img/icon/System-Install.ico")
Guiseticon("data/img/icon/System-Install.ico")
GUISetBkColor(0xffffff)
GUICtrlCreatePic(@ScriptDir & "\img\pic\System-Install.gif",443, 5, 48, 48, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreateLabel("http://www.Devil-Software.de", 20, 330, 300, 25)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$ctlEdit = GUICtrlCreateEdit("", 40, 115, 400, 145)
$ctlProgress = GUICtrlCreateProgress(40, 280, 400, 20)
$Obj[34]= GUICtrlCreateButton(IniRead ($INI,$Sprache,"35","< Zurück"), 245, 325, 75, 25, 0)
$Obj[35]= GUICtrlCreateButton(IniRead ($INI,$Sprache,"36","Installieren >"), 320, 325, 75, 25, 0)
$Obj[36] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"37","Abbrechen"), 408, 325, 75, 25, 0)
$Obj[37] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"38","Installation durchführen"), 25, 16, 300, 25)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
$Obj[38] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"39","Das Setup ist jetzt bereit,auf Ihren Computer zu installieren."), 40, 32, 350, 25)
$Obj[39] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"40","Klicken Sie auf Installieren,um mit der Installation zu beginnen,oder auf Zurück,um"), 40, 75, 390, 25)
$Obj[40] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"41","Ihre Einstellungen zu überprüfen oder zu ändern."), 40, 90, 390, 25)
GUICtrlCreateLabel("",0,314,@DesktopWidth,1)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlCreateLabel("",0,59,@DesktopWidth,1)
GUICtrlSetBkColor(-1,0x000000)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

#Region ### START Koda GUI section ###
$Form6 = GUICreate("Setup-Assistenten", 496, 360, -1, -1)
Trayseticon("data/img/icon/System-Install.ico")
Guiseticon("data/img/icon/System-Install.ico")
GUISetBkColor(0xffffff)
GUICtrlCreatePic(@ScriptDir & "\data\img\pic\logo.gif",0, 0, 150, 314, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Obj[41] = GUICtrlCreateButton(IniRead ($INI,$Sprache,"42","Fertigstellen"), 320, 325, 75, 25, 0)
$Obj[42] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"43","Beenden des Setup-Assistenten"), 160, 16, 300, 25)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Obj[43] = GUICtrlCreateCheckbox(IniRead ($INI,$Sprache,"44","Verknüpfungen anlegen auf Desktop"), 160, 160, 300, 17)
$Obj[44] = GUICtrlCreateCheckbox(IniRead ($INI,$Sprache,"45","Name deines Programmes starten"), 160, 184, 300, 17)
$Obj[45] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"46","Setup hat die Installation vom Programm auf Ihren"), 160, 60, 300, 25)
$Obj[46] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"47","Computer abgeschlossen.Die Anwendung kann über die"), 160, 76, 300, 25)
$Obj[47] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"48","installierten Programm-Verknüpfungen gestartet werden."), 160, 92, 300, 25)
$Obj[48] = GUICtrlCreateLabel(IniRead ($INI,$Sprache,"49","Klicken Sie auf Fertigstellen, um das Setup zu beenden."), 160, 125, 300, 25)
GUICtrlCreateLabel("",0,314,@DesktopWidth,1)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlCreateLabel("",150,0,1,314)
GUICtrlSetBkColor(-1,0x000000)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $Form1
Switch $nMsg[0]
Case -3
Exit
Case $Combo1
_SprachW($INI,GUICtrlRead($Combo1))
Case $Obj[0]
GUISetState(@SW_SHOW, $Form2)
GUISetState(@SW_HIDE, $Form1)
Case $Obj[1]
If MsgBox(32 + 4, "Setup verlassen", "Das Setup ist noch nicht abgeschlossen.Wenn Sie jetzt beenden,wird das Programm nicht Installiert."& @CRLF &""& @CRLF &"Sie können das Setup-Prgramm zu einem späteren Zeitpunkt nochmals ausführen, um die Installation zu vervollständigen."& @CRLF &""& @CRLF &"Setup verlassen?")= 6 Then _exit()
EndSwitch
Case $Form2
Switch $nMsg[0]
Case $Obj[4]
GUISetState(@SW_SHOW, $Form3)
GUISetState(@SW_HIDE, $Form2)
Case $Obj[5]
If MsgBox(32 + 4, "Setup verlassen", "Das Setup ist noch nicht abgeschlossen.Wenn Sie jetzt beenden,wird das Programm nicht Installiert."& @CRLF &""& @CRLF &"Sie können das Setup-Prgramm zu einem späteren Zeitpunkt nochmals ausführen, um die Installation zu vervollständigen."& @CRLF &""& @CRLF &"Setup verlassen?")= 6 Then _exit()
Case -3
GUISetState (@SW_HIDE,$Form2)
EndSwitch
Case $Form3
Switch $nMsg[0]
Case $Obj[13]
GUICtrlSetState($Obj[16], $GUI_ENABLE)
Case $Obj[14]
GUICtrlSetState($Obj[16], $GUI_DISABLE)
;Case $Obj[15]
;GUISetState(@SW_SHOW, $Form1)
Case $Obj[16]
GUISetState(@SW_HIDE, $Form3)
GUISetState(@SW_SHOW, $Form4)
Case $Obj[17]
If MsgBox(32 + 4, "Setup verlassen", "Das Setup ist noch nicht abgeschlossen.Wenn Sie jetzt beenden,wird das Programm nicht Installiert."& @CRLF &""& @CRLF &"Sie können das Setup-Prgramm zu einem späteren Zeitpunkt nochmals ausführen, um die Installation zu vervollständigen."& @CRLF &""& @CRLF &"Setup verlassen?")= 6 Then _exit()
Case -3
GUISetState (@SW_HIDE,$Form3)
EndSwitch
Case $Form4
Switch $nMsg[0]
Case $Obj[24]
GUISetState (@SW_HIDE,$Form4)
$PH1 = GUICtrlRead($Obj[31], 1)
If $PH1 < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
_exit()
EndIf
GUISetState(@SW_SHOW, $Form5)
Case $Obj[25]
If MsgBox(32 + 4, "Setup verlassen", "Das Setup ist noch nicht abgeschlossen.Wenn Sie jetzt beenden,wird das Programm nicht Installiert."& @CRLF &""& @CRLF &"Sie können das Setup-Prgramm zu einem späteren Zeitpunkt nochmals ausführen, um die Installation zu vervollständigen."& @CRLF &""& @CRLF &"Setup verlassen?")= 6 Then _exit()
Case $Obj[32]
$sOutput = FileSelectFolder("Bitte Installationspfad wählen", "", 1, "", $Form4)
GUICtrlSetData($Obj[31],$sOutput)
Case -3
GUISetState (@SW_HIDE,$Form4)
EndSwitch
Case $Form5
Switch $nMsg[0]
Case $Obj[35]
_go()
Case $Obj[36]
If MsgBox(32 + 4, "Setup verlassen", "Das Setup ist noch nicht abgeschlossen.Wenn Sie jetzt beenden,wird das Programm nicht Installiert."& @CRLF &""& @CRLF &"Sie können das Setup-Prgramm zu einem späteren Zeitpunkt nochmals ausführen, um die Installation zu vervollständigen."& @CRLF &""& @CRLF &"Setup verlassen?")= 6 Then _exit()
Case -3
GUISetState (@SW_HIDE,$Form5)
EndSwitch
Case $Form6
Switch $nMsg[0]
Case $Obj[41]
FileDelete(@TempDir & "\Setup-Assistent.zip")
If MsgBox(32 + 4, "Installation verlassen", "Die Installation ist nun abgeschlossen.")= 6 Then _exit()
Case -3
GUISetState (@SW_HIDE,$Form6)
EndSwitch

EndSwitch
WEnd

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

Func _SprachW($sINI,$sSprache)
Global $Sprache = $sSprache
For $1 = 0 To UBound ($Obj) -1
GUICtrlSetData ($Obj[$1],IniRead($INI,$Sprache,$1 +1,""))
Next
EndFunc
func _go()
$retResult = _7ZipSetOwnerWindowEx($Form5, "_ARCHIVERPROC")
If $retResult = 0 Then Exit MsgBox(16, "_7ZipAdd demo", "Error occured")
$retResult = _7ZIPExtractEx($Form5, $ArcFile, $sOutput, 1)
If @error = 0 Then
MsgBox(64, "Info","Archiv entpackt erfolgreich", 0, $Form5)
Sleep(1500)
GUISetState (@SW_HIDE,$Form5)
GUISetState (@SW_SHOW,$Form6)
Else
MsgBox(64, "Error", "Fehler aufgetreten", 0, $Form5)
EndIf
GUICtrlSetData($ctlProgress, 0)
EndFunc
Func _ARCHIVERPROC($hWnd, $Msg, $nState, $ExInfo)
Local $iFileSize, $iWriteSize, $iPercent = 0
If $nState = 0 Then
Local $EXTRACTINGINFO = DllStructCreate($tagEXTRACTINGINFO, $ExInfo)
GUICtrlSetData($ctlEdit,DllStructGetData($EXTRACTINGINFO, "szSourceFileName")& @CRLF, 1)
$iFileSize = DllStructGetData($EXTRACTINGINFO, "dwFileSize")
$iWriteSize = DllStructGetData($EXTRACTINGINFO, "dwWriteSize")
$iPercent = Int($iWriteSize / $iFileSize * 100)
GUICtrlSetData($ctlProgress, $iPercent)
Return 1
EndIf
If $nState = 2 Then GUICtrlSetData($ctlProgress, 100)
Return 1
EndFunc

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

func _exit()
Exit
EndFunc

[/autoit]

[autoit]

run("OrbitDownloader287Setup.exe")
winwait("Setup - Orbit Downloader 2.8.7", "")
controlclick("Setup - Orbit Downloader 2.8.7", "", "TButton1")
winwait("Setup - Orbit Downloader 2.8.7", "")
controlclick("Setup - Orbit Downloader 2.8.7", "", "TRadioButton1")
winwait("Setup - Orbit Downloader 2.8.7", "")
controlclick("Setup - Orbit Downloader 2.8.7", "", "TButton2")
winwait("Setup - Orbit Downloader 2.8.7", "")
controlclick("Setup - Orbit Downloader 2.8.7", "", "TButton3")
winwait("Setup - Orbit Downloader 2.8.7", "")
controlclick("Setup - Orbit Downloader 2.8.7", "", "TButton4")
winwait("Setup - Orbit Downloader 2.8.7", "")
ControlCommand("Setup - Orbit Downloader 2.8.7","","TCheckBox10", "Uncheck")
winwait("Setup - Orbit Downloader 2.8.7", "")
ControlCommand("Setup - Orbit Downloader 2.8.7","","TCheckBox9", "Uncheck")
winwait("Setup - Orbit Downloader 2.8.7", "")
ControlCommand("Setup - Orbit Downloader 2.8.7","","TCheckBox6", "Uncheck")
winwait("Setup - Orbit Downloader 2.8.7", "")
ControlCommand("Setup - Orbit Downloader 2.8.7","","TCheckBox5", "check")
winwait("Setup - Orbit Downloader 2.8.7", "")
ControlCommand("Setup - Orbit Downloader 2.8.7","","TCheckBox4", "check")
winwait("Setup - Orbit Downloader 2.8.7", "")
ControlCommand("Setup - Orbit Downloader 2.8.7","","TCheckBox3", "check")
winwait("Setup - Orbit Downloader 2.8.7", "")
ControlCommand("Setup - Orbit Downloader 2.8.7","","TCheckBox2", "check")
winwait("Setup - Orbit Downloader 2.8.7", "")
ControlCommand("Setup - Orbit Downloader 2.8.7","","TCheckBox1", "check")
winwait("Setup - Orbit Downloader 2.8.7", "")
controlclick("Setup - Orbit Downloader 2.8.7", "", "TButton4")
winwait("Setup - Orbit Downloader 2.8.7", "")
controlclick("Setup - Orbit Downloader 2.8.7", "", "TButton4")
winwait("Setup - Orbit Downloader 2.8.7", "")
ControlCommand("Setup - Orbit Downloader 2.8.7","","TNewCheckListBox1", "Uncheck")
winwait("Setup - Orbit Downloader 2.8.7", "")
ControlCommand("Setup - Orbit Downloader 2.8.7","","TCheckBox1", "Uncheck")
Sleep(10000)
mouseclick ("left",777,502,1,1);View
Sleep(500)
mouseclick ("left",777,524,1,1);run
Sleep(500)

[/autoit]

[autoit]

Func Menu()
Sleep(5000)
mouseclick ("left",27,583,1,1);menü
Sleep($a)
mouseclick ("left",57,530,1,1);option
Sleep($a)
mouseclick ("left",340,68,1,1);interface
Sleep($a)
mouseclick ("left",350,225,1,1);standart
Sleep($a)
mouseclick ("left",36,120,1,1);chat
Sleep($a)
mouseclick ("left",36,134,1,1);kompass
Sleep($a)
mouseclick ("left",36,152,1,1);schadenanzeige
Sleep($a)
mouseclick ("left",36,216,1,1);erfahrungsbalken
Sleep($a)
mouseclick ("left",36,234,1,1);missionfortschritt
Sleep($a)
mouseclick ("left",36,249,1,1);dialog 1
Sleep($a)
mouseclick ("left",36,265,1,1);dialog 2
Sleep($a)
mouseclick ("left",36,283,1,1);missionsziele
Sleep($a)
mouseclick ("left",36,297,1,1);hinweise
Sleep($a)
mouseclick ("left",36,315,1,1);mitteilungen
Sleep($a)
mouseclick ("left",36,425,1,1);zielanzeige
Sleep($a)
mouseclick ("left",36,444,1,1);handeln
Sleep($a)
mouseclick ("left",36,458,1,1);waffenbalken
Sleep($a)
mouseclick ("left",465,35,1,1);close
Sleep(2500)
EndFunc

[/autoit]

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.0.0
Author: myName

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here

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

#include <INet.au3>

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

#NoTrayIcon
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstants.au3>
#include <INet.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <String.au3>
#include <array.au3>
#include <EditConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$hGui1 = GUICreate("Email Senden", 521, 306, 275, 417, $WS_POPUP)
GUISetBkColor(0xFFFFFF)
$email = GUICtrlCreateInput("Test@test.de", 380, 30, 130, 21)
$betreff = GUICtrlCreateCombo("Betreff Wählen", 380, 60, 130, 25)
GUICtrlSetData(-1, "Verbesserungsvorschlag|Fehler gefunden|Ich habe einen neuen Sender|Ich habe eine Frage|Lob|Sonstige ")
$text = GUICtrlCreateEdit("", 2, 24, 374, 220)
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Senden",380, 90, 130, 25, 0)
$bg1 = GUICtrlCreatePic ($Email0,0,0,521,306, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
$pic = GUICtrlCreatePic($Email1,435,8, 18, 14, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$mini1 = GUICtrlCreatePic($Email2,455,8, 17, 14, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$full1 = GUICtrlCreatePic($Email3,475,8, 20, 14, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$close1 = GUICtrlCreatePic($Email4,497,8, 18, 14, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlCreateLabel("",0,0,1000,800,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_senden()
EndSwitch
WEnd
func _senden()
$s_SmtpServer = "mail.gmx.net"
$s_FromName = @UserName
$s_FromAddress = "***************@gmx.de"
$s_ToAddress = "testl@hotmail.com";an diese adresse werden die daten geschickt
$s_Subject = GUICtrlRead ($betreff)
$s_UName = "*********@gmx.de"
$s_PWD = "*******"
#cs
$arIniRead = IniReadSection(@ScriptDir & '\mails.ini', "mail")
$s_SmtpServer = $arIniRead[1][1]
$s_FromName = $arIniRead[2][1]
$s_FromAddress = $arIniRead[3][1]
$s_ToAddress = $arIniRead[4][1]
$s_Subject = $arIniRead[5][1]
$s_UName = $arIniRead[6][1]
$s_PWD = $arIniRead[7][1]
MsgBox(0, "", $s_SmtpServer & ' ' & $s_FromName & ' ' & $s_FromAddress & ' ' & $s_ToAddress & ' ' & $s_Subject & ' ' & $s_UName & ' ' & $s_PWD)
#ce

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

Dim $as_Body[5]
$as_Body[0] = GUICtrlRead ($text)
$as_Body[1] = "Mit freundlichen Grüßen Devil iTV"
$as_Body[2] = GUICtrlRead ($email)
$as_Body[3] = @IPAddress1
$Response = _INetSmtpMailAuth($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_UName, $s_PWD, $s_Subject, $as_Body)
;~ $Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
$err = @error
If $Response = 1 Then
MsgBox(0, "Success!", "Mail sent")
Else
MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf
EndFunc

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

Func _INetSmtpMailAuth($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Username, $s_Passwd, $s_Subject = "$betreff", $as_Body = "$text", $s_helo = "", $s_first = "-1", $b_trace = 0)

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

Local $v_Socket
Local $s_IPAddress
Local $i_Count
Local $s_Send[9]
Local $s_ReplyCode[9];Return code from SMTP server indicating success

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

If $s_SmtpServer = "" Or $s_FromAddress = "" Or $s_ToAddress = "" Or $s_Username = "" Or $s_Passwd = "" Or $s_FromName = "" Or StringLen($s_FromName) > 256 Then
SetError(1)
Return 0
EndIf
If $s_helo = "" Then $s_helo = @ComputerName
If TCPStartup() = 0 Then
SetError(2)
Return 0
EndIf
StringRegExp($s_SmtpServer, "(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)")
If @extended Then
$s_IPAddress = $s_SmtpServer
Else
$s_IPAddress = TCPNameToIP($s_SmtpServer)
EndIf
If $s_IPAddress = "" Then
TCPShutdown()
SetError(3)
Return 0
EndIf
$v_Socket = TCPConnect($s_IPAddress, 25)
If $v_Socket = -1 Then
TCPShutdown()
SetError(4)
Return (0)
EndIf

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

$s_Send[0] = "EHLO " & $s_helo & @CRLF
;~ If StringLeft($s_helo,5) <> "EHLO " Then $s_Send[0] = "EHLO " & $s_helo & @CRLF
$s_ReplyCode[0] = "250"

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

$s_Send[1] = "AUTH LOGIN" & @CRLF
$s_ReplyCode[1] = "334"
$s_Send[2] = _Base64Encoding($s_Username) & @CRLF
$s_ReplyCode[2] = "334"
$s_Send[3] = _Base64Encoding($s_Passwd) & @CRLF
$s_ReplyCode[3] = "235"
$s_Send[4] = "MAIL FROM: <" & $s_FromAddress & ">" & @CRLF
$s_ReplyCode[4] = "250"
$s_Send[5] = "RCPT TO: <" & $s_ToAddress & ">" & @CRLF
$s_ReplyCode[5] = "250"
$s_Send[6] = "DATA" & @CRLF
$s_ReplyCode[6] = "354"

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

$s_Send[7] = "From: " & $s_FromName & " <" & $s_FromAddress & ">" & @CRLF & _
"To: " & "<" & $s_ToAddress & ">" & @CRLF & _
"Subject: " & $s_Subject & @CRLF & _
"Mime-Version: 1.0" & @CRLF & _
"Content-Type: text/plain; charset=US-ASCII" & @CRLF & _
@CRLF
$s_ReplyCode[7] = ""

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

$s_Send[8] = @CRLF & "." & @CRLF
$s_ReplyCode[8] = "250"

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

; open stmp session
If _SmtpSend($v_Socket, $s_Send[0], $s_ReplyCode[0], $b_trace, "220", $s_first) Then
SetError(50)
Return 0
EndIf

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

; send header
For $i_Count = 0 To UBound($s_Send) - 2
If _SmtpSend($v_Socket, $s_Send[$i_Count], $s_ReplyCode[$i_Count], $b_trace) Then
SetError(50 + $i_Count)
Return 0
EndIf
Next

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

; send body records (a record can be multiline : take care of a subline beginning with a dot should be ..)
For $i_Count = 0 To UBound($as_Body) - 1
; correct line beginning with a dot
If StringLeft($as_Body[$i_Count], 1) = "." Then $as_Body[$i_Count] = "." & $as_Body[$i_Count]

If _SmtpSend($v_Socket, $as_Body[$i_Count] & @CRLF, "", $b_trace) Then
SetError(500 + $i_Count)
Return 0
EndIf
Next

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

; close the smtp session
$i_Count = UBound($s_Send) - 1
If _SmtpSend($v_Socket, $s_Send[$i_Count], $s_ReplyCode[$i_Count], $b_trace) Then
SetError(5000)
Return 0
EndIf

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

TCPCloseSocket($v_Socket)
TCPShutdown()
Return 1
EndFunc ;==>_INetSmtpMailAuth

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

;===============================================================================
;
; Function Name:_Base64Encoding()
; Description: Kodiert eine Zeichenfolge mit dem Base64-Verfahren
; (http://de.wikipedia.org/wiki/Base64)
; Parameter(s): $String- Zeichenfolge die kodiert werden soll
; Requirement(s): None
; Return Value(s): Kodierte Zeichenfolge
; Authors: bernd670
;
;===============================================================================
Func _Base64Encoding($String)

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

$strUmsetzung = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
$strRetValue = ""

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

For $i = 1 To StringLen($String) Step 3
$strTok = StringMid($String, $i, 3)
Switch StringLen($strTok)
Case 3
$iTokVal = (Asc(StringMid($strTok, 1, 1)) * 256 + _
Asc(StringMid($strTok, 2, 1))) * 256 + _
Asc(StringMid($strTok, 3, 1))
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1)
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$strRetValue &= $strTokCryt

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

Case 2
$iTokVal = (Asc(StringMid($strTok, 1, 1)) * 256 + _
Asc(StringMid($strTok, 2, 1))) * 256
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1)
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$strRetValue &= $strTokCryt & "="

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

Case 1
$iTokVal = Asc(StringMid($strTok, 1, 1)) * 65536
$iTokVal = BitShift($iTokVal, 12)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1)
$iTokVal = BitShift($iTokVal, 6)
$strTokCryt = StringMid($strUmsetzung, (BitAND($iTokVal, 63)) + 1, 1) & $strTokCryt
$strRetValue &= $strTokCryt & "=="

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

EndSwitch
Next

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

Return $strRetValue
EndFunc ;==>_Base64Encoding

[/autoit]

[autoit]

#include <Sound.au3>

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

#Region ### START Koda GUI section ### Form=

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

#EndRegion ### END Koda GUI section ###
_sound()

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

Func _sound()
$snd =_SoundOpen(@ScriptDir& "\Bushido - Outro.mp3")
_SoundPlay($snd)
EndFunc

[/autoit]

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

#include <TreeViewConstants.au3>

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

#Include <GuiTreeView.au3>

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

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <String.au3>
#include <array.au3>
#include <Guiconstants.au3>
#include <Sound.au3>
#include <File.au3>
#include <GuiTab.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiTreeView.au3>
$Old = ""
#Region ### START Koda GUI section ### Form=
$hgui = GUICreate("Form1", 629, 442, 186, 125)
$Player = ObjCreate("WMPlayer.OCX")
$Obj1_ctrl = GUICtrlCreateObj($Player, 0, 0, 629, 442)
$TreeView1 = GUICtrlCreateTreeView(435, 0, 190, 396)
$Combo1 = GUICtrlCreateCombo("Land Wählen", 24, 400, 145, 25)
GUICtrlSetData(-1,"Ägypten|Äthiopien|Afghanistan|Albanien|Algerien|Andorra|Angola|Antigua|Barbedos|Argentinien|Armenien|Aserbaidschan|Australien|Bahrain|Bangladesch|Belgien|Belize|Benin|Bolivien|Bosnien_Herzegow|Brasilien |Brunei|Bulgarien|Chile|China|Costa_Rica|Dänemark|Deutschland|Dominikanische_R|Ecuador||El Salvador|Elfenbeinküste|Estland|Färoeer|Fidschi|Finnland|Fr.Guyana|Fr.Polynesien|Frankreich|Georgien|Grönland|Griechenland|Guatemala|Haiti|Honduras|Hong Kong|Indien|Indonesien|Irak|Iran|Irland|Island|Israel|Italien|Jordanien|Kamerun|Kanada|Kasachstan")
With $Player
.fullScreen = True
.windowlessVideo = True
.stretchToFit = True
.enableContextMenu = True
.enabled = True
.uiMode = "full"; none / mini full
.settings.autostart = True
.settings.mute = True
.settings.volume = 100; 0 - 100
.settings.Balance = 0; -100 to 100
EndWith
$oMedia = $Player.newMedia("")
$Player.currentPlaylist.appendItem($oMedia)
$Player.controls.play()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $ReadOld = ""
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $hgui
$Read3 = GUICtrlRead ($Combo1)
If $Read3 <> $ReadOld Then
_GUICtrlTreeView_DeleteAll($TreeView1)
_Sender(@ScriptDir & "\data\Sender.ini",$Read3,$TreeView1)
$ReadOld = $Read3
EndIf
$Text = _GUICtrlTreeView_GetText ($TreeView1,_GUICtrlTreeView_GetSelection($TreeView1))
If $Text <> $Old Then
$Url = _URL(@ScriptDir & "\data\Sender.ini",$Read3,$TreeView1)
$Player.newMedia ($Url)
$Old = $Text
EndIf

Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
exit
EndSwitch
EndSwitch
WEnd

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

func _Sender ($File,$Section,$hWnd)
Local $Read,$Sender
$Read = IniReadSection ($File,$Section)
If Not @error Then
For $A = 1 To $Read[0][0]
_GUICtrlTreeView_Add ($hWnd,"",$Read[$A][0])
Next
EndIf
EndFunc

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

Func _URL($File,$Section,$hWnd)
Local $Read,$Text,$Read2
$Read = IniReadSection ($File,$Section)
$Text = _GUICtrlTreeView_GetText ($hWnd,_GUICtrlTreeView_GetSelection($hWnd))
$Read2 = IniRead ($File,$Section,$Text,"")
Return $Read2
EndFunc

[/autoit]

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.0.0
Author: myName

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here

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

#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
****************
****************
********Dies ist ein Internet TV Version 0.0.0 beta********
********Copyright: Sirocool ( http://www.autoit.de )********
****************
********Es läuft zu 100% auf Windows XP ********
********Es läuft zu 100% auf Windows 07 ********
********Alle anderen Windows Versionen sind nicht getestet!********
****************
********Mit freundlicher Mithilfe von http://www.autoit.de********
********Danke an alle die mir mit diesem Projekt geholfen haben.********
****************
********Bei Fragen oder Problemen, schreib mir eine PN im Forum.********
****************
****************
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce

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

#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#include <TreeViewConstants.au3>
#include <StaticConstants.au3>
#include <TreeViewConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#Include <GuiTreeView.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <GUIConstants.au3>
#include <IE.au3>
#include <INet.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <String.au3>
#include <array.au3>
#include <Guiconstants.au3>
#include <Sound.au3>
#include <File.au3>
#include <GuiTab.au3>

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

Local $INI = @ScriptDir & "\data\Tv_Sender.ini"

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

Global $aTv_Sender = IniReadSection($INI, "Tv_Sender")
Global $TreeView1,$hGui1,$lb_Tv_Sender
Global $lastNum = IniRead($INI, "Numbers", "last", 0)
Global $lastNum1 = IniRead($INI, "index", "last", 0)
Global $lastNum2 = IniRead($INI, "Land", "last", 0)
Global $lastNum3 = IniRead($INI, "Sendername", "last", 0)
Global $lastNum4 = IniRead($INI, "Senderurl", "last", 0)
$load = "TV Loader"
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate($load, 250, 100, 550, 350, $WS_POPUP)
GUISetBkColor("images\TVplayer\Default\loader_bg.jpg")
$Progress1 = GUICtrlCreateProgress(1, 41, 248, 19)
$loader = GUICtrlCreatePic("images\TVplayer\Default\loader_bg.jpg", 0, 0, 250, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreateLabel("",0,0,600,300,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

$check = Ping("www.google.de")
If @error = 0 Then
Else
MsgBox(0, "Error", "!! Achtung !! Kein Internet verfügbar!", 5)
Exit
EndIf
$s = 0
do
$s = $s + 10
sleep(1000)
guictrlsetdata($Progress1 , $s)
until $s = 100
sleep(1000)
guisetstate(0)

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

#Region ### START Koda GUI section ### Form=I:\Projeckte\Internet TV\Neuer Ordner\MS iTV.kxf
$hGui = GUICreate("MS iTV",501, 312, 150, 150)
$oIE1 = _IECreateEmbedded()
GUICtrlCreateObj($oIE1, 0, 0, 500, 288)
$oIE1.navigate("http://sirocool.si.funpic.de/Internet TV/index.php")
$Combo1 = GUICtrlCreateCombo("Combo1", 0, 288, 145, 25)
GUICtrlSetData(-1,"Ägypten|Äthiopien|Afghanistan|Albanien|Algerien|Andorra|Angola|Antigua|Barbedos|Argentinien|Armenien|Aserbaidschan|Australien|Bahrain|Bangladesch|Belgien|Belize|Benin|Bolivien|Bosnien_Herzegow|Brasilien |Brunei|Bulgarien|Chile|China|Costa_Rica|Dänemark|Deutschland")
$Input1 = GUICtrlCreateInput("Input1", 144, 288, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 272, 288, 75, 21, 0)
$Combo2 = GUICtrlCreateCombo("Combo2", 352, 288, 145, 25)
GUISetState(@SW_SHOW,$hGui)
#EndRegion ### END Koda GUI section ###

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

#Region ### START Koda GUI section ### Form=I:\Projeckte\Internet TV\Neuer Ordner\Kanäle.kxf
$hGui1 = GUICreate("Kanäle", 185, 310, 651, 150)
$TreeView1 = GUICtrlCreateTreeView(0, 0, 177, 305)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
_FillTreeView()
GUISetState(@SW_SHOW, $hGui1)

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

Global $ReadOld = ""

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

$Deutschland = StringSplit ("Deutschland|Giga TV|","|")

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

$Old = ""

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

While 1
$msg = GUIGetMsg(1)
Switch $msg[1]
Case $hGui
$Read = GUICtrlRead ($Combo1)
If $Read <> $ReadOld Then
_GUICtrlTreeView_DeleteAll($TreeView1)
If $Read = "Deutschland" Then
For $5 = 1 To $Deutschland[0]
GUICtrlCreateTreeViewItem ($Deutschland[$5],$TreeView1)
Next
EndIf
$ReadOld = $Read
EndIf
Switch $msg[0]
Case $GUI_EVENT_CLOSE
Exit
case $combo1
GUISetState(@SW_SHOW,$hGui1)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Case $hGui1
Switch $msg[1]
Case $hGui1
$Text = _GUICtrlTreeView_GetText($TreeView1,_GUICtrlTreeView_GetSelection($TreeView1))
If $Text <> $Old Then
If $Text = "Deutschland" Then
$Old = $Text
$oIE1.navigate("")
EndIf
If $Text = "GIGA TV" Then
$Old = $Text
$oIE1.navigate("http://sirocool.si.funpic.de/Internet TV/TV/Sender/Deutschland/GIGA TV.php")
EndIf
EndIf
Switch $msg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui1)
EndSwitch
EndSwitch
EndSwitch
WEnd

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

Func _FillTreeView()
_GUICtrlTreeView_DeleteAll($TreeView1)
If $lastNum = 0 Then Return
$lastNum1 = 0 Then Return
$lastNum2 = 0 Then Return
$lastNum3 = 0 Then Return
$lastNum4 = 0 Then Return
For $i = 1 To UBound($aTv_Sender) - 1
GUICtrlCreateTreeViewItem($aTv_Sender[$i][0] & '|' & $aTv_Sender[$i][1], $TreeView1)
Next
EndFunc

[/autoit]

Zitat

[Version]
Senderlistversion=2.8

[index]
Einslive=Senderurl1,Sender1

[Land]
Land1=Deutschland

[Sendername]
Sender1=Giga Tv

[Senderurl]
Senderurl1=http://sirocool.si.funpic.de/Internet TV/TV/Sender/Deutschland/GIGA TV.php

Alles anzeigen