Erte
25.05.2009, 14:50
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/gmodde/smilies/icon_wink.gif
#include <GUIConstantsEx.au3>
;Reading Path of GMod 10
$Reg = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\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.
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/gmodde/smilies/icon_wink.gif
#include <GUIConstantsEx.au3>
;Reading Path of GMod 10
$Reg = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\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.