Gerade jemand geholfen

    • Gerade jemand geholfen

      Ich war mal wieder bei Vb**** aktive und wollte jemanden helfen

      das bin ich auf das hier gestoßen jemadn der ein AH schreiben will

      :

      Quellcode

      1. Sub Main()Console.WriteLine("Die Server werden nun gescannt!")
      2. My.Computer.FileSystem.WriteAllText("c:\lo.txt", "#Show Commands", True)Dim eingabe As String = Console.ReadLine
      3. If eingabe = "#Show Commands" = True Then Console.WriteLine("#Bug = Behebt alle Worldserver fehler!")My.Computer.FileSystem.WriteAllText("c:\lo.txt", "#Show Commands", True)
      4. Dim eingabe4 As String = Console.ReadLineIf eingabe4 = "#Show Commands" = True Then Console.WriteLine("#Start Res 0 Ladet resourcordner neu!")My.Computer.FileSystem.WriteAllText("c:\lo.txt", "#Show Commands", True)
      5. Threading.Thread.Sleep(555646715)
      6. Console.WriteLine("Fehler im Worldserver gefunden!")Dim eingabe2 As String = Console.ReadLine
      7. If eingabe2 = "#Bug" = True Then Console.WriteLine("Fehler des Worldservers werden behoben...")My.Computer.FileSystem.WriteAllText("c:\lo.txt", "#Bug", True)
      8. Threading.Thread.Sleep(14000)Console.WriteLine("Worldserver Fehler wurden behoben!")
      9. Dim eingabe3 As String = Console.ReadLineIf eingabe3 = "#Start Res" = True Then Console.WriteLine("Resourcen werden neu geladen...")My.Computer.FileSystem.WriteAllText("c:\lo.txt", "#Start Res", True)
      10. Threading.Thread.Sleep(45000)Console.WriteLine("Resourcen des Pfades 'C:\Users\Administrator\Desktop\ServerFiles\Resource' wurden neu geladen!")
      11. Console.ReadLine()
      Alles anzeigen

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )