Beiträge von Hairichi

  • [Release + Source Code]Server Starter und Closer

    Hi

    ich möchte euch meinen Server Startet und Closer vorstellen

    das ganze läuft in einer konsolen anwendung in visual basic ab

    befehle :

    [FELD="-s"]Alle Server Starten[/FELD]
    [FELD="-b"]Alle Server Beenden[/FELD]
    [FELD="c"]Konsole Schließen[/FELD]
    [FELD="-h"]Hilfe anzeigen (Darin sind nochmal alle Befehle anthalten[/FELD]
    [FELD="-r"]Bugs Reporten[/FELD]

    Source Code ( visual basic 2008 express edition )


    Module Module1

    Sub Main()
    Console.ForegroundColor = ConsoleColor.Gray [COLOR="lime"]'Farbe ändern [/COLOR]
    Console.WriteLine("Server Starter and Closer") [COLOR="lime"]'Text in Konsole Schreiben[/COLOR] Console.Title = "Server Starter and Closer" [COLOR="lime"]'Title setzen[/COLOR]
    Console.ForegroundColor = ConsoleColor.Cyan [COLOR="lime"]'Farbe ändern[/COLOR]
    While 1


    Dim s As String = Console.ReadLine
    If s = "-s" Then
    Process.Start("1. Login Server.exe") [COLOR="lime"]'Login Server Beenden...falls der Server anders heißt den namen des servers eingeben [/COLOR]Process.Start("2. Char Server.exe") [COLOR="lime"]'Login Server Beenden... falls der Server anders heißt den namen des servers eingeben [/COLOR]Process.Start("3. World Server.exe")[COLOR="lime"] 'World Server Beenden... falls der Server anders heißt den namen des servers eingeben[/COLOR]

    Console.ForegroundColor = ConsoleColor.Green
    Console.WriteLine("Die Server wurden gestartet")
    Console.ForegroundColor = ConsoleColor.Black

    End If
    If s = "-b" Then

    For Each a In Process.GetProcessesByName("1. Login Server.exe") [COLOR="lime"]'Login Server Beenden... falls der Server anders heißt den namen des servers eingeben[/COLOR]
    a.Close()

    Next
    For Each b In Process.GetProcessesByName("2. Char Server.exe") [COLOR="lime"]'Char Server Beenden...falls der Server anders heißt den namen des servers eingeben[/COLOR]
    b.Close()

    Next
    For Each c In Process.GetProcessesByName("3. World Server.exe") [COLOR="lime"]'World Server Beenden... falls der Server anders heißt den namen des servers eingeben[/COLOR] c.Close()


    Next
    Console.ForegroundColor = ConsoleColor.Green
    Console.WriteLine("Die Server wurden Beendet")
    Console.ForegroundColor = ConsoleColor.Black
    End If
    If s = "-h" Then
    Console.ForegroundColor = ConsoleColor.Gray [COLOR="lime"]'Farbe ändern[/COLOR]
    Console.Clear() [COLOR="lime"]'Konsole Leeren[/COLOR]
    Console.WriteLine("Server Starter Und Closer Hilfe") [COLOR="lime"]'Text in Konsole Schreiben[/COLOR] Console.WriteLine("") 'Text in Konsole Schreiben
    Console.WriteLine("Befehle:") 'Text in Konsole Schreiben
    Console.WriteLine("") 'Text in Konsole Schreiben
    Console.WriteLine("-s Startet alle Server") [COLOR="Lime"]'Text in Konsole [/COLOR]Schreiben
    Console.WriteLine("") 'Text in Konsole Schreiben
    Console.WriteLine("-b Beendet alle Server") [COLOR="lime"]'Text in Konsole [/COLOR]Schreiben
    Console.WriteLine("") 'Text in Konsole Schreiben
    Console.WriteLine("-h Öffnet die Hilfe") [COLOR="lime"]'Text in Konsole Schreiben[/COLOR]
    Console.WriteLine("") 'Text in Konsole Schreiben
    Console.WriteLine("-c Beendet die Konsole") [COLOR="lime"]'Text in Konsole [/COLOR]Schreiben
    Console.WriteLine("") 'Text in Konsole Schreiben
    Console.WriteLine("-r Bug Report") [COLOR="lime"]'Text in Konsole Schreiben[/COLOR]


    End If
    If s = "-c" Then
    End


    End If
    If s = "-r" Then
    Process.Start("mailto:[COLOR="lightblue"]MAIL ADDRESSE[/COLOR]")
    End If

    End While


    End Sub
    'Copyright 2009 by Hairichi
    End Module

    [FELD="Download Link"]http://ul.to/mm3l5h[/FELD]

  • Wie kann ich mit vb einen Flyff patcher erstellen?

    eigentlich ganz einfach
    du lässt einfach die zip's downloaden :D
    progress bar is auch einfach einzustellen ... ^^
    und Register button einfach auf deine homepage verlinken optionen auf die dings da im ordner (hab schon ne zeit lang keine flyff pserver sachen gemacht :D )
    und den Close button mit dem Befehl
    Me.Close()
    und Start button mit dem gibts die probs ^^
    da muss man halt die neuz.exe ausführen mit dem Prozessschlüßel (oder wie des heißt :P ) Sunkist [des is der Standart]

    und news fenster einfach nen webbrowser mit der info seite

    das wars eig. schon

    schreib vill. bald n TuT aber erst mach ich meinen Metin 2 multi hack :D

  • Beast World Editor Texturen frage

    Hallo
    ich wollte fragen ob man im BWE noch texturen und modelle hinzufügen kann und wie
    denn ich will für einen PServer eine gaile PvP machen weitere details nach publ. stellung
    :killzonesmiley::playingsmiley::dark mood::check::playingsmiley::grin::cool:

    MFG
    Hairichi

  • [Wichtig]Kleine Regel

    Zitat

    Gute Regel , es sollte aber nochwas verändert werden .
    Und zwar , pro User - 1 Map Thread .

    Das heißt jeder User sammelt alle seine Maps + deren Releases + deren Preview in einem Thread . Somit wird der gesamte Unterbereich nicht vollgespammt und es ist übersichtlicher .

    Daron

    meep
    wär ehrlich gesagt blöd
    weil wenn einer einen sammel thread vor einem jahr aufgemacht hat kommt ja eh keiner mehr rein weil der thread dann auf seite 39139124124142345+ ist

  • vb frage!!!! *AUFMERKSAMKEIT*

    Hallo =)
    ich hab mal ne frage...
    ich habe diesen code :
    ___________________________________________________________
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Shell("C:\.....irgendwas.exe")

    End Sub
    ___________________________________________________________

    das bedeutet das mein programm : Flyff Patcher die irgendwas.exe öffnet
    aber ich will noch nen script drann setzten das sich Flyff Patcher schloießt da die irgendwas.exe ja jetzt läuft