vandan2 Posted July 23, 2011 Share Posted July 23, 2011 [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] Quote Link to comment Share on other sites More sharing options...
vandan2 Posted July 23, 2011 Author Share Posted July 23, 2011 [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] Quote Link to comment Share on other sites More sharing options...
vatan71 Posted July 23, 2011 Share Posted July 23, 2011 Ne Yapacaksın Onu Bilmemiz Lazım.. Quote Link to comment Share on other sites More sharing options...
asmazh Posted July 23, 2011 Share Posted July 23, 2011 (edited) @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 Quote Link to comment Share on other sites More sharing options...
vandan2 Posted July 23, 2011 Author Share Posted July 23, 2011 (edited) 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 Quote Link to comment Share on other sites More sharing options...
asmazh Posted July 23, 2011 Share Posted July 23, 2011 Şö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 Quote Link to comment Share on other sites More sharing options...
vandan2 Posted July 23, 2011 Author Share Posted July 23, 2011 ş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 Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 23, 2011 Share Posted July 23, 2011 (edited) @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 Quote Link to comment Share on other sites More sharing options...
asmazh Posted July 23, 2011 Share Posted July 23, 2011 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 Quote Link to comment Share on other sites More sharing options...
vandan2 Posted July 23, 2011 Author Share Posted July 23, 2011 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 Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 23, 2011 Share Posted July 23, 2011 @vandan2 Kodlarını verirsen, senin guine göre bir kaç dakikada ayarlayabilirim... Quote Link to comment Share on other sites More sharing options...
vandan2 Posted July 24, 2011 Author Share Posted July 24, 2011 Arkadaşlar biraz geç oldu sanırım ama sorun çözüldü Yardımlarınız için teşekkür ederim . Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.