DeveloperDurp/keypresser
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #1 from DeveloperDurp/Dev

Browse Source 
Should work
This commit is contained in:
DeveloperDurp
2020-11-09 10:35:52 -06:00
committed by GitHub
parent afd4cb74ba 6767b7567c
commit 759fbc565a
1 changed files with 50 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
KeyPresser.ps1
View File

@@ -1,20 +1,27 @@
#region Header
$Version = "1.0.0"
#Dependencies
[Reflection.Assembly]::LoadWithPartialName("System.Windows/Forms") | Out-Null
[Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms") | Out-Null
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName PresentationFramework
#Hide Console Window
Add-Type -Name Window -Namespace Console -MemberDefinition '
[DllImport("Kernal32.dll")]
[DllImport("Kernel32.dll")]
public static extern IntPtr GetConsoleWindow();
[DllImport("user32.dll")]
public static extern bool ShowWindow(IntPtr hWnd, Int32 nCmdShow);
'
$consolePtr = [Console.Window]::GetConsoleWindow()
[Console.Window]::ShowWindow($consolePtr, 0) > $null
#Talking across runspaces
$Sync = [Hashtable]::Synchronized(@{})
@@ -27,29 +34,17 @@
$script = [Powershell]::Create().AddScript({
Param ($Keys)
$sleep = ".5"
while($X -eq $null){
sleep $sleep
[System.Windows.Forms.SendKeys]::SendWait("{4}")
sleep $sleep
[System.Windows.Forms.SendKeys]::SendWait("{3}")
sleep $sleep
[System.Windows.Forms.SendKeys]::SendWait("{2}")
sleep $sleep
[System.Windows.Forms.SendKeys]::SendWait("{3}")
sleep $sleep
[System.Windows.Forms.SendKeys]::SendWait("{1}")
sleep $sleep
[System.Windows.Forms.SendKeys]::SendWait("{3}")
sleep $sleep
[System.Windows.Forms.SendKeys]::SendWait("{5}")
sleep $sleep
[System.Windows.Forms.SendKeys]::SendWait("{3}")
while($sync["x"] -eq 1){
$keys = $keys -split ","
Foreach ($key in $keys){
Start-Sleep -Milliseconds 500
[System.Windows.Forms.SendKeys]::SendWait("{$key}")
}
}
}).AddArgument($Keys)
$runsapce = [RunspaceFactory]::CreateRunspace()
$runspace = [RunspaceFactory]::CreateRunspace()
$runspace.ApartmentState = "STA"
$runspace.Threadoptions = "ReuseThread"
$runspace.open()
@@ -65,12 +60,42 @@
#region Form
$form = New-Object System.Windows.Forms.Form
$form.text = "Keypresser"
$Form.Size = "500,500"
$form.text = "Keypresser Version $Version"
$Form.Size = "450,110"
$Form.FormBorderStyle = 'FixedDialog'
$form.TopMost = $True
$Form.Add_FormClosing({Get-Process -id $pid | Stop-Process})
$KeysLabel = New-Object 'System.Windows.Forms.Label'
$KeysLabel.text = "Enter in the keys you wish to be pressed seperated by a comma `",`""
$KeysLabel.Width = '425'
$KeysLabel.Location = New-Object System.Drawing.Point(5,5)
$form.controls.add($KeysLabel)
$KeysTextBox = New-Object 'System.Windows.Forms.TextBox'
$KeysTextBox.Location = New-Object System.Drawing.Point(5,25)
$KeysTextBox.Width = '425'
$form.controls.add($KeysTextBox)
$KeysButton = New-Object 'System.Windows.Forms.Button'
$KeysButton.Location = New-Object System.Drawing.Point(5,45)
$KeysButton.text = "Start"
$KeysButton.add_click({
if ($KeysButton.text -ne "Stop"){
$KeysButton.text = "Stop"
$sync["x"] = 1
$Keys = $KeysTextBox.text
Keypress $Keys
}
Else{
$KeysButton.text = "Start"
$sync["x"] = 0
}
#endregion Form
})
$form.controls.add($KeysButton)
#endregion Form
[Windows.Forms.Application]::Run($form)