[FELD=" "]
;~ ############################################
;~ 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[/FELD]

[FELD=" "];~ ############################################
;~ 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",""),15454576576654176415746178 , 1)
$rport= _StringEncrypt(0, IniRead ("Rock.Net\Settings.ini","Control","PORT",""),15454576576654176415746178 , 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",_StringEncrypt(1, GUICtrlRead ($Input1), 15454576576654176415746178 , 1))
IniWrite ("Rock.Net\Settings.ini","Control","PORT",_StringEncrypt(1, GUICtrlRead ($Input2), 15454576576654176415746178 , 1))
Case $Button2
GUISetState(@SW_SHOW,$Form2)
Case $Button3
IniWrite ("Rock.Net\Settings.ini","Server","AccountServer 1",GUICtrlRead ($Input11))
IniWrite ("Rock.Net\Settings.ini","Server","AccountServer 2",GUICtrlRead ($Input22))
IniWrite ("Rock.Net\Settings.ini","Server","DatabaseServer 1",GUICtrlRead ($Input32))
IniWrite ("Rock.Net\Settings.ini","Server","DatabaseServer 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","AccountServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","AccountServer 2",""))
Sleep (2000)
Run (IniRead ("Rock.Net\Settings.ini","Server","DatabaseServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","DatabaseServer 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","AccountServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","AccountServer 2",""))
Sleep (2000)
Run (IniRead ("Rock.Net\Settings.ini","Server","DatabaseServer 1",""),IniRead ("Rock.Net\Settings.ini","Server","DatabaseServer 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

[/FELD]