Autohotkey'de script için yardım lazım
Merhaba, bilgisayarda işlerimi kolaylaştıracak bir komut dizisi yazıyorum ama çok acemi olduğum için bazı aşamaları oluşturamıyorum. Chatgpt'den genelde yardım aldım yazma konusunda ama tıkandım.
1 - İnternet sayfasında "a, b, c" şeklinde 3 değişken aratıyorum
2 - Bulamazsa sayfada "page down"
3 - Bulursa rastgele 3 değişkenden birine tıklıyor.
4 - Açılan sayfada ilgili başlığı bulana kadar "page up" yapıyor.
5 - Başlığı bulup tıklıyor ve daha sonra diğer başlık açılıp başlık2'ye tıklıyor.
6 - Tekrar "page down" yapıp kaydet görselini bulup tıklıyor ve sonra geri kısmına tıklıyor.
Buraya kadar tamam ama geri sayfaya geldikten sonra script sadece "page up" şeklinde takılı kalıyor. Sürekli yukarı çıkıyor sayfa. Beni istediğin tekrar geri gelinde "a,b,c" değişkenlerinden yine herhangi birini bulup yine aynı şekilde işlemleri yapmak. Ne zaman ki geri geldikten sonra sayfada bir "a,b,c" değişkeni bulamazsa "end" yapıp aşağıdaki sayfa numaraları için sayfa2.png yapıp o sayfada da aynı işlemleri yapıp bu şekilde 5 sayfada da işlem yapmak. Belki kolay yada zordur acemiyim diye bilemiyorum ama tıkandığım için profesyonel yardım gerekiyor sanırım.
Esc::Reload ; Toggle değişkenini başlat toggle := false ; Insert tuşuna basıldığında toggle değişkenini aç/kapat Insert:: toggle := !toggle if (toggle) { MsgBox, Arama başlatılıyor. SetTimer, StartImageSearch, 0 ; Döngüyü başlat } else { MsgBox, Arama durduruluyor. SetTimer, StartImageSearch, Off ; Döngüyü durdur } return ; Arama ve tıklama işlemi StartImageSearch: { ; Chrome penceresini etkinleştir ve kontrol et if !WinActive("ahk_exe chrome.exe") { WinActivate, ahk_exe chrome.exe WinWaitActive, ahk_exe chrome.exe, , 3 ; 3 saniye bekler if !WinActive("ahk_exe chrome.exe") { ; Chrome etkin değilse işlem yapmaz return } } ; Resim dosya yollarını tanımla mainImages := ["Q:\a.png", "Q:\b.png", "Q:\c.png"] backupPages := ["Q:\sayfa2.png", "Q:\sayfa3.png", "Q:\sayfa4.png", "Q:sayfa5.png"] additionalImages := ["Q:\başlık.png", "Q:\başlık2.png", "C:\kaydet.png", "C:\geri.png"] found := false ; Görüntü bulunduğunu kontrol eden değişken retry := 0 ; Sayfa kaydırma sayacı ; Ana resim dosyalarını sırayla ara while (retry < 3) { for index, imagePath in mainImages { positions := FindAllImagePositions(imagePath) if (positions.MaxIndex() > 0) { ; Eğer pozisyon bulunduysa found := true Random, randIndex, 1, % positions.MaxIndex() ; Rastgele bir pozisyon seç pos := positions[randIndex] MouseMove, pos[1], pos[2] ; Seçilen pozisyonda tıklama yap Click } } if found { ; 1. İlk olarak ibranamealindi.png görselini bulana kadar "Page Up" tuşuna bas foundImage := false while !foundImage { positions := FindAllImagePositions("Q:\başlık.png") if (positions.MaxIndex() > 0)(ErrorLevel = 0) { ; Görsel bulundu, tıklanacak Random, randIndex, 1, % positions.MaxIndex() pos := positions[randIndex] MouseMove, pos[1], pos[2] Click foundImage := true ; Görsel bulundu, döngüden çık } else { Send, {PgUp} ; Görsel bulunamadıysa Page Up tuşuna bas Sleep, 1000 ; 0.5 saniye bekle } } ; 2. talimatgitti.png görselini bulana kadar bekle foundImage := false while !foundImage { positions := FindAllImagePositions("Q:\başlık2.png") if (positions.MaxIndex() > 0)(ErrorLevel = 0) { ; Görsel bulundu, tıklanacak Random, randIndex, 1, % positions.MaxIndex() pos := positions[randIndex] MouseMove, pos[1], pos[2] Click foundImage := true ; Görsel bulundu, döngüden çık } else { Sleep, 500 ; 0.5 saniye bekle } } ; 3. kaydet.png görselini bulana kadar "Page Down" tuşuna bas foundImage := false while !foundImage { positions := FindAllImagePositions("C:\kaydet.png") if (positions.MaxIndex() > 0)(ErrorLevel = 0) { ; Görsel bulundu, tıklanacak Random, randIndex, 1, % positions.MaxIndex() pos := positions[randIndex] MouseMove, pos[1], pos[2] Click foundImage := true ; Görsel bulundu, döngüden çık } else { Send, {PgDn} ; Görsel bulunamadıysa Page Down tuşuna bas Sleep, 500 ; 0.5 saniye bekle } } ; 4. geri.png görselini bulana kadar bekle foundImage := false while !foundImage { positions := FindAllImagePositions("Q:\geri.png") if (positions.MaxIndex() > 0)(ErrorLevel = 0) { ; Görsel bulundu, tıklanacak Random, randIndex, 1, % positions.MaxIndex() pos := positions[randIndex] MouseMove, pos[1], pos[2] Click foundImage := true ; Görsel bulundu, döngüden çık } else { Sleep, 500 ; 0.5 saniye bekle } } } ; Ana resimler bulunamazsa "Page Down" ile sayfayı kaydırıp tekrar dene if !found { Send, {PgDn} Sleep, 500 retry++ } Continue } ; Eğer ana dosyalar ve kaydırma ile bulunamazsa yedek sayfaları ara if (!found) { for index, backupPage in backupPages { positions := FindAllImagePositions(backupPage) if (positions.MaxIndex() > 0) { Random, randIndex, 1, % positions.MaxIndex() pos := positions[randIndex] MouseMove, pos[1], pos[2] Click Sleep, 500 break } } } ; 5 saniye bekleyip tekrar başla Sleep, 5000 } ; Tüm görüntü pozisyonlarını bulan fonksiyon FindAllImagePositions(imagePath) { global positions := [] ; Pozisyonları saklayacağımız dizi ; Ekran çözünürlüğüne göre arama alanını belirle x1 := 0 y1 := 0 x2 := 1920 y2 := 1080 ; Görüntüleri tüm ekranda arayıp pozisyonları listeye ekle Loop { ImageSearch, foundX, foundY, x1, y1, x2, y2, %imagePath% if (ErrorLevel != 0) ; Görüntü bulunamazsa döngüden çık break ; Pozisyonu kaydet positions.Push([foundX, foundY]) ; Sonraki arama için konumu güncelle (bulunan resmin biraz sağına kayarak aramaya devam et) x1 := foundX + 10 y1 := foundY + 10 } return positions }Kod
Yığını:
Merhaba Ben MSI 4060 ti ekran kartı aldım ve ekran kartımı sistem bazen görüyor bazen görmüyor. Çalışmadığı zaman aygın yöneticisinden gizli aygıtları göster dediğimde harici ekran kartımın özelliklerinde bu uyarı yer alıyor ''Şu an, bu donanım aygıtı bilgisayara takılı değil. (Kod 45)'' .
Yaptığım çözümler;
- Haliyle ekran kartımı yerinden çıkartıp yeniden iyice kontrol ederek bastırarak taktım. Üfledim filan baya.
- Windows 11 kurulu ve güncelleştirmeleri repair kısmından kaldırdım.
- Ekran kartı sürücüsü yanlış kurulmuş olabileceğim için DDU güvenli modda açıp kaldırdım. W11 güncelleştirmeleri ile ekran kartı güncelleştirmesi yaptım. Ayrıca kendi programından otomatik bulduğu güncelleştirmeyi kurdum.
4. Monitör değiştirip denedim belki monitörde mi bişi var diye.
5.Display port yerine HDMI denedim yine aynı.
6.Aygıt yöneticisinden ekran kartı çalıştığında güncelleştir dediğimde son sürüm güncel uyarısı veriyor.
Bunlar işe yaramıyor. Şöyleki mesela display port girişi ekran kartına takılıyken pc açılıyor ve hiçbir görüntü yok. Displayport girişini ekran kartından çıkarıp anakart girişine takınca görüntü geliyor ama aygıt yöneticisinde sadece dahili ekran kartı görünüyor.
kısacası kasanın içinde hiç ekran kartı yokmuş gibi algılıyor sistem. Sonra mesela yeniden başlat yapıyorum harici ekran kartı 4060ti geliyor. Sonra kablo girişini ekran kartına takıyorum sorunsuz hiçbi sıkıntı yok pc'de. Daha sonra gece mesela kapatıyorum pc'yi. Sabah yeniden açıyorum. Yine ekran kartı takılı değil görünüyor. Konu hakkında uzman görüşmerinizi rica ederim. Donanımsal bi problem olabilir mi hepsiburada kendi satıcısından aldım sıfır ürün.
SİSTEM:
-Client Hesabıdır. Gmail ile birlikte verilecektir. Oyuna zaman bulamadığım için satıyorum.
-62 lvl guardian main karakter olup=92 envanter, 1650 sp point, Pen grunil Miğfer caphras 6 lvl
-20B nakit mevcut.
-P2W Çadır var.
-19.000 Takas puanı / Epheria Ticaret Gemisi full +10 ekipman , full 10 lvl mürettebat, Takas zanaatkar 4
-45 gün Değerli paket aktif (+58 gün daha basılmamış mevcut)
-Toplam 15 Kahya = 9 adet depocu / 6 adet merkez pazar
-63 gün eski ay / 41 gün kamasylve kutsaması kullanılmamış
-4 LVL Peri Full skill = 2 sn Pot basma, %125 ağırlık, güneş çarpması/hipotermi 5sn bekleme, sabah yıldızı
-5 adet full Aşama 4 Pet (Kirpi mevcut), ayrıca 4 pet daha mevcut
-Aşama 8 yarış atı full skill +10 full ekipmanlı ve iskeletor kostümü var
-Mirumok/Yıldız Mezarı/Kızıl Kurt Köyü nodeler 10 lvl
-115 tane coco yaprağı mevcut karakter rollemek için kullanılabilir.Ayrıca roll için 130'ar tane meyve suyu
-384 tane Cron Taşı / 191 tane Valks'ın Çığlığı / +111fs,+80fs,+60fsx6,+50fsx4, ve fazlası
-61 lvl archer = Kalıcı Flüt , 1713 skill puanı , Balıkçılık Zanaatkar 10, 92 envanter ve biraz ağırlık (Eski main karakter)
-Kitap görevleri sadece Dorin Morgrim ve 600 hp veren yapılmadı.
-411 İnci / 8000 Vefa mevcut
-33 adet işçi olup 18 tanesi zanaatkardır.
-11 karakter slotu var. Yeni sezon için 61 lvl Hashasin mevcut, paso görevleri bitirildi 2000 zamanın sindiği var. Rahatlıkla devam edilebilir.
Fiyat 2000 TL
whatsapp 0 531 514 92 00
COD black ops 4 Satılık ucuz hesap
|
COD black ops 4 Satılık Hesap Ucuz
|
İpad gamepad için öneri
|
Android tablet İşlemcisi Hakkında Uzmanlar
|
Dofus Touch Satılık Karakter 181 İOP
|
Elektro Gitar Kursu İstanbul Avrupa yakası bilen?
|
|
AC45FCC791FB4AA586905E46F96AB332.gif |
Son Giriş: 4 hafta önce
Son Mesaj Zamanı: 4 hafta
Mesaj Sayısı: 1.184
Gerçek Toplam Mesaj Sayısı: 1.292
İkinci El Bölümü Mesajları: 6
Konularının görüntülenme sayısı: 9.293 (Bu ay: 263)
Toplam aldığı artı oy sayısı: 4 (Bu hafta: 0)
En çok mesaj yazdığı forum bölümü: Oyun