[HILFE] GuiCtrlRead funst nit

Maggot>< · 09/19/2009, 10:01

Hey,

ich habe ein problem

Code:

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\admin\desktop\autoexpspender.kxf
$Auto = GUICreate("mouwMOUW", 633, 447, 193, 125)
GUISetBkColor(0x000080)
$Input1 = GUICtrlCreateInput("300000", 312, 72, 185, 21)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$dudu = GUICtrlCreateInput("100000", 312, 136, 177, 21)
GUICtrlSetBkColor(-1, 0x808080)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Func Read ()
While 1 
	$dudu = GuiCtrlRead ($dudu)
	$input = GuiCtrlRead($input1)
	
	Sleep (100)
	WEnd 
EndFunc


Hotkeyset ("F7","Terminate")
Hotkeyset ("F6","Start")
Hotkeyset ("F5","Normal")

Normal()

Func Normal()
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Button1
                Start()
            Case $Button2 
                Shellexecute("www.elitepvpers.com")
        EndSwitch
    WEnd
    Sleep(50)
EndFunc

Func Start()
While 1  
Sleep ($Input)
Sleep (100)
Send ($dudu)
Wend 
EndFunc

Func Terminate()
    Exit 0
EndFunc

Hier ist das script........

Also das Problem ist, dass er einmal den Input nimmt also 100000 und dann nimmt er es nicht mehr sondern benutzt 0
wer kann mir helfen ?

MfG Maggot><

Danke für eure Hilfe

bassbanane · 09/19/2009, 10:22

Also ich hab's mal soweit angebessert, dass es funktioniert hat. Also dein Script war irgendwie sehr komisch aber naja. Viel Spaß damit:

Quote:

#include <GUIConstants.au3>

Hotkeyset ("{F7}","Terminate")
Hotkeyset ("{F6}","Start")

#Region ### START Koda GUI section ###
$Auto = GUICreate("mouwMOUW",300, 300, -1, -1)
GUISetBkColor(0x000080)
$button1=GUICtrlCreateButton( "Start", 10, 10, 100, 30)
$button2=GUICtrlCreateButton( "ePvP", 120, 10, 100, 30)
$Input1 = GUICtrlCreateInput("300000", 10, 72, 170, 21)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$dudu = GUICtrlCreateInput("100000", 10, 106, 170, 21)
GUICtrlSetBkColor(-1, 0x808080)
$label=guictrlcreatelabel( "F6 to start"&@crlf&"F7 to terminate", 10, 130, 200, 50)
GUICtrlSetFont( -1, 14)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Start()
Case $Button2
Shellexecute("www.elitepvpers.com")
EndSwitch
WEnd

Func Start()
$sleep=GUICtrlRead( $input1)
$send= GUICtrlRead( $dudu)

While 1
Sleep ($sleep)
Sleep (100)
Send ($send)
Wend
EndFunc

Func Terminate()
Exit 0
EndFunc

SCORNI · 09/19/2009, 10:22

edit:bassbanane warst wohl schneller als ich aber ich lasse meine code auch mal stehen

also wenn man auf start drückt dann sleept er die zeit in der oberen inputbox und sendet das was in der unteren steht.

Code:

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\admin\desktop\autoexpspender.kxf
$Auto = GUICreate("mouwMOUW", 633, 447, 193, 125)
GUISetBkColor(0x000080)
$Input1 = GUICtrlCreateInput("300000", 312, 72, 185, 21)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$dudu = GUICtrlCreateInput("100000", 312, 136, 177, 21)
GUICtrlSetBkColor(-1, 0x808080)
$Button1=guictrlcreatebutton ("start",0,0,70,20)
$Button2=GUICtrlCreateButton ("e*pvp",0,50,70,20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###









Hotkeyset ("F7","Terminate")
Hotkeyset ("F6","Start")
Hotkeyset ("F5","Normal")

Normal()

Func Normal()
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Button1
				
                Start()
            Case $Button2 
                Shellexecute("www.elitepvpers.com")
        EndSwitch
    WEnd
    Sleep(50)
EndFunc

Func Start()
	$dudu = GuiCtrlRead ($dudu)
	$input = GuiCtrlRead($input1)
While 1  
Sleep ($Input)
Sleep (100)
Send ($dudu)
Wend 
EndFunc

Func Terminate()
    Exit 0
EndFunc

bassbanane · 09/19/2009, 10:28

Also ich weiß zwar nicht was du mit deinem Script bewirken willst Maggot>< , aber ich würde veruschen eine andere Lösung als sleep zu benutzen, da dort das ganze Script schläft. Besser wäre z.B. AdLibEnable() ;-)

Maggot>< · 09/19/2009, 10:37

ich danke euch beiden (siehe thx )

aso war der Fehler nur das der GuiCtrlRead befehl nicht in die while schleife durfte?

@bassbanane
ja ich bin newbie im scripten aber bin schon am lernen und versuche immer wieder neues zu finden
(alle tuts durchgelesen)

MfG Maggot><

Theard can be closed

@bas das ist ein exp spender für metin

wie funktioniert das kannst du das leicht erklären?

geht auch per pn

bassbanane · 09/19/2009, 10:48

AdLibEnable() is eigentlich sehr einfach:
Du sagst welche Funktion nach wieviel Millisekunden immer wieder aufgerufen wird:

Quote:

AdlibEnable( "DeineFunktionHier", ZeitInMilliSekunden)

Um das ständige Wiederholen dann abzuschalten:

Quote:

adlibDisable()

Hoffe ich hab's verständlich erklärt ^^

Maggot>< · 09/19/2009, 10:57

Also

AdlibEnable( "Sleep", $Input)

????????

und wo genau einbauen ??????

könntest du das beim code einprägen?

bassbanane · 09/19/2009, 11:16

So, wie es jetzt geschrieben ist, kannst du auch den Text ändern, der immer gesendet wird, ohne das Programm beendet zu müssen ;-) einfach in dem input den Text ändern und beim nächsten senden sendet er den neuen Text.

hier:

Quote:

#include <GUIConstants.au3>

Hotkeyset ("{F7}","Terminate")
Hotkeyset ("{F6}","Start")

#Region ### START Koda GUI section ###
$Auto = GUICreate("mouwMOUW",300, 300, -1, -1)
GUISetBkColor(0x000080)
$button1=GUICtrlCreateButton( "Start", 10, 10, 100, 30)
$button2=GUICtrlCreateButton( "ePvP", 120, 10, 100, 30)
$Input1 = GUICtrlCreateInput("300000", 10, 72, 170, 21)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$dudu = GUICtrlCreateInput("100000", 10, 106, 170, 21)
GUICtrlSetBkColor(-1, 0x808080)
$label=guictrlcreatelabel( "F6 to start"&@crlf&"F7 to terminate", 10, 130, 200, 50)
GUICtrlSetFont( -1, 14)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Start()
Case $Button2
Shellexecute("www.elitepvpers.com")
EndSwitch
WEnd

Func Start()
$sleep=GUICtrlRead( $input1)
adlibenable( "_send", $sleep)

EndFunc

Func Terminate()
Exit 0
EndFunc

func _send()
Sleep (100)
Send (Guictrlread($dudu))
EndFunc

Maggot>< · 09/19/2009, 12:03

ok danke

funktioniert prima

thx für eure hilfe

closed#

Shadow992 · 09/19/2009, 17:49

Quote:

Originally Posted by Maggot><

ich danke euch beiden (siehe thx )

aso war der Fehler nur das der GuiCtrlRead befehl nicht in die while schleife durfte?

@bassbanane
ja ich bin newbie im scripten aber bin schon am lernen und versuche immer wieder neues zu finden
(alle tuts durchgelesen)

MfG Maggot><

Theard can be closed

@bas das ist ein exp spender für metin

wie funktioniert das kannst du das leicht erklären?

geht auch per pn

Alle Tuts ? sicher ?
Es gibt ein Tutorial , das du sicher noch nicht gesehen hast (sonst hättest nicht mit Adlibenable gefragt)*Bisschen Werbung mach* :

Maggot>< · 09/19/2009, 18:10

ok ich gebe zu das kenne ich nicht werde es mir aber soofrt vornehmen

danke

bin für jede weiterbildung dankbar