[HILFE]F-Tasten tool??!!!!!!!

~BeOwNeD~ · 04/27/2011, 21:34

^
l

Ich suche ein Tool wo man für die F1-F.. tasten einen text oder zahlen eingeben kann und dann mit den F-tasten den text oder zahlen in verschiedenen programmen wieder aufrufen kann!?
Ca. so wie ein spammbot nur will ich selbst bestimmen wann er es schreibt!

BlendedMed · 04/27/2011, 21:39

autoit?

~BeOwNeD~ · 04/27/2011, 21:41

Ich suche ein "LEICHTES TOOL" wo ich einfach schnell was bei den F-tasten reinschreiben kann...

~~xImbaer~~ · 04/27/2011, 21:42

Autoit?

Das ist doch einfach.

~BeOwNeD~ · 04/27/2011, 21:44

ich hab 0 ahnung davon.
Ich hatte son tool schonmal aufm pc aber wieder runtergeschmissen <.<!

Chicken17 · 04/27/2011, 21:59

Such in google nach makro tool hatte mal eins weis aber den namen nicht.

~BeOwNeD~ · 04/27/2011, 22:14

Danke erster hilfreicher post

!

Quadratball · 04/28/2011, 03:27

<-- Direkter Link!

Falls du aufgrund der 4 funde angst hast dann compiliere es selber.
Source:

Code:

#NoTrayIcon
#include <File.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Eingabe", 202, 22, 192, 124)
$Input1 = GUICtrlCreateInput("Text hier eingeben.", 0, 0, 201, 21)
$Button1 = GUICtrlCreateButton("Button1", 0, 0, 0, 1)
Dim $Form1_AccelTable[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($Form1_AccelTable)
GUISetState(@SW_Hide)
#EndRegion ### END Koda GUI section ###
If FileExists(@ScriptDir & "\text.txt") = False Then
	_FileCreate(@ScriptDir & "\text.txt")
	GUISetState(@SW_SHOW)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			FileWrite(@ScriptDir & "\text.txt",GUICtrlRead($Input1))
			ExitLoop
	EndSwitch
WEnd
ElseIf FileRead(@ScriptDir & "\text.txt") = False Then
GUISetState(@SW_SHOW)
	While 1
		$nMsg = GUIGetMsg()
	    Switch $nMsg
	     	Case $GUI_EVENT_CLOSE
				Exit
			Case $Button1
				FileWrite(@ScriptDir & "\text.txt",GUICtrlRead($Input1))
				ExitLoop
		EndSwitch
    WEnd
EndIf
GUISetState(@SW_DISABLE)
GUISetState(@SW_HIDE)
HotKeySet("{F1}","spam")
HotKeySet("{F3}","ende")
HotKeySet("{F2}","gui")
While 1
	Sleep(10000)
WEnd
Func spam ()
	send(FileRead(@ScriptDir & "\text.txt"))
EndFunc

Func ende()
	Exit
EndFunc

Func GUI()
	FileDelete(@ScriptDir & "\text.txt")
	_FileCreate(@ScriptDir & "\text.txt")
	GUISetState(@SW_ENABLE)
	GUISetState(@SW_SHOW)
	While 1
		$nMsg = GUIGetMsg()
	    Switch $nMsg
	     	Case $GUI_EVENT_CLOSE
				Exit
			Case $Button1
				FileWrite(@ScriptDir & "\text.txt",GUICtrlRead($Input1))
				ExitLoop
		EndSwitch
    WEnd
	GUISetState(@SW_DISABLE)
	GUISetState(@SW_HIDE)
EndFunc

Edit:
F1: schreibt den text
F2: neuen text eingeben
F3: beendet das tool