Code "sauberer" machen

Goldy

Hallo Leute ;D

Ich schreibe mal wieder ein Programm
Und wollte halt fragen ob ihr mal so über den Code ab und zu schauen könnt und mir sagen könntet
wo ich den Code bessere kürzer etc. machen kann ;D

Also hier mal der Anfang :
Den Exit Button habe ich bestimmt Komplizierter gelöst als es eigentlich ist

Spoiler anzeigen

[autoit]

#NoTrayIcon
; =======================================================================
; Game Launcher
; Made by Goldy
; © 2010
;
; =======================================================================
#Include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

; Code Anfang (Design)

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

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Game Launcher © by Goldy", 453, 260, 437, 472)
$Button1 = GUICtrlCreateButton("Exit", 312, 224, 129, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Start", 8, 224, 129, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("Website", 160, 224, 129, 25)
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
_exit()

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

EndSwitch
WEnd

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

Func _exit()
exit
EndFunc

[/autoit]

hellboy3

[autoit]

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

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

; Code Anfang (Design)

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 453, 260, 346, 178)
$Button1 = GUICtrlCreateButton("EXIT BUTTON", 24, 152, 393, 81)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("START BUTTON", 24, 24, 393, 81)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit

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

EndSwitch
WEnd

[/autoit]

Skilkor

~~hehe was das Exit angeht, da haste recht~~

[autoit]Case $Button1
Exit
[/autoit]

~~reicht völlig ^~~^
mist
hellboy3
wahr schneller xD

Goldy

Vielen dank habe das auch schon so gemacht ,
btw , darauf hätte ich auch selber kommen müssen

Naja , war mir halt nicht sicher deswegen gefragt

Wie kann ich es machen das, wenn man auf den Button klickt das er
eine Website öffnet ?

Also habe auf http://translation.autoit.de/onlinehilfe

nach http gesucht , aber habe nur was mit Proxy gefunden,
Website brachte auch keinen Erfolg ^.-

Goldy

m-obi

so:

[autoit]

ShellExecute("opera.exe", "http://www.google.de", "C:\Program Files\Opera\")

[/autoit]

übrigens kannst du dir die Hilfe auch runterladen auf der linken Seite.

Goldy

Ok , werde ich mal machen , war halt nur auf die schnelle

Btw, kann man nicht einfach den Standartbrowser (weis net ob es dafür einen Befehl gibt) reinschreiben/proggen ?

Weil , ist ja nicht nur für mich und wenn nur ich z.B. Google Chrom benutze , aber der andere nicht , wäre das Blöd

hellboy3

dann mach einfach nur

[autoit]

ShellExecute("Link")

[/autoit]

Goldy

Ok merke ich mir

Das Forum hier ist und bleibt halt die Nr.1 wenn man hilfe braucht ;D

Goldy

So ich melde mich dann nochmals ;D

Ich habe von hellboy3 (vielen dank) diesen Code bekommen :

Spoiler anzeigen

[autoit]

Global $VersionsInfo = "http://goldy.square7.ch/test/Version.txt"
Global $Neueversion = "http://goldy.square7.ch/test/updates"
Global $ProgrammVersion = "1.1.2"

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

Func update()

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

$Ini = InetGet($VersionsInfo, @ScriptDir & "\Version.ini") ;Laed die Version.txt vom Webspace herunter und wandelt sie in Version.ini um.
If $Ini = 0 Then
MsgBox(0, "ERROR", "Es ist ein Fehler aufgetreten, bitte überprüfen Sie Ihre Internetverbindung!");Ueberprueft ob der Download erfolgt ist
Else
$Version = IniRead(@ScriptDir & "\Version.ini", "Version", "aktuelleVersion", "");Ließt Version.ini aus
If $Version = $ProgrammVersion Then ;Ueberprueft ob es eine neue Version gibt
MsgBox(0, "Kein Update", "Sie besitzen die aktuellste Version des Scriptes!")
FileDelete(@ScriptDir & "\Version.ini") ;loescht Version.ini
Else
$Update = MsgBox(4, "Update", "Es gibt eine aktuellere Version! Soll diese jetzt heruntergeladen werden?")
FileDelete(@ScriptDir & "\Version.ini")
If $Update = 6 Then
SplashTextOn("", "Downloading...", 150, 70)
$File = InetGet($Neueversion, "New_Script.exe") ;laed die neue version herunter
SplashOff()
If $File = 0 Then
MsgBox(0, "ERROR", "Es ist ein Fehler aufgetreten, bitte überprüfen Sie Ihre Internetverbindung!")
Else
MsgBox(0, "Download erfolgt", "Das Update wurde erfolgreich heruntergeladen!")
EndIf
EndIf
EndIf
EndIf
EndFunc ;==>update

[/autoit]

So , ich möchte nun das alle Dateien die hier drin sind : "http://goldy.square7.ch/test/updates" runtergeladen werden. (Ordner Struktur behalten und Überschreiben)
Ich habe eine .ini aufm Webspace mit dem Inhalt V1.0.0.0
Und das selbe im Ordner wo der Launcher drin ist. (man sollte auch den Pfad wechseln können)
Wenn man nun auf dem Webspace in die Datei V1.0.0.1 eingibt sollte der Updater das Checken und runterladen.

(Hoffe habe nichts vergessen *g*)

So , das hier ist nun meiner "Launcher" Code :

Spoiler anzeigen

[autoit]

#NoTrayIcon
; =======================================================================
; Game Launcher
; Made by Goldy
; © 2010
;
; =======================================================================
#Include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

; Code Anfang (Design)

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

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Simple Game Launcher ", 458, 280, 420, 295)
$Button1 = GUICtrlCreateButton("Exit", 368, 184, 73, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Start", 16, 184, 73, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("Website", 104, 184, 73, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Game Launcher", 24, 0, 401, 163)
GUICtrlSetFont(-1, 50, 800, 0, "Parry Hotter")
$Button4 = GUICtrlCreateButton("Credits", 192, 184, 73, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("Optionen", 280, 184, 73, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$ProgressBar = GUICtrlCreateProgress ( 16, 230, 425, 30)
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
Exit
Case $Button3
ShellExecute("http://www.google.de")
Case $Button4
_credits()

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

EndSwitch
WEnd

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

Func _credits()
MsgBox(64,"Credits","Idee: Goldy" & @CRLF & "Design: Goldy" & @CRLF & "Update Funktion: hellboy3")
;~ #Region ### START Koda GUI section ### Form=
;~ $Form2 = GUICreate("Credits", 229, 126, 527, 617)
;~ $Label1 = GUICtrlCreateLabel("Idee:Goldy", 8, 16, 80, 20)
;~ GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;~ $Label2 = GUICtrlCreateLabel("Desing : Goldy", 8, 48, 106, 20)
;~ GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;~ $Label3 = GUICtrlCreateLabel("Update Funktion : hellboy3", 8, 80, 188, 20)
;~ GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;~ GUISetState(@SW_SHOW)
;~ #EndRegion ### END Koda GUI section ###

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

;~ While 1
;~ $nMsg = GUIGetMsg()
;~ Switch $nMsg
;~ Case $GUI_EVENT_CLOSE
;~ Exit

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

;~ EndSwitch
;~ WEnd

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

EndFunc

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

Dort habe ich nun folgenes Eingetragen :

[autoit]

$ProgressBar = GUICtrlCreateProgress ( 16, 230, 425, 30)

[/autoit]

Nun sollte wenn der Download läuft sich die Progress Bar logischer weise auch laufen , also man müsste die beiden Sachen verbinden

Ich bedanke mich an dieser stelle schon mal für jede Hilfe

MfG

Goldy