Jump to content

dequeen

Üye
  • Posts

    27
  • Joined

  • Last visited

Recent Profile Visitors

252 profile views

dequeen's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. başlangıçta $renk1 i 0,0 kordinatındaki renk ile varsayılan değer olarak tanımlasın scriptin içerisinde başlangıçta tanımlamış olduğu pxel ve renk halan öyleyse bana not defteri açsın msgbox açsın vs vs yok varsayılan değer ilk açılıştakiyle uyuşmuyosa uyuşana kadar beklesin anlatamadım galiba yapmak istediğim şu flash animasyonu var reflex testi adı aldında scripti açtığımda ekranda değişkenlik gösteren bi kaç pixel var aslında buton ama aynı renk olduğundan pixel ile hal olur tüm butonu taramasına gerek yok istediğim kordinatı o anki hali ile sabitlesin sonra send("{enter}") testi başlatacak ve o sabit renk doğal olarak değişmeye başlıycak ve o başlangıçtaki sabitlenmiş renk blli bi süre sonra yine aynı renk olduğunda bana komut uygulayacka burayı ben hallederim mouse click ile sonra yine bekliycek o renk yine aynı olduğunda yine komut yine komut diye bi döngü yaratacam yani x,y kordinatı budur enter x,y kordinatıdeğişti x,y kordinatı başlangıçtakinle aynı olduysa bunu yap yok değilse x,xy kordinatı eşleşene kadar bekle böyle bi döngü lazım
  2. evet başlıktada dediğim gibi ana form un içinde sekmeler yapmak istiyorum nasıl olacak?
  3. teşekkür ederim işimi hallettim peki script çalıştığı süre zarfında o pencereyi orada sabit tutsun bu mümkünmü vede taşıdığım pencereye kendi istediğim çözünürlüğü verebilirmiyim yani taşıyacağım pencereyi önce 800*600 yapacak ve istediğim x y kordinatına taşıyacak
  4. merhaba herkeze çok oluyo benim sorularım ama ne yapabilirim takılıyorum form un üzerinde bir tuşa yada hotkeyset e atanmış bir tuşa basıldığında örnek veriyorum "Yeni Metin Belgesi - Not Defteri" titleli pencere masa üstünde benim istediğim x y kordinatlarına gelsin soldan 10pixel yukarıdan 10pixel bırakıp pencereyi oraya taşısın bu mümkün lakin nasıl yapılır bir örnek rica ediyorum ben kendime uyarlarım
  5. sorun çözüldü for ve next yerine do until kullandım istediğimi hallettim konu kapanmıştır
  6. yok kardeş böyle değil home basınca güzel bi şekilde açık yazıp form üzerindeki label1 e açık yazıyor sonra input1 de yazan harf sayı neyse artık onu input2 deki zaman aralığında basıyor yani input1 de "deneme" yazarsan input2 yede "2" yazarsan ve home tuşuna basarsan 2sn de bir "deneme" yazıyor buraya kadar herşey normal sorun burda başlıyor bi yere kadar yazıcak neticede durdurmam lazım icab edecek end tuşuna basdığımda ise artık 2 sn de bir yazmaması lazım takii bir daha home tuşuna basana kadar
  7. [codebox]HotKeySet("{home}","_start") Func _start() GUICtrlSetData($Label1,"açık") ToolTip('AÇIK',0,0) Sleep(2000) ToolTip("") For $1 = 1 To 3 Step +1 Send(GUICtrlRead($Input1)) Sleep(1000*Number(GUICtrlRead($Input2))) $1 = 1 Next EndFunc HotKeySet("{end}","_stop") Func _stop() GUICtrlSetData($Label1,"kapalı") ToolTip('KAPALI',0,0) Sleep(2000) ToolTip("") EndFunc[/codebox] elimde böyle bir kod var home tuşuna bastığımda yapılanlar belli ekranda mesaj ile açık yazıyor ve for döngüsü başlıyor fakat stop tuşuna basdığımda for döngüsünü durduramıyorum durdurmak istiyorum olmuyor
  8. ben buldum işlemi yapmak istediğim satıra send değilde controlsend yoluyla yolladım programı küçültsemde arkada başka işlemde yapsam o istediğim işlemi gerçekleştiriyor ama şunu fark ettim controlsend yolaadığında program çalışırken klavyede sorun çıkaıryor tuşlar arasında arkada bişey yaparken ben normal pc mi kullanıyım sanki hep shift e basıyomus gibi sorun çıkıyor bazen dediğin örnek ile bakıcam şimdi Global $Hwnd While 1 $Hwnd = WinGetHandle("[CLASS:Notepad]", "") If $Hwnd <> "" Then ControlSend($Hwnd, "", "Edit1", "{ENTER}") Sleep(1000) WEnd bu verdiğin kodda not defteri aktifken çalışıyor sadece benim istediğim pencere aktif olmasada yazma devam etsin ama klavyede bir sorun çıkmasın ben normal kullanıma devam edeyim offff controlsend kullandığımda ctrl tuşuna basdığımda komut gönderilmiyor shift tuşuna basdığımda ise duruyor neden yahu istediğim program arka planda simge durumunda küçülmüş olan yada arka tarafta kalan not defterine enter basıcak yada yazı yazıcak ama sadece not defterine yazcak ve ben önde bişey yaparken ctrl ye bassam shifte bassam ne yaparsam yapıyım etkilenmiycek benden bagımsız çalışcak zormu ya
  9. merhaba arkadaşlar şimdi ben bir program yazdım diyelim bu program enter a basıcak örnek gerekirse while 1 = 1 send("{enter}") sleep(xxxx) wend arka planda not defterine not defteri ekranda aktif olmasa bile istediğim aralıklarla enter basmasını istiyorum bende rahatlıkla oyun oynarım nette gezerim bu mümkünmü
  10. test tuşu zaten aktif değil şuan program esc ile kapanıyor onu önlemek için test tuşunu exit yaptım basıldığında prog kapanacak evet kodlar uzun ama anlaşılır acemiyim daha teşekkür ederim yorumların için kodlar uzun olsa bi sıkıtn olmaz yani uzun olsun temiz olsun for döngüsünü araştırıyorum şuan eğer becerebileceğim bişeyse deneyecem
  11. [codebox]Global $ekrem = False Global $zaman1, $zaman_1 Global $zaman2, $zaman_2 Global $zaman3, $zaman_3 Global $zaman4, $zaman_4 Global $zaman5, $zaman_5 Global $zaman6, $zaman_6 Global $zaman7, $zaman_7 Global $zaman8, $zaman_8 Global $zaman9, $zaman_9 Opt("GUIOnEventMode", 1) $Form1_1 = GUICreate("deneme1", 211, 256, -1, -1) GUISetOnEvent(-3,"_kapat") $Checkbox1 = GUICtrlCreateCheckbox("", 10, 26, 15, 21) GUICtrlSetState(-1, 0) $Checkbox2 = GUICtrlCreateCheckbox("", 10, 51, 15, 21) GUICtrlSetState(-1, 0) $Checkbox3 = GUICtrlCreateCheckbox("", 10, 76, 15, 21) GUICtrlSetState(-1, 0) $Checkbox4 = GUICtrlCreateCheckbox("", 10, 101, 15, 21) GUICtrlSetState(-1, 0) $Checkbox5 = GUICtrlCreateCheckbox("", 10, 126, 15, 21) GUICtrlSetState(-1, 0) $Checkbox6 = GUICtrlCreateCheckbox("", 10, 151, 15, 21) GUICtrlSetState(-1, 0) $Checkbox7 = GUICtrlCreateCheckbox("", 10, 176, 15, 21) GUICtrlSetState(-1, 0) $Checkbox8 = GUICtrlCreateCheckbox("", 10, 201, 15, 21) GUICtrlSetState(-1, 0) $Checkbox9 = GUICtrlCreateCheckbox("", 10, 226, 15, 21) GUICtrlSetState(-1, 0) $Input1 = GUICtrlCreateInput("", 38, 26, 33, 21) $Input2 = GUICtrlCreateInput("", 78, 26, 33, 21) $Input3 = GUICtrlCreateInput("", 38, 51, 33, 21) $Input4 = GUICtrlCreateInput("", 78, 51, 33, 21) $Input5 = GUICtrlCreateInput("", 38, 76, 33, 21) $Input6 = GUICtrlCreateInput("", 78, 76, 33, 21) $Input7 = GUICtrlCreateInput("", 38, 101, 33, 21) $Input8 = GUICtrlCreateInput("", 78, 101, 33, 21) $Input9 = GUICtrlCreateInput("", 38, 126, 33, 21) $Input10 = GUICtrlCreateInput("", 78, 126, 33, 21) $Input11 = GUICtrlCreateInput("", 38, 151, 33, 21) $Input12 = GUICtrlCreateInput("", 78, 151, 33, 21) $Input13 = GUICtrlCreateInput("", 38, 176, 33, 21) $Input14 = GUICtrlCreateInput("", 78, 176, 33, 21) $Input15 = GUICtrlCreateInput("", 38, 201, 33, 21) $Input16 = GUICtrlCreateInput("", 78, 201, 33, 21) $Input17 = GUICtrlCreateInput("", 38, 226, 33, 21) $Label1 = GUICtrlCreateLabel("tab tuşu", 78, 231, 51, 17) GUICtrlSetFont(-1, 8, 400, 0) $Label2 = GUICtrlCreateLabel("süre", 38, 15, 28, 10) GUICtrlSetFont(-1, 8, 400, 0) $Label3 = GUICtrlCreateLabel("tus", 78, 15, 21, 10) GUICtrlSetFont(-1, 8, 400, 0) $Label4 = GUICtrlCreateLabel("",120,88,70,17) GUICtrlSetFont(-1, 8, 400, 0) $Button1 = GUICtrlCreateButton("start", 120, 24, 75, 25) GUICtrlSetOnEvent($Button1,"_start_stop") $Button2 = GUICtrlCreateButton("test", 120, 56, 75, 25) GUISetState(@SW_SHOW) Func _kapat() Exit EndFunc Func _start_stop() $ekrem = Not $ekrem If $ekrem = True Then GUICtrlSetData($Button1,"stop") GUICtrlSetData($Label4,"AÇIK") If GUICtrlRead($Checkbox1) = 1 Then $zaman_1 = GUICtrlRead($Input1) Else $zaman_1 = 0 EndIf If GUICtrlRead($Checkbox2) = 1 Then $zaman_2 = GUICtrlRead($Input3) Else $zaman_2 = 0 EndIf If GUICtrlRead($Checkbox3) = 1 Then $zaman_3 = GUICtrlRead($Input5) Else $zaman_3 = 0 EndIf If GUICtrlRead($Checkbox4) = 1 Then $zaman_4 = GUICtrlRead($Input7) Else $zaman_4 = 0 EndIf If GUICtrlRead($Checkbox5) = 1 Then $zaman_5 = GUICtrlRead($Input9) Else $zaman_5 = 0 EndIf If GUICtrlRead($Checkbox6) = 1 Then $zaman_6 = GUICtrlRead($Input11) Else $zaman_6 = 0 EndIf If GUICtrlRead($Checkbox7) = 1 Then $zaman_7 = GUICtrlRead($Input13) Else $zaman_7 = 0 EndIf If GUICtrlRead($Checkbox8) = 1 Then $zaman_8 = GUICtrlRead($Input15) Else $zaman_8 = 0 EndIf If GUICtrlRead($Checkbox9) = 1 Then $zaman_9 = GUICtrlRead($Input17) Else $zaman_9 = 0 EndIf Else GUICtrlSetData($Button1,"start") GUICtrlSetData($Label4,"KAPALI") EndIf EndFunc While 1 If GUICtrlRead($Checkbox1) = 1 Then GUICtrlSetState($Input1,64) GUICtrlSetState($Input2,64) Else GUICtrlSetState($Input1,128) GUICtrlSetState($Input2,128) EndIf If GUICtrlRead($Checkbox2) = 1 Then GUICtrlSetState($Input3,64) GUICtrlSetState($Input4,64) Else GUICtrlSetState($Input3,128) GUICtrlSetState($Input4,128) EndIf If GUICtrlRead($Checkbox3) = 1 Then GUICtrlSetState($Input5,64) GUICtrlSetState($Input6,64) Else GUICtrlSetState($Input5,128) GUICtrlSetState($Input6,128) EndIf If GUICtrlRead($Checkbox4) = 1 Then GUICtrlSetState($Input7,64) GUICtrlSetState($Input8,64) Else GUICtrlSetState($Input7,128) GUICtrlSetState($Input8,128) EndIf If GUICtrlRead($Checkbox5) = 1 Then GUICtrlSetState($Input9,64) GUICtrlSetState($Input10,64) Else GUICtrlSetState($Input9,128) GUICtrlSetState($Input10,128) EndIf If GUICtrlRead($Checkbox6) = 1 Then GUICtrlSetState($Input11,64) GUICtrlSetState($Input12,64) Else GUICtrlSetState($Input11,128) GUICtrlSetState($Input12,128) EndIf If GUICtrlRead($Checkbox7) = 1 Then GUICtrlSetState($Input13,64) GUICtrlSetState($Input14,64) Else GUICtrlSetState($Input13,128) GUICtrlSetState($Input14,128) EndIf If GUICtrlRead($Checkbox8) = 1 Then GUICtrlSetState($Input15,64) GUICtrlSetState($Input16,64) Else GUICtrlSetState($Input15,128) GUICtrlSetState($Input16,128) EndIf If GUICtrlRead($Checkbox9) = 1 Then GUICtrlSetState($Input17,64) Else GUICtrlSetState($Input17,128) EndIf If $ekrem = True Then If $zaman_1 > 0 Then $zaman1 += 100 If $zaman1 >= ($zaman_1 * 1000) Then Send(GUICtrlRead($Input2)) $zaman1 = 0 EndIf EndIf If $zaman_2 > 0 Then $zaman2 += 100 If $zaman2 >= ($zaman_2 * 1000) Then Send(GUICtrlRead($Input4)) $zaman2 = 0 EndIf EndIf If $zaman_3 > 0 Then $zaman3 += 100 If $zaman3 >= ($zaman_3 * 1000) Then Send(GUICtrlRead($Input6)) $zaman3 = 0 EndIf EndIf If $zaman_4 > 0 Then $zaman4 += 100 If $zaman4 >= ($zaman_4 * 1000) Then Send(GUICtrlRead($Input8)) $zaman4 = 0 EndIf EndIf If $zaman_5 > 0 Then $zaman5 += 100 If $zaman5 >= ($zaman_5 * 1000) Then Send(GUICtrlRead($Input10)) $zaman5 = 0 EndIf EndIf If $zaman_6 > 0 Then $zaman6 += 100 If $zaman6 >= ($zaman_6 * 1000) Then Send(GUICtrlRead($Input12)) $zaman6 = 0 EndIf EndIf If $zaman_7 > 0 Then $zaman7 += 100 If $zaman7 >= ($zaman_7 * 1000) Then Send(GUICtrlRead($Input14)) $zaman7 = 0 EndIf EndIf If $zaman_8 > 0 Then $zaman8 += 100 If $zaman8 >= ($zaman_8 * 1000) Then Send(GUICtrlRead($Input16)) $zaman8 = 0 EndIf EndIf If $zaman_9 > 0 Then $zaman9 += 100 If $zaman9 >= ($zaman_9 * 1000) Then Send("{tab}") $zaman9 = 0 EndIf EndIf EndIf Sleep(100) WEnd[/codebox] lütfen yanlış yaptığım yerleri söyleyiniz 2 günlük autoit kullanıcısıyım yorumlarınızı bekliyorum
  12. çok teşekkür ederim peki bu inputa 64 ve 128 değer biçmişsin aktif ve pasif olması için değilmi peki ben bu değerleri nerden öğrenebilirim yani nerden bilebilirdim inputu aktif ve pasif yapmayı
  13. @blue_life yardımların için çok teşekkür ederim peki sana şöyle desem program çalışdığında input1 ve input2 aktif olmasa yani yazı ve değer girilemez durumda olsa checkbox1 e tıklandığında aktif olma gibi bi olasılığı varmı eğer bu mümkünse checkbox işaretlendiğinde değer girilecek inputlar açılcak işaretli değilse yazılmıycak doğal olarakda ordaki değerlerin bir önemi kalmıycak
  14. If GUICtrlRead($Checkbox1) = 1 Then ;START TUŞUNA BASILDIĞINDA CHECKBOX 1 İŞARETLİ İSE If GUICtrlRead($Input1) = 0 Then ;İNPUT 1 A BAKILACAK EĞER BOŞ İSE MsgBox(0,$mesaj1,"1"&$mesaj2) ;HATA MESAJI VERECEK $ekrem = False ;VE BAŞLAMIYACAK EndIf EndIf böyle yazdığım zamancheckbox işaretliyken input1 boş ise hata mesajı veriyordu yok checkbox1 işaretliyken input1 e değer yazılı ise başlıyordu buraya kadar herşey normal sorun şurda başlıyor checkbox1 işaretli değilken input1 de değer varsa başlıyor benim istediğim ise checkbox1 işaretliyse ve input1 de değer varsa başlasın checkbox1 işaretliyse ve input1 de değer yoksa başlamasın checkbox1 işaretli değilken input1 de değer olsabile başlamasın yani başlaması için input1 dolu olsa bile checkbo1 in işaretli olması gereksin içinden çıkamıyorum umarım açıklayabilmişimdir sorunumu
  15. While 1 $tus1 = GUICtrlRead($Checkbox1) If $tus1 = 1 Then Send("1") $once1 = TimerInit() Sleep(1000*Number(GUICtrlRead($Input1))) $sonra1 = TimerDiff($once1) EndIf $tus2 = GUICtrlRead($Checkbox2) If $tus2 = 1 Then Send("2") $once2 = TimerInit() Sleep(1000*Number(GUICtrlRead($Input2))) $sonra2 = TimerDiff($once2) EndIf şu kod ile while 1 = 1 e gerek kalmadan checkbox işaretlendiğinde basmalarını sayladım ama yine 2 sinide bağımsız yapamadım devam ediyorum fikirlerinizi bekliyorum
×
×
  • Create New...