I Wrote a little script to Startup the VSRO ServerFiles with a few mouseclicks!
i'll release the SourceCode here for futher develoopment. if you have any idears for it. please release all codes here.
Description
On the processSettings tab, you can enter all needed files
After that you can run the server with one click on (Full Server Startup)
and here is the Sourcecode of the tool. its in
Code:
#cs ---------------------------------------------------------------------------- Silkroad Online Server ProcessMannager: 1.0 Author: DJBeatstar By DJBeatstar in DJBeatstar Design (c) 2011 Germany Tool for Starting up a Silkroad Online Server with a few mouseclicks. #ce ---------------------------------------------------------------------------- Global $error DirCreate ("C:\tmp") #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> FileInstall ("E:\Eigene Dateien\Source Codes\SRO Server Startup tool\header.jpg", "C:\tmp\header.jpg",1) #Region ### START Koda GUI section ### Form=E:\Eigene Dateien\Source Codes\SRO Server Startup tool (Source)\Mainwindow.kxf $Form1_1 = GUICreate("SRO Server Startup Tool", 625, 426) $Pic1 = GUICtrlCreatePic("C:\tmp\header.jpg", 200, 0, 200, 110, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;Tab ServerControl $Tab1 = GUICtrlCreateTab(8, 112, 609, 305) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) $TabSheet1 = GUICtrlCreateTabItem("Server Control") ;GlobalManager Control $Label1 = GUICtrlCreateLabel("GlobalManager", 20, 157, 82, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $run1 = GUICtrlCreateButton("Run", 140, 149, 75, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;MachineManager Control $Label2 = GUICtrlCreateLabel("MachineManager", 20, 189, 93, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $run2 = GUICtrlCreateButton("Run", 140, 181, 75, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;DownloadServer Control $Label3 = GUICtrlCreateLabel("DownloadServer", 20, 221, 83, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $run3 = GUICtrlCreateButton("Run", 140, 213, 75, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;GatewayServer Control $Label4 = GUICtrlCreateLabel("GatewayServer", 20, 253, 77, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $run4 = GUICtrlCreateButton("Run", 140, 245, 75, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;FarmManager Control $Label5 = GUICtrlCreateLabel("FarmManager", 20, 285, 75, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $run5 = GUICtrlCreateButton("Run", 140, 277, 75, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;AgentServer Control $Label6 = GUICtrlCreateLabel("AgentServer", 20, 317, 63, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $run6 = GUICtrlCreateButton("Run", 140, 309, 75, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;SR_ShardManager Control $Label7 = GUICtrlCreateLabel("SR_ShardManager", 20, 349, 101, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $run7 = GUICtrlCreateButton("Run", 140, 341, 75, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;SR_GameServer Control $Label8 = GUICtrlCreateLabel("SR_GamesServer", 20, 381, 89, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $run8 = GUICtrlCreateButton("Run", 140, 373, 75, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;Certification Server Control $Label9 = GUICtrlCreateLabel("Certification Server", 284, 157, 93, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $run9 = GUICtrlCreateButton("Run", 388, 149, 75, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;Full Serverstartup $runall = GUICtrlCreateButton("Full Server Startup", 284, 181, 251, 81, $WS_GROUP) GUICtrlSetFont(-1, 15, 400, 0, "Arial") ;Full Servershutdown $stopall = GUICtrlCreateButton("Full Server Shutdown", 284, 277, 251, 81, $WS_GROUP) GUICtrlSetFont(-1, 15, 400, 0, "Arial") ;Tab ProcessSettings $TabSheet2 = GUICtrlCreateTabItem("ProcessSettings") ;GlobalManager Path $Label11 = GUICtrlCreateLabel("GlobalManager", 20, 157, 82, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input1 = GUICtrlCreateInput(IniRead (@ScriptDir & "\settings.ini", "Files", "gm", "GlobalMannager.exe"), 128, 152, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $b1 = GUICtrlCreateButton("Browse", 256, 152, 59, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;MachineManager Path $Label12 = GUICtrlCreateLabel("MachineManager", 20, 189, 93, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input2 = GUICtrlCreateInput(IniRead (@ScriptDir & "\settings.ini", "Files", "mm", "MachineManager.exe"), 128, 184, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $b2 = GUICtrlCreateButton("Browse", 256, 184, 59, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;DownloadServer Path $Label13 = GUICtrlCreateLabel("DownloadServer", 20, 221, 83, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input3 = GUICtrlCreateInput(IniRead (@ScriptDir & "\settings.ini", "Files", "ds", "DownloadServer.exe"), 128, 216, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $b3 = GUICtrlCreateButton("Browse", 256, 216, 59, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;GatewayServer Path $Label14 = GUICtrlCreateLabel("GatewayServer", 20, 253, 77, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input4 = GUICtrlCreateInput(IniRead (@ScriptDir & "\settings.ini", "Files", "gs", "GatewayServer.exe"), 128, 248, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $b4 = GUICtrlCreateButton("Browse", 256, 248, 59, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;FarmManager Path $Label15 = GUICtrlCreateLabel("FarmManager", 20, 285, 75, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input5 = GUICtrlCreateInput(IniRead (@ScriptDir & "\settings.ini", "Files", "fm", "FarmManager.exe"), 128, 280, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $b5 = GUICtrlCreateButton("Browse", 256, 280, 59, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;AgentServer Path $Label16 = GUICtrlCreateLabel("AgentServer", 20, 317, 63, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input6 = GUICtrlCreateInput(IniRead (@ScriptDir & "\settings.ini", "Files", "as", "AgentServer.exe"), 128, 312, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $b6 = GUICtrlCreateButton("Browse", 256, 312, 59, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;SR_ShardManager Path $Label17 = GUICtrlCreateLabel("SR_ShardManager", 20, 349, 101, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input7 = GUICtrlCreateInput(IniRead (@ScriptDir & "\settings.ini", "Files", "srs", "SR_ShardManager.exe"), 128, 344, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $b7 = GUICtrlCreateButton("Browse", 256, 344, 59, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;SR_GameServer Path $Label18 = GUICtrlCreateLabel("SR_GamesServer", 20, 381, 89, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input8 = GUICtrlCreateInput(IniRead (@ScriptDir & "\settings.ini", "Files", "SRG", "SR_GameServer.exe"), 128, 376, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $b8 = GUICtrlCreateButton("Browse", 256, 376, 59, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;Certification Server Path $Label19 = GUICtrlCreateLabel("Certification Server", 324, 157, 93, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input9 = GUICtrlCreateInput(IniRead (@ScriptDir & "\settings.ini", "Files", "cs", "Certification Server.exe"), 424, 152, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $b9 = GUICtrlCreateButton("Browse", 552, 152, 59, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;packt.dat Path $Label20 = GUICtrlCreateLabel("packt.dat", 324, 189, 93, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input10 = GUICtrlCreateInput(IniRead (@ScriptDir & "\settings.ini", "Files", "dat", "packt.dat"), 424, 184, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $b10 = GUICtrlCreateButton("Browse", 552, 184, 59, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;Save All $save = GUICtrlCreateButton("Save Settings", 320, 216, 291, 25, $WS_GROUP) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlCreateTabItem("") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE DirRemove ("C:\tmp",1) Exit Case $b1 $gm = FileOpenDialog ( "GlobalManager.exe", "C:\", "Executeable (*.exe)", 1, "GlobalManager.exe") GUICtrlSetData ($Input1, "", "") GUICtrlSetData ($Input1, $gm, "Path") Case $b2 $mm = FileOpenDialog ( "MachineManager.exe", "C:\", "Executeable (*.exe)", 1, "MachineManager.exe") GUICtrlSetData ($Input2, "", "") GUICtrlSetData ($Input2, $mm, "Path") Case $b3 $ds = FileOpenDialog ( "DownloadServer.exe", "C:\", "Executeable (*.exe)", 1, "DownloadServer.exe") GUICtrlSetData ($Input3, "", "") GUICtrlSetData ($Input3, $ds, "Path") Case $b4 $gs = FileOpenDialog ( "GatewayServer.exe", "C:\", "Executeable (*.exe)", 1, "GatewayServer.exe") GUICtrlSetData ($Input4, "", "") GUICtrlSetData ($Input4, $gs, "Path") Case $b5 $fm = FileOpenDialog ( "FarmManager.exe", "C:\", "Executeable (*.exe)", 1, "FarmManager.exe") GUICtrlSetData ($Input5, "", "") GUICtrlSetData ($Input5, $fm, "Path") Case $b6 $as = FileOpenDialog ( "AgentServer.exe", "C:\", "Executeable (*.exe)", 1, "AgentServer.exe") GUICtrlSetData ($Input6, "", "") GUICtrlSetData ($Input6, $as, "Path") Case $b7 $srs = FileOpenDialog ( "SR_ShardManager.exe", "C:\", "Executeable (*.exe)", 1, "SR_ShardManager.exe") GUICtrlSetData ($Input7, "", "") GUICtrlSetData ($Input7, $srs, "Path") Case $b8 $srg = FileOpenDialog ( "SR_GameServer.exe", "C:\", "Executeable (*.exe)", 1, "SR_GameServer.exe") GUICtrlSetData ($Input8, "", "") GUICtrlSetData ($Input8, $srg, "Path") Case $b9 $cm = FileOpenDialog ( "Certification Server.exe", "C:\", "Executeable (*.exe)", 1, "Certification Server.exe") GUICtrlSetData ($Input9, "", "") GUICtrlSetData ($Input9, $cm, "Path") Case $b10 $dat = FileOpenDialog ( "Packt.dat", "C:\", "DataFile (*.dat)", 1, "Packt.dat") GUICtrlSetData ($Input10, "", "") GUICtrlSetData ($Input10, $dat, "Path") Case $save IniWrite (@ScriptDir & "\settings.ini", "Files", "gm", GUICtrlRead ($Input1)) IniWrite (@ScriptDir & "\settings.ini", "Files", "mm", GUICtrlRead ($Input2)) IniWrite (@ScriptDir & "\settings.ini", "Files", "ds", GUICtrlRead ($Input3)) IniWrite (@ScriptDir & "\settings.ini", "Files", "gs", GUICtrlRead ($Input4)) IniWrite (@ScriptDir & "\settings.ini", "Files", "fm", GUICtrlRead ($Input5)) IniWrite (@ScriptDir & "\settings.ini", "Files", "as", GUICtrlRead ($Input6)) IniWrite (@ScriptDir & "\settings.ini", "Files", "srs", GUICtrlRead ($Input7)) IniWrite (@ScriptDir & "\settings.ini", "Files", "srg", GUICtrlRead ($Input8)) IniWrite (@ScriptDir & "\settings.ini", "Files", "cs", GUICtrlRead ($Input9)) IniWrite (@ScriptDir & "\settings.ini", "Files", "dat", GUICtrlRead ($Input10)) Case $runall If ProcessExists ("w3wp.exe") Then If ProcessExists ("FileZilla Server.exe") Then if ProcessExists ("sqlservr.exe") Then if $error = 1 Then $error = 0 EndIf certifi() If Not $error = 1 Then gm() EndIf If Not $error = 1 Then mm() EndIf If Not $error = 1 Then ds() EndIf If Not $error = 1 Then gs() EndIf If Not $error = 1 Then fm() EndIf If Not $error = 1 Then as() EndIf If Not $error = 1 Then srs() EndIf If Not $error = 1 Then srg() EndIf Else MsgBox (16, "Error!", "The MSSQL Server is Offline! please start the MSSQL Service first") EndIf Else MsgBox (16, "Error!", "The FileZilla FTP Server is Offline! please start the FileZilla FTP Server Service first") EndIf Else MsgBox (16, "Error!", "The Microsoft IIS Server is Offline! please start the IIS Server Service first") EndIf Case $stopall serverdown() EndSwitch WEnd Func certifi() If FileExists (GUICtrlRead ($Input9)) Then Run (GUICtrlRead ($Input9) & " " & GUICtrlRead ($Input10)) GUICtrlSetData ($run9, "Starting") Sleep (5000) if Not ProcessExists ("CustomCertificationServer.exe") Then $error = 1 MsgBox (16, "ERROR!", "Error! The Certification Server did not startet") Else GUICtrlSetData ($run9, "Online") EndIf Else $error = 1 MsgBox (16, "ERROR!", "Error! The Certification Server is missing") EndIf EndFunc Func gm() If FileExists (GUICtrlRead ($Input1)) Then Run (GUICtrlRead ($Input1)) GUICtrlSetData ($run1, "Starting") Sleep (5000) if Not ProcessExists ("GlobalManager.exe") Then $error = 1 MsgBox (16, "ERROR!", "Error! The GlobalManager did not startet") Else GUICtrlSetData ($run1, "Online") EndIf Else $error = 1 MsgBox (16, "ERROR!", "Error! The GlobalManager is missing") EndIf EndFunc Func mm() If FileExists (GUICtrlRead ($Input2)) Then Run (GUICtrlRead ($Input2)) GUICtrlSetData ($run2, "Starting") Sleep (5000) if Not ProcessExists ("MachineManager.exe") Then $error = 1 MsgBox (16, "ERROR!", "Error! The MachineManager did not startet") Else GUICtrlSetData ($run2, "Online") EndIf Else $error = 1 MsgBox (16, "ERROR!", "Error! The MachineManager is missing") EndIf EndFunc Func ds() If FileExists (GUICtrlRead ($Input3)) Then Run (GUICtrlRead ($Input3)) GUICtrlSetData ($run3, "Starting") Sleep (5000) if Not ProcessExists ("DownloadServer.exe") Then $error = 1 MsgBox (16, "ERROR!", "Error! The DownloadServer did not startet") Else GUICtrlSetData ($run3, "Online") EndIf Else $error = 1 MsgBox (16, "ERROR!", "Error! The DownloadServer is missing") EndIf EndFunc Func gs() If FileExists (GUICtrlRead ($Input4)) Then Run (GUICtrlRead ($Input4)) GUICtrlSetData ($run4, "Starting") Sleep (5000) if Not ProcessExists ("GatewayServer.exe") Then $error = 1 MsgBox (16, "ERROR!", "Error! The GatewayServer did not startet") Else GUICtrlSetData ($run4, "Online") EndIf Else $error = 1 MsgBox (16, "ERROR!", "Error! The GatewayServer is missing") EndIf EndFunc Func fm() If FileExists (GUICtrlRead ($Input5)) Then Run (GUICtrlRead ($Input5)) GUICtrlSetData ($run5, "Starting") Sleep (5000) if Not ProcessExists ("FarmManager.exe") Then $error = 1 MsgBox (16, "ERROR!", "Error! The FarmManager did not startet") Else GUICtrlSetData ($run5, "Online") EndIf Else $error = 1 MsgBox (16, "ERROR!", "Error! The FarmManager is missing") EndIf EndFunc Func as() If FileExists (GUICtrlRead ($Input6)) Then Run (GUICtrlRead ($Input6)) GUICtrlSetData ($run6, "Starting") Sleep (5000) if Not ProcessExists ("AgentServer.exe") Then $error = 1 MsgBox (16, "ERROR!", "Error! The AgentServer did not startet") Else GUICtrlSetData ($run6, "Online") EndIf Else $error = 1 MsgBox (16, "ERROR!", "Error! The AgentServer is missing") EndIf EndFunc Func srs() If FileExists (GUICtrlRead ($Input7)) Then Run (GUICtrlRead ($Input7)) GUICtrlSetData ($run7, "Starting") Sleep (20000) if Not ProcessExists ("SR_ShardManager.exe") Then $error = 1 MsgBox (16, "ERROR!", "Error! The SR_ShardManager did not startet") Else GUICtrlSetData ($run7, "Online") EndIf Else $error = 1 MsgBox (16, "ERROR!", "Error! The SR_ShardManager is missing") EndIf EndFunc Func srg() If FileExists (GUICtrlRead ($Input8)) Then Run (GUICtrlRead ($Input8)) GUICtrlSetData ($run8, "Starting") Sleep (20000) if Not ProcessExists ("SR_GameServer.exe") Then $error = 1 MsgBox (16, "ERROR!", "Error! The SR_GameServer did not startet") Else GUICtrlSetData ($run8, "Online") EndIf Else $error = 1 MsgBox (16, "ERROR!", "Error! The SR_GameServer is missing") EndIf EndFunc Func serverdown() $shutdown = MsgBox (32 + 4, "Shutdown SilkRoad Server!", "Are you sure that you want to shutdown the Silkroad Server?") If $shutdown = 6 Then If ProcessExists ("SR_GameServer.exe") Then ProcessClose ("SR_GameServer.exe") GUICtrlSetData ($run8, "run") EndIf If ProcessExists ("SR_ShardManager.exe") Then ProcessClose ("SR_ShardManager.exe") GUICtrlSetData ($run7, "run") EndIf If ProcessExists ("AgentServer.exe") Then ProcessClose ("AgentServer.exe") GUICtrlSetData ($run6, "run") EndIf If ProcessExists ("FarmManager.exe") Then ProcessClose ("FarmManager.exe") GUICtrlSetData ($run5, "run") EndIf If ProcessExists ("GatewayServer.exe") Then ProcessClose ("GatewayServer.exe") GUICtrlSetData ($run4, "run") EndIf If ProcessExists ("DownloadServer.exe") Then ProcessClose ("DownloadServer.exe") GUICtrlSetData ($run3, "run") EndIf If ProcessExists ("MachineManager.exe") Then ProcessClose ("MachineManager.exe") GUICtrlSetData ($run2, "run") EndIf If ProcessExists ("GlobalManager.exe") Then ProcessClose ("GlobalManager.exe") GUICtrlSetData ($run1, "run") EndIf If ProcessExists ("CustomCertificationServer.exe") Then ProcessClose ("CustomCertificationServer.exe") GUICtrlSetData ($run9, "run") EndIf EndIf EndFunc
DJBeatstar
PS.:
I've bin asked for a Tutorial to Compile the script. so here it is.
1. Download AutoIt 3
2. Install AutoIt 3
3. Rightclick on Desktop - New - AutoIt v3 Script
4. Copy and paste the sourceCode to your new Script
5. Save it
6. Rightklick on script an click "Compile Script"
7. Youre done.
By The Way...
If there is a Link caled "Download Now! DONT KLICK! Its only a ad!!!
|
|
V