Mensajes

Para mi deberia ir mejor en criptografia, pero nose

Foro Libre, hay nadie no vera feo.

Dulces Luans!¡.

[if then, Select Case, u otras]

.
Solo se me ocurrio una.

* dividir la funcione donde se encuentren sentencias if then, Select Case, u otras, pero sin perder la congruencia de la misma.

es decir:

Código (Vb) [Seleccionar] Expandir


Private Sub Form_Load()
Dim i       As Integer
Dim str_v   As String
    If Caca_Malware(6, 6, 6) = Pedos_frijoleros(6, 9) Then
        str_v = o4215(i)
    Else
        str_v = awuiwiche(45) + i
    End If
   
    MsgBox str_v
End Sub


Pasarlo a funciones:

Código (Vb) [Seleccionar] Expandir



Private Sub Form_Load()
Dim i       As Integer
Dim str_v   As String
    Call compareifthen(str_v, i)
    MsgBox str_v
End Sub

Private Sub compareifthen(ByRef str_v As String, ByRef i As String)
    If Caca_Malware(6, 6, 6) = Pedos_frijoleros(6, 9) Then
        Call icacamalware_frijolero(str_v, i)
    Else
        Call strv_wilwuicho
    End If
End Sub
Private Sub icacamalware_frijolero(ByRef str_v As String, ByRef i As Integer) ' // esto es trivial pero bueno
    str_v = o4215(i)
End Sub
Private Sub strv_wilwuicho(ByRef str_v As String, ByRef i As Integer) ' // esto es trivial pero bueno
    str_v = awuiwiche(45) + i
End Sub



Nota: En mi forma de pensar este tema es OFF-Topic, citando las reglas le pese a quien le pese.

Dulces Lunas!¡.

.
Enhorabuena a ambos.

Dulces Lunas!¡.

.
Para la 2da.

crea un nuevo proyecto agrega lo siguiente

1 textbox llamado text1.
1 CommanButton.
2 OptionButton ( Al agregar el primero en lapropiedad index ponlo en 0 despues copi y pega el mismo para generar el 2do control de esta manera crearas un array de controles, hay otras formas pero bueno ).

En el Form

Código (vb) [Seleccionar] Expandir



Option Explicit

Private Obj_RunExpr             As Object           '   //  Variable Local
Private Const cVBS              As String = "VBScript"
Private Const cJVS              As String = "javascript"

Private Sub Command1_Click()
'   //  Ejemplo Creado por BlackZeroX ( http://InfrAngeluX.sytes.net/ )
    If Not Obj_RunExpr Is Nothing Then              '   //  Se creo el objeto interprete?.
        If Option1(0).Value Then        '   = If Option1(0).Value = true Then
            Obj_RunExpr.Language = cVBS             '   //  Puede ser VBScript o javascript.
        ElseIf Option1(1).Value Then    '   = ElseIf Option1(1).Value = true Then
            Obj_RunExpr.Language = cJVS             '   //  Puede ser VBScript o javascript.
        Else
            Call Interaction.MsgBox("No se a seleccionado el lenguaje a interpretar")
            Exit Sub                                '   //  Salimos del proceso.
        End If
        Debug.Print "El MsgbBox respondio: " & Obj_RunExpr.eval(Text1.Text)
    End If
End Sub

Private Sub Form_Load()
    Set Obj_RunExpr = CreateObject("ScriptControl") '   //  Creamos el objeto
    With Option1(0)
        .Caption = cVBS
        .Value = True
    End With
    Option1(1).Caption = cJVS
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set Obj_RunExpr = Nothing                       '   //  Descargamos el Objeto de la memoria
End Sub

Private Sub Option1_Click(Index As Integer)
    Select Case Index                               '   //  Se selecciona el motor interprete
        Case 1
            Text1.Text = " prompt(""Introduzca su nombre""); " & vbCrLf
        Case 0
            Text1.Text = " MsgBox(""Da click en algun boton de este MsgBox()"",vbCritical + vbYesNoCancel +vbDefaultButton1 ,""Error grave"") "
        Case Else
    End Select
End Sub



Temibles Lunas!¡.
.

[Private]

No solo hay Private, Public y Dim.
Tambien hay Global, Static (y Const para las constantes... )

y Friend para los procesos/propiedades/funciones, pero esto ya es irse por las ramas del tema/hilo principal que era solo Dim!¡.

Dulces Lunas!¡.

.
Perfecto no estaba tan lejos entonces gracias!¡.

Dulce sLunas!¡.

[WH_CBT]

.
Tengo un problema al realizar el hook al mensaje WH_CBT de forma global mas no por Theard y es que no se instala dicho hook, obtube el error y su descripción pero ni idea a que se refiere  .

Código (c) [Seleccionar] Expandir



#include <iostream>
#include <windows.h>

HHOOK hHRes;

LRESULT CALLBACK CBTProc( int , WPARAM , LPARAM );
void ErrorExit(LPTSTR lpszFunction);

int main()
{
    char s[500] ={};
    hHRes = ::SetWindowsHookExA( WH_CBT , &CBTProc , GetModuleHandle( NULL ) , 0 );
    if ( hHRes == NULL ) {
       /* le resto 2 para establecer un caracter nulo en formato WCHAR */
       ::FormatMessage( FORMAT_MESSAGE_FROM_SYSTEM , NULL , ::GetLastError() , NULL , (WCHAR*)&s , (DWORD) strlen(&s[0])/2 - 2 , NULL );
       ::MessageBoxExW(NULL,(WCHAR*)&s,NULL,0,NULL);
    }
    return 0;
}

LRESULT CALLBACK CBTProc( int nCode, WPARAM wParam, LPARAM lParam )
{
    ::UnhookWindowsHookEx( hHRes );
    return ::CallNextHookEx( hHRes , nCode , wParam , lParam );
}



Edito: Lei por hay que se debe hacer esto en una dll, que tan cierto es?...

Temibles Lunas!¡.
.

[BitBlt]

Mejor que esto que me dio Lea no conozco, es el metodo mas rapido que vi...
http://foro.elhacker.net/empty-t312603.0.html

Eso no funciona con el Descriptor del escritorio... es decir si ves bien al final se usa BitBlt para copiar el DC sobre el escritorio que se refresca a cada instante por X cosa, es decir, es lo mismo.

Dulces Lunas!¡.

[@boludoz]

.
@boludoz

Eres un boludo

Nota: Revisa la fecha

Dulces Lunas!¡.

.
Entonces no soy el unico loco que se descargo las imagenes en el pc jaja.

P.D.: Lo uso desde hace tiempo pero nunca dije nada, hasta ahora xP.

Dulces Lunas!¡.
.