Agus Admin
Mensajes : 69 Fecha de inscripción : 01/07/2008
| Tema: Conectar desde frmConnect 0.12.0 Miér Jul 02, 2008 8:45 pm | |
| crean 2 text box en el frmconnect con el nombre de NameTxt y PasswordTxt Buscan en frmConnect - Citación :
Case 1 frmOldPersonaje.Show vbModal
Y reemplazan esto: - Citación :
frmOldPersonaje.Show vbModall
Por esto: - Citación :
If frmMain.Socket1.Connected Then frmMain.Socket1.Disconnect If frmConnect.MousePointer = 11 Then Exit Sub End If UserName = NameTxt UserPassword = PasswordTxt If CheckUserData(False) = True Then 'SendNewChar = False EstadoLogin = Normal Me.MousePointer = 11 frmMain.Socket1.HostName = "localhost" frmMain.Socket1.RemotePort = "7666" frmMain.Socket1.Connect
| |
|