Foro de elhacker.net

Option Explicit
 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const constKeyDown = -32767
 
 
Private Sub Form_Load()
  'INTERVALO DE PULSACIONES
  Timer2.Enabled = False
  Timer2.Interval = 50
 
  'INTERVALO DE COMPROBACION DE TECLAS
  Timer1.Interval = 50
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  Dim F8 As Integer
  Dim F9 As Integer
  ' COMPROBAMOS LAS TECLAS
  F8 = GetAsyncKeyState(vbKeyF8)
  F9 = GetAsyncKeyState(vbKeyF9)
  'SI SE HAN PULSADO HACEMOS LO QUE TOQUE
  If F8 <= constKeyDown Then
    'ENFOCAMOS AL TEXTBOX PARA QUE SE PULSEN AHI LAS TECLAS
    Text1.SetFocus
    ' Y ACTIVAMOS EL TIMER
    Timer2.Enabled = True
  End If
  If F9 <= constKeyDown Then
    'DESACTIVAMOS EL TIMER
    Timer2.Enabled = False
  End If
 
 
End Sub
 
Private Sub Timer2_Timer()
   'PUEDEN PULSARSE LAS 2 TECLAS A CADA VUELTA:
  'SendKeys "QW"
 
  ' O CADA CICLO UNA TECLA:
  ' VARIABLE QUE NO SE BORRA AL SALIR DE LA SUB
  Static Ultimaletra As String
  ' SEGUN LA ULTIMA PULSACION ELEGIMOS LA TECLA A PULSAR
  If Ultimaletra = "Q" Then
    SendKeys "W"
    Ultimaletra = "W"
  Else
    SendKeys "Q"
    Ultimaletra = "Q"
  End If
End Sub
 

• ElektroKit Framework v1.8 | ( Complementos para el núcleo de .Net Framework ) (http://foro.elhacker.net/net/elektrokit_framework_v18_complementos_para_el_nucleo_de_net_framework-t444997.0.html)

Imports System.Threading
Imports System.Threading.Thread
Imports System.Windows.Forms

Imports Elektro.Core.IO.Enums
Imports Elektro.Core.IO.Tools

Public Module Module1

    Public Sub Main()
        Console.Title = "Auto-Potion"

        Console.WriteLine("Press any key to start...")
        Console.ReadKey(intercept:=True)

        Module1.RunBot()
    End Sub

    <DebuggerStepperBoundary>
    Private Sub RunBot()
        ' Añadir tareas aquí.
        Dim potionAction As Action = Sub() Module1.TakePotion(TimeSpan.FromSeconds(3))
        Dim potionTask As New Task(potionAction)

        ' Iniciar tareas aquí (asincrónicamente).
        Console.Clear()
        Console.WriteLine("Bot is running...")
        potionTask.Start()

        ' Esperar sincrónicamente a que todas las tareas asincrónicas finalicen.
        Task.WaitAll({potionTask})
    End Sub

    <DebuggerStepThrough>
    Private Sub TakePotion(ByVal interval As TimeSpan)

        Dim success As Boolean
        Do While True
            Sleep(interval)
            success = (Keyboard.SendKey(Keys.F1, KeyBehavior.Press) = 2)
            If (success) Then
                Console.WriteLine("[{0}] Potion consumed.", DateTime.Now.ToLongTimeString())
            Else
                Environment.ExitCode = 1
                Environment.FailFast(String.Format("Not all keystrokes were sent in Method: '{0}()'.", New StackFrame(0).GetMethod.Name))
            End If
        Loop

    End Sub

End Module

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" _
(ByVal Hwnd As Long, _
ByVal wFlag As Long) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal Hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
     Const VK_NUMPAD1 = &H61
     Const WM_KEYUP = &H101
     Const WM_KEYDOWN = &H100
     Const NILL = 0&
     Const WM_SYSCOMMAND = &H112
     Const SC_CLOSE = &HF060
     Const GW_HWNDNEXT = 2
     Const GW_CHILD = 5
Private Sub Form_Load()
Shell ("Notepad")
Shell ("Calc")
 
End Sub
 
Private Sub Command1_Click()
Dim Hwnd As Long
'Windows Vista/XP
Hwnd = FindWindow("SciCalc", vbNullString)
 
'Windows 7
'Hwnd = FindWindow("CalcFrame", vbNullString)
 
     Me.Caption = Hwnd
        '//Envia la pulsación de la tecla 2 (del teclado alfabético)
        Call PostMessage(Hwnd, WM_KEYDOWN And WM_KEYUP , vbKey2, NILL)
End Sub
 
Private Sub Command2_Click()
Dim Hwnd As Long
Dim HwndChild As Long
Hwnd = FindWindow("Notepad", vbNullString)
     Me.Caption = Hwnd
     HwndChild = GetNextWindow(Hwnd, GW_CHILD)
        '//Envia la pulsación de la tecla 2 (del teclado alfabético)
        Call PostMessage(HwndChild, WM_KEYDOWN And WM_KEYUP, vbKeyQ, NILL)
End Sub
 

Hwnd = FindWindow(vbNullString, "Calculadora")

Hwnd = FindWindow(vbNullString, "Sin título - Bloc de notas")

Hwnd = FindWindow("SciCalc", "Calculadora")

Hwnd = FindWindow("Notepad", "Sin título - Bloc de notas")

Imports System.Runtime.InteropServices
Imports System.Security
 
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '//Abre el notepad y la calculadora
        Process.Start("Notepad")
        Process.Start("Calc")
        Button1.Text = "2 a Calculadora"
        Button2.Text = "Q a Notepad"
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '//Obtiene el identificador de la ventana de la Calculadora
 
        'Windows Vista/XP
        Dim Hwnd As IntPtr = NativeMethods.FindWindow("SciCalc", Nothing)
 
        'Windows 7
        'Dim Hwnd As IntPtr = NativeMethods.FindWindow("CalcFrame", Nothing)
 
        Me.Text = Hwnd
        '//Envia la pulsación de la tecla 2 (del teclado alfabético)
        NativeMethods.PostMessage(Hwnd,   NativeMethods.WM_KEYDOWN And NativeMethods.WM_KEYUP, Keys.D2, NativeMethods.NILL)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '//Obtiene el identificador de la ventana del Notepad
        Dim Hwnd As IntPtr = NativeMethods.FindWindow("Notepad", Nothing)
        '//Obtiene el identificador de la ventana "hijo" del Notepad (ClassName="Edit")
        Dim hwndChild As IntPtr = NativeMethods.GetNextWindow(Hwnd, NativeMethods.GW_CHILD)
 
        Me.Text = Hwnd
        '//Envia la pulsación de la tecla 'Q'
        NativeMethods.PostMessage(hwndChild,NativeMethods.WM_KEYDOWN And NativeMethods.WM_KEYUP , Keys.Q, NativeMethods.NILL)
    End Sub
End Class
 
<SuppressUnmanagedCodeSecurity()>
Friend NotInheritable Class NativeMethods
    Private Sub New()
    End Sub
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Friend Shared Function FindWindow( _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String) As IntPtr
    End Function
 
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto, EntryPoint:="GetWindow")> _
    Friend Shared Function GetNextWindow(ByVal hwnd As IntPtr, ByVal wFlag As Integer) As Integer
    End Function
 
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Friend Shared Function FindWindowEx(ByVal hWnd1 As IntPtr, _
                                        ByVal hWnd2 As IntPtr, _
                                        ByVal lpsz1 As String, _
                                        ByVal lpsz2 As String) As Integer
 
    End Function
 
 
    <DllImport("user32.dll", CharSet:=CharSet.Auto, Entrypoint:="PostMessageA")> _
    Friend Shared Function PostMessage(ByVal hwnd As IntPtr, ByVal wMsg As Integer, _
                                                                           ByVal wParam As Integer, _
                                                                            ByVal lParam As Integer) As Integer
    End Function
    Public Const VK_NUMPAD1 = &H61
    Public Const WM_KEYUP = &H101
    Public Const WM_KEYDOWN = &H100
    Public Const NILL = 0&
    Public Const WM_SYSCOMMAND = &H112
    Public Const SC_CLOSE = &HF060
    Public Const GW_HWNDNEXT = 2
    Public Const GW_CHILD = 5
 
End Class