|
You last visited: Today at 10:25
Advertisement
FastWriter mit HotKeySet
Discussion on FastWriter mit HotKeySet within the AutoIt forum part of the Coders Den category.
07/06/2010, 15:19
|
#1
|
elite*gold: 0 
Join Date: May 2010
Posts: 108
Received Thanks: 41
|
FastWriter mit HotKeySet
Okay erstmal der code:
PHP Code:
HotKeySet("{u}", "_start1")
HotKeySet("{j}", "_start2")
HotKeySet("{m}", "_start3")
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=c:\program files\koda\forms\hotkeyspammer.kxf
$Form1_1 = GUICreate("HotKeySpammer", 250, 281, 193, 125)
$Label1 = GUICtrlCreateLabel("Textfeld:", 24, 24, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Input1", 24, 56, 177, 21)
$Label2 = GUICtrlCreateLabel("Textfeld:", 24, 96, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("Input2", 24, 128, 177, 21)
$Label3 = GUICtrlCreateLabel("Textfeld:", 24, 168, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("Input3", 24, 200, 177, 21)
$Label4 = GUICtrlCreateLabel("Createt by IZEROI", 24, 248, 91, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _start1()
Send ($Input1)
EndFunc
Func _start2()
Send ($Input2)
EndFunc
Func _start3()
Send ($Input3)
EndFunc
so nun die (die eigentlich gehen sollten) Funktionen:
Er sollte den Text den man bei input1 reinschreibt mit der taste {u} schreiben macht er aber nicht er schreibt aber nur eine [4]..bei {j} ne [6]...
bei {m} ne [8]..
also was ist da falsch er zeigt keinen error code an...
|
|
|
|
07/06/2010, 15:23
|
#2
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
|
Quote:
(....)eine [4]..bei {j} ne [6]...
bei {m} ne [8]..
|
aus:
HotKeySet("{u}", "_start1")
HotKeySet("{j}", "_start2")
HotKeySet("{m}", "_start3")
sollte eher:
HotKeySet("u", "_start1")
HotKeySet("j", "_start2")
HotKeySet("m", "_start3")
denk ich mal...
die {}-klammern sind nur für sonderzeichen wie !?F1-F12 usw
und 2.
Send(GUICtrlRead($input1))
|
|
|
|
|
07/06/2010, 15:41
|
#3
|
elite*gold: 0
Join Date: May 2010
Posts: 108
Received Thanks: 41
|
Quote:
Originally Posted by omer36
aus:
HotKeySet("{u}", "_start1")
HotKeySet("{j}", "_start2")
HotKeySet("{m}", "_start3")
sollte eher:
HotKeySet("u", "_start1")
HotKeySet("j", "_start2")
HotKeySet("m", "_start3")
denk ich mal...
die {}-klammern sind nur für sonderzeichen wie !?F1-F12 usw
und 2.
Send(GUICtrlRead($input1))
|
okay thx ich werds ausprobieren...okay er geht jetzt ich hatte nur CtrlRead falsch aber die hotkeys gehen...bekommst en dickes thanks^^
|
|
|
|
|
07/06/2010, 16:18
|
#4
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
Die {} um den Buchstaben ist egal, die kann man auch machen, ändert nichts.
|
|
|
|
|
07/06/2010, 19:08
|
#5
|
elite*gold: 13
Join Date: Apr 2008
Posts: 4,278
Received Thanks: 573
|
Code:
HotKeySet("{u}", "_start1")
HotKeySet("{j}", "_start2")
HotKeySet("{m}", "_start3")
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=c:\program files\koda\forms\hotkeyspammer.kxf
$Form1_1 = GUICreate("HotKeySpammer", 250, 281, 193, 125)
$Label1 = GUICtrlCreateLabel("Textfeld:", 24, 24, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Input1", 24, 56, 177, 21)
$Label2 = GUICtrlCreateLabel("Textfeld:", 24, 96, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("Input2", 24, 128, 177, 21)
$Label3 = GUICtrlCreateLabel("Textfeld:", 24, 168, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("Input3", 24, 200, 177, 21)
$Label4 = GUICtrlCreateLabel("Createt by IZEROI", 24, 248, 91, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _start1()
Send (GuictrlRead($Input1))
EndFunc
Func _start2()
Send (GuictrlRead($Input2))
EndFunc
Func _start3()
Send (GuictrlRead($Input3))
EndFunc
Dieser Code müsste funktionieren.
|
|
|
|
|
07/06/2010, 19:27
|
#6
|
elite*gold: 0
Join Date: May 2010
Posts: 108
Received Thanks: 41
|
ich hab noch n Exit hotkey gemachs ESC^^
thx an all
|
|
|
|
|
07/06/2010, 21:42
|
#7
|
elite*gold: 0
Join Date: Mar 2008
Posts: 1,524
Received Thanks: 285
|
falls noch was ist, hatte sowas ähnliches mal für jemanden aus dem forum gemacht:
Quote:
#include <GUIConstantsEx.au3>
#Include <File.au3>
_FileCreate("readme.txt")
sleep(500)
$File = FileOpen(@scriptDir & "Readme.txt", 1)
FileWrite("readme.txt", "Multi - Helper developed by .ƒlow and bladerofdarknes " & @CRLF & "idea from .ƒlow" & @CRLF & "code by bladerofdarknes" & @CRLF & "to use the hotkeys you have to push on .ƒlow first" & @CRLF & "we hope you enjoy the programm and you can give us some feedback!" & @CRLF & "e-mail me:  " & @CRLF & "please visit , the home of all hacks, codes, exploits :-)")
$Form1 = GUICreate("Multi - Helper by .ƒlow - coded by bladerofdarknes", 497, 451, 191, 189)
$ini1=IniRead("writer.ini", "texte", "say1", "")
$Input1 = GUICtrlCreateInput($ini1, 16, 24, 225, 21)
$ini2=IniRead("writer.ini", "texte", "say2", "")
$Input2 = GUICtrlCreateInput($ini2, 16, 56, 225, 21)
$ini3=IniRead("writer.ini", "texte", "say3", "")
$Input3 = GUICtrlCreateInput($ini3, 16, 88, 225, 21)
$ini4=IniRead("writer.ini", "texte", "say4", "")
$Input4 = GUICtrlCreateInput($ini4, 16, 120, 225, 21)
$ini5=IniRead("writer.ini", "texte", "say5", "")
$Input5 = GUICtrlCreateInput($ini5, 16, 152, 225, 21)
$ini6=IniRead("writer.ini", "texte", "say6", "")
$Input6 = GUICtrlCreateInput($ini6, 16, 184, 225, 21)
$ini7=IniRead("writer.ini", "texte", "say7", "")
$Input7 = GUICtrlCreateInput($ini7, 16, 216, 225, 21)
$ini8=IniRead("writer.ini", "texte", "say8", "")
$Input8 = GUICtrlCreateInput($ini8, 16, 248, 225, 21)
$ini9=IniRead("writer.ini", "texte", "say9", "")
$Input9 = GUICtrlCreateInput($ini9, 16, 280, 225, 21)
$Button1 = GUICtrlCreateButton("www.elitepvpers.com", 24, 312, 201, 49)
$Button2 = GUICtrlCreateButton("Exit", 24, 376, 201, 49)
$Label1 = GUICtrlCreateLabel("Numpad 1", 272, 24, 53, 17)
$Label2 = GUICtrlCreateLabel("Numpad 2", 272, 56, 53, 17)
$Label3 = GUICtrlCreateLabel("Numpad 3", 272, 88, 53, 17)
$Label4 = GUICtrlCreateLabel("Numpad 4", 272, 120, 53, 17)
$Label5 = GUICtrlCreateLabel("Numpad 5", 272, 152, 53, 17)
$Label6 = GUICtrlCreateLabel("Numpad 6", 272, 184, 53, 17)
$Label7 = GUICtrlCreateLabel("Numpad 7", 272, 216, 53, 17)
$Label8 = GUICtrlCreateLabel("Numpad 8", 272, 248, 53, 17)
$Label9 = GUICtrlCreateLabel("Numpad 9", 272, 280, 53, 17)
$Button3 = GUICtrlCreateButton(".ƒlow", 376, 32, 97, 385)
GUISetState(@SW_SHOW)
#include <ie.au3>
#Include <SendMessage.au3>
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case $Button1
_IECreate("www.elitepvpers.com")
Case $Button3
$read1=GUICtrlRead($Input1)
IniWrite("writer.ini","texte","say1", $read1)
$read2=GUICtrlRead($Input2)
IniWrite("writer.ini","texte","say2", $read2)
$read3=GUICtrlRead($Input3)
IniWrite("writer.ini","texte","say3", $read3)
$read4=GUICtrlRead($Input4)
IniWrite("writer.ini","texte","say4", $read4)
$read5=GUICtrlRead($Input5)
IniWrite("writer.ini","texte","say5", $read5)
$read6=GUICtrlRead($Input6)
IniWrite("writer.ini","texte","say6", $read6)
$read7=GUICtrlRead($Input7)
IniWrite("writer.ini","texte","say7", $read7)
$read8=GUICtrlRead($Input8)
IniWrite("writer.ini","texte","say8", $read8)
$read9=GUICtrlRead($Input9)
IniWrite("writer.ini","texte","say9", $read9)
HotKeySet("{numpad1}", "say1")
HotKeySet("{numpad2}", "say2")
HotKeySet("{numpad3}", "say3")
HotKeySet("{numpad4}", "say4")
HotKeySet("{numpad5}", "say5")
HotKeySet("{numpad6}", "say6")
HotKeySet("{numpad7}", "say7")
HotKeySet("{numpad8}", "say8")
HotKeySet("{numpad9}", "say9")
Func say1()
send($read1)
EndFunc
Func say2()
send($read2)
EndFunc
Func say3()
send($read3)
EndFunc
Func say4()
send($read4)
EndFunc
Func say5()
send($read5)
EndFunc
Func say6()
send($read6)
EndFunc
Func say7()
send($read7)
EndFunc
Func say8()
send($read8)
EndFunc
Func say9()
send($read9)
EndFunc
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
EndSwitch
WEnd
|
ich habe jetzt keine ahnung ob das dass richtige script ist, aber kannste dir ja mal anschaun
|
|
|
|
|
07/07/2010, 12:25
|
#8
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
Diese Struktur des Sourcecodes wieder 
Ich werd mich nie damit abfinden können^^
Außerdem brauchst du das FileCreate Gedöns am Anfang nicht, es reicht einfach nur den FileWrite hinzuschreiben, das FileOpen kann auch weg 
|
|
|
|
|
07/07/2010, 12:35
|
#9
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
|
|
|
|
|
|
07/07/2010, 14:00
|
#10
|
elite*gold: 0
Join Date: Mar 2008
Posts: 1,524
Received Thanks: 285
|
na die struktur is eig. besser, aber dann muss hier bei statt quote mit php schreiben und das is mir zu umständlich ^^
aber moment ich tu's für euch und ja ich liebe meine inis! 
PHP Code:
#include <EditConstants.au3>
#Include <File.au3>
]_FileCreate("readme.txt")
sleep(500)
$File = FileOpen(@scriptDir & "Readme.txt", 1)
FileWrite("readme.txt", "Multi - Helper developed by .ƒlow and bladerofdarknes " & @CRLF & "idea from .ƒlow" & @CRLF & "code by bladerofdarknes" & @CRLF & "to use the hotkeys you have to push on .ƒlow first" & @CRLF & "we hope you enjoy the programm and you can give us some feedback!" & @CRLF & "e-mail me: " & @CRLF & "please visit www.elitepvpers.com, the home of all hacks, codes, exploits :-)")
$Form1 = GUICreate("Multi - Helper by .ƒlow - coded by bladerofdarknes", 497, 451, 191, 189)
$ini1=IniRead("writer.ini", "texte", "say1", "")
$Input1 = GUICtrlCreateInput($ini1, 16, 24, 225, 21)
$ini2=IniRead("writer.ini", "texte", "say2", "")
$Input2 = GUICtrlCreateInput($ini2, 16, 56, 225, 21)
$ini3=IniRead("writer.ini", "texte", "say3", "")
$Input3 = GUICtrlCreateInput($ini3, 16, 88, 225, 21)
$ini4=IniRead("writer.ini", "texte", "say4", "")
$Input4 = GUICtrlCreateInput($ini4, 16, 120, 225, 21)
$ini5=IniRead("writer.ini", "texte", "say5", "")
$Input5 = GUICtrlCreateInput($ini5, 16, 152, 225, 21)
$ini6=IniRead("writer.ini", "texte", "say6", "")
$Input6 = GUICtrlCreateInput($ini6, 16, 184, 225, 21)
$ini7=IniRead("writer.ini", "texte", "say7", "")
$Input7 = GUICtrlCreateInput($ini7, 16, 216, 225, 21)
$ini8=IniRead("writer.ini", "texte", "say8", "")
$Input8 = GUICtrlCreateInput($ini8, 16, 248, 225, 21)
$ini9=IniRead("writer.ini", "texte", "say9", "")
$Input9 = GUICtrlCreateInput($ini9, 16, 280, 225, 21)
$Button1 = GUICtrlCreateButton("www.elitepvpers.com", 24, 312, 201, 49)
$Button2 = GUICtrlCreateButton("Exit", 24, 376, 201, 49)
$Label1 = GUICtrlCreateLabel("Numpad 1", 272, 24, 53, 17)
$Label2 = GUICtrlCreateLabel("Numpad 2", 272, 56, 53, 17)
$Label3 = GUICtrlCreateLabel("Numpad 3", 272, 88, 53, 17)
$Label4 = GUICtrlCreateLabel("Numpad 4", 272, 120, 53, 17)
$Label5 = GUICtrlCreateLabel("Numpad 5", 272, 152, 53, 17)
$Label6 = GUICtrlCreateLabel("Numpad 6", 272, 184, 53, 17)
$Label7 = GUICtrlCreateLabel("Numpad 7", 272, 216, 53, 17)
$Label8 = GUICtrlCreateLabel("Numpad 8", 272, 248, 53, 17)
$Label9 = GUICtrlCreateLabel("Numpad 9", 272, 280, 53, 17)
$Button3 = GUICtrlCreateButton(".ƒlow", 376, 32, 97, 385)
GUISetState(@SW_SHOW)
#include <ie.au3>
#Include <SendMessage.au3>
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case $Button1
_IECreate("www.elitepvpers.com")
Case $Button3
$read1=GUICtrlRead($Input1)
IniWrite("writer.ini","texte","say1", $read1)
$read2=GUICtrlRead($Input2)
IniWrite("writer.ini","texte","say2", $read2)
$read3=GUICtrlRead($Input3)
IniWrite("writer.ini","texte","say3", $read3)
$read4=GUICtrlRead($Input4)
IniWrite("writer.ini","texte","say4", $read4)
$read5=GUICtrlRead($Input5)
IniWrite("writer.ini","texte","say5", $read5)
$read6=GUICtrlRead($Input6)
IniWrite("writer.ini","texte","say6", $read6)
$read7=GUICtrlRead($Input7)
IniWrite("writer.ini","texte","say7", $read7)
$read8=GUICtrlRead($Input8)
IniWrite("writer.ini","texte","say8", $read8)
$read9=GUICtrlRead($Input9)
IniWrite("writer.ini","texte","say9", $read9)
HotKeySet("{numpad1}", "say1")
HotKeySet("{numpad2}", "say2")
HotKeySet("{numpad3}", "say3")
HotKeySet("{numpad4}", "say4")
HotKeySet("{numpad5}", "say5")
HotKeySet("{numpad6}", "say6")
HotKeySet("{numpad7}", "say7")
HotKeySet("{numpad8}", "say8")
HotKeySet("{numpad9}", "say9")
Func say1()
send($read1)
EndFunc
Func say2()
send($read2)
EndFunc
Func say3()
send($read3)
EndFunc
Func say4()
send($read4)
EndFunc
Func say5()
send($read5)
EndFunc
Func say6()
send($read6)
EndFunc
Func say7()
send($read7)
EndFunc
Func say8()
send($read8)
EndFunc
Func say9()
send($read9)
EndFunc
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
EndSwitch
WEnd
und jetzt ende mit dem flamen ich bastel grade an was ^^
|
|
|
|
|
07/07/2010, 16:50
|
#11
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
Mir fällt nie was ein, was man programmieren könnte <.<
Aber an der Form musst du wirklich noch arbeiten.
- Variablen anders
- Code mit Arrays kürzen wenn möglich
- Funcs aus den Schleifen, Case... raus
Das wars eigentlich schon
|
|
|
|
|
07/07/2010, 18:03
|
#12
|
elite*gold: 0
Join Date: Mar 2008
Posts: 1,524
Received Thanks: 285
|
ja ich weiß ^^
hab mich mal ausführlich mit smincke über arrays unterhalten, jetzt sitzen die eigentlich...
|
|
|
|
|
07/07/2010, 18:21
|
#13
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
Ja dann fang doch direkt an die Labels in einer For Schleife mit einem Array zu erstellen
|
|
|
|
|
07/07/2010, 18:26
|
#14
|
elite*gold: 0
Join Date: Mar 2008
Posts: 1,524
Received Thanks: 285
|
naja ich will lieber was neues machen, mir fällt aber nix ein, hatte in der letzten und kommenden woche wenig zeit, wegen geburtstagen, feiern etc.
aber ich denke ich bemühe mich in den nächsten tagen damit
aber ich habe wirklich keine ahnung was ich schreiben könnte
|
|
|
|
|
07/07/2010, 18:36
|
#15
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
Schreib mir einen Downloader, der die Zieldatei aufsplittet und in 4 Downloads downloaded und auf dem Computer wieder zusammenfügt
Ok Spaß beiseite, zwar könnte ich das gebrauchen, glaub aber nicht das du das schaffst^^.
Bau doch irgendwas für Metin2, irgendein Manager oder so. Um vielleicht irgendwas speichern zu können.
|
|
|
|
 |
|
Similar Threads
|
HotKeySet aus InputBox..?
08/10/2010 - AutoIt - 3 Replies
Also ich möchte das man den HotKeySet über ein Fenster bestimmen kann.
So siehts bei mir aus, aber funktioniert nicht:(
$value = InputBox("Test","HotKeySet", "{F1}")
ClipPut($value)
$bak = ClipGet()
HotKeySet("$bak","Start")
Func Start()
|
Hotkeyset Tastenkombinationen wie!?
08/01/2010 - AutoIt - 4 Replies
Hallo E*PVP Community,
ich habe eine frage:
Wie kann ich mit der Funktion Hotkeyset in AutoIt eine Funktion aufrufen die nur aufgerufen wird wenn ich z.B F1 und F2 gleichzeitig drücke?
Hotkeyset("{F1}{F2}","Stop")
das geht nicht.. da er dann bei F1 und F2 beendet also wenn ich sie einzel drücke :(
|
Fastwriter
07/09/2010 - Coding Releases - 6 Replies
Hallo erstma ;P
Hier möchte ich meinen FastWriter 2.1 vorstellen!
€dit: FastWriter 2.1
Funktionen:
10 InputBoxen (bilder im Anhang)
HotKeys: SHIFT + 1-0
Neu: Neue GUI...
Bilder sind im Anhang...sagt mir wie ich sie hier rein bekomme dann stell ich sie rein...
|
Hotkeyset
06/03/2010 - AutoIt - 1 Replies
Ich wollte "A" und "S" auf der Tastatur tauschen.
Jedoch während dem scripten ist mir aufgefallen, dass wenn ich "A" drücke, geht er zum Hotkeyset und drückt "S".
Aber weil ich ja "A" und "S" vertauschen will, wirds ne endlosschleife.
Wie kann ich das verändern, dass das gesendene (von AutoIT) nicht zum Hotkeyset geht.
HotKeySet("a", "a")
HotKeySet("s", "s")
While 1
|
HotKeySet
06/02/2010 - AutoIt - 6 Replies
Wieso klappt das bei mir nicht ? HotKeySet("{F8}" , "Start")
HotKeySet("{F9}" , "Ende")
Func Start()
while 1
xxxx
xxx
xxx
xx
x
|
All times are GMT +1. The time now is 10:26.
|
|
