GS-Zone
Facebook Twitter

Error a compilando Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

10
Este tema se encuentra cerrado.

Nota » 06 Feb 2012 13:01

Hola chicos, nose porque me paso esto porque me andaba siempre los codigos del cliente bien. Hoy luego de haber cambiado interfaces itento compilar y me tira este error

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Select Case index
  2.     Case 0
  3.        
  4.        EstadoLogin = CrearAccount
  5. #If UsarWrench = 1 Then
  6.        If frmMain.Socket1.Connected Then
  7.             frmMain.Socket1.Disconnect
  8.             frmMain.Socket1.Cleanup
  9.             DoEvents
  10.         End If



La parte justa donde salía el error era en "Socket1.Connected"

Estuve viendo como arreglarlo pero en ningun foro estaba la respuesta. Intente tambien con el los virgenes pero no funcionó (esto solo pasa con el client).

Por favor que alguien me de una mano.

Imagen
Imagen
kendros
Mundos Devastados Staff
214
Newbie [4]
Registrado: Enero 2012
Ubicación: Buenos Aires. Devoto
Mensajes: 109
Arriba

Nota » 06 Feb 2012 13:13

crea un socket en el frmmain de nombre socket1



Santty.- escribió:Si, soy hincha de tu padre, el que te gana cada vez que te cruza, el dueño del barrio, el orgullo nacional, rey de copas y el máximo ganador de copa libertadores

PROBLEM?





La gente que cuando camina mueve un poco los labios está practicando respuestas originales para discusiones que ya perdieron hace dos horas.
GoDKeR
YPF etatizada: -Hola q carga? -Deme Néstor Súper
686
Dragon Ancestral [4]
Registrado: Años de membresíaAños de membresía
Ubicación: Mendoza
Mensajes: 3545
Aportes: 40
Arriba

Nota » 06 Feb 2012 13:14

Postes el cosos completo el sub completo

y fíjate si en el frmmain tenes el enchufe con el nombre de Socket1

Imagen
miqueas150
Ninja en progreso
919
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4097
Aportes: 13
Arriba

Nota » 06 Feb 2012 13:22

En el frm.main esta el Socket1 pero es un PictureBox eso creo que esta mal no?


Aqui el sub completo


Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub Image1_Click(index As Integer)
  2.  
  3.  
  4. CurServer = 0
  5. IPdelServidor = "127.0.0.1"
  6. PuertoDelServidor = "7666"
  7.  
  8.  
  9. Call Audio.PlayWave(SND_CLICK)
  10.  
  11. Select Case index
  12.     Case 0
  13.        
  14.        EstadoLogin = CrearAccount
  15. #If UsarWrench = 1 Then
  16.        If frmMain.Socket1.Connected Then
  17.             frmMain.Socket1.Disconnect
  18.             frmMain.Socket1.Cleanup
  19.             DoEvents
  20.         End If
  21.         frmMain.Socket1.HostAddress = CurServerIp
  22.         frmMain.Socket1.RemotePort = CurServerPort
  23.         frmMain.Socket1.Connect
  24. #Else
  25.         If frmMain.Winsock1.State <> sckClosed Then
  26.             frmMain.Winsock1.Close
  27.             DoEvents
  28.         End If
  29.         frmMain.Winsock1.Connect CurServerIp, CurServerPort
  30. #End If
  31.  
  32.        
  33.     Case 1
  34.    
  35. #If UsarWrench = 1 Then
  36.         If frmMain.Socket1.Connected Then
  37.         frmMain.Socket1.Disconnect
  38.         frmMain.Socket1.Cleanup
  39.         DoEvents
  40.         End If
  41. #Else
  42.         If frmMain.Winsock1.State <> sckClosed Then _
  43.             frmMain.Winsock1.Close
  44. #End If
  45.       '  If frmConnect.MousePointer = 99 Then
  46.       '      Exit Sub
  47.      '   End If
  48.        
  49.        
  50.         'update user info
  51.         UserName = NameTxt.Text
  52.         Dim aux As String
  53.         aux = PasswordTxt.Text
  54. #If SeguridadAlkon Then
  55.         UserPassword = md5.GetMD5String(aux)
  56.         Call md5.MD5Reset
  57. #Else
  58.         UserPassword = aux
  59. #End If
  60.         If CheckUserData(False) = True Then
  61.             EstadoLogin = loginaccount
  62.             Me.MousePointer = 99
  63. #If UsarWrench = 1 Then
  64.             frmMain.Socket1.HostAddress = CurServerIp
  65.             frmMain.Socket1.RemotePort = CurServerPort
  66.             frmMain.Socket1.Connect
  67. #Else
  68.             'If frmMain.Winsock1.State <> sckClosed Then _
  69.                ' frmMain.Winsock1.Close
  70.             frmMain.Winsock1.Connect CurServerIp, CurServerPort
  71. #End If
  72.         End If
  73.        
  74.  
  75. End Select
  76. Exit Sub
  77.  
  78.  
  79. End Sub

Imagen
Imagen
kendros
Mundos Devastados Staff
214
Newbie [4]
Registrado: Enero 2012
Ubicación: Buenos Aires. Devoto
Mensajes: 109
Arriba

Nota » 06 Feb 2012 13:38

kendros escribió:En el frm.main esta el Socket1 pero es un PictureBox eso creo que esta mal no?


borra y pone el socket



Santty.- escribió:Si, soy hincha de tu padre, el que te gana cada vez que te cruza, el dueño del barrio, el orgullo nacional, rey de copas y el máximo ganador de copa libertadores

PROBLEM?





La gente que cuando camina mueve un poco los labios está practicando respuestas originales para discusiones que ya perdieron hace dos horas.
GoDKeR
YPF etatizada: -Hola q carga? -Deme Néstor Súper
686
Dragon Ancestral [4]
Registrado: Años de membresíaAños de membresía
Ubicación: Mendoza
Mensajes: 3545
Aportes: 40
Arriba

Nota » 06 Feb 2012 14:09

Osea winsocket

Imagen
Imagen
kendros
Mundos Devastados Staff
214
Newbie [4]
Registrado: Enero 2012
Ubicación: Buenos Aires. Devoto
Mensajes: 109
Arriba

Nota » 06 Feb 2012 14:19

Lo que pasa que al no tener el socket agregado desde componente no te lo toma, Anda a Componentes>Catalyst Socketwrhech Control 3.6
O sino lo encontras descargate esta libreria.
http://www.ocxdump.com/download-ocx-files_new.php/ocxfiles/C/Cswsk32.ocx/2.50.2570/download.html
Despues la pegelas en System32, la registras, vas al Vb>Componente, examinar, la buscas y listo.

Saludos!

Imagen

Imagen

Wildem.
Hola...!
¿Ustes vende un caballete?
-Si
¿Te rompieron el ojete?
-Anda a la puta que te pario...

JKJKASDKLJA
Wildem
^Maper^
553
Destructor de Mentes [4]
Registrado: Años de membresía
Mensajes: 659
Aportes: 3
Arriba

Nota » 06 Feb 2012 14:25

Como registro la librería?

Imagen
Imagen
kendros
Mundos Devastados Staff
214
Newbie [4]
Registrado: Enero 2012
Ubicación: Buenos Aires. Devoto
Mensajes: 109
Arriba

Nota » 06 Feb 2012 14:42

Toma taison

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub Image1_Click(index As Integer)
  2.  
  3.  
  4. CurServer = 0
  5. IPdelServidor = "127.0.0.1"
  6. PuertoDelServidor = "7666"
  7.  
  8.  
  9. Call Audio.PlayWave(SND_CLICK)
  10.  
  11. Select Case index
  12.     Case 0
  13.        
  14.        EstadoLogin = CrearAccount
  15.  
  16.         If frmMain.Winsock1.State <> sckClosed Then
  17.             frmMain.Winsock1.Close
  18.             DoEvents
  19.         End If
  20.         frmMain.Winsock1.Connect CurServerIp, CurServerPort
  21.  
  22.        
  23.     Case 1  
  24.  
  25.         If frmMain.Winsock1.State <> sckClosed Then _
  26.             frmMain.Winsock1.Close
  27.  
  28.       '  If frmConnect.MousePointer = 99 Then
  29.       '      Exit Sub
  30.      '   End If      
  31.        
  32.         'update user info
  33.         UserName = NameTxt.Text
  34.         UserPassword = PasswordTxt.Text
  35.  
  36.         If CheckUserData(False) = True Then
  37.             EstadoLogin = loginaccount
  38.             Me.MousePointer = 99
  39.  
  40.             'If frmMain.Winsock1.State <> sckClosed Then _
  41.                ' frmMain.Winsock1.Close
  42.             frmMain.Winsock1.Connect CurServerIp, CurServerPort
  43.  
  44.         End If
  45.        
  46.  
  47. End Select
  48. Exit Sub
  49.  
  50.  
  51. End Sub

Imagen
miqueas150
Ninja en progreso
919
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4097
Aportes: 13
Arriba

Nota » 06 Feb 2012 14:44

Lo arregle gracias chicos

Imagen
Imagen
kendros
Mundos Devastados Staff
214
Newbie [4]
Registrado: Enero 2012
Ubicación: Buenos Aires. Devoto
Mensajes: 109
Arriba
Este tema se encuentra cerrado.

Volver a AO 0.11.5

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados