[Problema] Creación de GameLauncher | Fallo en el Start

Iniciado por ihton, 10 Agosto 2009, 15:28 PM

0 Miembros y 2 Visitantes están viendo este tema.

ihton

Bueno, acabo de empezar mi primer proyecto en VisualBasic.
Es un Launcher para un private server de un juego que estamos haciendo (en concreto, un pserver de FlyFF)

El launcher está hecho y carga bien pero, al darle click al botón de comenzar a jugar da un fallo. Me dice que active algo de "output debuggin", he googleado un poco y parece ser que en la Express Edition 2008 (que es la que uso actualmente) no existe tal opción.

El "Form1" es este
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub WebBrowser1_DocumentCompleted_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    End Sub

    Private Sub PictureBox1_Click() Handles PictureBox1.Click
        Shell("Neuz_no_GG.exe sunkist")
    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        Close()
    End Sub
End Class


Muy simple ya que es solo una ventana de navegación y dos botones (jugar y cerrar)

El shell creo que está bien ya que la ruta la he sacado de un Loader en bat
@echo off
echo  SPhoeniX FlyFF
Neuz_no_GG.exe sunkist


¿Sería posible el arreglar el fallo?

Dejo un link con la descarga RS del SourceCode: http://rapidshare.com/files/265809801/Launcher1.zip

Hadess_inf


ihton

Lo he conseguido hacer con Process.Start ^^ Muchas Gracias

Ahora me urge otro problema... el WinSock no me acepta No-IP.

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
        Dim tcpClient As New TcpClient
        Dim IP As String = "127.0.0.1"
        Dim Port As Int32 = "15400"
        Dim IPAddress As IPAddress = IPAddress.Parse(IP)

        Try
            tcpClient.Connect(IP, Port)
            Label3.Text = "Conectado"
            Label3.ForeColor = Color.Green
        Catch err As Exception
            Label3.Text = "Desconectado"
            Label3.ForeColor = Color.Red
        End Try
    End Sub


Si cambio 127.0.0.1 por un NO-IP da error, solo me acepta IPv4