nicht überall hamachi ip ^^
Dim wc As WebClient = New WebClient()
wc.Proxy = Nothing
Dim Login As String() = wc.DownloadString("http://25.159.107.9:81/login/Login.php?Username=" & tbUsername.Text & "&Password=" & passMD5.ToLower()).Split("#")
wc.Dispose()
If Login(0) = "OK" Then
If Not File.Exists(ClientExeName) Then
MsgBox("Der Client konnte nicht gefunden werden!", MsgBoxStyle.Critical, "Client nicht gefunden")
Exit Sub
End If
MsgBox("Viel Spaß wünscht euch Kanaye假名你們")
Process.Start("Odin.exe", "-osk_server " & "25.159.107.9" & " -osk_token " & Login(1) & " -osk_store " & "http://www.google.de/")
Application.Exit()
Else
MsgBox("Falscher Benutzername oder Passwort, bitte versuchen Sie es erneut!")
End If
Catch WebEx As WebException
MsgBox("Der Loginserver ist momentan nicht erreichbar!", MsgBoxStyle.Critical, "Loginserver nicht erreichbar")
End Try
End Sub
Private Sub pbExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbExit.Click
Application.Exit()
End Sub
Private Sub Login_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not CheckConnection() Then
MsgBox("Es besteht keine Verbindung zum Internet!", MsgBoxStyle.Critical, "Verbindung fehlgeschlagen")
Application.Exit()
End If
If Not CheckServer() Then
MsgBox("Die Verbindung zum Server ist fehlgeschlagen! Warten Sie ein wenig und kontaktieren Sie sodann den Serverinhaber!", MsgBoxStyle.Critical, "Server nicht erreichbar")
Application.Exit()
End If
End Sub
Function CheckConnection() As Boolean
Try
My.Computer.Network.Ping("google.de")
Return True
Catch ex As Exception
Return False
End Try
End Function
Function CheckServer() As Boolean
Try
My.Computer.Network.Ping(MyIPAddress)
Return True
Catch ex As Exception
Return False
End Try
End Function
Private Sub tbUsername_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbUsername.Enter
If tbUsername.Text = "Benutzername" Then tbUsername.Clear()
End Sub
Private Sub tbUsername_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbUsername.Leave
If tbUsername.Text = "" Then tbUsername.Text = "Benutzername"
End Sub
Private Sub tbPassword_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbPassword.Enter
If tbPassword.Text = "Password" Then tbPassword.Clear()
End Sub
Private Sub tbPassword_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tbPassword.KeyDown
If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then
pbStart_Click(Nothing, Nothing)
End If
End Sub
[ID] = Server ID, [W] = World No, [Z] = Zone No, [F] = From Server ID ; ; [Name] [ID, W, Z, F] [IP] [Port] [Backlog] [Maximum of accept socket] ; ; DB,Login server ------------------------------------------------------------ SERVER_INFO "Account_DB", 0, 0, 0, 0, "127.0.0.1", 9000, 1, 100 ; From ALL SERVER_INFO "AccountLog_DB", 1, 0, 0, 0, "127.0.0.1", 9005, 1, 100 ; From ALL SERVER_INFO "Login_Server", 4, 0, 0,20, "25.159.107.9", 9010, 10, 200 ; From Client SERVER_INFO "Login_Server", 4, 0, 0, 5, "127.0.0.1", 9015, 1, 50 ; From World manager SERVER_INFO "Login_Server", 4, 0, 0, 8, "127.0.0.1", 9016, 1, 30 ; From OPTOOL ; World #0 ------------------------------------------------------------------- SERVER_INFO "PG_Char_DB", 2, 0, 0, 0, "127.0.0.1", 9100, 1, 100 ; From ALL SERVER_INFO "PG_GameLog_DB", 3, 0, 0, 0, "127.0.0.1", 9101, 1, 100 ; From ALL SERVER_INFO "PG_World_Manager_Server", 5, 0, 0,20, "25.159.107.9", 9110, 1, 6000 ; Public IP SERVER_INFO "PG_World_Manager_Server", 5, 0, 0, 6, "25.159.107.9", 9115, 1, 6000 ; Public IP SERVER_INFO "PG_World_Manager_Server", 5, 0, 0, 8, "127.0.0.1", 9116, 1, 5 ; From OPTOOL ; Zone 0 --------------------------------------------------------------------- SERVER_INFO "PG_Zone_00", 6, 0, 0,20, "25.159.107.9", 9120, 10, 2000 ; Public IP SERVER_INFO "PG_Zone_00", 6, 0, 0, 8, "127.0.0.1", 9121, 1, 5 ; From OPTOOL ; Zone 1 --------------------------------------------------------------------- SERVER_INFO "PG_Zone_01", 6, 0, 1,20, "25.159.107.9", 9122, 10, 2000 ; Public IP SERVER_INFO "PG_Zone_01", 6, 0, 1, 8, "127.0.0.1", 9123, 1, 5 ; From OPTOOL ; Zone 2 --------------------------------------------------------------------- SERVER_INFO "PG_Zone_02", 6, 0, 2,20, "25.159.107.9", 9124, 10, 2000 ; Public IP SERVER_INFO "PG_Zone_02", 6, 0, 2, 8, "127.0.0.1", 9125, 1, 5 ; From OPTOOL ; Zone 3 --------------------------------------------------------------------- SERVER_INFO "PG_Zone_03", 6, 0, 2,20, "25.159.107.9", 9126, 10, 2000 ; Public IP SERVER_INFO "PG_Zone_03", 6, 0, 2, 8, "127.0.0.1", 9127, 1, 5 ; From OPTOOL
Bin ich froh das ich meinen Thread gepusht habe ;DQuote:
Hab ich auch probiert und es geht immernoch nicht -.-
Jetzt hab ich Connection to server has failed !
hab die Config geändert und bei Public Ip die hamachi reingepackt, der rest ist die local ip
Alle Daten angepasst und trotzdem gehts nicht =(
Ich ändere nochmal meine Aussage
jetzt kommt wieder
Authentification failed
Ja, das habe ich, aber such hier im Forum mal eine kleine Frage zu diesem Fehler von mir, wirst nicht finden, oder?Quote:
<----Tjaa Neuling und stolz drauf xD
Ein Glück gibt es heutzutage noch verständisvolle Menschen...
Jaaa auch DU hast mal klein angefangen -.-
mach hots und odinrest hamachi ip ;)Quote:
Ich habe immernoch Authentification failed:confused:
VB Patcher ( mit local IP gings ;) )
Hier das test_Manager_ServerInfo ( test_ServerInfo sieht gleich aus )PHP Code:Dim wc As WebClient = New WebClient()
wc.Proxy = Nothing
Dim Login As String() = wc.DownloadString("http://25.159.107.9:81/login/Login.php?Username=" & tbUsername.Text & "&Password=" & passMD5.ToLower()).Split("#")
wc.Dispose()
If Login(0) = "OK" Then
If Not File.Exists(ClientExeName) Then
MsgBox("Der Client konnte nicht gefunden werden!", MsgBoxStyle.Critical, "Client nicht gefunden")
Exit Sub
End If
MsgBox("Viel Spaß wünscht euch Kanaye假名你們")
Process.Start("Odin.exe", "-osk_server " & "25.159.107.9" & " -osk_token " & Login(1) & " -osk_store " & "http://www.google.de/")
Application.Exit()
Else
MsgBox("Falscher Benutzername oder Passwort, bitte versuchen Sie es erneut!")
End If
Catch WebEx As WebException
MsgBox("Der Loginserver ist momentan nicht erreichbar!", MsgBoxStyle.Critical, "Loginserver nicht erreichbar")
End Try
End Sub
Private Sub pbExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbExit.Click
Application.Exit()
End Sub
Private Sub Login_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not CheckConnection() Then
MsgBox("Es besteht keine Verbindung zum Internet!", MsgBoxStyle.Critical, "Verbindung fehlgeschlagen")
Application.Exit()
End If
If Not CheckServer() Then
MsgBox("Die Verbindung zum Server ist fehlgeschlagen! Warten Sie ein wenig und kontaktieren Sie sodann den Serverinhaber!", MsgBoxStyle.Critical, "Server nicht erreichbar")
Application.Exit()
End If
End Sub
Function CheckConnection() As Boolean
Try
My.Computer.Network.Ping("google.de")
Return True
Catch ex As Exception
Return False
End Try
End Function
Function CheckServer() As Boolean
Try
My.Computer.Network.Ping(MyIPAddress)
Return True
Catch ex As Exception
Return False
End Try
End Function
Private Sub tbUsername_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbUsername.Enter
If tbUsername.Text = "Benutzername" Then tbUsername.Clear()
End Sub
Private Sub tbUsername_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbUsername.Leave
If tbUsername.Text = "" Then tbUsername.Text = "Benutzername"
End Sub
Private Sub tbPassword_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbPassword.Enter
If tbPassword.Text = "Password" Then tbPassword.Clear()
End Sub
Private Sub tbPassword_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tbPassword.KeyDown
If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then
pbStart_Click(Nothing, Nothing)
End If
End Sub
Als alles über die local IP lief, ging der Server einwandfrei ^^Code:[ID] = Server ID, [W] = World No, [Z] = Zone No, [F] = From Server ID ; ; [Name] [ID, W, Z, F] [IP] [Port] [Backlog] [Maximum of accept socket] ; ; DB,Login server ------------------------------------------------------------ SERVER_INFO "Account_DB", 0, 0, 0, 0, "127.0.0.1", 9000, 1, 100 ; From ALL SERVER_INFO "AccountLog_DB", 1, 0, 0, 0, "127.0.0.1", 9005, 1, 100 ; From ALL SERVER_INFO "Login_Server", 4, 0, 0,20, "25.159.107.9", 9010, 10, 200 ; From Client SERVER_INFO "Login_Server", 4, 0, 0, 5, "127.0.0.1", 9015, 1, 50 ; From World manager SERVER_INFO "Login_Server", 4, 0, 0, 8, "127.0.0.1", 9016, 1, 30 ; From OPTOOL ; World #0 ------------------------------------------------------------------- SERVER_INFO "PG_Char_DB", 2, 0, 0, 0, "127.0.0.1", 9100, 1, 100 ; From ALL SERVER_INFO "PG_GameLog_DB", 3, 0, 0, 0, "127.0.0.1", 9101, 1, 100 ; From ALL SERVER_INFO "PG_World_Manager_Server", 5, 0, 0,20, "25.159.107.9", 9110, 1, 6000 ; Public IP SERVER_INFO "PG_World_Manager_Server", 5, 0, 0, 6, "25.159.107.9", 9115, 1, 6000 ; Public IP SERVER_INFO "PG_World_Manager_Server", 5, 0, 0, 8, "127.0.0.1", 9116, 1, 5 ; From OPTOOL ; Zone 0 --------------------------------------------------------------------- SERVER_INFO "PG_Zone_00", 6, 0, 0,20, "25.159.107.9", 9120, 10, 2000 ; Public IP SERVER_INFO "PG_Zone_00", 6, 0, 0, 8, "127.0.0.1", 9121, 1, 5 ; From OPTOOL ; Zone 1 --------------------------------------------------------------------- SERVER_INFO "PG_Zone_01", 6, 0, 1,20, "25.159.107.9", 9122, 10, 2000 ; Public IP SERVER_INFO "PG_Zone_01", 6, 0, 1, 8, "127.0.0.1", 9123, 1, 5 ; From OPTOOL ; Zone 2 --------------------------------------------------------------------- SERVER_INFO "PG_Zone_02", 6, 0, 2,20, "25.159.107.9", 9124, 10, 2000 ; Public IP SERVER_INFO "PG_Zone_02", 6, 0, 2, 8, "127.0.0.1", 9125, 1, 5 ; From OPTOOL ; Zone 3 --------------------------------------------------------------------- SERVER_INFO "PG_Zone_03", 6, 0, 2,20, "25.159.107.9", 9126, 10, 2000 ; Public IP SERVER_INFO "PG_Zone_03", 6, 0, 2, 8, "127.0.0.1", 9127, 1, 5 ; From OPTOOL
Ich bitte um eure Hilfe =)
In der .bat Datei steht die Hamachi IP
Be den Hosts steht die Hamachi IP
Bei der OdinRestSettings.shn ist die local IP
Soo....:handsdown:
Ist ein und die selbe Person, btw. ^^Quote:
Ich danke allen die mir geholfen haben
Aber vorallem danke ich Kanaye假名你們 und HexaCore =):handsdown:
WIEEEEE bitte ?????????????????????????????????????????????????? ???Quote:
Ist ein und die selbe Person, btw. ^^
Hahaha, ich denke mir gerade so "WTF?".Quote:
Ist ein und die selbe Person, btw. ^^
Übrigens ist das glaube ich das falsche Thema gewesen um Fragen zum Aufsetzten eines Servers zu stellen ;p
Entweder in seinem Kurz-Guide oder in dem Original-Guide posten :D
[Only registered and activated users can see links. Click Here To Register...]
Du magst mir hier im Forum oder per PN nicht vielleicht den SC zur Original OS-REST schicken? Ich hab nach 15-minütiger Suche nichts gefunden. :)Quote:
Btw.: Der OdinRestServer wurde von Stu geschrieben und basiert auf dem originalen OS-REST-Dienst. Der SourceCode dafür wurde veröffentlicht, zudem kann man in vielen Foren Grundgerüste für die REST-API herunterladen und könnte rein theoretisch seinen eigenen REST-Dienst programmieren. Der aktuelle Dienst ist relativ simpel, instabil und nicht ausgereift, zudem keine Weiterentwicklung. Ich selber nutze einen anderen Dienst um REST-Abfragen vernünftig auf meinen Server zu leiten und zu verarbeiten. Habe Funktionen hinzugefügt, die es ermöglichen auf einer Webseite Spielernamen anzuzeigen, die sich gerade eingeloggt haben, sowie die Möglichkeit aktuelle Standorte von Spielern oder Level usw. anzuzeigen. Man kann mit REST ziemlich viel veranstalten als nur den Login zu ermöglichen.
Wurde von Ron releast glaube einmal os restapi und dusk recoded + dbQuote:
Ignorier Posts von dem zurückgebliebenen Hinterwelter einfach, interessiert vllt. seine Mami was er postet, den Rest der Welt nicht.
OS-REST API: [Only registered and activated users can see links. Click Here To Register...]
Passwort gibt es per PN nur für Singles mit Niveau *flachwitz*.
Absolut unsortiert, ist ein direkter Leak, nichts dran bearbeitet. Viel Spaß damit, lässt sich um Welten mehr mit machen als nur die Funktionalität zum Einloggen^^
PS: Ich denke es wird wieder bestimmte Personen hier geben (Menschen mit einem IQ der höher als die Raumtemperatur ist wissen wer gemeint ist), die diese Daten in einem weiteren "[Ich bin so geil ich muss was releasen was andere gepostet haben]OS-REST API"-Thread veröffentlichen werden. Es sei gesagt:
Ist mir absolut schnuppe, anfangen können damit eh nur Leute etwas, die wissen was sie tun. Gerade oben angedeutete Person wird damit überfordert sein.
falscherQuote:
@EpicFight: Ja du liegst richtig ^^
Bin nicht sicher ob das dieser Thread hier ist:
[Only registered and activated users can see links. Click Here To Register...]