[Problem] Pętla

[ruxer100]

Witam. Mam problem z pętlą. Otóż stworzyłem program który otwiera czat w grze i wpisuje tekst z inputa. Wszystko jest OK podany tekst do inputa przepisuje się do gry lecz przy wykonywaniu tej samej czynności już drugi raz to wpisuje do czatu "0" zamiast tekstu. Help!!!

 

 

#include <ImageSearch.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$M2Answer = GUICreate("M2Answer", 520, 84, 192, 124)
$Tresc = GUICtrlCreateLabel("Tresc", 208, 16, 31, 17)
$Wiadomosci = GUICtrlCreateLabel("Wiadomosci", 240, 16, 62, 17)
$Input1 = GUICtrlCreateInput("", 16, 32, 473, 21)
$F8 = GUICtrlCreateLabel("F8", 152, 64, 24, 17)
$START = GUICtrlCreateLabel("START", 168, 64, 40, 17)
$F9 = GUICtrlCreateLabel("F9", 288, 64, 16, 17)
$EXIT = GUICtrlCreateLabel("EXIT", 304, 64, 28, 17)
GUISetState(@SW_SHOW)

 HotKeySet("{F8}","start")
 HotKeySet("{F9}","quit")
 
 $nMsg = GUIGetMsg()
 
 while 1
	sleep(5000)
 wend
 
func start()
While 1
Global $x, $y
$result = _ImageSearch("obrazki/lol.bmp", 1, $x, $y, 10)
If $result = 1 Then
	MouseClick("left", $x, $y)
	$Input1 = GUICtrlRead($Input1)
	Send($Input1)
	sleep(7000)
	send("{ENTER}")
	sleep(1000)
	$result = _ImageSearch("obrazki/zamknij.bmp", 1, $x, $y, 10)
	MouseClick("left", $x, $y)
 EndIf
 wend
 endfunc
 
 func quit()
	exit 0
	EndFunc

 

[hehe7]

#include <ImageSearch.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

 

$M2Answer = GUICreate("M2Answer", 520, 84, 192, 124)

$Tresc = GUICtrlCreateLabel("Tresc", 208, 16, 31, 17)

$Wiadomosci = GUICtrlCreateLabel("Wiadomosci", 240, 16, 62, 17)

$Input1 = GUICtrlCreateInput("", 16, 32, 473, 21)

$F8 = GUICtrlCreateLabel("F8", 152, 64, 24, 17)

$START = GUICtrlCreateLabel("START", 168, 64, 40, 17)

$F9 = GUICtrlCreateLabel("F9", 288, 64, 16, 17)

$EXIT = GUICtrlCreateLabel("EXIT", 304, 64, 28, 17)

GUISetState(@SW_SHOW)

 

HotKeySet("{F8}","start")

HotKeySet("{F9}","quit")

 

$nMsg = GUIGetMsg()

 

while 1

sleep(5000)

wend

 

func start()

While 1

Global $x, $y

$result = _ImageSearch("obrazki/lol.bmp", 1, $x, $y, 10)

If $result = 1 Then

MouseClick("left", $x, $y)

$Input1 = GUICtrlRead($Input1)

Send($Input1)

sleep(7000)

send("{ENTER}")

sleep(1000)

$result = _ImageSearch("obrazki/zamknij.bmp", 1, $x, $y, 10)

MouseClick("left", $x, $y)

EndIf

wend

endfunc

 

func quit()

exit 0

EndFunc

Wystarczy zmienić nazwe zmiennej którą podkreśliłem.

 

 

 

 

 

 

 

a tak poza tematem

 

$nMsg = GUIGetMsg()

while 1

sleep(5000)

wend

zamień na

 

  While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

ponieważ nie działa Ci wychodzenie z programu.