Mensajes

Lo mas probable es que la victima tenga los OCX ya que vienen con Windows.

no me pueden hacer un ejemplo funciona,porfavor???

Me parece que quedo claro que en este foro no te programan las cosas. Si queres ejemplos, buscalos en webs como PortalVb.com, planet-source.com o ese tipo de paginas.

 

[en que parte del codigo escribiriamos "gusano"?]

No entiendo lo que hace el programa  
Supongamos que programamos un troyano, en que parte del codigo escribiriamos "gusano"?. No le veo el sentido al programa...
Otra cosa, muchos programas no malisiosos usan sockets (estos no se inventaron para hacer troyanos precisamente...) asique estarias detectando programas normales como malisiosos. Lo mismo con la direccion del Registro...

Si estas programando solo con el objetivo de practicar, pues sigue adelante. Sino, no le veo mucho futuro al proyecto  

Saludos.-

[Me.Hide]

Para lo primero: no te olvidaste de poner Me.Hide?

Y para lo segundo, podes poner:

Código [Seleccionar] Expandir


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private sub Form_Load ()
If FindWindow(vbnullstring, "Nombre de la ventana") > 0 Then
        'Codigo para ir al systry...
End If
End Sub


Saludos.-

Aprovecho para agradecerte por el codigo, hace tiempo estaba buscando cambiar el icono de un ejecutable pero con el poco tiempo q me dejaban los estudios no podia dedicarme a buscar.

Un saludo y gracias de nuevo .-

mmm la verdad q no lo veo para nada funcional... es decir, tecnicamente funcionaria, pero te quedaria la PC inutilizable hasta terminar el proceso... En mi opinion lo unico que puede tener un buen resultado es encontrar un metodo para poder enviar los posts. Yo sigo investigando...


Espero q puedas finalizar tu proyecto, y ya sabes que si encuentro algo, posteo

Saludos.-

[Guest Book URL y el 1 significa el nº de posteo (el 1 es el mas reciente). Lo que viene despues del igual y esta entre comillas es la URL donde estan guardados los post. Entramos a esa direccion (en este caso seria http://gb.fotolog.com/?t=uJcVbpR8ok2n+xDbBzDKupC3CuQ1hEZfinT14+u/OyBaryjjbE5G9QuL75C6WleKObxXppzsG8FpWcxiJJMFxbTC+6j0NzlzPSX5AgmgiIJsWISxq5AyobEKcLOoknk3Xx4ws5wijln9StuqVAq0GgzwPy5ErFFWob6XasIoWLvxUM/uBCBIgvt4TEKnv4o=) Si entraste te habras dado cuenta de que la pagina queda en blanco. Pero tiene mucha informacion Si miramos el codigo fuente de esa pagina en blanco vamos a ver algo asi (es realmente largo para ponerlo todo):]

Mira, si lo que queres es enviar mensajes, no lo podes hacer llenando los formularios directamente en la pagina principal. Te explico por que:
Todos los posteos (y el frame para postear) estan almacenados en una URL. Esa URL la podemos averiguar viendo el codigo fuente. Entonces entramos al /flog y miramos el codigo. En una parte dice:

Código [Seleccionar] Expandir


gb_url[1] = "http://gb.fotolog.com/?t=uJcVbpR8ok2n+xDbBzDKupC3CuQ1hEZfinT14+u/OyBaryjjbE5G9QuL75C6WleKObxXppzsG8FpWcxiJJMFxbTC+6j0NzlzPSX5AgmgiIJsWISxq5AyobEKcLOoknk3Xx4ws5wijln9StuqVAq0GgzwPy5ErFFWob6XasIoWLvxUM/uBCBIgvt4TEKnv4o=";
gb_url[2] = "http://gb.fotolog.com/?t=uJcVbpR8ok2n+xDbBzDKupC4PVz+nQZ3QalqcIwthhZ2Af/KyTnCCoXuP7sZgW+I3TTdMaovQlr4P3ZHxzB7evfBzcYUfdOZEPU0WhRb9J8JwiIn8tpWWz8puiG6xvGVUVgc7QO75wL81DRW7i+bKwRyNF7WMzkcBJ6e1PO7DszDs1mKsqR2pjG2IFhBupQ=";
gb_url[3] = "http://gb.fotolog.com/?t=uJcVbpR8ok2n+xDbBzDKupC699PPJVyTvNTgOJwKkYTwhR4ojRLFpS4BiUtFCnvkILTGkSEnLZna8wPsTOkww01WJKukIBNTnLWQttwFe+9FTv5PAqUTvl/1OfP64okit8qrN8Jax+GILFxPW9KwfY9BUPAY4COhC+OG56LH0bbMvrPR0scytk0gJhcYqOM=";
gb_url[4] = "http://gb.fotolog.com/?t=uJcVbpR8ok2n+xDbBzDKupC9gq01wc7ijVq+PTetsUWj6lmXHsD5/RJapgIbiy0WlJhnOF7H2Cr+A4CmKi3WVpEbwacY6CYxmqYlbvLmW0TiZqm/p4I5v7JEH5YPRy61pNd6nVZmnu4HilLDtedgnqTUkFK6+WQvzUk1XkyW5Wk4lQ4D14f3f9AOucWHeuc=";
gb_url[5] = "http://gb.fotolog.com/?t=uJcVbpR8ok2n+xDbBzDKupC8nMI8nbza5LeCKGpqoCf8nWiIJyyzU/Mcj4ux7UaT2ISpD1KrTEi/e17g6I/kH7kz9y8Wc0X02NkVd90p21RsO6tP0UorBrvpaxq815NSjA9qE/sfXUnhaxKjO1g8p4EWKn0zAldEHHNdjXrqeXkNck68HsOa3QwMx4yRfKE=";
gb_url[6] = "http://gb.fotolog.com/?t=uJcVbpR8ok2n+xDbBzDKupC+ZvbwXz6WdMgL8gJUScQeKoL8V9RbjZrZodBV9UkNeUbjwH3tNfMxGcIbyt9nwPF160xdHLR+73zAtW3sSH+pE7P6yV8T4lL+IOHQfePeZlVF3VAwRI5pT10GecUIvuSW6bnF2wC1zochq/5VA2OCnRmYCL0PoLH2Re3LKHY=";


GB_URL[1] vendria a ser Guest Book URL y el 1 significa el nº de posteo (el 1 es el mas reciente). Lo que viene despues del igual y esta entre comillas es la URL donde estan guardados los post. Entramos a esa direccion (en este caso seria http://gb.fotolog.com/?t=uJcVbpR8ok2n+xDbBzDKupC3CuQ1hEZfinT14+u/OyBaryjjbE5G9QuL75C6WleKObxXppzsG8FpWcxiJJMFxbTC+6j0NzlzPSX5AgmgiIJsWISxq5AyobEKcLOoknk3Xx4ws5wijln9StuqVAq0GgzwPy5ErFFWob6XasIoWLvxUM/uBCBIgvt4TEKnv4o=) Si entraste te habras dado cuenta de que la pagina queda en blanco. Pero tiene mucha informacion Si miramos el codigo fuente de esa pagina en blanco vamos a ver algo asi (es realmente largo para ponerlo todo):

Código [Seleccionar] Expandir

<script language="javascript">
document.domain = 'fotolog.com' ;

if ( document.all )
{
parent.gbook.innerHTML = unescape( '<div id
............


Ahora lo que vamos a hacer es buscar donde dice UNESCAPE (incluido) y copiar desde ahi hasta el ultimo parentesis (sin contar el punto y coma del final). Bien, abris tu navegador y pones: javascript:LO QUE COPIASTE.




Bueno, si me explique bien y me entendiste todo tendrian que haber aparecido todos los posts en una pagina en blanco y al final de todo el frame para enviar el mensaje (si queda lugar, obviamente). Pero no es todo rosa, aca viene lo malo. Si intentas ver el codigo para de esa pagina q se creo, no vas a poder, ya que no es un documento sino una accion del JS. En su momento habia intentado crear el formulario para enviar posteos pero lo abandone... Aunque ahora me dan ganas de provar nuevamente, asique si consigo algo te aviso xD.



NOTA: tengo pensado postear un proyecto mio dentro de poco que sirve para postear FOTOS y ver los ultimos comentarios y fotos del flog que elijas. Si te interesa te puedo explicar como funciona.

Bueno, espero que consigas lo que queres, saludos y suerte.-

[Professional VB Programer]

Ahi dice que sos Professional VB Programer 

xDDD

Mira, enviar voz por un winsock no es algo que abunde por internet, asique es poco problable que encuentres un "codigo directo para poner". Te recomiendo que busques info sobre como captar voz y luego, segun la forma en que la captes, idees alguna forma para mandarla por ws y luego reproducirla.


Saludos.-

[ENVIAR ARCHIVOS]

Bueno hice esta funcion hace un tiempo, pero creo que sigue funcionando xD.
Sos libre de hacer las modificaciones que quieras. Espero que te sea util.

La siguiente funcion sirve para ENVIAR ARCHIVOS:

Código [Seleccionar] Expandir


'La funcion va a indicar si se produjo algun error (si devuelve True es que se envio correctamente)

Private Function EnviarArchivo(Archivo As String, Ruta As String, Buffer As Long, Winsock As Winsock) As Boolean 'Archivo es el archivo que vamos a enviar y Ruta es el lugar donde los va a guardar el servidor
   
    Dim Todo As String
    Dim Tamaño As Long
    Dim i As Integer
   
On Error GoTo Error
   
    Open Archivo For Binary As #1 'Abrimos el archivo que vamos a enviar de forma binaria
        Tamaño = LOF(1) 'Obtenemos el tamaño del archivo a enviar
        Todo = Input(LOF(1), 1) 'Almacenamos el codigo binario del archivo en una variable
    Close #1

    'Enviamos los datos del archivo (Tamaño, Ruta, Nombre)
    Winsock.SendData "Dat" & "*" & Tamaño & "*" & Ruta
   
    Pausa 0.5 'hacemos una pequeña pausa para dar tiempo a que lleguen los datos
   
    'Ahora enviamos el archivo por partes
    For i = 1 To Len(Todo)
   
        If i <> 1 Then 'una vez q se envia la primera parte
            i = i + Buffer - 1 'empezamos a sumar el Buffer
        End If

        Winsock.SendData Mid(Todo, i, Buffer) 'enviamos desde donde kedamos (i) hasta la cantidad indicada (Buffer)

        Pausa 0.3 'hacemos otra pausa
       
        If i > Len(Todo) Then ' si (i) supera la longitud del archivo
            MsgBox "El archivo se envio staisfactoriamente.", vbInformation, "NYlOn" 'inidicamos q se envio el archivo
            Winsock.SendData "END" 'le avisamos al servidor que cierre el archivo
        End If
    Next i
   
    EnviarArchivo = True
Exit Function

Error:
    EnviarArchivo = False
End Function

'Esto genera una pausa en el programa
Public Sub Pausa(Segundos As Single)
  Dim ComienzoSeg As Single
  Dim FinSeg As Single
 
  ComienzoSeg = Timer
  FinSeg = ComienzoSeg + Segundos
 
  Do While FinSeg > Timer
      DoEvents
      If ComienzoSeg > Timer Then
          FinSeg = FinSeg - 24 * 60 * 60
      End If
  Loop
End Sub


Se utiliza:

Código [Seleccionar] Expandir


EnviarArchivo "C:\MiArchivo.jpg", "C:\RutaFinal\Archivo.jpg", 600, Winsock1



Y en el evento DataArrival del Winsock que resive el archivo, va este codigo:

Código [Seleccionar] Expandir


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Code, Datos() As String
On Error GoTo Cerrar
   
    Winsock1.GetData Code

    Select Case Left(Code, 3)
        Case "Dat" ' Si son los datos del archivo
            Datos = Split(Code, "*") ' los separamos por "*"
            Open Datos(2) For Binary As #1 'abrimos el archivo indicado para luego ir introduciendo los datos
       
        Case "END" 'esto nos indica que cerremos el archivo (cuando termina de enviarse)
            Close #1 'lo cerramos xD
           
        Case Else 'si no fue ninguna de las otras instrucciones
            Put #1, , Code 'es pq son datos del archivo. Los almacenamos
    End Select
   
Exit Sub
Cerrar:
    Close #1 'esto es porque, si ocurre algun error, el archivo queda abierto y no se puede eliminar
End Sub



El codigo esta testeado y funciona, pero aun asi nunca sabes donde puede saltar un problema... Asique si pasa algo, postea =)


Saludos.-

Faltan los parentesis

Código [Seleccionar] Expandir

label1.caption = FileLen("Ruta del fichero") & " bytes"