nuh21tr

Paylaşılan görsele bakınca görünen o ki tarayıcı sağ tık menüsü için soruyorsunuz. Sanırım tarayıcılarda bu tarz özel kısayolları ancak eklenti oluşturarak yapabilirsiniz.

Selam @Skorpion Arkadaşım! Aşağıdaki kodları oluşturdum. Ama kendi bilgisayarıma göre koordinat ve bekleme süreleri içeriyor. Senin bu kodları gözden geçirip kendi bilgisayarına göre düzenlemen/uyarlaman gerekiyor. Kod : ;~ 26.04.2023 - [NUH21TR] ;~ Autoit v3.3.16.1 ;~ Win 11'de denendi. ;~ Dikkat!!! ;~ Buradaki kodlarda belirtilen koordinatlar ve işlemler arası gerekli bekleme süreleri kendi PC'nizde farklılık gösterebilir. ;~ Buradaki kodlar istemsiz tıklamalara sebep olabilir. ;~ Sorumluluk buradaki kodu çalıştarana aittir. ;~ Bu sebeple kodu çalıştırmadan önce gözden geçiriniz! #include <File.au3> #include <MsgBoxConstants.au3> #include <AutoItConstants.au3> MsgBox("", "Tuşlar", "{SAĞ YÖN TUŞU} • Bir sonraki resmi açar." & @CRLF & @CRLF & _ "{SOL YÖN TUŞU} • Bir önceki resmi açar." & @CRLF & @CRLF & _ "{ESC} • Programdan çıkış yapar." & @CRLF & @CRLF & _ "• Bu mesaj kutusundan sonra resimlerin bulunduğu klasörü seçin." & @CRLF & _ "• Çeviri ilk dosya için otomatik işlenecek sonra belirtilen tuşlar ile yönlendirebileceksiniz.") Local $sResimlerinBulunduguKlasorAdresi = FileSelectFolder("Dili Çevrilecek Resimlerin Bulunduğu Klasörü Seç", @ScriptDir) Global Const $sGoogleTranslateSayfasi = "https://translate.google.de/?sl=de&tl=tr&op=images" Global Const $iDosyaTanimlaYatayKoordinat = 1270, $iDosyaTanimlaDikeyKoordinat = 425 ; 1270,425 - >> Translate sayfasındaki "Bilgisayarınıza gözatın" tuşuna tıklatmak için. Global Const $iResmiTemizleYatayKoordinat = 1880, $iResmiTemizleDikeyKoordinat = 308 ; 1880,308 - >> Translate sayfasındaki "Resmi Temizle (X)" tuşuna tıklatmak için. Global $iIslemlerArasiBeklemeSuresi_Milisaniye = 1000 ; Dosyaların işlenme-yüklenme hızına bağlı olarak değiştirebilirsiniz. Global $aResimlerinSiraliListesi = _FileListToArrayRec($sResimlerinBulunduguKlasorAdresi, "*.jpg;*.jpeg;*.png", $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_SORT, $FLTAR_RELPATH) Global $iToplamResimSayisi = $aResimlerinSiraliListesi[0] ; $aResimlerinSiraliListesi[0] >> (Listedeki Toplam Dosya Sayısını Verir.) Global $iMevcutResimSirasi = 1 Global $bTarayiciIcinKlasorYeriTanimlanmisMi = False HotKeySet("{LEFT}", "nvOncekiResmiAc") HotKeySet("{RIGHT}", "nvSonrakiResmiAc") HotKeySet("{ESC}", "Cikis") nvGoogleTranslateResimDiliniCevir($aResimlerinSiraliListesi[$iMevcutResimSirasi]) While 1 Sleep(50) WEnd Func nvGoogleTranslateResimDiliniCevir($sDosyaAdi) If $bTarayiciIcinKlasorYeriTanimlanmisMi = False Then ShellExecute($sGoogleTranslateSayfasi) EndIf Sleep($iIslemlerArasiBeklemeSuresi_Milisaniye) If Not WinActive("Google Çeviri - Google Chrome") Then WinActivate("Google Çeviri - Google Chrome") MouseClick($MOUSE_CLICK_LEFT, $iDosyaTanimlaYatayKoordinat, $iDosyaTanimlaDikeyKoordinat, 1, 0) Sleep($iIslemlerArasiBeklemeSuresi_Milisaniye) If $bTarayiciIcinKlasorYeriTanimlanmisMi = False Then ControlClick("Aç", "Üst şerit", "[CLASS:ToolbarWindow32; INSTANCE:3]") Send($sResimlerinBulunduguKlasorAdresi) Send("{Enter}") $bTarayiciIcinKlasorYeriTanimlanmisMi = True $iIslemlerArasiBeklemeSuresi_Milisaniye = 500 EndIf ControlClick("Aç", "Üst şerit", "[CLASS:Edit; INSTANCE:1]") Sleep(50) Send($sDosyaAdi) Sleep($iIslemlerArasiBeklemeSuresi_Milisaniye) Send("{Enter}") Sleep(50) EndFunc ;==>nvGoogleTranslateResimDiliniCevir Func nvOncekiResmiAc() If Not WinActive("Google Çeviri - Google Chrome") Then WinActivate("Google Çeviri - Google Chrome") MouseClick($MOUSE_CLICK_LEFT, $iResmiTemizleYatayKoordinat, $iResmiTemizleDikeyKoordinat, 1, 0) If $iMevcutResimSirasi <> 1 Then $iMevcutResimSirasi -= 1 nvGoogleTranslateResimDiliniCevir($aResimlerinSiraliListesi[$iMevcutResimSirasi]) ;~ If WinActive("Google Çeviri - Google Chrome") Then Send("^w") EndFunc ;==>nvOncekiResmiAc Func nvSonrakiResmiAc() If Not WinActive("Google Çeviri - Google Chrome") Then WinActivate("Google Çeviri - Google Chrome") MouseClick($MOUSE_CLICK_LEFT, $iResmiTemizleYatayKoordinat, $iResmiTemizleDikeyKoordinat, 1, 0) If $iMevcutResimSirasi <> $iToplamResimSayisi Then $iMevcutResimSirasi += 1 nvGoogleTranslateResimDiliniCevir($aResimlerinSiraliListesi[$iMevcutResimSirasi]) ;~ If WinActive("Google Çeviri - Google Chrome") Then Send("^w") EndFunc ;==>nvSonrakiResmiAc Func Cikis() Exit EndFunc ;==>Cikis [NUH21TR].

Parola konu içine ve zip dosyasına eklenmiştir.

[NUH21TR] Film Arşiv Yöneticisi Disklerinizde mevcut bulunan Film/Dizi arşivlerinizi listeleyip yönetebileceğiniz imdb verileriyle çalışabilen küçük boyutlu, kurulumsuz ve taşınabilir araç. Özellikler • Klavye kısayolları ile tam denetim. • Varsayılan olarak rastgele film seçip oynatma. • Imdb verileriyle çalışma. • Film altyazılarını bulmak için hızlı erişim. • Poster indirme. • Birden fazla liste oluşturma. • Oynatılan dosyalar için üst bildirim. Görseller Program beta test sürümüdür. İndir: [NUH21TR] Film Arşiv Yöneticisi v2.1.192.3828 [BETA] dc18.05.2023.exe Link: https://mega.nz/file/CzxXQJpI#honMt0HI5o5xMKMUttjlse9MXhej-bK2IKEE57b7-2A

autoit forumdaki şu örneklere bakabilirsin: https://www.autoitscript.com/forum/topic/173351-pin-my-program-to-windows-8-taskbar/ https://www.autoitscript.com/forum/topic/178494-windows-10-pin-to-taskbar/ https://www.autoitscript.com/forum/topic/116641-how-can-i-create-any-shortcut-at-the-quicklaunch-for-windows-7/

Koordinatlara özel tıklama varsa anladığım kadarıyla şöyle bir kod yazdım: Dim $aranacakRenkKodlari[] = [125556, 66589] Dim $koordinatRenklerIcin[][] = [[125, 625], [565, 856]] Dim $koordinatTiklamakIcin[][] = [[125, 625], [565, 856]] While 1 For $i = 0 To UBound($aranacakRenkKodlari) - 1 $Pixel = PixelGetColor($koordinatRenklerIcin[$i][0], $koordinatRenklerIcin[$i][1]) ;bu kordinatlarda ;Sleep(100) komutu yerine zamandan kazanmak için ayarlanabilir bekleme süresi yazilabilir $sleepStep = 0 Do Sleep(10) $sleepStep += 10 Until $sleepStep = 100 Or $Pixel = $aranacakRenkKodlari[$i] If $Pixel = $aranacakRenkKodlari[$i] Then ;MsgBox(64,"","renk bulundu") MouseClick("left", $koordinatTiklamakIcin[$i][0], $koordinatTiklamakIcin[$i][1]) $sleepStep = 0 Do Sleep(25) $sleepStep += 25 Until $sleepStep >= 1500 Or $Pixel <> $aranacakRenkKodlari[$i] ;Sleep(1500) komutu yerine zamandan kazanmak için ayarlanabilir bekleme süresi yazilabilir EndIf Next WEnd Buradaki Array lerdeki sıralama çok önemli her bi array renk - koordinat sıralamasına göre yazılmıştır. Koordinatlar tutarsa tıklama işi gerçekleşir. [NUH21TR].

Belki farklı yerlerde yardımcı olabilir diye konuya bir fonksiyon eklemek istedim. Bilmeyenler için; Bir uygulama 32-bitlik bir uygulama ise; - 64 Bitlik Windows sisteminde olası kurulum yolu "Program Files (x86)" klasörüdür. - 32 Bitlik Windows sisteminde olası kurulum yolu "Program Files" klasörüdür. Bir uygulama 64-bitlik bir uygulama ise; - 64 Bitlik Windows sisteminde olası kurulum yolu "Program Files" klasörüdür. - 32 Bitlik Windows sisteminde zaten çalışmaz... Fonksiyonum; $olasiKurulumYolu = _OlasiProgramFilesYolunuBelirle("WinRARInstall.exe") MsgBox("","",$olasiKurulumYolu) Func _OlasiProgramFilesYolunuBelirle($dosyaYolu) ; [NUH21TR] If Not FileExists($dosyaYolu) Then Return SetError(1, 0, 0) Local $dosyaTipi = DllStructCreate("dword;") $geriDonus = DllCall("kernel32.dll", "hwnd", "GetBinaryTypeW", "wstr", $dosyaYolu, "ptr", DllStructGetPtr($dosyaTipi)) If $geriDonus[0] = 0 Then Return "Yürütülebilir Bir Dosya Değil!" Local $structCikti Switch DllStructGetData($dosyaTipi, 1) Case 0 $structCikti = "X86" Case 1 $structCikti = "MS-DOS Tabanlı Uygulama" Case 2 $structCikti = "16-bit Windows Tabanlı Uygulama" Case 3 $structCikti = "PIF Dosyası Yürüten Bir MS-DOS Tabanlı Uygulama" Case 4 $structCikti = "POSIX Tabanlı Uygulama" Case 5 $structCikti = "16-bit OS/2 Tabanlı Uygulama" Case 6 $structCikti = "X64" EndSwitch If @OSArch = "X64" And $structCikti = "X86" Then Return @HomeDrive & "\Program Files (x86)" Return @HomeDrive & "\Program Files" EndFunc ;==>_OlasiProgramFilesYolunuBelirle / [NUH21TR] Bu fonksiyon bayağı kısaltılabilirdi fakat açıklayıcı olması açısından iyi olabilir diye düşündüm... [NUH21TR].

# Sürüm 5.3.3.70 (2020.03.20.1420) _ 20 Mart 2020 Cuma [+] Klasörün aynı ismine sahip virüs dosyası kesin dosya yöntemiyle taranacaksa, çalışıyorsa taramadan hemen önce otomatik sonlandırılacak. [+] Sonlandırılan işlemlerin isimleri ve sayısı tarama panelinde listelenecek. [+] Tarama panelinde seçilen dosya ve dosyanın MD5 sağlaması panel başlangıcında görüntülenecek. [+] Taramadan sonra gelen seçim panelinde her bir dizeye çift tıklayınca dosyanın konumu açılabilir. [*] Tarama panelinde birkaç ekleme ve düzeltmeler. [*] Birçok anti-virüs programının yanlış pozitif algılama sorununda düzeltmeler. EKRAN GÖRÜNTÜLERİ (Sadece Yeni Özellikler) [NUH21TR].

# Sürüm 5.2.10.825 (2020.03.16.1030) _ 16 Mart 2020 Pazartesi [+] Araçlarda bulunan seçilecek birimler artık disk isimleri ve dosya sistemi ile gösterilir. [+] Klasörün aynı ismine sahip dosyalar tarama esnasında tarama panelinde ayrıntılı olarak izlenebilecek. [+] Taramalar optimize edildi ve daha hızlı tarama yöntemi eklendi. [+] Klasörün aynı ismine sahip dosyalar, önerilen tarama yönteminde taranırken artık md5 dosya sağlama ile taranıyor. [+] Kesin olan virüs dosyası taranırken, bu seçilen dosya ile aynı olup, klasörün aynı ismine sahip olmayan dosyalar varsa, taramadan sonra gelen seçim panelinde isteğe bağlı olarak silinebilir. [+] Tarama yapılırken, çalışan bir virüs tespit edildiğinde bu virüsün silinmesi için için güçlü bir işlem sonlandırma yöntemi eklendi. [*] Dosya boyutunda küçültme. [*] Birkaç hata düzeltmeleri. EKRAN GÖRÜNTÜLERİ (Sadece Yeni Özellikler) [NUH21TR].

Düzenleme: "Gizlenmiş Tüm Dosya ve Klasörleri Görünür Yap" aracında işlem iptal butonuna tıkladığımızda , işlem kısmi olarak sonlandırılıyordu. Şimdi düzeltildi. [NUH21TR].

# Sürüm 5.0.11.1234 (2020.02.21.2200) _ 21 Şubat 2020 Cuma [+] Menüye "Araçlar Panosu" bölümü eklendi. [+] Araçlar Panosu'na "Komutsal Onarım Aracı" menüsünün yanına daha önce vadedilen, virüslere karşı çok işe yarayacak iki araç daha eklendi. ("Gizlenmiş Tüm Dosya ve Klasörleri Görünür Yap" , "Klasörün Aynı İsmine Sahip Virüs Dosyalarını Sil") [*] İşleniyor animasyonu turuncu renk olarak değiştirildi. [*] Ana arayüzde işlem yapıldıktan sonra işleniyor animasyonu kaybolmuyordu şimdi düzeltildi. [*] Birkaç ufak hata düzeltmeleri. EKRAN GÖRÜNTÜLERİ (Sadece Yeni Özellikler) [NUH21TR].

# Sürüm 4.0.10.2807 (2020.02.06.1405) _ 06 Şubat 2020 Perşembe [+] Kullanıcı Anlaşması-Sorumluluk Reddi Beyanı'nda birkaç değişiklik mevcut.(Okuyun. "Seçenekler\Hakkında\Kullanıcı Anlaşması") [+] Listede bulunan disk sayısını göstermek için liste başlığına disk sayısı bölümü eklendi. [+] Her bir disk birimine ulaşmak için "Birime gözat" özelliği eklendi. [+] Seçilen disklere koruma işlemi uygulanırken ilerleme çubuğu belirecek. [+] Virüs bulaşı sonrası oluşan kritik birkaç değişiklik için belirteçli "Araçlar" menüsü eklendi. (Seçenekler menüsünden ulaşabilirsiniz.) [+] İşlem akışını hızlandırmak için mesaj kutusu yerine bildirim ile gösterim seçeneği eklendi. (Ayarlara gözatın.) [+] Programı "Güncelleme" özelliği eklendi. (Seçenekler menüsünden ulaşabilirsiniz.) [+] Bu sürümden itibaren eski sürümlerde mevcut bulunan virüs listesinde bir değişiklik olduğunda bu değişiklik yeni sürümlerde koruma sistemine entegre edilerek işlenecek. [*] Arayüzde iyileştirmeler. [*] Performans üzerinde iyileştirmeler. [*] Birkaç hata düzeltmeleri. EKRAN GÖRÜNTÜLERİ (Sadece Yeni Özellikler) [NUH21TR].

Rica ederim güzel arkadaşım. Bu ala denilemeyecek kadar az ve kayda değer olmayan tecrübemle bir şeyler aktarabildiysem ne mutlu bana. Allah'a emanet olunuz. Hürmet ederim.

Rica ederim arkadaşım. Ve.... Tabi Extended arkadaşımızın dediği gibi demek istiyorsan en kısa yolu onun dediği gibi. DirCreate mantığını zaten bildiğini düşünüyorum. Benim anladığım : For...Next döngüsü mantığı içerisinde 1 ana klasör \ Ana klasörün altında altklasörleri olmayan herhangi bir kaç tane klasör \ ve onların her hangi bir(kaç) tanesinde 2019 ve 2020 klasörleriydi. Doğru anlamışımdır umarım. Yoksa demek istediğin diğer türlü ise : Aşağıda tek tek girilerek, Extended arkadaşımızın dediği gibi yapılabilir. DirCreate(@DesktopDir & "\Programlar\Katilimsiz\Portable\Program\Ben\Sen\O\Biz\Siz\Onlar") DirCreate(@DesktopDir & "\Programlar\Katilimsiz\Portable\2019") DirCreate(@DesktopDir & "\Programlar\Katilimsiz\Portable\2020") ; Böylece sadece "Portable" klasörü içinde yine "2019" ve "2020" klasörü var. ; Ki oluşturacağın klasör formatı bu şekilde sabit ve az ise bu yolu tercih etmek mantıklı olabilir. ; Buraya Dikkat!!! Tabi bu durumda "Onlar" klasörü oluşturulan diğer klasörlerin en alt klasörü olur. Skorpion arkadaşım tecrübeni bilmediğim için böyle ayrıntılı yazdım. Belki benden daha iyi kodlama yeteneğin vardır. Bu durum için kusura bakmayasın. Hem böylece yeni başlayanlar varsa bu yazılardan faydalanmış olur. Faydalı bir şekilde ilerlemen temennisiyle... Hürmetle... [NUH21TR].

Mesela 9 adet klasör olsun ve sadece Portable klasörünün içine 2019 ve 2020 klasörleri eklemeli. Öyleyse: $text = "Programlar\" $user = "Katilimsiz\Portable\Program\Ben\Sen\O\Biz\Siz\Onlar" ; 9 adet klasörümüz olsun $array = StringSplit($user, '\') For $i = 1 To $array[0] ; burada array[0] tüm $user klasörlerini belirtir If $i = 2 Then ; 2. sırada Portable klasörü var. Yani 2. döngüde... DirCreate(@DesktopDir & '\' & $text & '\' & $array[$i]&"\2019") DirCreate(@DesktopDir & '\' & $text & '\' & $array[$i]&"\2020") Else DirCreate(@DesktopDir & '\' & $text & '\' & $array[$i]) ; Portable dışındaki klasörler için EndIf Next bide 2 sorunun cevabı ise kodları öncekiyle kıyaslarsan mantığını kavrarsın diye düşünüyorum. Yazı ile anlatmaktan ziyade kurcalamak daha iyi olabilir. İstediğin şey şöyle bir şeyse: Mesela sadece 3. ve 6. klasörleri içine 2019 ve 2020 klasörü eklemeli... Öyleyse: $text = "Programlar\" $user = "Katilimsiz\Portable\Program\Ben\Sen\O\Biz\Siz\Onlar" ; 9 adet klasörümüz olsun $array = StringSplit($user, '\') For $i = 1 To $array[0] ; burada array[0] tüm $user klasörlerini belirtir If $i = 3 Or $i = 6 Then ; 3. veya 6. klasörler. Yani 3. veya 6. döngüde > "Program" ve "O" klasörü... DirCreate(@DesktopDir & '\' & $text & '\' & $array[$i]&"\2019") DirCreate(@DesktopDir & '\' & $text & '\' & $array[$i]&"\2020") Else DirCreate(@DesktopDir & '\' & $text & '\' & $array[$i]) ; 3. veya 6. klasörler dışındaki klasörler için EndIf Next [NUH21TR].