Addon Installer

[Erte]

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

		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.

[Pac_187]

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

[Erte]

Danke.

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