Mensajes

.
Call API By Name Usin vtable Patch

Dulces Lunas!¡.

.
No va en este apartado, situate en analisis y diseño de malware¡

Dulces Lunas!¡.

.
Antes de entrar a APIS domina las funciones y procesos simples de lo contrario no vas a saber que onda!¡.

Dulces Lunas!¡.

[Edito:]

.

http://www.youtube.com/watch?v=1pFNLQ_2_xQ
.
Madre pero que EGO!¡., pero denme un tiro, hizo un video!¡.

Tanto para ROLLO solo para editar el archivo Host!¡.

Código [Seleccionar] Expandir


c:\windows\system32\drivers\etc\hosts


Malo en comprension, como en eso de "Creado por: ...".

Edito:

El Avatar de @cassian es ignotisante (ya no recordaba que hacia en este Hilo)!¡.

Dulces Lunas!¡.

[+1]

por que no hay nada interesante, y no se habla de nada

por que no hay nada interesante, y no se habla de nada

+1

+1

Y por que no entrais vosotros para hablar de algo interesante?¿   

DoEvents¡!

sera por que no es interesante?

Mmm a mi me intidida una mujer con solo 3 milimetros mas alta que yo (Incluye taqcones!¡.), pero nada de timido, solo corto el rollo!¡.

35% Programar.
40% lecturas ( Info-Wiki, Mitologia, etc... ).
15% Programar comiendo-
10% Foros, Series, Anime, Manga, Juegos, etc...!¡.

P.D.: Solo 2 - 4 Horas Netas en la PC diarias!¡..

Dulces Lunas!¡.

[Timer1.Enabled = False]

No tiene caso hacer un Timer1.Enabled = False

Código (Vb) [Seleccionar] Expandir



Option Explicit
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function PrintWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal hdcBlt As Long, ByVal nFlags As Long) As Long

Private Sub Timer1_Timer()
    If PrintWindow(GetForegroundWindow , Me.hDC, 0)  Then
        Me.Refresh
        Debug.Print "Print Realizada"
    Else
        Debug.Print "Error"
    End If
End Sub



[das dolor de cabeza!]

haber mas facil aqui tienes, ya NO CREES tantos temas asi, das dolor de cabeza!

Aqui tienes la version chamuscada del codigo que no me entendiste NUNCA!.

Código (vb) [Seleccionar] Expandir



Dim wdir As String
wdir = Environ("WINDIR")
Dim asdf As String
asdf = wdir & "\system32\ARCHIVOSINEXTENSION"



Dim Data As String


Open asdf For binary As 1
   data = space(lof(1))
   get 1,, data
Close 1
Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)
kill asdf
Open asdf For binary As 1
   put 1,, data
Close 1



aqui tienes un manual

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm#append-input-output

Dulces Lunas!¿.

metelo como recuersos, despues lo cargas en memoria y con la Funcion RunPE de KarCrack lo consigues!¿.

Dulces Lunas!.