FastWriter mit HotKeySet

07/06/2010 15:19 checker0899#1
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"250281193125)
$Label1 GUICtrlCreateLabel("Textfeld:"24245520)
GUICtrlSetFont(-1104000"MS Sans Serif")
$Input1 GUICtrlCreateInput("Input1"245617721)
$Label2 GUICtrlCreateLabel("Textfeld:"24965520)
GUICtrlSetFont(-1104000"MS Sans Serif")
$Input2 GUICtrlCreateInput("Input2"2412817721)
$Label3 GUICtrlCreateLabel("Textfeld:"241685520)
GUICtrlSetFont(-1104000"MS Sans Serif")
$Input3 GUICtrlCreateInput("Input3"2420017721)
$Label4 GUICtrlCreateLabel("Createt by IZEROI"242489117)
GUICtrlSetFont(-194000"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 omer36#2
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 checker0899#3
Quote:
Originally Posted by omer36 View Post
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 PenGuin :O#4
Die {} um den Buchstaben ist egal, die kann man auch machen, ändert nichts.
07/06/2010 19:08 Knochenfabrikant#5
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 checker0899#6
ich hab noch n Exit hotkey gemachs ESC^^
thx an all
07/06/2010 21:42 bladerofdarknes#7
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: [Only registered and activated users can see links. Click Here To Register...]" & @CRLF & "please visit [Only registered and activated users can see links. Click Here To Register...], 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 PenGuin :O#8
Diese Struktur des Sourcecodes wieder :facepalm:
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 omer36#9
jaja... blader liebt seine ini´s :D :D :D
07/07/2010 14:00 bladerofdarknes#10
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! :D


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: [Only registered and activated users can see links. Click Here To Register...]& @CRLF "please visit www.elitepvpers.com, the home of all hacks, codes, exploits :-)")

$Form1 GUICreate("Multi - Helper by .ƒlow - coded by bladerofdarknes"497451191189)
$ini1=IniRead("writer.ini""texte""say1""")
$Input1 GUICtrlCreateInput($ini1162422521)
$ini2=IniRead("writer.ini""texte""say2""")
$Input2 GUICtrlCreateInput($ini2165622521)
$ini3=IniRead("writer.ini""texte""say3""")
$Input3 GUICtrlCreateInput($ini3168822521)
$ini4=IniRead("writer.ini""texte""say4""")
$Input4 GUICtrlCreateInput($ini41612022521)
$ini5=IniRead("writer.ini""texte""say5""")
$Input5 GUICtrlCreateInput($ini51615222521)
$ini6=IniRead("writer.ini""texte""say6""")
$Input6 GUICtrlCreateInput($ini61618422521)
$ini7=IniRead("writer.ini""texte""say7""")
$Input7 GUICtrlCreateInput($ini71621622521)
$ini8=IniRead("writer.ini""texte""say8""")
$Input8 GUICtrlCreateInput($ini81624822521)
$ini9=IniRead("writer.ini""texte""say9""")
$Input9 GUICtrlCreateInput($ini91628022521)
$Button1 GUICtrlCreateButton("www.elitepvpers.com"2431220149)
$Button2 GUICtrlCreateButton("Exit"2437620149)
$Label1 GUICtrlCreateLabel("Numpad 1"272245317)
$Label2 GUICtrlCreateLabel("Numpad 2"272565317)
$Label3 GUICtrlCreateLabel("Numpad 3"272885317)
$Label4 GUICtrlCreateLabel("Numpad 4"2721205317)
$Label5 GUICtrlCreateLabel("Numpad 5"2721525317)
$Label6 GUICtrlCreateLabel("Numpad 6"2721845317)
$Label7 GUICtrlCreateLabel("Numpad 7"2722165317)
$Label8 GUICtrlCreateLabel("Numpad 8"2722485317)
$Label9 GUICtrlCreateLabel("Numpad 9"2722805317)
$Button3 GUICtrlCreateButton(".ƒlow"3763297385)
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 PenGuin :O#11
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 bladerofdarknes#12
ja ich weiß ^^
hab mich mal ausführlich mit smincke über arrays unterhalten, jetzt sitzen die eigentlich...
07/07/2010 18:21 PenGuin :O#13
Ja dann fang doch direkt an die Labels in einer For Schleife mit einem Array zu erstellen ;)
07/07/2010 18:26 bladerofdarknes#14
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 PenGuin :O#15
Schreib mir einen Downloader, der die Zieldatei aufsplittet und in 4 Downloads downloaded und auf dem Computer wieder zusammenfügt :D

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.