[Release] Control Panel v2 Source

[sedas]

So ich wollte euch nur nochmal an alle die es Interresiert mein Admin Panel v2 Source dalassen.

Der Control Pannel:

;~ ############################################ ;~ RockNetwork Admin Panel v2 ;~ Codet and Copyright ;~ By Sedas ;~ ############################################ #RequireAdmin #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=..\..\AutoIt Coding\NoPublicTools\Icon Entry_5_128x128-32.ico #AutoIt3Wrapper_Run_Obfuscator=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GUIListBox.au3> #include <string.au3> #include <INet.au3> $Form1 = GUICreate("~|~© RockNetwork ©~|~ ~Admin Panel~ ~©Sedas©~", 755, 400, 192, 124) GUISetBkColor(0x000000) $Pic1 = GUICtrlCreatePic(@ScriptDir & "\Settings\Wallpaper.bmp", 0, 0, 600, 400, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) GUICtrlSetState(-1, $GUI_DISABLE) $Input1 = GUICtrlCreateInput("Name", 128, 176, 121, 21) $Input2 = GUICtrlCreateInput("PW", 344, 176, 121, 21, $ES_PASSWORD) $Pic2 = GUICtrlCreatePic(@ScriptDir & "\Settings\Login.bmp", 248, 136, 100, 100, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $Combo1 = GUICtrlCreateCombo("Command", 240, 256, 145, 25) GUICtrlSetState(-1, $GUI_HIDE) $Button1 = GUICtrlCreateButton("Send", 240, 288, 147, 17, $WS_GROUP) GUICtrlSetState(-1, $GUI_HIDE) $Button3 = GUICtrlCreateButton("Exit", 240, 308, 147, 17, $WS_GROUP) GUICtrlSetState(-1, $GUI_HIDE) $Label3 = GUICtrlCreateLabel("", 544, 272, 138, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FF00) $Label1 = GUICtrlCreateLabel("", 544, 248, 96, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) $Label2 = GUICtrlCreateLabel("", 640, 248, 30, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FF00) $List2 = GUICtrlCreateList("", 544, 304, 210, 97) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FF00) GUICtrlSetBkColor(-1, 0x000000) $List1 = GUICtrlCreateList("", 544, 0, 210, 240) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FF00) GUICtrlSetBkColor(-1, 0x000000) $Input3 = GUICtrlCreateInput("IP", 0, 0, 121, 21) $Input4 = GUICtrlCreateInput("PORT", 128, 0, 73, 21) $Edit1 = GUICtrlCreateEdit("", 40, 232, 185, 89) GUICtrlSetData(-1, "") $Combo2 = GUICtrlCreateCombo("GM CHAT", 40, 208, 89, 25) GUICtrlSetData(-1, "NOTICE") $Button2 = GUICtrlCreateButton("Send Text", 40, 328, 187, 17, $WS_GROUP) GUICtrlSetState($Edit1, $GUI_HIDE) GUICtrlSetState($Combo2, $GUI_HIDE) GUICtrlSetState($Button2, $GUI_HIDE) If FileExists(@ScriptDir & "\Settings\login.ini") Then $readname = IniRead(@ScriptDir & "\Settings\login.ini", "Rock.Net", "Name", "") $readpw = IniRead(@ScriptDir & "\Settings\login.ini", "Rock.Net", "Pw", "") $serverrip = IniRead(@ScriptDir & "\Settings\login.ini", "Rock.Net", "IP", "") $serverrport = IniRead(@ScriptDir & "\Settings\login.ini", "Rock.Net", "PORT", "") GUICtrlSetData($Input1, _StringEncrypt(0, $readname, 85186918728389707794510026503866773976, 1)) GUICtrlSetData($Input2, _StringEncrypt(0, $readpw, 85186918728389707794510026503866773976, 1)) GUICtrlSetData($Input3, _StringEncrypt(0, $serverrip, 85186918728389707794510026503866773976, 1)) GUICtrlSetData($Input4, _StringEncrypt(0, $serverrport, 85186918728389707794510026503866773976, 1)) EndIf If FileGetSize(@ScriptDir & "\Settings\Wallpaper.bmp") = "4196406" Then Else MsgBox(4112, "Error", "Eine Datei wurde Verändert") Exit EndIf If FileGetSize(@ScriptDir & "\Settings\Login.bmp") = "30690" Then Else MsgBox(4112, "Error", "Eine Datei wurde Verändert") Exit EndIf TCPStartup() GUICtrlSetData($Combo1, "-run all|-restart all|-outall|-hide all|-show all|-shutdown all|-reload|-clearlog|-block connection|-allowe connection") GUISetState(@SW_SHOW, $Form1) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $Pic2 If FileExists(@ScriptDir & "\Settings\login.ini") Then FileDelete(@ScriptDir & "\Settings\login.ini") IniWrite(@ScriptDir & "\Settings\login.ini", "Rock.Net", "IP", _StringEncrypt(1, GUICtrlRead($Input3, $GUI_HIDE), 85186918728389707794510026503866773976, 1)) IniWrite(@ScriptDir & "\Settings\login.ini", "Rock.Net", "PORT", _StringEncrypt(1, GUICtrlRead($Input4, $GUI_HIDE), 85186918728389707794510026503866773976, 1)) IniWrite(@ScriptDir & "\Settings\login.ini", "Rock.Net", "Name", _StringEncrypt(1, GUICtrlRead($Input1, $GUI_HIDE), 85186918728389707794510026503866773976, 1)) IniWrite(@ScriptDir & "\Settings\login.ini", "Rock.Net", "Pw", _StringEncrypt(1, GUICtrlRead($Input2, $GUI_HIDE), 85186918728389707794510026503866773976, 1)) Else IniWrite(@ScriptDir & "\Settings\login.ini", "Rock.Net", "IP", _StringEncrypt(1, GUICtrlRead($Input3, $GUI_HIDE), 85186918728389707794510026503866773976, 1)) IniWrite(@ScriptDir & "\Settings\login.ini", "Rock.Net", "PORT", _StringEncrypt(1, GUICtrlRead($Input4, $GUI_HIDE), 85186918728389707794510026503866773976, 1)) IniWrite(@ScriptDir & "\Settings\login.ini", "Rock.Net", "Name", _StringEncrypt(1, GUICtrlRead($Input1, $GUI_HIDE), 85186918728389707794510026503866773976, 1)) IniWrite(@ScriptDir & "\Settings\login.ini", "Rock.Net", "Pw", _StringEncrypt(1, GUICtrlRead($Input2, $GUI_HIDE), 85186918728389707794510026503866773976, 1)) EndIf GUICtrlSetState($Input1, $GUI_HIDE) GUICtrlSetState($Input2, $GUI_HIDE) GUICtrlSetState($Input3, $GUI_HIDE) GUICtrlSetState($Input4, $GUI_HIDE) GUICtrlSetState($Combo1, $GUI_SHOW) GUICtrlSetState($Button1, $GUI_SHOW) GUICtrlSetState($Button3, $GUI_SHOW) $name = GUICtrlRead($Input1) $pw = GUICtrlRead($Input2) $command = GUICtrlRead($Combo1) $selfip = _GetIP() $pw2 = 85186918728389707794510026503866773976 $ip = GUICtrlRead($Input3) $port = GUICtrlRead($Input4) $socket = TCPConnect($ip, $port) If $socket = -1 Then MsgBox(4112, "Error", "Die Verbindung zum Server konnte nicht hergestellt werden!") FileWrite("Error.log", @error) Exit Else $sendtext = $name & "{@]" & $pw & "{@]" & $selfip & "{@]Login" $sendedBytes = TCPSend($socket, $sendtext) EndIf Case $Button1 $ip = GUICtrlRead($Input3) $port = GUICtrlRead($Input4) $name = GUICtrlRead($Input1) $pw = GUICtrlRead($Input2) $command = GUICtrlRead($Combo1) $selfip = _GetIP() $socket = TCPConnect($ip, $port) If $socket = -1 Then MsgBox(4112, "Error", "Die Verbindung zum Server konnte nicht hergestellt werden!") FileWrite("Error.log", @error) Exit Else $sendtext2 = $name & "{@]" & $pw & "{@]" & $selfip & "{@]" & $command $sendedBytes = TCPSend($socket, $sendtext2) If $sendedBytes = 0 Then MsgBox(16, "Error", "Das Paket konnte nicht gesendet werden.") Else GUICtrlSetData($List1, "Send Command (" & $command & ") @ " & @HOUR & ":" & @MIN & ":" & @SEC) EndIf EndIf Case $Button2 $ip = GUICtrlRead($Input3) $port = GUICtrlRead($Input4) $name = GUICtrlRead($Input1) $pw = GUICtrlRead($Input2) $command = GUICtrlRead($Combo1) $selfip = _GetIP() $pw2 = 85186918728389707794510026503866773976 If $socket = -1 Then MsgBox(4112, "Error", "Die Verbindung zum Server konnte nicht hergestellt werden!") EndIf $sendtext = $Combo2 & "{@]" & GUICtrlRead($Edit1) $sendedBytes = TCPSend($socket, $sendtext) If $sendedBytes = 0 Then MsgBox(16, "Error", "Das Paket konnte nicht gesendet werden.") Else EndIf Case $Button3 Exit Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd

Das Server Pannel:

;~ ############################################ ;~ RockNetwork Admin Panel v2 ;~ Codet and Copyright ;~ By Sedas ;~ ############################################ #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=..\..\AutoIt Coding\NoPublicTools\Icon Entry_5_128x128-32.ico #AutoIt3Wrapper_Run_Obfuscator=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <INet.au3> #include <String.au3> #Include <File.au3> #include <Array.au3> #Include <GuiListView.au3> Global $rip,$rport $Form1 = GUICreate("Rock.NET - Server Control", 550, 185, 400, 120) GUISetBkColor(0x000000) $ListView1 = GUICtrlCreateListView("Name|Ip|Rang|Command|Time", 0, 48, 550, 118) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 145) $Label1 = GUICtrlCreateLabel("Server IP:", 0, 0, 61, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FF00) $Label2 = GUICtrlCreateLabel("Server Port:", 96, 0, 72, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x00FF00) $Input1 = GUICtrlCreateInput(_GetIP(), 0, 16, 89, 21) $Input2 = GUICtrlCreateInput("", 96, 16, 81, 21) $Button1 = GUICtrlCreateButton("Save Settings", 0, 168, 550, 17, $WS_GROUP) $Button2 = GUICtrlCreateButton("Settings", 456, 8, 75, 25, $WS_GROUP) GUICtrlCreateListViewItem("Server|"& _GetIP() &"|SUPER ADMIN||"&@MDAY&"/"&@MON&"/"&@YEAR&" @ "&@HOUR&":"&@MIN,$ListView1) If FileExists ("Rock.Net\Settings.ini") Then GUICtrlSetData($Input1,_StringEncrypt(0,IniRead ("Rock.Net\Settings.ini","Control","IP",""), 15454576576654176415746178 , 1)) GUICtrlSetData($Input2,_StringEncrypt(0,IniRead ("Rock.Net\Settings.ini","Control","PORT",""), 15454576576654176415746178 , 1)) EndIf $Form2 = GUICreate("Rock.NET - Server Control - Setting´s", 337, 638, 311, 112) $Label1 = GUICtrlCreateLabel("AccountServer", 8, 8, 75, 17) $Input11 = GUICtrlCreateInput("Ziel", 8, 32, 321, 21) $Input22 = GUICtrlCreateInput("Ausführen in", 8, 56, 321, 21) $Label2 = GUICtrlCreateLabel("DatabaseServer", 8, 80, 81, 17) $Input32 = GUICtrlCreateInput("Ziel", 8, 104, 321, 21) $Input4 = GUICtrlCreateInput("Ausführen in", 8, 128, 321, 21) $Label3 = GUICtrlCreateLabel("CoreServer", 8, 152, 57, 17) $Input5 = GUICtrlCreateInput("Ziel", 8, 176, 321, 21) $Input6 = GUICtrlCreateInput("Ausführen in", 8, 200, 321, 21) $Label4 = GUICtrlCreateLabel("Certifier", 8, 224, 39, 17) $Input7 = GUICtrlCreateInput("Ziel", 8, 248, 321, 21) $Input8 = GUICtrlCreateInput("Ausführen in", 8, 272, 321, 21) $Label5 = GUICtrlCreateLabel("LoginServer", 8, 296, 61, 17) $Input9 = GUICtrlCreateInput("Ziel", 8, 320, 321, 21) $Input10 = GUICtrlCreateInput("Ausführen in", 8, 344, 321, 21) $Label6 = GUICtrlCreateLabel("CacheServer", 8, 368, 66, 17) $Input11 = GUICtrlCreateInput("Ziel", 8, 392, 321, 21) $Input12 = GUICtrlCreateInput("Ausführen in", 8, 416, 321, 21) $Label7 = GUICtrlCreateLabel("WorldServer", 8, 440, 63, 17) $Input13 = GUICtrlCreateInput("Ziel", 8, 464, 321, 21) $Input14 = GUICtrlCreateInput("Ausführen in", 8, 488, 321, 21) $Label8 = GUICtrlCreateLabel("Tom´s Antihack", 8, 512, 78, 17) $Input15 = GUICtrlCreateInput("Ziel", 8, 536, 321, 21) $Input16 = GUICtrlCreateInput("Ausführen in", 8, 560, 321, 21) $Input17 = GUICtrlCreateInput("Fenster Name", 8, 584, 321, 21) $Button3 = GUICtrlCreateButton("Save Settings", 8, 608, 323, 25, $WS_GROUP) GUISetState(@SW_SHOW,$Form1) TCPStartup() If FileExists ("Rock.Net\Settings.ini") Then $rip= _StringEncrypt(0, IniRead ("Rock.Net\Settings.ini","Control","IP",""),154545 76576654176415746178 , 1) $rport= _StringEncrypt(0, IniRead ("Rock.Net\Settings.ini","Control","PORT",""),1545 4576576654176415746178 , 1) Endif $socket = TCPListen($rip,$rport) While 1 $con = TCPAccept($socket) If $con >= 0 Then $rec = TCPRecv($con,2048) If $rec = "" Then Else Dim $aRecords If Not _FileReadToArray("Rock.Net\Admin.log", $aRecords) Then MsgBox (4112,"Error","You Have Delet The Log Tabel") FileWrite ("Rock.Net\Admin.log","") EndIf For $x = 1 To $aRecords[0] $array = StringSplit($aRecords[$x], '|', 1) $array2 = StringSplit($rec, '{@]', 1) If $array2[1] = $array[1] Then If $array2[2] = $array[2] Then If $array[3] = "SA" Then GUICtrlCreateListViewItem ($array[1]&"|"&$array2[3]&"|SUPER ADMIN|"&$array2[4]&"|"&@MDAY&"/"&@MON&"/"&@YEAR&" @ "&@HOUR&":"&@MIN,$ListView1) If $array2[4] = "-run all" Then _runall() EndIf If $array2[4] = "-restart all" Then _restart() EndIf If $array2[4] = "-outall" Then _outall() EndIf If $array2[4] = "-hide all" Then _hide() EndIf If $array2[4] = "-show all" Then _show() EndIf If $array2[4] = "-shutdown all" Then _shutdown() EndIf If $array2[4] = "-reload" Then _reload() EndIf If $array2[4] = "-clearlog" Then _GUICtrlListView_DeleteAllItems($ListView1) GUICtrlCreateListViewItem ($array[1]&"|"&$array2[3]&"|SUPER ADMIN|"&$array2[4]&"|"&@MDAY&"/"&@MON&"/"&@YEAR&" @ "&@HOUR&":"&@MIN,$ListView1) EndIf If $array2[4] = "-chat" Then _chatan() EndIf If $array2[4] = "-chat end" Then _chatend() EndIf If $array2[4] = "-Get Server Info" Then _info() EndIf If $array2[4] = "-allowe connection" Then _allowecon() EndIf If $array2[4] = "-block connection" Then _blockcon() EndIf Endif If $array[3] = "A" Then GUICtrlCreateListViewItem ($array[1]&"|"&$array2[3]&"|ADMIN|"&$array2[4]&"|"&@MDAY&"/"&@MON&"/"&@YEAR&" @ "&@HOUR&":"&@MIN,$ListView1) If $array2[4] = "-run all" Then _runall() EndIf If $array2[4] = "-restart all" Then _restart() EndIf If $array2[4] = "-outall" Then _outall() EndIf If $array2[4] = "-hide all" Then _hide() EndIf If $array2[4] = "-show all" Then _show() EndIf If $array2[4] = "-shutdown all" Then _shutdown() EndIf If $array2[4] = "-reload" Then _reload() EndIf If $array2[4] = "-chat" Then _chatan() EndIf If $array2[4] = "-chat end" Then _chatend() EndIf If $array2[4] = "-Get Server Info" Then _info() EndIf EndIf If $array[3] = "M" Then GUICtrlCreateListViewItem ($array[1]&"|"&$array2[3]&"|GAMEMASTER|"&$array2[4]&"|"&@MDAY&"/"&@MON&"/"&@YEAR&" @ "&@HOUR&":"&@MIN,$ListView1) If $array2[4] = "-run all" Then _runall() EndIf If $array2[4] = "-restart all" Then _restart() EndIf If $array2[4] = "-outall" Then _outall() EndIf If $array2[4] = "-hide all" Then _hide() EndIf If $array2[4] = "-show all" Then _show() EndIf If $array2[4] = "-shutdown all" Then _shutdown() EndIf If $array2[4] = "-reload" Then _reload() EndIf If $array2[4] = "-chat" Then _chatan() EndIf If $array2[4] = "-chat end" Then _chatend() EndIf If $array2[4] = "-Get Server Info" Then _info() EndIf EndIf EndIf EndIf Next EndIf EndIf $nMsg = GUIGetMsg() Switch $nMsg Case $Button1 DirCreate('Rock.Net') IniWrite ("Rock.Net\Settings.ini","Control","IP",_StringEnc rypt(1, GUICtrlRead ($Input1), 15454576576654176415746178 , 1)) IniWrite ("Rock.Net\Settings.ini","Control","PORT",_StringE ncrypt(1, GUICtrlRead ($Input2), 15454576576654176415746178 , 1)) Case $Button2 GUISetState(@SW_SHOW,$Form2) Case $Button3 IniWrite ("Rock.Net\Settings.ini","Server","AccountServe r 1",GUICtrlRead ($Input11)) IniWrite ("Rock.Net\Settings.ini","Server","AccountServe r 2",GUICtrlRead ($Input22)) IniWrite ("Rock.Net\Settings.ini","Server","DatabaseServ er 1",GUICtrlRead ($Input32)) IniWrite ("Rock.Net\Settings.ini","Server","DatabaseServ er 2",GUICtrlRead ($Input4)) IniWrite ("Rock.Net\Settings.ini","Server","CoreServer 1",GUICtrlRead ($Input5)) IniWrite ("Rock.Net\Settings.ini","Server","CoreServer 2",GUICtrlRead ($Input6)) IniWrite ("Rock.Net\Settings.ini","Server","Certifier 1",GUICtrlRead ($Input7)) IniWrite ("Rock.Net\Settings.ini","Server","Certifier 2",GUICtrlRead ($Input8)) IniWrite ("Rock.Net\Settings.ini","Server","LoginServer 1",GUICtrlRead ($Input9)) IniWrite ("Rock.Net\Settings.ini","Server","LoginServer 2",GUICtrlRead ($Input10)) IniWrite ("Rock.Net\Settings.ini","Server","CacheServer 1",GUICtrlRead ($Input11)) IniWrite ("Rock.Net\Settings.ini","Server","CacheServer 2",GUICtrlRead ($Input12)) IniWrite ("Rock.Net\Settings.ini","Server","WorldServer 1",GUICtrlRead ($Input13)) IniWrite ("Rock.Net\Settings.ini","Server","WorldServer 2",GUICtrlRead ($Input14)) IniWrite ("Rock.Net\Settings.ini","Server","Tom´s Antihack 1",GUICtrlRead ($Input15)) IniWrite ("Rock.Net\Settings.ini","Server","Tom´s Antihack 2",GUICtrlRead ($Input16)) IniWrite ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",GUICtrlRead ($Input17)) _hidesettings() Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func _hidesettings() GUISetState(@SW_HIDE,$Form2) EndFunc Func _shutdown() ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "BITTE ALLE AUSLOGGEN SERVER SHUTDOWN IN 1 MINUTE") Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2) Sleep (10000) ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "BITTE ALLE AUSLOGGEN SERVER SHUTDOWN IN 50 SEC") Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2) Sleep (10000) ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "BITTE ALLE AUSLOGGEN SERVER SHUTDOWN IN 40 SEC") Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2) Sleep (10000) ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "BITTE ALLE AUSLOGGEN SERVER SHUTDOWN IN 30 SEC") Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2) Sleep (10000) ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "BITTE ALLE AUSLOGGEN SERVER SHUTDOWN IN 20 SEC") Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2) Sleep (10000) ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "BITTE ALLE AUSLOGGEN SERVER SHUTDOWN IN 10 SEC") Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2) Sleep (5000) ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "BITTE ALLE AUSLOGGEN SERVER SHUTDOWN IN 5 SEC") Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2) Sleep (5000) ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "SERVER SHUTDOWN") Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2) Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button4',"",1) Sleep (100) ProcessClose("6.CacheServer.exe") Sleep(1000) ProcessClose("7.WorldServer_noMapKey.exe") Sleep(1000) ProcessClose("5.LoginServer.exe") Sleep(1000) ProcessClose("4.Certifier.exe") Sleep(1000) ProcessClose("3.CoreServer.exe") Sleep(1000) ProcessClose("2.DatabaseServer.exe") Sleep(1000) ProcessClose("1.AccountServer.exe") Sleep(1000) _hide() EndFunc Func _reload() ProcessClose("6.CacheServer.exe") Sleep(1000) ProcessClose("7.WorldServer_noMapKey.exe") Sleep(1000) Run (IniRead ("Rock.Net\Settings.ini","Server","CacheServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","CacheServer 2","")) Sleep (2000) Run (IniRead ("Rock.Net\Settings.ini","Server","WorldServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","WorldServer 2","")) Sleep (2000) MouseClick ("Right",698,197) Sleep (1000) _hide() EndFunc Func _hide() WinSetState("AccountServer","",@SW_HIDE) WinSetState("Trans Server","",@SW_HIDE) WinSetState("Core Server","",@SW_HIDE) WinSetState("Certifier","",@SW_HIDE) WinSetState("Login Server","",@SW_HIDE) WinSetState("Cache Server","",@SW_HIDE) WinSetState("World Server(101)","",@SW_HIDE) EndFunc Func _show() WinSetState("AccountServer","",@SW_SHOW) WinSetState("Trans Server","",@SW_SHOW) WinSetState("Core Server","",@SW_SHOW) WinSetState("Certifier","",@SW_SHOW) WinSetState("Login Server","",@SW_SHOW) WinSetState("Cache Server","",@SW_SHOW) WinSetState("World Server(101)","",@SW_SHOW) EndFunc Func _runall() Run (IniRead ("Rock.Net\Settings.ini","Server","AccountServe r 1",""),IniRead ("Rock.Net\Settings.ini","Server","AccountServe r 2","")) Sleep (2000) Run (IniRead ("Rock.Net\Settings.ini","Server","DatabaseServ er 1",""),IniRead ("Rock.Net\Settings.ini","Server","DatabaseServ er 2","")) Sleep (2000) Run (IniRead ("Rock.Net\Settings.ini","Server","CoreServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","CoreServer 2","")) Sleep (2000) Run (IniRead ("Rock.Net\Settings.ini","Server","Certifier 1",""),IniRead ("Rock.Net\Settings.ini","Server","Certifier 2","")) Sleep (2000) Run (IniRead ("Rock.Net\Settings.ini","Server","LoginServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","LoginServer 2","")) Sleep (2000) Run (IniRead ("Rock.Net\Settings.ini","Server","CacheServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","CacheServer 2","")) Sleep (2000) Run (IniRead ("Rock.Net\Settings.ini","Server","WorldServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","WorldServer 2","")) Sleep (2000) MouseClick ("Right",698,197) Sleep (1000) _hide() EndFunc Func _blockcon() WinSetState ("[CLASS:ACCOUNTSERVER]", "", @SW_SHOW) WinActivate ("[CLASS:ACCOUNTSERVER]") ControlSend("[CLASS:ACCOUNTSERVER]", "", "", "!t") ControlSend("[CLASS:ACCOUNTSERVER]", "", "", "B") WinSetState ("[CLASS:ACCOUNTSERVER]", "", @SW_HIDE) EndFunc Func _allowecon() WinSetState ("[CLASS:ACCOUNTSERVER]", "", @SW_SHOW) WinActivate ("[CLASS:ACCOUNTSERVER]") ControlSend("[CLASS:ACCOUNTSERVER]", "", "", "!t") ControlSend("[CLASS:ACCOUNTSERVER]", "", "", "A") WinSetState ("[CLASS:ACCOUNTSERVER]", "", @SW_HIDE) EndFunc Func _outall() ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "Es Werden Alle Gekickt in 1 Min") Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2) Sleep (60000) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button4',"",2) EndFunc Func _restart() WinActivate ("AccountServer - release") Send ("!t") Send ("B") ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "Server Restart in 1 Min") Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2) Sleep (10000) ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "Server Restart in 50 Sec") Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2) Sleep (10000) ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "Server Restart in 40 Sec") Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2) Sleep (10000) ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "Server Restart in 30 Sec") Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2) Sleep (10000) ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "Server Restart in 20 Sec") Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2) Sleep (10000) ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "Server Restart in 10 Sec") Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2) Sleep (5000) ControlSetText ( IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""), "", "[CLASS:Edit; INSTANCE:1]", "Server Restart in 5 Sec") Sleep (100) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button5',"",2) Sleep (5000) ControlClick(IniRead ("Rock.Net\Settings.ini","Server","Tom´s Antihack 3",""),'','Button4',"",2) Sleep (500) ProcessClose("6.CacheServer.exe") Sleep(1000) ProcessClose("7.WorldServer_noMapKey.exe") Sleep(1000) ProcessClose("5.LoginServer.exe") Sleep(1000) ProcessClose("4.Certifier.exe") Sleep(1000) ProcessClose("3.CoreServer.exe") Sleep(1000) ProcessClose("2.DatabaseServer.exe") Sleep(1000) ProcessClose("1.AccountServer.exe") Sleep(1000) Run (IniRead ("Rock.Net\Settings.ini","Server","AccountServe r 1",""),IniRead ("Rock.Net\Settings.ini","Server","AccountServe r 2","")) Sleep (2000) Run (IniRead ("Rock.Net\Settings.ini","Server","DatabaseServ er 1",""),IniRead ("Rock.Net\Settings.ini","Server","DatabaseServ er 2","")) Sleep (2000) Run (IniRead ("Rock.Net\Settings.ini","Server","CoreServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","CoreServer 2","")) Sleep (2000) Run (IniRead ("Rock.Net\Settings.ini","Server","Certifier 1",""),IniRead ("Rock.Net\Settings.ini","Server","Certifier 2","")) Sleep (2000) Run (IniRead ("Rock.Net\Settings.ini","Server","LoginServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","LoginServer 2","")) Sleep (2000) Run (IniRead ("Rock.Net\Settings.ini","Server","CacheServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","CacheServer 2","")) Sleep (2000) Run (IniRead ("Rock.Net\Settings.ini","Server","WorldServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","WorldServer 2","")) Sleep (2000) MouseClick ("Right",698,197) Sleep (1000) _hide() EndFunc Func _chatan() EndFunc Func _chatend() EndFunc Func _info() If WinGetState ( "Cache Server" ) = 5 Then $srvSocket = TCPConnect($array2[3],15155) TCPSend($srvSocket, "Nein") TCPCloseSocket($srvSocket) EndIf If WinGetState ( "Cache Server" ) = 7 Then $srvSocket = TCPConnect($array2[3],15155) TCPSend($srvSocket, "Ja") TCPCloseSocket($srvSocket) If ProcessExists ("7.WorldServer_noMapKey.exe") Then $srvSocket = TCPConnect($array2[3],15155) TCPSend($srvSocket, "WorldServer") TCPCloseSocket($srvSocket) Endif If ProcessExists ("7.WorldServer_noMapKey.exe") Then $srvSocket = TCPConnect($array2[3],15155) TCPSend($srvSocket, "WorldServer") TCPCloseSocket($srvSocket) Endif If ProcessExists ("6.CacheServer.exe") Then $srvSocket = TCPConnect($array2[3],15155) TCPSend($srvSocket, "CacheServer") TCPCloseSocket($srvSocket) Endif If ProcessExists ("5.LoginServer.exe") Then $srvSocket = TCPConnect($array2[3],15155) TCPSend($srvSocket, "LoginServer") TCPCloseSocket($srvSocket) Endif If ProcessExists ("4.Certifier.exe") Then $srvSocket = TCPConnect($array2[3],15155) TCPSend($srvSocket, "Certifier") TCPCloseSocket($srvSocket) Endif If ProcessExists ("3.CoreServer.exe") Then $srvSocket = TCPConnect($array2[3],15155) TCPSend($srvSocket, "CoreServer") TCPCloseSocket($srvSocket) Endif If ProcessExists ("2.DatabaseServer.exe") Then $srvSocket = TCPConnect($array2[3],15155) TCPSend($srvSocket, "DatabaseServer") TCPCloseSocket($srvSocket) Endif If ProcessExists ("1.AccountServer.exe") Then $srvSocket = TCPConnect($array2[3],15155) TCPSend($srvSocket, "DatabaseServer") TCPCloseSocket($srvSocket) Endif EndIf EndFunc

Have Fun damit und Lasst das Spamen. Danke
Mfg Sedas

[TerrorSonic]

Ich finde es zwar recht gut, dass ihr langsam anfängt zu lernen, aber die Sprachen allein für Spiele zu lernen ist sehr sehr dumm.

Hast dir richtig viel mühe gegeben das zu schreiben, deswegen THX;)


Sorry 4 Spam... ~.~

[sedas]

ich code ja nicht nur für spiele

[xDrago]

Ihr solltet froh sei ndas er es zu verfügung stellt.
Und ich habe keine Ahnung was ihr alle gegen AutoIt habt.

Solang sowas in AutoIt möglich ist.. wieso nicht??

Entweder ihr haltet die regeln ein und postet was sinnvolles oder ihr lasst es sein.



MfG
xDrago

[Lunatic]

Solang sowas in AutoIt möglich ist.. wieso nicht??

Weil es nicht immer darum geht dass es funktioniert, sondern wie elegant es is.
Und wenn man sich die Eleganz anschaut dann merkt man was. Keine Exceptions... etc

~Luna