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
Intenta con:
Shell ( Click (http://foro.elhacker.net/programacion_general/shell_con_visual_basic-t67057.0.html) Click (http://msdn.microsoft.com/es-es/library/xe736fyk(VS.80).aspx) )
Process (http://www.netveloper.com/contenido2.aspx?IDC=265_0)
Saludos.
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