Addon Installer

Tag

Habe vorher das Addon Installer Tool angeschaut und die Idee an sich gut gefunden. Jedoch fand ich es ein wenig umständlich gemacht, da alles von Hand getippt werden musste und die Addons nur vom Desktop her kopierbar waren. Daher habe ich das Augenmerk bei mir auf möglichst wenig Input des Users ausgelegt.
Habe daher (grösstenteils aus Langeweile) ein eigenes Tool geschrieben. Das runtergeladene Addon muss nur entpackt werden, und dann der Ordner des Addons in das Tool gezogen werden, das wars dann auch schon.
Da ich ja kein Viel Poster bin hier und daher nicht jemand auf die Idee kommt ich würde versuchen einen Trojaner oder Virus unter die Leute zu bringen habe ich auch den Quellcode (geschrieben mit AutoIt) dazugepackt http://www.garrysmod.de/forum/images.../icon_wink.gif

Spoiler:

Spoiler anzeigen

#include <GUIConstantsEx.au3>

;Reading Path of GMod 10
$Reg = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Win dows\CurrentVersion\Uninstall\Steam App 4000", "InstallLocation")
$Installpath = $Reg & "\garrysmod\addons"

Opt('MustDeclareVars', 1)

_Install()

Func _Install()
;Declaring Variables
Local $Folder, $Install, $Msg, $Label, $Exit, $Foldername1, $Foldername2

;General settings
GUICreate("Addon Installer", 225, 100, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018)
$Label = GUICtrlCreateLabel("Enter the path to the folder of the mod (Drag'n'Drop enabled):", 10, 10, 200, 40)
$Folder = GUICtrlCreateInput("", 10, 40, 210, 20)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)

;Buttons
$Install = GUICtrlCreateButton("Install", 45, 65, 60, 20)
$Exit = GUICtrlCreateButton("Done!", 105, 65, 60, 20)

;Creating Windows
GUISetState()

$Msg = 0
While $Msg <> $GUI_EVENT_CLOSE
$Msg = GUIGetMsg()
Select
Case $Msg = $Install
ExitLoop
Case $Msg = $Exit
Exit
Case $Msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
$Foldername1 = StringInStr(GuiCtrlRead($Folder), "\", 0, -1)
$Foldername2 = StringTrimLeft(GuiCtrlRead($Folder), $Foldername1)
DirCopy(GuiCtrlRead($Folder), $Installpath & "\" & $Foldername2, 1)
MsgBox(64, "Addon installed", "Addon '" & $Foldername2 & "' installed successfully!")
Run(@ScriptFullPath)
Exit
EndFunc

Ihr müsst einfach den Ordner welcher die Addon Dateien beinhaltet, einfach in die Box ziehen und auf Install klicken. Danach entweder mit Fertig beenden oder ein weiteres Addon installieren. Habs in Deutsch und in Englisch geschrieben.

Schick.


Ich musste bei mir leider so viel "Input" Zeugs einbauen,
da das Ganze in Batch geschrieben ist
und ich keine große Erfahrung in C#/C++ habe ;)

Danke.

AutoIt ist an sich eine ganz simple Sprache. Ist auch weniger eine Programmiersprache sondern mehr ein Tool zur Automatisierung.