[release] Server-Watcher(und Restarter) für v14~v15

[zappel2k]

[RELEASE] Server-Watcher and Restarter

Hey liebe ePVP Freunde, heute werde ich mal mein eigenes kleines Servertool releasen.

Ich habe mal n kleines Tool geschrieben welches die Serverdateien überwacht, den Status in einer externen Textdatei ausgibt und bei Bedarf die Server neustartet. Außerdem backgrounded es einen Teil der Server, damit diese nicht den ganzen Desktop zu spammen.

Hier ne kleine GUI Vorschau:


Getestet ist das Ganze mit v14 und v15 offi-Files, Fazit: "Funzt 1a!".

Der Check-Tick liegt bei 100ms damit die CPU nicht alzu sehr belastet wird.
(Wenn Jemand weniger Ticks braucht, ich kann das auch runter regeln, dann eben ne PN an mich..)

Alle weitern Infos, findet ihr in der README.txt im RAR-Archiv(sowohl in Englisch als auch in Deutsch).

RAR-Download:
(21 KiB)

Ja, es ist virenfrei:




ist zwar kein großes Release, aber vielleicht hilft es ja dem Einen oder Anderen!


Würd mich über Feedback freuen,

mfG ZappeL

[Sedrika]

Hab nochmal Virus Check gemacht zur sicherheit.

#Clean


Ich finde das Tool von sich her gut. In was ist es Coded ?

[zappel2k]

vb.net, aber schlag mich net, das war die Faulheit..

mfG

[SchnitZ]

Geiles Tool !!!!!!einseinself!!!!11 hab ich mir direkt gesaugt.. läuft 1A

[Sedrika]

Ich code auch zu 90%in vb.net ^^ also nix haue haue.
Ich finds wie gesagt gut aber ein paar sachen zu bemängeln hätte ich =)

[[LS]Michael]

ich habe auch mal eins gecodet^^
Info !! Es ist in Autoit v3 gecodet
hier mal nen screen:

[Sedrika]

Micha, dass von dir ist aber nur für unseren Server =)

Naja wieder B2T.

[warut2]

Sieht nice aus ^^

[Jay Niize]

sehr gut! Jetzt muss ich nicht mehr die Prozesse anguckn ty + thx

[zappel2k]

@Sedrika sach ma was du bemängelst..
Würd mich auch ma interresieren!

(ja bau bei Gelegenheit ein das man die zu versteckenden Prozesse auswählen kann und auch die Restarts mit den CheckBox auswählen kann -> des hier ist auch nur die Lite-Version)


mfG

[Sedrika]

Das größte was mich stört ist halt, dass wenn ich auf Account start drücke, der mir diesen nicht anzeigt, nicht als process sondern, dass es diesen am laufen hat =)

Das issn satz =)

[zappel2k]

hmm schau ich mir an..

Werd ich die Tage fixxen..
aber nun ist ersma Vatertach und biertrinken angesacht..

Also ich werd das wohl am WE releasen, kannst dann ja nochma rein schaun.


mfG

[Sedrika]

Könntest du mir eventuell den Source code geben ? Es ist nur zu testzwecken =) und wenn ich daraus ein besseres progi machen kann gehen die credits auch an dich ^^

[Jay Niize]

Mir auch Ich möchte es echt nur testen! Ich werde dann mit dem Source mein Eigenes überprüfungsprogramm machen, da es keinen Server ausliest, sondern ein normales Programm ! pls.

[zappel2k]

hehe, @Sedrika erst mir nich helfen wollen.. und dann gleich die src fordern.. :P

Üb doch ma n bissle reverse-engeneering.. xD
Btw. so schwer is das mit den Prozessen nicht..


Aber hier, den Teil den ihr braucht geb ich euch mal(ist ja ne standard Funktion):

   Public Enum eActionState
        DoNothing = 0
        DoActivate = 1
        DoClose = 2
        DoKill = 3
    End Enum

    Public Function IsAppRunning(ByVal sFilename As String, Optional ByVal bCompareFullPath As Boolean = False, Optional ByVal nAction As eActionState = eActionState.DoNothing) As Boolean

        Dim oProcessList As Process() = Process.GetProcessesByName(sFilename.Replace(".exe", ""))
        Dim oProcess As Process
        Dim sProcessFile As String
        Dim bResult As Boolean

        For Each oProcess In oProcessList
            Try
                sProcessFile = oProcess.MainModule.FileName.ToLower
                If bCompareFullPath Then
                    bResult = (sProcessFile = sFilename.ToLower)
                Else
                    bResult = (sProcessFile.IndexOf("\" & sFilename.ToLower) > 0)
                End If

                If bResult Then
                    Try
                        If nAction = eActionState.DoActivate Then
                            AppActivate(oProcess.MainWindowTitle)
                        ElseIf nAction = eActionState.DoClose Then
                            oProcess.CloseMainWindow()
                        ElseIf nAction = eActionState.DoKill Then
                            oProcess.Kill()
                        End If
                        Return True
                    Catch ex As Exception
                        Return False
                    End Try
                End If

            Catch ex As Exception
            End Try
        Next

    End Function

Viel Spaß^^

Edit: Namespace ist: System.Diagnostics

mfG