Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted as AutoIt by SpieleHackInfo ( 13 years ago )
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\Minecraft Bukkit Server Assistant\ICO\client.ico
#AutoIt3Wrapper_Outfile=Minecraft Bukkit Server Assistant 0.7.exe
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$form1_1 = GUICreate("Minecraft Server Assistant 0.7 bei SHI", 402, 567, 258, 161)
$Stop = GUICtrlCreateButton("Stop", 104, 192, 187, 25)
$Hamachi = GUICtrlCreateButton("Hamachi", 152, 504, 91, 25)
$Kontakt = GUICtrlCreateButton("Kontakt", 104, 432, 187, 25)
$Beenden = GUICtrlCreateButton("Beenden", 104, 472, 187, 25)
$x64 = GUICtrlCreateButton("x64", 104, 96, 75, 25)
$x32 = GUICtrlCreateButton("x32", 216, 96, 75, 25)
$Installation = GUICtrlCreateLabel("Installation", 152, 64, 96, 29)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Start = GUICtrlCreateLabel("Start", 176, 128, 45, 29)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$startx64 = GUICtrlCreateButton("x64 Start", 104, 152, 75, 25)
$startx32 = GUICtrlCreateButton("x32 Start", 216, 152, 75, 25)
$Plugins = GUICtrlCreateButton("Plugins", 104, 272, 187, 25)
$Konfiguration = GUICtrlCreateButton("Konfiguration öffnen", 104, 312, 187, 25)
$Plugin = GUICtrlCreateButton("Plugins hinzufügen", 104, 352, 187, 25)
$verbesserung = GUICtrlCreateButton("Verbesserungs Vorschläge einschicken", 88, 392, 219, 25)
$Updater = GUICtrlCreateButton("Updater", 24, 8, 347, 57)
$x64Optionen = GUICtrlCreateButton("x64 Optionen", 16, 528, 83, 25)
$x32Optionen = GUICtrlCreateButton("x32 Optionen", 280, 528, 83, 25)
$commandhelper = GUICtrlCreateButton("Server Command Helper", 104, 232, 187, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$pfad32 = IniRead("Options","section2","key",@ScriptDir & "\Resources\Server\startx32 1gb.bat")
$pfad64 = IniRead("Options","section2","key",@ScriptDir & "\Resources\Server\startx64 1gb.bat")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ControlSend ("C:\Windows\SYSTEM32\cmd.exe","","","stop")
ControlSend ("C:\Windows\SYSTEM32\cmd.exe","","","{Enter}")
ControlSend ("C:\windows\system32\cmd.exe","","","stop")
ControlSend ("C:\windows\system32\cmd.exe","","","{Enter}")
Sleep(3000)
ProcessClose("cmd.exe")
Exit
Case $x32
FileCopy(@ScriptDir & "\Resources\jar\Craftbukkit.jar\","C:\Minecraft Server\",8)
Run (@ScriptDir & "\Resources\Server\startx32 1gb.bat")
Case $x64
FileCopy(@ScriptDir & "\Resources\jar\Craftbukkit.jar\","C:\Minecraft Server\",8)
Run (@ScriptDir & "\Resources\Server\startx64 1gb.bat")
Case $Beenden
ControlSend ("C:\Windows\SYSTEM32\cmd.exe","","","stop")
ControlSend ("C:\Windows\SYSTEM32\cmd.exe","","","{Enter}")
ControlSend ("C:\windows\system32\cmd.exe","","","stop")
ControlSend ("C:\windows\system32\cmd.exe","","","{Enter}")
Sleep(3000)
ProcessClose("cmd.exe")
Exit
Case $startx32
Run($pfad32)
Case $startx64
Run($pfad64,@ScriptDir & "\Resources\Server")
Case $Hamachi
ShellExecute("http://www.chip.de/downloads/Hamachi_14293249.html")
Case $Stop
ControlSend ("C:\Windows\SYSTEM32\cmd.exe","","","stop")
ControlSend ("C:\Windows\SYSTEM32\cmd.exe","","","{Enter}")
ControlSend ("C:\windows\system32\cmd.exe","","","stop")
ControlSend ("C:\windows\system32\cmd.exe","","","{Enter}")
Sleep(3000)
ProcessClose("cmd.exe")
Case $Kontakt
ShellExecute("http://www.youtube.com/Spielehackinfo")
Case $Konfiguration
ShellExecute("server.properties","",@ScriptDir )
Case $Plugin
ShellExecute("http://plugins.bukkit.org/")
Case $verbesserung
ShellExecute("https://docs.google.com/forms/d/1zp7wRrX2Zy1Io1PVGHoBEVbsfNPWpkL8vtgaFg59ue4/viewform")
Case $Plugins
ShellExecute(@ScriptDir & "\Plugins\")
Case $Updater
Run (@ScriptDir & "\Jar Updater 1.0")
Case $commandhelper
Run (@ScriptDir & "\Commandhelper 1.0")
Case $x64Optionen
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Wie veil Arbeitsspeicher willst du ihm zuteilen?", 486, 85, 240, 157)
$button1 = GUICtrlCreateButton("512 MB", 0, 0, 155, 81)
$Button2 = GUICtrlCreateButton("1 GB", 160, 0, 163, 81)
$Button3 = GUICtrlCreateButton("1,5 GB", 328, 0, 155, 81)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ControlSend ("C:\Windows\SYSTEM32\cmd.exe","","","stop")
ControlSend ("C:\Windows\SYSTEM32\cmd.exe","","","{Enter}")
ControlSend ("C:\windows\system32\cmd.exe","","","stop")
ControlSend ("C:\windows\system32\cmd.exe","","","{Enter}")
Sleep(3000)
ProcessClose("cmd.exe")
Exit
Case $button1
IniWrite ("Options","section2","key",@ScriptDir & "\Resources\Server\startx64 1gb.bat")
MsgBox(0,"Restart","Muss neugestartet werden!")
Exit
Case $Button2
IniWrite ("Options","section2","key",@ScriptDir & "\Resources\Server\startx64 2gb.bat")
MsgBox(0,"Restart","Muss neugestartet werden!")
Exit
Case $Button3
IniWrite ("Options","section2","key",@ScriptDir & "\Resources\Server\startx64 3gb.bat")
MsgBox(0,"Restart","Muss neugestartet werden!")
Exit
EndSwitch
WEnd
Case $x32Optionen
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Wie veil Arbeitsspeicher willst du ihm zuteilen?", 486, 85, 240, 157)
$button1 = GUICtrlCreateButton("512 MB", 0, 0, 155, 81)
$Button2 = GUICtrlCreateButton("1 GB", 160, 0, 163, 81)
$Button3 = GUICtrlCreateButton("1,5 GB", 328, 0, 155, 81)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ControlSend ("C:\Windows\SYSTEM32\cmd.exe","","","stop")
ControlSend ("C:\Windows\SYSTEM32\cmd.exe","","","{Enter}")
ControlSend ("C:\windows\system32\cmd.exe","","","stop")
ControlSend ("C:\windows\system32\cmd.exe","","","{Enter}")
Sleep(3000)
ProcessClose("cmd.exe")
Exit
Case $button1
IniWrite ("Options","section2","key",@ScriptDir & "\Resources\Server\startx32 1gb.bat")
MsgBox(0,"Restart","Muss neugestartet werden!")
Exit
Case $Button2
IniWrite ("Options","section2","key",@ScriptDir & "\Resources\Server\startx32 2gb.bat")
MsgBox(0,"Restart","Muss neugestartet werden!")
Exit
Case $Button3
IniWrite ("Options","section2","key",@ScriptDir & "\Resources\Server\startx32 3gb.bat")
MsgBox(0,"Restart","Muss neugestartet werden!")
Exit
EndSwitch
WEnd
EndSwitch
WEnd
Revise this Paste