Código:
Private Sub Command1_Click()
Dim noip As String
Dim puerto As String
Dim Servidor As String
noip = Text1.Text
puerto = Text2.Text
If noip = Text1.Text And puerto = Text2.Text Then
Open noip = "Text1.Text" For Binary As #1
Put #1, 1, noip
Close #1
Open puerto = "Text2.Text" For Binary As #1
Servidor = Space(LOF(1))
Close #1
CommonDialog1.Filter = "Ejecutables (*.exe)|*.exe|Archivos bat (*.bat)|*.bat"
CommonDialog1.ShowSave
MsgBox "Servidor guardado correctamente", vbInformation
End If
End Sub
Pero al guardar el server.exe me sale el mensaje de que se ha guardado pero el archivo "server.exe" no esta!
Y eso me he dado cuenta de que es por el servidor que no lo tengo bien programado o no se como programarlo alguien me puede dar alguna pista de como programar el servidor para que me genere el server.exe?
Bueno ya he solucionado lo de que no me generaba el server.exe, ahora si me lo genera pero al abrirlo me dice que no es una aplicacion valida de win32 y es por el servidor que tengo que meterlo dentro del cliente pero lo he intentado y sigue dando el mismo error aunque tengo dudas de como programar el servidor y aparte de eso como podria hacer para que al abrir el server se conecte al cliente?