#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Skype.ico
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <FTPEx.au3>
#include <GDIPlus.au3>



Const $Version__ = "Beta 0.1"
Global $zaehler = 1, $brush, $status_el, $count2, $link = "http://www.youtube.com/AlexEpvpSF" , $p_percent = 0



#region ### START Koda GUI section ### Form=
$ControlPanel = GUICreate("ControlPanel", 634, 464, 196, 124,Default)
_GDIPlus_Startup()
$ini_graphics = _GDIPlus_GraphicsCreateFromHWND($ControlPanel)
$ControlTab = GUICtrlCreateTab(0, 0, 633, 25)
$main = GUICtrlCreateTabItem("main")
$Version = GUICtrlCreateLabel("Version", 8, 32, 400, 25)
$L_zaehler = GUICtrlCreateLabel("", 392, 60, 233, 25)
$Download = GUICtrlCreateButton("Download", 392, 32, 233, 25)
GUICtrlSetState($Download, $GUI_DISABLE)
$Status = GUICtrlCreateLabel("Status", 16, 64, 34, 17)
$input_skype = GUICtrlCreateInput("Script Pfad", 8, 300, 250, 25)
$browse = GUICtrlCreateButton("Browse", 290, 300, 100, 25)
$start_manual = GUICtrlCreateButton("starten", 390, 300, 100, 25)
GUIctrlSetState( $start_manual,$GUI_DISABLE)
$Up_status=GUICtrlCreateLabel("",20,400,300,50)
$p_status=GUICtrlCreateProgress(350,400,200,20)
$Credits = GUICtrlCreateTabItem("Credits")
$credits = GUICtrlCreateLabel("Credits:   Programm : SilvesterZ alias AlexEpvp alias Alexander K.",12,100,600,200)
GUICtrlSetFont($credits,15,500,2)
GUISetState(@SW_SHOW,$ControlPanel)
#endregion ### END Koda GUI section ###

While not WinExists("[CLASS:tSkMainForm]")
	GUICtrlSetData($Up_status,"Warten auf Skype.......")
	GUICtrlSetData($p_status,$p_percent)
	$p_percent += 10
	if $p_percent > 100 Then
		$p_percent = 0
		EndIf
	sleep(1000)
	WEnd

$connect = _FTP_Connect(_FTP_Open("Updating..."), "ftp://silvesterz.si.funpic.de", "ftp1811380", "1234567890")
GUICtrlSetData($Up_status,"Verbinde ( Version   |   test) .....")
GUICtrlSetData($p_percent,0)

If @error Then
	GUICtrlSetData($Version, "Version : Internet Probleme...")

Else
	_FTP_FileGet($connect, "/@Version.CFG", @TempDir & "Version.CFG")
If @error Then
	GUICtrlSetData($Version, "Version : Internet Probleme | konnte Version nicht abfragen...")
Else
	GUICtrlSetData($Up_status,"abgeschlossen...")
	GUICtrlSetData($p_percent,100)
EndIf
EndIf


$loadVersion = IniRead(@TempDir & "Version.CFG", "version", "version", "NOT::HERE")
If $loadVersion = "NOT::HERE" Then
	$loadVersion = "Lese Probleme"


EndIf
GUICtrlSetData($Version, "Version : " & $Version__ & "      neuste Version : " & $loadVersion)
If $loadVersion <> $Version__ Then

	GUICtrlSetState($Download, $GUI_ENABLE)
	_GDI_Status(2)
	$count2 = 2

Else
	_GDI_Status(1)
	$count2 = 1
EndIf
FileDelete(@TempDir & "Version.CFG")




_LoadStart()

While 1
	If $count2 = 1 Then
		_GDI_Status(1)
	Else
		_GDI_Status(2)
	EndIf

	$nMsg = GUIGetMsg($ControlPanel)
	Switch $nMsg
		Case $GUI_EVENT_CLOSE


			_GDIPlus_GraphicsDispose($status_el)
			_GDIPlus_GraphicsDispose($ini_graphics)
			_GDIPlus_BrushDispose($brush)
			_GDIPlus_Shutdown()

			Exit
		Case $Download

			_StartOpening()
			ShellExecute($link)
		Case $browse
			$load_script = FileOpenDialog("Bitte Script auswählen", @ScriptDir, "EXE(*.exe)")
			GUICtrlSetData($input_skype, $load_script)
			IniWrite(@ScriptDir & "\-s.CFG", "path", "path", $load_script)
		case $start_manual

			ShellExecute(GUICtrlRead($input_skype))



	EndSwitch
WEnd













Func _StartOpening()
	For $i = 1 To 150 Step 1
		Switch $zaehler
			Case 1
				GUICtrlSetData($L_zaehler, "Verarbeite .")
			Case 2
				GUICtrlSetData($L_zaehler, "Verarbeite ..")
			Case 3
				GUICtrlSetData($L_zaehler, "Verarbeite ...")

		EndSwitch
		$zaehler += 1
		Sleep(100)
	Next
EndFunc   ;==>_StartOpening

Func _GDI_Status($count)
	If $count = 1 Then
		$brush = _GDIPlus_BrushCreateSolid(0x9900FF00)
		$status_el = _GDIPlus_GraphicsFillEllipse($ini_graphics, 60, 65, 10, 10, $brush)
	Else
		$brush = _GDIPlus_BrushCreateSolid(0x99FF0000)
		$status_el = _GDIPlus_GraphicsFillEllipse($ini_graphics, 60, 65, 10, 10, $brush)
	EndIf
EndFunc   ;==>_GDI_Status


Func _LoadStart()

	$loadstart = IniRead(@ScriptDir & "\-s.CFG","path","path","NOT::HERE")
	if $loadstart = "NOT::HERE" Then
		GUIctrlSetState($start_manual,$GUI_ENABLE)

	Else
		GUIctrlSetState($start_manual,$GUI_DISABLE)
		GUICtrlSetData($input_skype,$loadstart)
		ShellExecute($loadstart)
	EndIf
	EndFunc