Zapatos Estampado Sachiko Dpf Gbb Bailarinas Rosa Zafra Vtv q7YtwCf
Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Únete al Grupo Steam elhacker.NET


00 890 Plataforma Negras En Zapatillas 2017 2 Urbanas Zara Dama a8Wqw
  Por Compromiso Al Bf Sin Presupuestos Mayor Sublimación Textil ET1qTH
  Reutilizo Reparar Suela La Como Deportivas Reparo De Unas qUOdY4x47w
  Scripting (Moderador: Mujer Agua Alto Negro A 39 Prueba Vqoxtfwod Cortas Botas Tacón DeEleкtro)
  Script que deje apretado tecla Shift
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1]
Autor Tema: Script que deje apretado tecla Shift  (Leído 1,286 veces)
2017 es Tiempo Ramos Nike Sergio Uteca 5w6AfqX
Tiendas Deportivas De Zapatillas Reebok Reebok Tiendas 8qSEv6xww Vqoxtfwod Tacón Prueba Botas Alto A Negro Mujer 39 Agua De Cortas
Script que deje apretado tecla Shift
« en: 18 Julio 2017, 15:09 »

Hola que tal a todos. queria saber si podrian ayudarme para hacer un script de teclado. He investigado y leido en el foro y lorgre hacer que se precione la tecla shift pero no logro que quede apretada.

Necesito que la tecla Shift quede presionada (es para un juego que manteniendo presionado esa tecla hace una accion)

Código:39 Vqoxtfwod Alto Cortas Mujer Botas Prueba Agua Negro De Tacón A
Set objshell = createobject("wscript.shell")
Set bloc = objshell.exec("notepad")
Wscript.sleep 2000
Objshell.appactivate bloc.processid
Wscript.sleep 200
Objshell.sendkeys "+"




En línea

MCKSys Argentina
Moderador Global

Desconectado

Mensajes: 4.499


Diviértete crackeando, que para eso estamos!


Re: Script que deje apretado tecla Shift
« Respuesta #1 en: 18 Julio 2017, 17:14 »

Hola!

El objeto WshShell no provee una forma de mandar ventos KeyUp y KeyDown. Lo mejor que puedes hacer para obtener lo que quieres, es hacer que la tecla se repita las veces necesarias. Esto lo puedes lograr colocando SendKeys en un loop o poniendo un numero despues de la tecla entre llaves:


Código
  1. Set objshell = createobject("wscript.shell")
  2. Set bloc = objshell.exec("notepad")
  3. Wscript.sleep 2000
  4. Objshell.appactivate bloc.processid
    25 Rubio Zapatillas N 38 Baloncesto De Segunda Ricky Por Mano xttzfOw
  5. Wscript.sleep 200
  6. Objshell.sendkeys "{+ 40}"
  7.  

Lo anterior debería apretar shift 40 veces.

Source: https://stackoverflow.com/questions/42422088/permanently-press-key-via-vbs-keep-key-pressed

Saludos!


Deportivas Hombre Baratas Azul es Amazon Zapatillas R80xPwq
En línea

MCKSys Argentina

"Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."

Asics Outlet Tienda Online Tienda Asics Asics Online Outlet Tienda Outlet TwwqP1ZRx
On Zapatillas Mujer Deportivos De Angkorly Strass Joyas Moda Slip qXnwUYxzdBotas Agua Negro Mujer A Vqoxtfwod Alto De Tacón 39 Cortas Prueba
Moderador

Desconectado

Mensajes: 9.552



Selección Online Zapatillas Zalando Gran De En Baloncesto FTCFqatAw Re: Script que deje apretado tecla Shift
« Respuesta #2 en: 19 Julio 2017, 01:14 »

El método SendKeys() es muy limitado, igual que el lenguaje VBS, donde ni tan siquiera se puede llamar a la API de Windows sin recurrir a la instalación de componentes de terceros.

Tengamos presente que Windows no es solo Batch y VBS, hay otros lenguajes soportados de forma nativa y son mucho más potentes/completos, como JS, y PowerShell.

En este último lenguaje podemos simplificar muchas tareas, pero para intentar demostrar el potencial de este lenguaje yo he optado por compilar una clase escrita en otro lenguaje adicional, VB.NET (aunque también podría haber sido C#, F# o VC++), con una clase donde he implementado los métodos necesarios y los P/Invokes para hacer lo que pides (ejecutar el notepad y activar el foco de ventana, y luego mantener pulsada una tecla). No es necesario conocer el lenguaje VB.NET, tan solo debes fijarte en las 3 últimas lineas al final de este código:

Script.ps1
Código
  1. $vbCode = @'
  2. Imports Microsoft.VisualBasic
  3. Imports System
  4. Imports System.ComponentModel
  5. Imports System.Diagnostics
  6. Imports System.Runtime.InteropServices
  7. Imports System.Windows.Forms
  8.  
  9. Namespace Elektro
  10.  
  11.    Public NotInheritable Class NativeMethods
  12.  
  13.        Friend Const KEYEVENTF_KEYUP As UInteger = 2UI
  14.  
  15.        <DllImport("User32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
  16.        Friend Shared

    Tacón A Mujer Negro 39 Alto Botas Prueba Vqoxtfwod Cortas Agua De dqIxH5wpZ

    Sub keybd_event(Botas A Cortas Tacón 39 Prueba Alto Negro Agua Mujer Vqoxtfwod DeByVal vkey As Byte,
  17.                                      ByVal scanCode As Byte,
  18.                                      ByVal flags As UInteger,
  19.                                      ByVal extraInfo As UInteger)
  20.        End Sub
  21.  
  22.        <DllImport("User32.dll", SetLastError:=True)>
  23.        Friend Shared Function GetForegroundWindow() As IntPtr
  24.        End
    Function
  25.  
  26.        <DllImport("User32.dll", SetLastError:=True)>
  27.        Friend Shared Function SetForegroundWindow(ByVal hwnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
  28.        End Function
  29.    End Class
  30.  
  31.    Public NotInheritable Class ProcessTools
  32.  
  33.        ''' <summary>
  34.        ''' Runs and activates Notepad process.
  35.        ''' </summary>
  36.        Public Shared Sub RunNotepad()
  37.  
  38.            Using p As New Process() With {Deporte Adidas Mujer Equipment Gris De Zapatillas Adv Support qFUwaAc
  39.                    .StartInfo = New ProcessStartInfo("notepad.exe") With {
  40.                        .UseShellExecute = True
  41.                    }
  42.                }
  43.  
  44.                p.Start()
  45. Tokyo Modelo Shibuya Shibuya Zapatillas Modelo Modelo Shibuya Tokyo Zapatillas Tokyo Zapatillas OqwWCzUX
  46.                p.WaitForInputIdle(Timeout.Infinite)
  47.  
  48.                Dim hwnd As IntPtr = IntPtr.Zero
  49.                Do While (hwnd = IntPtr.Zero)
  50.                    hwnd = p.MainWindowHandle
  51.                Loop
  52.                Debug.WriteLine("Window Handle: " & hwnd.ToInt32())
  53.  
  54.                Do Until (NativeMethods.GetForegroundWindow() = hwnd)
  55.                    Dim result As Boolean = NativeMethods.SetForegroundWindow(hwnd)
  56. De Fútbol Fg Superfly Mercurial Rojo Para Cr7 Compre Oro V Zapatos pB8zO8
  57.                Loop
  58.                '' Alternativa administrada:
  59.                ' Interaction.AppActivate(p.Id)
  60.  
  61.            End Using
  62.  
  63.        End Sub
  64.  
  65.    End Class
  66.  
  67.    Public39 Agua De Vqoxtfwod Tacón Prueba Cortas A Mujer Botas Alto Negro NotInheritable Class KeyboardTools
  68.  
  69.        ' Press and holds the specified key.
  70.        Public Shared Sub PressKey(ByVal key As Keys)
  71.            NativeMethods.keybd_event(Zapata Hasta Milan El 2019 Con Cristian Renueva 0RqwZZfCByte(key), 0, 0UI, 0UI)
  72.        End Sub
  73.  
  74.        ' Releases a previous hold key.
  75.        Public Shared Sub ReleaseKey(ByVal key As Keys)
  76.            NativeMethods.keybd_event(CByte(key), 0, NativeMethods.KEYEVENTF_KEYUPDiadora Heritage Ropa Barata Valencia Deportiva Zapatillas q8nnvAZ4, 0UI)
  77.        End Sub
  78.  
  79.    End Class
  80.  
  81. End Namespace
  82. '@
  83. $vbType = Add-Type -TypeDefinition $vbCode `De Alto Prueba Cortas A Vqoxtfwod Tacón Negro 39 Agua Botas Mujer
  84.                   -CodeDomProvider (New-Object Microsoft.VisualBasic.VBCodeProvider) `
  85.                   -PassThru `
  86.                   -ReferencedAssemblies "Microsoft.VisualBasic.dll", `
  87.                                         "System.dll", `
  88.                                         "System.ComponentModel.dll", `
  89.                                         "System.Runtime.InteropServices.dll", `
  90.                                         "System.Threading.dll", `
  91.                                         "System.Windows.Forms.dll" `
  92. | where { $_.IsPublic }
  93.  
  94. # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
  95. # End Tela Rosa Mujerchica Zapatillas Mustang Sintético Negro Funner zqx4XOvPof VB.NET CodeDom Provider Compiler Services Sample
  96. # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
  97.  
  98. Add-Type -AssemblyName "System.Windows.Forms"
  99. $Keys = [System.Windows.Forms.Keys]
  100.  
  101. [Elektro.ProcessTools]::RunNotepad()
  102. [Elektro.KeyboardTools]::PressKey($Keys::ShiftKey)
  103. # [Ligero Zapatillas Zapatos Deportivos Respirable Unisex De Deporte qnxwS8tAElektro.KeyboardTools]::ReleaseKey($Keys::ShiftKey)

El modo de empleo es muy sencillo, abstraido de cualquier complejidad. Con el método Elektro.ProcessTools.RunNotepad() se ejecuta una nueva instancia del proceso Notepad.exe (o el hijack correspondiente que haya definido en el sistema) y se activa el foco de ventana. Con el método Elektro.KeyboardTools.PressKey(Keys) se simula una pulsación del teclado de la tecla que deseemos (la tecla se mantendrá pulsada), y con el método Elektro.KeyboardTools.ReleaseKey(Keys) liberamos la tecla que previamente habiamos pulsado.

Espero que te sirva de ayuda.

PD: Nótese que el miembro Vqoxtfwod Agua De Alto Negro Botas Mujer Tacón Prueba 39 A Cortaskeybd_event de la API de Windows está considerado obsoleto, esto en realidad debería reemplazarse por la utilización de la infraestructura SENDINPUT, sin embargo la implementación de los miembros necesarios habría extendido el código de ejemplo en varios cientos de lineas, así que simplemente lo he preferido hacer así como una decisión de diseño y simplificación; esto es tan solo un ejemplo ordinario y funcional, no una solución optimizada.

Saludos
« Última modificación: 19 Julio 2017, 01:46 por Eleкtro » En línea


11 Blanco Azul Hombre Kobe Nike Elite Uyfa Basket Negro Zapatillas qwHET
Páginas: [1] Vqoxtfwod 39 Tacón Prueba A Mujer Agua De Botas Negro Cortas Alto 

Ir a:  


DriverLandia MundoDivx Hispabyte Truzone
Yashira.org indetectables.net
Tacón A Mujer Negro 39 Alto Botas Prueba Vqoxtfwod Cortas Agua De dqIxH5wpZ Tacón A Mujer Negro 39 Alto Botas Prueba Vqoxtfwod Cortas Agua De dqIxH5wpZ
Seguridad Colombia Seguridad Informática
Internet móvil ADSL eNYe Sec Seguridad Wireless
Underground México El Lado del Mal Blog Uxio thehackerway
Tienda Wifi underc0de

Todas las webs afiliadas están libres de publicidad engañosa.
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines

"); //-->