|
You last visited: Today at 16:41
Advertisement
Problem mit Macrotool(in Gui)
Discussion on Problem mit Macrotool(in Gui) within the AutoIt forum part of the Coders Den category.
03/07/2011, 17:55
|
#1
|
elite*gold: 59
Join Date: Jun 2010
Posts: 1,945
Received Thanks: 424
|
Problem mit Macrotool(in Gui)
Was ist an dieser Source falsch?
PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
HotKeySet ("{F1}","F1")
HotKeySet ("{F2}","F2")
HotKeySet ("{F3}","F3")
HotKeySet ("{F4}","F4")
HotKeySet ("{F5}","F5")
HotKeySet ("{F6}","F6")
HotKeySet ("{F7}","F7")
HotKeySet ("{F8}","F8")
HotKeySet ("{F9}","F9")
HotKeySet ("{F10}","F10")
HotKeySet ("{F11}","F11")
HotKeySet ("{F12}","F12")
Func F1()
Send ($F1)
EndFunc
Func F2()
Send ($F2)
EndFunc
Func F3()
Send ($F3)
EndFunc
Func F4()
Send ($F4)
EndFunc
Func F5()
Send ($F5)
EndFunc
Func F6()
Send ($F6)
EndFunc
Func F7()
Send ($F7)
EndFunc
Func F8()
Send ($F8)
EndFunc
Func F9()
Send ($F9)
EndFunc
Func F10()
Send ($F10)
EndFunc
Func F11()
Send ($F11)
EndFunc
Func F12()
Send ($F12)
EndFunc
#Region ### START Koda GUI section ### Form=
$MacroTool = GUICreate("MacroTool", 403, 517, 318, 227)
GUISetFont(8, 400, 0, "Comic Sans MS")
GUISetBkColor(0xFF0000)
$Label1 = GUICtrlCreateLabel("MacroTool", 24, 8, 358, 71)
GUICtrlSetFont(-1, 35, 400, 0, "Comic Sans MS")
$F1 = GUICtrlCreateInput("Text für F1", 16, 96, 377, 23)
$F2 = GUICtrlCreateInput("Text für F2", 16, 127, 377, 23)
$F3 = GUICtrlCreateInput("Text für F3", 16, 158, 377, 23)
$F4 = GUICtrlCreateInput("Text für F4", 16, 189, 377, 23)
$F5 = GUICtrlCreateInput("Text für F5", 16, 220, 377, 23)
$F6 = GUICtrlCreateInput("Text für F6", 16, 251, 377, 23)
$F7 = GUICtrlCreateInput("Text für F7", 16, 282, 377, 23)
$F8 = GUICtrlCreateInput("Text für F8", 16, 313, 377, 23)
$F9 = GUICtrlCreateInput("Text für F9", 16, 343, 377, 23)
$F10 = GUICtrlCreateInput("Text für F10", 16, 375, 377, 23)
$F11 = GUICtrlCreateInput("Text für F11", 16, 406, 377, 23)
$F12 = GUICtrlCreateInput("Text für F12", 16, 437, 377, 23)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
|
|
|
03/07/2011, 18:03
|
#2
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
Wie wärs, wenn du angibst WAS nicht geht?
|
|
|
03/07/2011, 18:05
|
#3
|
elite*gold: 59
Join Date: Jun 2010
Posts: 1,945
Received Thanks: 424
|
Wenn ich nun zB. beim Editor F1 drücke kommt eine:4 raus. Bei F2 eine:5. Bei F3 eine:6 und die ganze Zahlenreihe weiter.. bis F12. Bei F12 kommt Nix
|
|
|
03/07/2011, 18:18
|
#4
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
Schau dir mal in der Hilfe "GUICtrlRead" an.
|
|
|
03/07/2011, 18:26
|
#5
|
elite*gold: 59
Join Date: Jun 2010
Posts: 1,945
Received Thanks: 424
|
Quote:
Originally Posted by PenGuin :O
Schau dir mal in der Hilfe "GUICtrlRead" an.
|
Danke es hat geklappt, aber nun noch eine Frage.. zB. wenn ich das jetzt machen will das man mit einer Checkbox wählen darf ob nun mit Enter oder ohne wie macht man es dann? ich habe es so gemacht, aber so klappt es nicht.(Ich hab das zum gucken nur mit F1 gemacht)
Script:
PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
HotKeySet ("{F1}","F1")
HotKeySet ("{F2}","F2")
HotKeySet ("{F3}","F3")
HotKeySet ("{F4}","F4")
HotKeySet ("{F5}","F5")
HotKeySet ("{F6}","F6")
HotKeySet ("{F7}","F7")
HotKeySet ("{F8}","F8")
HotKeySet ("{F9}","F9")
HotKeySet ("{F10}","F10")
HotKeySet ("{F11}","F11")
Func F1()
$1 = GUICtrlRead ($F1)
Send ($1)
If $Checkbox1 = 1 Then
Send ("{Enter}")
ElseIf $Checkbox1 = 0 Then
Sleep (1)
EndIf
EndFunc
Func F2()
$2 = GUICtrlRead ($F2)
Send ($2)
EndFunc
Func F3()
$3 = GUICtrlRead ($F3)
Send ($3)
EndFunc
Func F4()
$4 = GUICtrlRead ($F4)
Send ($4)
EndFunc
Func F5()
$5 = GUICtrlRead ($F5)
Send ($5)
EndFunc
Func F6()
$6 = GUICtrlRead ($F6)
Send ($6)
EndFunc
Func F7()
$7 = GUICtrlRead ($F7)
Send ($7)
EndFunc
Func F8()
$8 = GUICtrlRead ($F8)
Send ($8)
EndFunc
Func F9()
$9 = GUICtrlRead ($F9)
Send ($9)
EndFunc
Func F10()
$10 = GUICtrlRead ($F10)
Send ($10)
EndFunc
Func F11()
$11 = GUICtrlRead ($F11)
Send ($11)
EndFunc
#Region ### START Koda GUI section ### Form=
$MacroTool = GUICreate("MacroTool", 477, 478, 318, 227)
GUISetFont(8, 400, 0, "Comic Sans MS")
GUISetBkColor(0xFF0000)
$Label1 = GUICtrlCreateLabel("MacroTool", 24, 8, 358, 71)
GUICtrlSetFont(-1, 35, 400, 0, "Comic Sans MS")
$F1 = GUICtrlCreateInput("Text für F1", 16, 96, 377, 23)
$F2 = GUICtrlCreateInput("Text für F2", 16, 127, 377, 23)
$F3 = GUICtrlCreateInput("Text für F3", 16, 158, 377, 23)
$F4 = GUICtrlCreateInput("Text für F4", 16, 189, 377, 23)
$F5 = GUICtrlCreateInput("Text für F5", 16, 220, 377, 23)
$F6 = GUICtrlCreateInput("Text für F6", 16, 251, 377, 23)
$F7 = GUICtrlCreateInput("Text für F7", 16, 282, 377, 23)
$F8 = GUICtrlCreateInput("Text für F8", 16, 313, 377, 23)
$F9 = GUICtrlCreateInput("Text für F9", 16, 343, 377, 23)
$F10 = GUICtrlCreateInput("Text für F10", 16, 375, 377, 23)
$F11 = GUICtrlCreateInput("Text für F11", 16, 406, 377, 23)
$Checkbox1 = GUICtrlCreateCheckbox("Mit Enter", 400, 96, 73, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
|
|
|
03/07/2011, 19:10
|
#6
|
elite*gold: 0
Join Date: Feb 2010
Posts: 344
Received Thanks: 151
|
$Checkbox1 ist ja die ID von der Checkbox, deswegen kann das ja nicht stimmen.
Wenn GUIGetMsg die ID der Checkbox zurückgibt, wurde dort entweder ein Haken gesetzt oder der Haken entfernt.
Dafür musst du eine Variable, die den Status zeigt, erstellen.
Du könntest theoretisch auch einfach in das Eingabefeld {Enter} an das Ende setzen.
|
|
|
 |
Similar Threads
|
[Hilfe]Ungelöstes Server Erstell Problem, ausführliche Problem Schilderung
09/15/2011 - Flyff Private Server - 8 Replies
Hey Com!
Ich hoffe, dass dieser Thread nicht als Spamthread angesehen wird, da ich ja gestern schon einen zu diesem Thema eröffnet habe.
Sorry wenn ich euch mit dem Thema nerve, aber ich sitze nun schon 4 Tage über dem Problem, und finde einfach keine Lösung.
Nun werde ich hier allerdings eine ausführlichere Beschreibung des Problems geben.
Mein Problem ist, dass ich den Windows Mssql Server 2008/2005 aus Sedrika's TuT nicht installieren kann, da sobald ich ihn immer installiere...
|
[Frage] Wie Macrotool zum Funkzen bringen?
12/14/2010 - Metin2 - 6 Replies
Hi.
habe frühr immer mit Macro tool gespammt etc.
Doch jetzt gehts ja nicht mehr wegen HS.
Wie kann ich das umgehen / machen das ich mit Macrotool Spammen kann?
|
[Problem] Problem with server starting - cannot find quest index for PaxHeader
12/22/2009 - Metin2 Private Server - 1 Replies
Hello!
I have this same problem as here when i'm starting my server:
http://www.elitepvpers.com/forum/metin2-pserver-di scussions-questions/307143-metin2-serverfiles-ques t-index-fehler.html
But I didn't know the answer.. how to repair this?
Greetings
|
All times are GMT +1. The time now is 16:42.
|
|