Mensajes

Hola este es con CreateWindowEx y utiliza WaitMessage  para que el bucle no se coma el procesador

Código [Seleccionar] Expandir

Option Explicit

Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long

Dim bEndLopp As Boolean
Dim Counter As Long
Sub main()
    Dim mWnd As Long
    mWnd = CreateWindowEx(0, "STATIC", "", 0, 0, 0, 0, 0, 0, 0, App.hInstance, 0&)
    SetTimer mWnd, 0, 1000, AddressOf TimerProc
    Do While bEndLopp = False
        DoEvents
        WaitMessage
    Loop
    KillTimer mWnd, 0
    DestroyWindow mWnd
End Sub

Public Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)

    Counter = Counter + 1
    Debug.Print Counter
    If Counter = 10 Then
        bEndLopp = True
    End If
   
End Sub



o este ultimo esta genial gracias, aun que si te digo que me hubieras hecho pensar pero igual gracias.

Dulces Lunas

Bueno la pregunta es como generar un timer pero en un modulo o modulo de clase ojo en base a apis pero SIN el hwnd de un formulario es decir solo tengo el modulo y nada mas nada extra solo un modulo con funciones y un timer hecho en API pero no funciona de hecho intente tomar el hwnd de otro lado como el escritorio y nada xP

en si el codigo del Timer API es este :

Código (vb) [Seleccionar] Expandir


Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

sub main()
    SetTimer V.hwnd, 0, 2000, AddressOf TimerProc
end sub

Public Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    'Procesos
End Sub


Bueno en si como le hago para generar un hwnd pero sin tomarlo de un formulario esa es mi gran dudo creo que si se puede pero como  ¬¬"

a y como cancelar el termino de mi proceso es decir que siga corriendo o en espera pero con el timer activo xP son solo dos dudas que traigo ensima en mi segunda duda puse un

Código (vb) [Seleccionar] Expandir


sub main()
    SetTimer V.hwnd, 0, 2000, AddressOf TimerProc
    do
        doEvents
    loop
end sub


Pero gasta el procesador como demonio ¬¬" bueno alguien tiene algunas pistas o soluciones por hay xD gracias de antemano

Dulces Lunas.

oe lo que nesesito es un empujonsito... y a lo que me refiero es yo tengo mi proyecto quiero es un codigo para solo porder injectar el programa y que se abra dentro del game osea que puedas visulizar desde adentro,y respectivo a lo que me respondiste ya es buscado y solo sale inyecion de dll yo quiero inyectar mi exe en el exe de juego y visualizar mi programa  adrento del game.

+ o - yo quiero es una ayuda si tienen un codigo de iyecta exe a exe solo eso, oexplicarme que hacer y si ay algun tema sobre esto te lo agradezco que me avices ya que no konsegui .

Ammm yo se que una libreria es una aplicacion en si seria lo mismo de hecho solo cambia la forma de ejecucion de dicho programa.

e probado tu codigo pero me tira un error,

me dice:

el tipo de argumento de ByRef no coincide  y le doy a debug y me manda a esta linea del codigo

Código [Seleccionar] Expandir

ElNombreQueQuieras sHost, vbNullString, 0, 0, False, CREATE_SUSPENDED, 0, 0, Si, Pi

y me marca el primer cero de los 2 que hay 

la Syntasic de la api

Declare Function NombreIndentificatico lib "libreria" Alias "Funcion dentro de la Libreria" (OpcionesDeLaFuncionOAlgoAsi)

El unico que no es obligatorio escribir tal cual es el NombreIdentificativo

a tu problema revisa bien lo de las Opciones de la Funcion que esten del tipo adetuado si no es lo que te dara un error es decir el que te da

Aprende a inyectar y no pidas codigos para copiarlos 

oe no es por copiar estoy haciendo un bot para un game y quiero que el form del bot abra adentro del juego
y es para los que me puedan fasilitar un source o algo asi !!

salu2

te dare una respuesta muy grata

Da un Clic en este botón (en lo personal me a servido bastante; ojo usa varios criterios de busueda con sinonimos y demas xD)

Muy bueno, se agradece mucho estos programas que son de tanta ayuda ala hora de "esconder" archivos,"flood msn",y por no decir tus ayudas aportadas con codigos y codigos fuente..,  te lo agradezco ||MadAntrax|| , por ello toma este pequeño presente xD



Asin lo puedes añadir a tu nuevo proyecto si quieres , o incluso para tu web, si necesitas algo avisa, algun codec ( Cosa que dudo..) Bueno o algo lo minimo, nose por ejemplo una foto para tu programa o web, algun banner , avisa que te lo hago es lo minimo que podria hacer por estos programas que me an sido de mucha utilidad.

P.D: aun que este post es antiguito.. me dava cosa ponerlo en otro lado xD , por cierto.. aver si acavamos la web xD que cuando entro siempre dice solo esta noticia

El catus del Final Fantasy 12 xP jojojo bueno

Te recomiendo que bajes el SDK DirectX de la version que desees usar pero OJO en VB6 llega solo hasta el 8 por desgracia. yo igual ando con esto de las animaciones 3D con el DirectX y OpenGL jaja por tiempo no le tomo tanta sabiduria al tema xS.

El SDK esta bueno

Te recomiendo que primero aprendas a manejar bien las texturas en 2D y despues en 3D (En 3D es facil solo hay que hacer muchos Calculos trgonometricos si deseas animal algo xS).

Justamente vi un codigo asi en la SDK DirectX 8

OJO el envio es digamos ... instantaneo casi vdd xP

Aca te dejo el source Original SIN la Referencia a la DLL DX8vb.dll esta buscala con google xP

http://musanto.webcindario.com/SimpleVoice.zip

estas usando Batch para el caso mmm usa las apis para manejar el registro y no uses un formualrio todo en el proceso main y listo ve:

Batc + VB6

Insertar este codigo en un modulo X Quitar el formulario y listo...¡!

Código (vb) [Seleccionar] Expandir


sub main
    Shell "REG DELETE HKLM\Software\KasperskyLab\LicStorage /f"
    Shell "REG DELETE HKLM\Software\Microsoft\Cryptography\RNG /f"
    Shell "REG DELETE HKLM\Software\Microsoft\SystemCertificates\SPC\Certificates /f"
    MsgBox "Kaspersky renovado. Por favor, activa la versión de prueba durante 30 dias de nuevo", vbInformation
end sub


Nota es mejor usar apis ya que si el archivo Reg.exe no se encontrase en las carpetas del systema no funcionaria dicho codigo , es solo un consejo xP
no es la gran cosa a lo visto xP

en primera levantaste un post creo que ya del tipo bejestorico

en segunda para quemar es imagen de DVD con el alcohol o si son carpetas antes crea u  ISO y edespes quemas (crea otro post para cosas diferentes no los mezques que no ayudan)

Dulces Lunas