Hallo AutoIt.de Mitglieder
Ich habe meine Launcher nun fertig gestellt.
Dieser hat eine simple Funktion und soll dem LAN Spieler das bearbeiten der Verknüpfung ersparen.
Er startet die .exe und verbindet mit der IP.
Der Borderlands Launcher schaut so aus:
[Blockierte Grafik: http://img707.imageshack.us/img707/6659/unbenannt2fz.png]
Quellcode:
Spoiler anzeigen
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Icon.ico
#AutoIt3Wrapper_outfile=Launcher.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; ================================;
; Borderlands Launcher
; Made by Kazu
; © 2010 Kazu
; ================================;
;====Includes====;
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
If Not FileExists(@ScriptDir& "\Splash.bmp") Then FileInstall("Splash.bmp", @ScriptDir& "\Splash.bmp") ;Wenn die Datei nicht bereits im Scriptverzeichnis vorhanden ist dann Fileinstall...
If Not FileExists(@ScriptDir & "\bg.mp3") Then FileInstall("bg.mp3", @ScriptDir & "\bg.mp3"); ""
SoundPlay ( "bg.mp3", 0 )
SoundSetWaveVolume ( 30 )
;====GUI====;
#Region ### START Koda GUI section ###
$GUI_MAIN = GUICreate("Borderlands Launcher V0.1 © by Kazu", 641, 362, 659, 372)
$IP_READ = IniRead(@ScriptDir & "\Launcher.ini", "Optionen", "IP","Bitte die IP angeben")
$GUI_IP_INPUT = GUICtrlCreateInput($IP_READ, 400, 90, 129, 21)
$GUI_IP_TEXT = GUICtrlCreateLabel("IP:", 376, 93, 17, 17)
$GUI_IP_SAVE = GUICtrlCreateButton("Speichern", 536, 88, 73, 25, $WS_GROUP)
$GUI_GAME_START = GUICtrlCreateButton("Starte Borderlands", 384, 128, 153, 57, $WS_GROUP)
$PATH_READ = IniRead(@ScriptDir & "\Launcher.ini", "Optionen", "Pfad","Bitte den Pfad angeben")
$GUI_PATH = GUICtrlCreateInput($PATH_READ, 304, 42, 225, 21)
$GUI_GAME_SEARCH = GUICtrlCreateButton("Durchsuchen", 536, 40, 75, 25, $WS_GROUP)
$GUI_IMAGE = GUICtrlCreatePic(@scriptdir & "\Splash.bmp", 0, 0, 640, 361, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;====Funktionen====;
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_GAME_SEARCH
$FILE_PATH = FileOpenDialog("Wähle die Borderlands.exe aus!", @DesktopDir, "(Borderlands.exe)")
If Not @error Then GUICtrlSetData($GUI_PATH, $FILE_PATH)
IniWrite(@ScriptDir & "\Launcher.ini", "Optionen", "Pfad", $FILE_PATH)
Case $GUI_IP_SAVE
IniWrite(@ScriptDir & "\Launcher.ini", "Optionen", "IP", GUICtrlRead($GUI_IP_INPUT))
Case $GUI_GAME_START
Run($PATH_READ & " " & $IP_READ)
If Not @error Then Exit
EndSwitch
WEnd
Der Multi-Game Launcher schaut so aus:
[Blockierte Grafik: http://img823.imageshack.us/img823/8242/unbenannt2yf.png]
Quellcode:
Spoiler anzeigen
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Icon.ico
#AutoIt3Wrapper_outfile=Launcher.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; ================================;
; Borderlands Launcher
; Made by Kazu
; © 2010 Kazu
; ================================;
;====Includes====;
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
If Not FileExists(@ScriptDir& "\Splash.bmp") Then FileInstall("Splash.bmp", @ScriptDir& "\Splash.bmp") ;Wenn die Datei nicht bereits im Scriptverzeichnis vorhanden ist dann Fileinstall...
If Not FileExists(@ScriptDir & "\bg.mp3") Then FileInstall("bg.mp3", @ScriptDir & "\bg.mp3"); ""
SoundPlay ( "bg.mp3", 0 )
SoundSetWaveVolume ( 30 )
;====GUI====;
#Region ### START Koda GUI section ###
$GUI_MAIN = GUICreate("Multi-Game Launcher V0.1 © by Kazu", 641, 362, 659, 372)
$IP_READ = IniRead(@ScriptDir & "\Launcher.ini", "Optionen", "IP","Bitte die IP angeben")
$GUI_IP_INPUT = GUICtrlCreateInput($IP_READ, 400, 90, 129, 21)
$GUI_IP_TEXT = GUICtrlCreateLabel("IP:", 376, 93, 17, 17)
$GUI_IP_SAVE = GUICtrlCreateButton("Speichern", 536, 88, 73, 25, $WS_GROUP)
$GUI_GAME_START = GUICtrlCreateButton("Spiel starten!", 384, 128, 153, 57, $WS_GROUP)
$PATH_READ = IniRead(@ScriptDir & "\Launcher.ini", "Optionen", "Pfad","Bitte den Pfad angeben")
$GUI_PATH = GUICtrlCreateInput($PATH_READ, 304, 42, 225, 21)
$GUI_GAME_SEARCH = GUICtrlCreateButton("Durchsuchen", 536, 40, 75, 25, $WS_GROUP)
$GUI_IMAGE = GUICtrlCreatePic(@scriptdir & "\Splash.bmp", 0, 0, 640, 361, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;====Funktionen====;
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_GAME_SEARCH
$FILE_PATH = FileOpenDialog("Wähle die Borderlands.exe aus!", @DesktopDir, "(*.exe)")
If Not @error Then GUICtrlSetData($GUI_PATH, $FILE_PATH)
IniWrite(@ScriptDir & "\Launcher.ini", "Optionen", "Pfad", $FILE_PATH)
Case $GUI_IP_SAVE
IniWrite(@ScriptDir & "\Launcher.ini", "Optionen", "IP", GUICtrlRead($GUI_IP_INPUT))
Case $GUI_GAME_START
Run($PATH_READ & " " & $IP_READ)
If Not @error Then Exit
EndSwitch
WEnd
Mit freundlichen Gruß
Kazu Mikura
.
