Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 08:15

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



[HILFE] GuiCtrlRead funst nit

Discussion on [HILFE] GuiCtrlRead funst nit within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Aug 2009
Posts: 57
Received Thanks: 9
[HILFE] GuiCtrlRead funst nit

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
Maggot>< is offline  
Old 09/19/2009, 10:22   #2
 
bassbanane's Avatar
 
elite*gold: 116
Join Date: Oct 2007
Posts: 677
Received Thanks: 248
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
bassbanane is offline  
Thanks
1 User
Old 09/19/2009, 10:22   #3
 
SCORNI's Avatar
 
elite*gold: 26
Join Date: Jun 2009
Posts: 972
Received Thanks: 228
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
SCORNI is offline  
Thanks
1 User
Old 09/19/2009, 10:28   #4
 
bassbanane's Avatar
 
elite*gold: 116
Join Date: Oct 2007
Posts: 677
Received Thanks: 248
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() ;-)
bassbanane is offline  
Old 09/19/2009, 10:37   #5
 
elite*gold: 0
Join Date: Aug 2009
Posts: 57
Received Thanks: 9
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
Maggot>< is offline  
Old 09/19/2009, 10:48   #6
 
bassbanane's Avatar
 
elite*gold: 116
Join Date: Oct 2007
Posts: 677
Received Thanks: 248
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 ^^
bassbanane is offline  
Old 09/19/2009, 10:57   #7
 
elite*gold: 0
Join Date: Aug 2009
Posts: 57
Received Thanks: 9
Also

AdlibEnable( "Sleep", $Input)

????????

und wo genau einbauen ??????

könntest du das beim code einprägen?
Maggot>< is offline  
Old 09/19/2009, 11:16   #8
 
bassbanane's Avatar
 
elite*gold: 116
Join Date: Oct 2007
Posts: 677
Received Thanks: 248
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
bassbanane is offline  
Thanks
1 User
Old 09/19/2009, 12:03   #9
 
elite*gold: 0
Join Date: Aug 2009
Posts: 57
Received Thanks: 9
ok danke funktioniert prima

thx für eure hilfe



closed#
Maggot>< is offline  
Old 09/19/2009, 17:49   #10
 
Shadow992's Avatar
 
elite*gold: 77
Join Date: May 2008
Posts: 5,430
Received Thanks: 5,878
Quote:
Originally Posted by Maggot>< View Post
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* :
Shadow992 is offline  
Old 09/19/2009, 18:10   #11
 
elite*gold: 0
Join Date: Aug 2009
Posts: 57
Received Thanks: 9
ok ich gebe zu das kenne ich nicht werde es mir aber soofrt vornehmen


danke


bin für jede weiterbildung dankbar
Maggot>< is offline  
Reply


Similar Threads Similar Threads
[Schnelle Hilfe]Guictrlread???
04/08/2010 - AutoIt - 2 Replies
Hallo will mal schnell fragen mach grade nen script für mich in SciTe bzw. AutoIt... also wie macht man das nochmal mit send, guictrlread under input? also ich meins so ist falsch ich weiß... (glaub ich) send(Guictrlread=$input1) was hab ich da falsch gemacht?? hatte das mal im kopf doch dann hab ichs vergessen thx für help.
WIESO FUNST GILDENLAND NICHT ?
02/12/2010 - Metin2 Private Server - 1 Replies
ich brauch ma eure hilfe is das alles richtig so ? weil wen ich gildenland besetzen will steht da Dieses Stueck Land wurde bereits gekauft quest guild_building begin state start begin when 20040.click begin say("Grundstuecksverwalter:".. "Ich bin Grundstuecksverwalter und zustaendig fuer".. "den Verkauf von Landflaechen. Bevor die Monster".. "das Land in der Mitte des Kontinents besetzten,".. "hatten wir nicht unter Landknappheit zu leiden".. "und es ging...
GUICtrlRead und WinSetState
12/10/2009 - AutoIt - 6 Replies
Hi, ich hätte da mal eine Frage. Und zwar programmier ich grade ein Programm (Script), das ein beliebiges Programm beendet, minimiert oder maximiert. Mein Code: #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Include <GuiEdit.au3>
Problem mit GUICtrlRead
11/26/2009 - AutoIt - 8 Replies
Wollte hier n Script machen welches ne eingegebene IP bzw Hostnamen pingen kann und auch nen anderen Rechner durchsuchen kann (das ist erstma zweitrangig). Problem ist das das anpingen beim 1. mal funktioniert und beim 2. mal nur 0 gepingt wird. #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=c:\users\hans\desktop\autoit test\lanchecker\w gui\lan checker v01a gui.kxf...



All times are GMT +1. The time now is 08:15.


Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2025 elitepvpers All Rights Reserved.