GUI Hilfe

[autoit]

#include <GUIConstants.au3>
#include <file.au3>

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{f1}", "Senden1")
HotKeySet("{f2}", "Senden2")
HotKeySet("{f3}", "Senden3")
HotKeySet("{f4}", "Senden4")
HotKeySet("{f5}", "Senden5")

Dim $logPath = @ScriptDir & '\send.log'

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Habbo Spammer by Djbstar", 634, 537, 193, 115)
$Label1 = GUICtrlCreateLabel("Dies ist die erste Version der Habbospammers von Djbstar. Für fragen und Updates einfach im Deutschen Habbohotel an Djbstar wenden.", 56, 16, 507, 41)
$F1 = GUICtrlCreateInput("Hier den Text für F1 eingeben", 56, 113, 505, 21)
$F2 = GUICtrlCreateInput("Hier den Text für F2 eingeben", 56, 143, 505, 21)
$F3 = GUICtrlCreateInput("Hier den Text für F3 eingeben", 56, 170, 505, 21)
$F4 = GUICtrlCreateInput("Hier den Text für F4 eingeben", 56, 201, 505, 21)
$F5 = GUICtrlCreateInput("Hier den Text für F5 eingeben", 56, 232, 505, 21)
$Label2 = GUICtrlCreateLabel("ALT+0134 = Bombe", 50, 288, 515, 169)
$Label9 = GUICtrlCreateLabel("ALT+0135 = Zutritt verboten Zeichen", 50, 300, 515, 169)
$Label10 = GUICtrlCreateLabel("ALT+0145 = Schwarzes Schloss", 50, 300, 515, 169)
$Label11 = GUICtrlCreateLabel("ALT+0151 = Musiknoten", 50, 312, 515, 169)
$Label12 = GUICtrlCreateLabel("ALT+0153 = TM-Symbol", 50, 324, 515, 169)
$Label13 = GUICtrlCreateLabel("ALT+0169 = C-Symbol", 50, 336, 515, 169)
$Label14 = GUICtrlCreateLabel("ALT+0174 = R-Symbol", 50, 348, 515, 169)
$Label15 = GUICtrlCreateLabel("ALT+0213 = Diamant", 50, 360, 515, 169)
$Label16 = GUICtrlCreateLabel("ALT+0245 = Pik", 50, 372, 515, 169)
$Label17 = GUICtrlCreateLabel("ALT+124 = Weißes Herz", 50, 384, 515, 169)
$Label18 = GUICtrlCreateLabel("ALT+156 = Pfund Zeichen", 50, 396, 515, 169)
$Label19 = GUICtrlCreateLabel("ALT+159 = Schwarzes Herz", 50, 408, 515, 169)
$Label20 = GUICtrlCreateLabel("ALT+167 = Blitz", 50, 420, 515, 169)
$Label21 = GUICtrlCreateLabel("ALT+168= ? umgekehrt", 50, 432, 515, 169)
$Label22 = GUICtrlCreateLabel("ALT+173 = ! umgekehrt", 50, 432, 515, 169)
$Label22 = GUICtrlCreateLabel("ALT+157 = Kreuz", 300, 288, 515, 169)
$Label23 = GUICtrlCreateLabel("ALT+21 = Paragraf", 300, 300, 515, 169)
$Label24 = GUICtrlCreateLabel("ALT+230=Kaffeetasse", 300, 300, 515, 169)
$Label25 = GUICtrlCreateLabel("ALT+241 = Handy", 300, 312, 515, 169)
$Label26 = GUICtrlCreateLabel("ALT+246 = Daumen runter", 300, 324, 515, 169)
$Label27 = GUICtrlCreateLabel("ALT+248 = °-Symbol", 300, 336, 515, 169)
$Label28 = GUICtrlCreateLabel("ALT+263= Daumen hoch", 300, 348, 515, 169)
$Label29 = GUICtrlCreateLabel("ALT+271 = Euro Zeichen", 300, 360, 515, 169)
$Label30 = GUICtrlCreateLabel("ALT+276 = Glühbirne", 300, 372, 515, 169)
$Label31 = GUICtrlCreateLabel("ALT+422 = Totenschädel", 300, 384, 515, 169)
$Label32 = GUICtrlCreateLabel("ALT+0172 = Fisch", 300, 396, 515, 169)
$Label33 = GUICtrlCreateLabel("ALT+124 = Herz weiß", 300, 408, 515, 169)
$Label34 = GUICtrlCreateLabel("ALT+159 = Herz Schwarz", 300, 420, 515, 169)
$Label4 = GUICtrlCreateLabel("F3", 40, 172, 13, 17)
$Label5 = GUICtrlCreateLabel("F4", 40, 205, 13, 17)
$Label6 = GUICtrlCreateLabel("F5", 40, 236, 13, 17)
$Label7 = GUICtrlCreateLabel("F1", 40, 114, 13, 17)
$Label8 = GUICtrlCreateLabel("F2", 40, 141, 13, 17)
$Savebut = GUICtrlCreateButton("Save",568,118,57,130,0)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
$F1Send = GUICtrlRead($F1)
$F2Send = GUICtrlRead($F2)
$F3Send = GUICtrlRead($F3)
$F4Send = GUICtrlRead($F4)
$F5Send = GUICtrlRead($F5)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func Senden1()
Send($F1Send)
Send("{ENTER}")
_FileWriteLog($logPath, $F1Send)
EndFunc

Func Senden2()
Send($F2Send)
Send("{ENTER}")
_FileWriteLog($logPath, $F2Send)
EndFunc

Func Senden3()
Send($F3Send)
Send("{ENTER}")
_FileWriteLog($logPath, $F3Send)
EndFunc

Func Senden4()
Send($F4Send)
Send("{ENTER}")
_FileWriteLog($logPath, $F4Send)
EndFunc

Func Senden5()
Send($F5Send)
Send("{ENTER}")
_FileWriteLog($logPath, $F5Send)
EndFunc

[/autoit]