if coś tam, dostaniesz naj, wbij (łatwe)

Ozzzj · 7 Sierpnia 2015

No ten tego, mam problem dość łatwy ale nigdy nie używałem tej funkcji więc nie wiem.

Mamy $iile które czyta z pliku txt, w pliku mam zapisaną liczbę powtórzeń.

Kod:

MouseMove($sxx,$syy)
			MouseClick("")
			Send("{ENTER down}")
			Sleep(123)
			Send("{ENTER up}")
			Sleep(6000)
			Send("{ENTER down}")
			Sleep(123)
			Send("{ENTER up}")
			Sleep(120000)
			Send("{ENTER down}")
			Sleep(123)
			Send("{ENTER up}")
			Sleep(65000)
			Send("{ENTER down}")
			Sleep(123)
			Send("{ENTER up}")
			Sleep(2000)
			Send("{ENTER down}")
			Sleep(123)
			Send("{ENTER up}")

Co zrobić by ładnie mi się to powtarzało określoną ilość, która została podana w txt?

Próbowałem te if $liczbazero > $iile then bla bla ale nic mi z tego nie wychodziło.

Pierwsza prawidłowa odpowiedz dostanie naj, a inne przydatne like. :P

Phoenix_PL · 7 Sierpnia 2015

Odczytaj z pliku np. linijka po linijce, zapisz w tablicy, użyj pętli.

Hans Kloss PL · 7 Sierpnia 2015

While $iile > 0

MouseMove($sxx,$syy)

MouseClick("")

Send("{ENTER down}")

Sleep(123)

Send("{ENTER up}")

Sleep(6000)

Send("{ENTER down}")

Sleep(123)

Send("{ENTER up}")

Sleep(120000)

Send("{ENTER down}")

Sleep(123)

Send("{ENTER up}")

Sleep(65000)

Send("{ENTER down}")

Sleep(123)

Send("{ENTER up}")

Sleep(2000)

Send("{ENTER down}")

Sleep(123)

Send("{ENTER up}")

$iile -= 1

Wend

Ozzzj · 7 Sierpnia 2015

While $iile > 0
    MouseMove($sxx,$syy)
    MouseClick("")
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(6000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(120000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(65000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(2000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    $iile -= 1
Wend

Da się zapisać to jakoś innaczej w func?

Hans Kloss PL · 7 Sierpnia 2015

Tak:

Func ZrobCos($i, $x, $y)
    While $i > 0
        MouseMove($x,$y)
        MouseClick("")
        Send("{ENTER down}")
        Sleep(123)
        Send("{ENTER up}")
        Sleep(6000)
        Send("{ENTER down}")
        Sleep(123)
        Send("{ENTER up}")
        Sleep(120000)
        Send("{ENTER down}")
        Sleep(123)
        Send("{ENTER up}")
        Sleep(65000)
        Send("{ENTER down}")
        Sleep(123)
        Send("{ENTER up}")
        Sleep(2000)
        Send("{ENTER down}")
        Sleep(123)
        Send("{ENTER up}")
        $i -= 1
    Wend   
EndFunc

ZrobCos($iile, $sxx, $syy)

Lub tak:

Func ZrobCos($x, $y)
    MouseMove($x,$y)
    MouseClick("")
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(6000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(120000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(65000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(2000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
EndFunc

While $iile > 0
    ZrobCos($sxx, $syy)
    $iile -= 1
Wend

Zależy o co Ci chodziło.

Ozzzj · 8 Sierpnia 2015

Tak:

Func ZrobCos($i, $x, $y)
    While $i > 0
        MouseMove($x,$y)
        MouseClick("")
        Send("{ENTER down}")
        Sleep(123)
        Send("{ENTER up}")
        Sleep(6000)
        Send("{ENTER down}")
        Sleep(123)
        Send("{ENTER up}")
        Sleep(120000)
        Send("{ENTER down}")
        Sleep(123)
        Send("{ENTER up}")
        Sleep(65000)
        Send("{ENTER down}")
        Sleep(123)
        Send("{ENTER up}")
        Sleep(2000)
        Send("{ENTER down}")
        Sleep(123)
        Send("{ENTER up}")
        $i -= 1
    Wend   
EndFunc

ZrobCos($iile, $sxx, $syy)

Lub tak:

Func ZrobCos($x, $y)
    MouseMove($x,$y)
    MouseClick("")
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(6000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(120000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(65000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(2000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
EndFunc

While $iile > 0
    ZrobCos($sxx, $syy)
    $iile -= 1
Wend

Zależy o co Ci chodziło.

Wszystko pięknie działa, tylko że mam błąd bo mousemove idzie na lewy górny ekran.

I pytanie, co nie działa tym razem? :P

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $sstart
		  $opcje = FileOpen ( "Options.inf", 2 )
			FileWriteLine($opcje,GUICtrlRead($sx))
			FileWriteLine($opcje,GUICtrlRead($sy))
			FileWriteLine($opcje,GUICtrlRead($sile))
			Sleep(3000)
		Local $x = FileReadLine($opcje,1)
		Local $y = FileReadLine($opcje,2)
                Local $i = FileReadLine($opcje,3)
            ZrobCos($x, $y)
....
	EndSwitch
 WEnd

Func ZrobCos($x, $y)
    MouseMove($x,$y)
    MouseClick("")
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(6000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(120000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(65000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(2000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
 EndFunc

 While $i > 0
    ZrobCos($x, $y)
    $i -= 1
Wend

Hans Kloss PL · 8 Sierpnia 2015

Nie wiem co tam tworzysz, ale pewnie chcesz poruszać myszą w ramach jakiegoś okna, musisz przezstawić tryb (wstaw na początku pliku):

Opt("MouseCoordMode", 2) ; 2 - obszar roboczy okna, 1 - cały pulpit, 0 - okno wraz z ramką

Ozzzj · 8 Sierpnia 2015

Nie wiem co tam tworzysz, ale pewnie chcesz poruszać myszą w ramach jakiegoś okna, musisz przezstawić tryb (wstaw na początku pliku):
Opt("MouseCoordMode", 2) ; 2 - obszar roboczy okna, 1 - cały pulpit, 0 - okno wraz z ramką

Nie, nie, nie. Dodałem to do kodu, opcja 1 jako pulpit i nie działa.

Master Flow · 8 Sierpnia 2015

Jeśli idzie do lewego rogu to znaczy, że $x i $y równe są 0.

IZZER4 · 8 Sierpnia 2015

To wstaw caly kod bo skad mozna wiedziec co wczesniej tam pisales.

Jeśli idzie do lewego rogu to znaczy, że $x i $y równe są 0.

Oznacza to ze zmienna zwraca pusty wynik, czylo "".

Daj pelna sciezke do pliku, oraz nie jestem pewien czy filereadline odczytuje taki format.

Ozzzj · 9 Sierpnia 2015

To wstaw caly kod bo skad mozna wiedziec co wczesniej tam pisales.

Oznacza to ze zmienna zwraca pusty wynik, czylo "".

Daj pelna sciezke do pliku, oraz nie jestem pewien czy filereadline odczytuje taki format.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <FileConstants.au3>
Opt("MouseCoordMode", 1) ; 2 - obszar roboczy okna, 1 - cały pulpit, 0 - okno wraz z ramką

.......

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $sstart
		  $opcje = FileOpen ( "Options.inf", 2 )
			FileWriteLine($opcje,GUICtrlRead($sx))
			FileWriteLine($opcje,GUICtrlRead($sy))
			FileWriteLine($opcje,GUICtrlRead($sile))
			Sleep(3000)
		Local $x = FileReadLine($opcje,1)
		Local $y = FileReadLine($opcje,2)
         Local $i = FileReadLine($opcje,3)
            ZrobCos($x, $y)

		.....
	EndSwitch
 WEnd

Func ZrobCos($x, $y)
    MouseMove($x,$y)
    MouseClick("")
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(6000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(120000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(65000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(2000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
 EndFunc

 While $i > 0
    ZrobCos($x, $y)
    $i -= 1
Wend

IZZER4 · 9 Sierpnia 2015

Caly kod to jednak caly kod.

Nie zmieniles nic z tego co ci pisalem, dodatkowo autoit nie jest wielowatkowy wiec program wykona tylko raz czynnosc po kliknieciu start.

Ozzzj · 9 Sierpnia 2015

Caly kod to jednak caly kod.

Nie zmieniles nic z tego co ci pisalem, dodatkowo autoit nie jest wielowatkowy wiec program wykona tylko raz czynnosc po kliknieciu start.

Nie dalem pelnej sciezki bo program nie jest dla mnie.

Tutaj masz cały kod :P

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <FileConstants.au3>
Opt("MouseCoordMode", 1) ; 2 - obszar roboczy okna, 1 - cały pulpit, 0 - okno wraz z ramką

$GUI = GUICreate("Training BOT / Hero Zero", 433, 281, 306, 162, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
GUISetIcon("ico.ICO", -1)
$background = GUICtrlCreatePic("t.bmp", 0, 0, 450, 450, 0)
$Sila = GUICtrlCreateGroup("Strength", 225, 20, 185, 105)
GUICtrlSetFont(-1, 8, 400, 0, "@ Fan Heiti Std B")
GUICtrlSetColor(-1, 0x000000)
$sx = GUICtrlCreateInput("X", 230, 50, 56, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$sy = GUICtrlCreateInput("Y", 295, 50, 56, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$sstart = GUICtrlCreateButton("Start", 365, 100, 40, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
$sile = GUICtrlCreateInput("10", 230, 90, 56, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$scorrds = GUICtrlCreateLabel("Corrds of Image", 235, 35, 83, 13)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$showmuch = GUICtrlCreateLabel("How many Training", 235, 75, 103, 13)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$SGET = GUICtrlCreateButton("GET", 355, 50, 35, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Inteligencja = GUICtrlCreateGroup("Intelligence", 20, 145, 185, 105)
GUICtrlSetFont(-1, 8, 400, 0, "@ Fan Heiti Std B")
GUICtrlSetColor(-1, 0x000000)
$ix = GUICtrlCreateInput("X", 25, 175, 56, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$iy = GUICtrlCreateInput("Y", 90, 175, 56, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$istart = GUICtrlCreateButton("Start", 160, 225, 40, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
$iile = GUICtrlCreateInput("10", 25, 215, 56, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$isorrds = GUICtrlCreateLabel("Corrds of Image", 30, 160, 83, 13)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$ihowmuch = GUICtrlCreateLabel("How many Training", 30, 200, 103, 13)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$IGET = GUICtrlCreateButton("GET", 150, 175, 35, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Intuicja = GUICtrlCreateGroup("Intuition", 225, 145, 185, 105)
GUICtrlSetFont(-1, 8, 400, 0, "@ Fan Heiti Std B")
GUICtrlSetColor(-1, 0x000000)
$intx = GUICtrlCreateInput("X", 230, 175, 56, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$inty = GUICtrlCreateInput("Y", 295, 175, 56, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$intstart = GUICtrlCreateButton("Start", 365, 225, 40, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
$intile = GUICtrlCreateInput("10", 230, 215, 56, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$intcorrds = GUICtrlCreateLabel("Corrds of Image", 235, 160, 83, 13)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$inthowmuch = GUICtrlCreateLabel("How many Training", 235, 200, 103, 13)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$INTGET = GUICtrlCreateButton("GET", 355, 175, 35, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Kondycja = GUICtrlCreateGroup("Condition", 20, 20, 185, 105)
GUICtrlSetFont(-1, 8, 400, 0, "@ Fan Heiti Std B")
GUICtrlSetColor(-1, 0x000000)
$kx = GUICtrlCreateInput("X", 25, 50, 56, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$ky = GUICtrlCreateInput("Y", 90, 50, 56, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$kstart = GUICtrlCreateButton("Start", 160, 100, 40, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
$kile = GUICtrlCreateInput("10", 25, 90, 56, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$kcorrds = GUICtrlCreateLabel("Corrds of Image", 30, 35, 83, 13)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$khowmuch = GUICtrlCreateLabel("How many Training", 30, 75, 103, 13)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$KGET = GUICtrlCreateButton("GET", 150, 50, 35, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$help = GUICtrlCreateButton("?", 390, 255, 20, 20)
GUICtrlSetFont(-1, 8, 400, 0, "@ Fan Heiti Std B")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
$programmer = GUICtrlCreateButton("Programmer", 315, 255, 70, 20)
GUICtrlSetFont(-1, 8, 400, 0, "@ Fan Heiti Std B")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $sstart
		  $opcje = FileOpen ( "Options.inf", 2 )
			FileWriteLine($opcje,GUICtrlRead($sx))
			FileWriteLine($opcje,GUICtrlRead($sy))
			FileWriteLine($opcje,GUICtrlRead($sile))
			Sleep(3000)
		Local $x = FileReadLine($opcje,1)
		Local $y = FileReadLine($opcje,2)
         Local $i = FileReadLine($opcje,3)
            ZrobCos($x, $y)
		 Case $SGET
			MsgBox(0,"Warning!","EN: Move the cursor on the image training, and wait 5 seconds for the MsgBox to the cords. Click ok for start time. PL: Przesuń kursor na obrazek treningu i poczekaj 5 sekund na pojawienie się MsgBox z corrdami. Kliknij ok jeśli jesteś gotowy.")
			Sleep(5000)
			Local $aPos = MouseGetPos()
            MsgBox($MB_SYSTEMMODAL, "Mouse x, y:", $aPos[0] & ", " & $aPos[1] & " Paste corrd in input's / Wklej korrdy w inputy")
		 Case $istart
			$opcje = FileOpen ( "Options.inf", 2 )
			FileWriteLine($opcje,GUICtrlRead($ix))
			FileWriteLine($opcje,GUICtrlRead($iy))
			FileWriteLine($opcje,GUICtrlRead($iile))

		 Case $IGET
			MsgBox(0,"Warning!","EN: Move the cursor on the image training, and wait 5 seconds for the MsgBox to the cords. Click ok for start time. PL: Przesuń kursor na obrazek treningu i poczekaj 5 sekund na pojawienie się MsgBox z corrdami. Kliknij ok jeśli jesteś gotowy.")
			Sleep(5000)
			Local $aPos = MouseGetPos()
            MsgBox($MB_SYSTEMMODAL, "Mouse x, y:", $aPos[0] & ", " & $aPos[1] & " Paste corrd in input's / Wklej korrdy w inputy")
		Case $intstart
			$opcje = FileOpen ( "Options.inf", 2 )
			FileWriteLine($opcje,GUICtrlRead($intx))
			FileWriteLine($opcje,GUICtrlRead($inty))
			FileWriteLine($opcje,GUICtrlRead($intile))

		 Case $INTGET
			MsgBox(0,"Warning!","EN: Move the cursor on the image training, and wait 5 seconds for the MsgBox to the cords. Click ok for start time. PL: Przesuń kursor na obrazek treningu i poczekaj 5 sekund na pojawienie się MsgBox z corrdami. Kliknij ok jeśli jesteś gotowy.")
			Sleep(5000)
			Local $aPos = MouseGetPos()
            MsgBox($MB_SYSTEMMODAL, "Mouse x, y:", $aPos[0] & ", " & $aPos[1] & " Paste corrd in input's / Wklej korrdy w inputy")
		 Case $kstart
			$opcje = FileOpen ( "Options.inf", 2 )
			FileWriteLine($opcje,GUICtrlRead($kx))
			FileWriteLine($opcje,GUICtrlRead($ky))

		 Case $KGET
			MsgBox(0,"Warning!","EN: Move the cursor on the image training, and wait 5 seconds for the MsgBox to the cords. Click ok for start time. PL: Przesuń kursor na obrazek treningu i poczekaj 5 sekund na pojawienie się MsgBox z corrdami. Kliknij ok jeśli jesteś gotowy.")
			Sleep(5000)
			Local $aPos = MouseGetPos()
            MsgBox($MB_SYSTEMMODAL, "Mouse x, y:", $aPos[0] & ", " & $aPos[1] & " Paste corrd in input's / Wklej korrdy w inputy")
		Case $help
		   MsgBox(0,"Help","EN: Pick get button, and move to image training. Waint for MsgBox and copy corrds, paste corrds in input x and y and pick start. PL: Kliknij przycisk GET i przesuń myszkę na obrazek treningu. Czekaj na MsgBox i kopiuj korrdy, wklej kordy w inpucie x oraz y i kliknij start.")
		Case $programmer
		   MsgBox(0,"Programmer","Oskar Smoliński")
	EndSwitch
 WEnd

Func ZrobCos($x, $y)
    MouseMove($x,$y)
    MouseClick("")
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(6000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(120000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(65000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
    Sleep(2000)
    Send("{ENTER down}")
    Sleep(123)
    Send("{ENTER up}")
 EndFunc

 While $i > 0
    ZrobCos($x, $y)
    $i -= 1
Wend

Hans Kloss PL · 10 Sierpnia 2015

Wrzuciłbyś jeszcze przykładową zawartość pliku Options.inf

Edit: Ok juz mam - plik sie sam tworzy.

IZZER4 · 10 Sierpnia 2015

Musisz podac pelna sciezke bezposrednio w filereadline, wtedy na 100% bedzie dzialac.

Tak jak wczesniej wspominalem, funckcja ZrobCos wykona sie tylko jeden raz.

Hans Kloss PL · 10 Sierpnia 2015

Czemu miałaby wykonać się tylko raz? Czegoś nie widzę?

IZZER4 · 10 Sierpnia 2015

Bo przeciez petla jest poza glowna petla programu. Dopoki nie zamknie petli od gui to nastepna sie nie wykona.

Zeby to dzialalo petle trzeba umiescic w funkcji ZrobCos.

Dodatkowo pozycje powinno sie odczytywac bezposrednio z inputa, to zapisywanie i odczytywanie jest calkowicie bez sensu, po co zapisywac skoro przy uruchomieniu i tak wyczysci nam plik??

Kolejna rzecz to kopiowanie kordow z msgboxa... Nie lepiej wpisywac je bezposrednio w inputa, a zatrzymanie wyszukiwania dac pod jakis klawisz albo np klikniecie lewego przycisku myszki?

Hans Kloss PL · 10 Sierpnia 2015

A jasne - powinien użyć mojego pierwszego przykładu z pętlą w funkcji.

Ozzzj · 11 Sierpnia 2015

A jasne - powinien użyć mojego pierwszego przykładu z pętlą w funkcji.

Ale ścieżka może wyglądać tak? ("HZ-TRAINING/OPTIONS.INF") ?

Czy musze dodawać jeszcze dysk?

A no i ta petle na zywca wstawic taka jaka jest, czy wg przykladu innego? bo tamten mi nie działał zbytnio chyba.

IZZER4 · 11 Sierpnia 2015

Jaki problem pobrac lokalizacje skryptu? Wszystko masz pod @.

Ozzzj · 11 Sierpnia 2015

Jaki problem pobrac lokalizacje skryptu? Wszystko masz pod @.

Ja tam mysle poprostu ze petla jest zla, lepiej uzyc:

For $i = 1 To $ile Step +1

....

Zmieniłem fileopen na fileread i wszystko jest ok! :P

Zaloguj się

👋 Witaj na MPCForum!

if coś tam, dostaniesz naj, wbij (łatwe)

Rekomendowane odpowiedzi

Zarchiwizowany