Komutları Tekrarlatma

[vandan2]

[b]Merhaba,

Mesela bir programımız var şuraya bas şunu yap şunu yaz gibi. Çalıştıra basıyoruz program çalışıyor ama işlemi 1 kez yapıyor. Bunu Nasıl sürekli tekrarlatıcağız ? Yani repeat komutu falan var mı ? Yardım ederseniz sevinirim.

Teşekkürler.[/b]

[vandan2]

[b]Arkadaşlar flood olucak üzgünüm ama gerçekten acil bu bilgiye ihtiyacım var. Lütfen bilen kişiler yardımı esirgemesin. [/b]

[vatan71]

Ne Yapacaksın Onu Bilmemiz Lazım..

[asmazh]

@vandan2
Tam olarak ne yapacağını anlamadım ama sana şöyle basit bir örnek verebilirim;
while 1
msgbox(0,"dikkat","bu mesaj while içinde olduğu için durmadan tekrarlanır.",2)
wend

Edited July 23, 2011 by asmazh

[vandan2]

Yok arkadaşlar mesela şu şekilde. Kodlarım var şuraya tıkla şunu yaz falan filan. bunları yaptıktan sonra tekrardan yapmasını istiyorum. mesela notepadi açıp asdasdsad yazıyor bitiriyor. ben tekrardan notepadi açıp asdsadas yazmasını istiyorum bunun gibi.

Kodlar burada :
[code]While 1

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
MouseClick ("left",718,465)
MouseWheel("down", 4)
MouseClick ( "left",726,800)

Send("merhaba dünya ")
MouseWheel("down", 1)
MouseClick ( "left",285,840)
Sleep(3000)




Case $Button2
MsgBox (0, "Kodlayan" , "Bu program benim tarafından kodlanmıştır")
Exit

Case $Label1
EndSwitch
WEnd
[/code]

Case $Button1
MouseClick ("left",718,465)
MouseWheel("down", 4)
MouseClick ( "left",726,800)

Send("merhaba dünya ")
MouseWheel("down", 1)
MouseClick ( "left",285,840)
Sleep(3000)

bu kısmın sürekli tekrarlanmasını istiyorum mesela. sleepde 3 sn durucak sonra tekrardan mouse click whell click send tekrar bekle sonra yine başa dön bu şekilde...

Edited July 23, 2011 by vandan2

[asmazh]

Şöyle yapabilirsin:
case $button1
global $start = 1
while içine şunu at:
if $start= 1 then
;durmadan tekrarlanmasını istediğin işlemi yaz
endif

[vandan2]

şu şekilde yaptım ama olmadı :

case $button1
global $start = 1


While 1
if $start= 1 then

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
MouseClick ("left",718,465)
MouseWheel("down", 4)
MouseClick ( "left",726,800)

Send("selam dünya")
MouseWheel("down", 1)
MouseClick ( "left",285,840)
Sleep(3000)
EndIf



Case $Button2
MsgBox (0, "Kodlayan" , "Bu program ben tarafından kodlanmıştır")
Exit

Case $Label1
EndSwitch
WEnd

[blue_life]

@vandan2

Komutlarınızı forumda verirken, çalışabilecek durumda olmalarına özen gösteriniz!
Aşağıdaki gibi bir şey mi istiyorsun?

[codebox]Global $ISLEM = False
Opt("GUIOnEventMode", 1)

Global $Form1 = GUICreate("Form1", 300, 200, 0, 0)
GUISetOnEvent(-3, "Form1Close")
Global $Baslat_Durdur = GUICtrlCreateButton("Baslat", 10, 140, 120, 25)
GUICtrlSetOnEvent(-1, "_Baslat_Durdur")
Global $Button2 = GUICtrlCreateButton("Hakkında", 140, 140, 120, 25)
GUICtrlSetOnEvent(-1, "_About")

GUISetState(@SW_SHOW)

While 1
If $ISLEM = True Then
MouseClick("left", 718, 465)
MouseWheel("down", 4)
MouseClick("left", 726, 800)
Send("merhaba dünya ")
MouseWheel("down", 1)
MouseClick("left", 285, 840)
Sleep(3000)
Else
Sleep(100)
EndIf
WEnd

Func _Baslat_Durdur()
If $ISLEM = True Then
GUICtrlSetData($Baslat_Durdur, "Başlat")
Else
GUICtrlSetData($Baslat_Durdur, "Durdur")
EndIf
$ISLEM = Not $ISLEM
EndFunc ;==>_Baslat_Durdur

Func _Durdur()
$ISLEM = False
EndFunc ;==>_Durdur

Func _About()
MsgBox(0, "Kodlayan", "Bu program benim tarafından kodlanmıştır", 0, $Form1)
EndFunc ;==>_About

Func Form1Close()
Exit
EndFunc ;==>Form1Close[/codebox]

Edited July 23, 2011 by blue_life

[asmazh]

Olmaz çünkü yanlış yapmışsın.
While 1

if $start = 1 then
MouseClick ("left",718,465)
MouseWheel("down", 4)
MouseClick ( "left",726,800)
Send("selam dünya")
MouseWheel("down", 1)
MouseClick ( "left",285,840)
Sleep(3000)
EndIf

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1

global $start = 1
Case $Button2
MsgBox (0, "Kodlayan" , "Bu
program ben tarafından
kodlanmıştır")
Exit
Case $Label1
EndSwitch
WEnd

[vandan2]

blue life aynı yaptığın gibi ama sen ayrı bir form üzerinde yapmışsın. basınca 2 tane form açılıyor senin yaptığın çalışıyor. acaba benimkini düzeltebilir misin ? yani yaptığını benim forma geçirebilir misin ? başlata basınca kapat olmasın 2 ayrı tuş olsun yani. kapata basınca hakkımda kısmı çıksın. Aslında benim yapmak istediğim tek şey komutların kendini tekrarlamasıydı bu kadar zor olucağını hiç düşünmemiştim

[blue_life]

@vandan2

Kodlarını verirsen, senin guine göre bir kaç dakikada ayarlayabilirim...

[vandan2]

Arkadaşlar biraz geç oldu sanırım ama sorun çözüldü Yardımlarınız için teşekkür ederim .