GameOveR-xD

Hayır o kod siteyi açmak için, ben onu farklı bir şey için yapmıştım programa ekledim. Playlistteki tüm linkleri sıralı bir şekilde çıkarabilmek için. O kod düzgün çalışıyor zaten. Beni ilgilendiren kısım şu; Case $Download GUI den aldığı kodları cmd ye girip indirme yapacak. Ben ne yaptıysam cmd ekranına yazdıramadım kodları. Örnek cmd kodu (Bunu ilgili kısımları programdaki arayüzden alıp cmd ile çalıştırmasını istiyorum); youtube-dl -o "C:\Users\X\Videos\YoutubeDLG/%(playlist)s/%(playlist_index)s. %(title)s.%(ext)s" --sub-lang en,tr --write-sub --write-auto-sub --convert-subtitles srt --continue --ignore-errors --embed-subs -f "299+bestaudio[ext=m4a]/137+bestaudio[ext=m4a]/37/298+bestaudio[ext=m4a]/22/136+bestaudio[ext=m4a]/135+bestaudio[ext=m4a]/59/78/134+bestaudio[ext=m4a]/18/133+bestaudio[ext=m4a]/160+bestaudio[ext=m4a]" --add-metadata --merge-output-format mp4

https://github.com/rg3/youtube-dl Linkteki program için küçük bir GUI yapmak istedim ama bir türlü CMD'ye komut gönderemiyorum. Program Arayüzü https://cdn.discordapp.com/attachments/256383666647859200/292310847923945473/unknown.png Arayüzdeki kodları alarak "Start Download" butonuna tıkladığımda cmd ye ilgili kodları yazıp çalıştıracak. Ama bi türlü yapamadım. #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $MyGUI = GUICreate("Youtube-DL GUI", 576, 276, -1, -1) $Link = GUICtrlCreateGroup("Link", 19, 16, 537, 57) $LinkInput = GUICtrlCreateInput("", 29, 38, 521, 21) GUICtrlCreateGroup("", -99, -99, 1, 1) $ExtraCodes = GUICtrlCreateGroup("Extra Codes", 19, 81, 537, 57) $ExtraCodesInput = GUICtrlCreateInput('-o "C:\Users\X\Videos\YoutubeDLG/%(playlist)s/%(playlist_index)s. %(title)s.%(ext)s" --sub-lang en,tr --write-sub --write-auto-sub --convert-subtitles srt --continue --ignore-errors --embed-subs -f "299+bestaudio[ext=m4a]/137+bestaudio[ext=m4a]/37/298+bestaudio[ext=m4a]/22/136+bestaudio[ext=m4a]/135+bestaudio[ext=m4a]/59/78/134+bestaudio[ext=m4a]/18/133+bestaudio[ext=m4a]/160+bestaudio[ext=m4a]" --add-metadata --merge-output-format mp4', 29, 99, 521, 21) GUICtrlCreateGroup("", -99, -99, 1, 1) $Label1 = GUICtrlCreateLabel("Playlist Start Number : ", 24, 160, 110, 17) $PlaylistStart = GUICtrlCreateInput("", 144, 160, 100, 21) $Label2 = GUICtrlCreateLabel("Playlist End Number : ", 288, 160, 107, 17) $PlaylistEnd = GUICtrlCreateInput("", 408, 160, 100, 21) $Download = GUICtrlCreateButton("Start Download !", 92, 212, 150, 25) $PlaylistGrabber = GUICtrlCreateButton("Playlist Grabber", 328, 216, 150, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $PlaylistGrabber Shellexecute("https://fiddle.jshell.net/zw91w633/3/show/") Case $Download ShellExecute(@ComSpec,' "C:\Youtube-DL\youtube-dl.exe" ' & GUICtrlRead($LinkInput) & ' ' & GUICtrlRead($ExtraCodesInput) & ' ' & GUICtrlRead($PlaylistStart) & ' ' & GUICtrlRead($PlaylistEnd), @SystemDir, "runas") EndSwitch WEnd

  Sen SSD kullan en iyisi, Senin HDD AKK getirmiş anlaşılan :D

  Elinize sağlık hocam, bu kodlar çalışıyor ancak ben tablı bir proje kullanmayı düşünüyorum bunu birden fazla metin kutusu olan yerde nasıl kullanabiliriz. Aşağıda örnek bi kodlama oluşturdum. Ctrl + A seçeneği de ekledim metnin tümünü seçmek için. Ancak bir türlü aktif olan kısımda düzenleme yapabilecek şekile getiremedim, kod sadece $Kod1 alanında çalışıyor. Fazla bilgim olmadığından kod üzerinde çok bir düzenleme yapamıyorum.   [spoiler] #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #include <GUIEdit.au3> #include <WinAPI.au3> Global $Information, $ScreenShots, $GamePlay, $NFO, $Req, $h1, $h2, $h3, $h4, $h5 HotKeySet("^a", "_selectall") #Region ### START Koda GUI section ### Form= $Form1_1 = GUICreate("Form1", 1110, 384, 173, 211) $BKaydet = GUICtrlCreateButton("Kaydet !", 16, 8, 129, 25) $BTemizle = GUICtrlCreateButton("Temizle", 160, 8, 129, 25) $Tab1 = GUICtrlCreateTab(8, 48, 1097, 329) $TabSheet1 = GUICtrlCreateTabItem("Kod1") $Kod1 = GUICtrlCreateEdit("", 8, 66, 1081, 321) GUICtrlSetData(-1, "") $TabSheet2 = GUICtrlCreateTabItem("Kod2") $Kod2 = GUICtrlCreateEdit("", 8, 66, 1081, 321) GUICtrlSetData(-1, "") $TabSheet3 = GUICtrlCreateTabItem("Kod3") $Kod3 = GUICtrlCreateEdit("", 8, 66, 1081, 321) GUICtrlSetData(-1, "") $TabSheet4 = GUICtrlCreateTabItem("Kod4") $Kod4 = GUICtrlCreateEdit("", 8, 66, 1081, 321) GUICtrlSetData(-1, "") $TabSheet5 = GUICtrlCreateTabItem("Kod5") $Kod5 = GUICtrlCreateEdit("", 8, 66, 1081, 321) GUICtrlSetData(-1, "") GUICtrlCreateTabItem("") $BBorder = GUICtrlCreateButton("Border Ekle", 336, 8, 129, 25) $BKaldir = GUICtrlCreateButton("<br/> Kaldır", 472, 8, 129, 25) GUISetState(@SW_SHOW) $h1 = GUICtrlGetHandle($Kod1) $h2 = GUICtrlGetHandle($Kod2) $h3 = GUICtrlGetHandle($Kod3) $h4 = GUICtrlGetHandle($Kod4) $h5 = GUICtrlGetHandle($Kod5) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $BBorder _TAG(' ', 'style="border: 3px solid #000000;"',$Kod1) Case $BKaldir $oku = _GUICtrlEdit_GetText($Kod1) If StringInStr($oku, "<br/>") Then $oku = StringReplace($oku, "<br/>", "") _GUICtrlEdit_SetText($Kod1,$oku) Else MsgBox(0, "Hata", "<br/> kodu bulunamadı!") EndIf Case $BKaydet If Not FileExists(@ScriptDir & "\Konular\") Then DirCreate (@ScriptDir & "\Konular\") If FileExists(@ScriptDir & "\Konular\Konu.html") Then MsgBox(16, "Hata!", "Bu konu daha önce oluşturulmuş!") Else yaz() EndIf Else If FileExists(@ScriptDir & "\Konular\Konu.html") Then MsgBox(16, "Hata!", "Bu konu daha önce oluşturulmuş!") Else yaz() EndIf EndIf EndSwitch WEnd Func _TAG($sOpenTag,$sCloseTag,$hEdit) $sSelPos = _GUICtrlEdit_GetSel($hEdit) $sSelString = StringMid(_GUICtrlEdit_GetText($hEdit), $sSelPos[0] + 1, $sSelPos[1] - $sSelPos[0]) _GUICtrlEdit_ReplaceSel($Kod1, $sOpenTag & $sSelString & $sCloseTag) EndFunc;_TAG Func _selectall() Local $hWnd = _WinAPI_GetFocus() Switch $hWnd Case 0 Case $h1, $h2, $h3, $h4, $h5 _GUICtrlEdit_SetSel($hWnd, 0, -1) Return EndSwitch HotKeySet("^a") Send("^a") HotKeySet("^a", "_selectall") EndFunc ;==>_selectall Func yaz() FileWriteLine(@ScriptDir & "\Konular\Konu.html", '<!DOCTYPE html>') FileWriteLine(@ScriptDir & "\Konular\Konu.html", 'Kod1' & GUICtrlRead($Kod1)) FileWriteLine(@ScriptDir & "\Konular\Konu.html", 'Kod1Bitiş') FileWriteLine(@ScriptDir & "\Konular\Konu.html", 'Kod2' & GUICtrlRead($Kod2)) FileWriteLine(@ScriptDir & "\Konular\Konu.html", 'Kod2Bitiş') FileWriteLine(@ScriptDir & "\Konular\Konu.html", 'Kod3' & GUICtrlRead($Kod3)) FileWriteLine(@ScriptDir & "\Konular\Konu.html", 'Kod3Bitiş') FileWriteLine(@ScriptDir & "\Konular\Konu.html", 'Kod4' & GUICtrlRead($Kod4)) FileWriteLine(@ScriptDir & "\Konular\Konu.html", 'Kod4Bitiş') FileWriteLine(@ScriptDir & "\Konular\Konu.html", 'Kod5' & GUICtrlRead($Kod5)) FileWriteLine(@ScriptDir & "\Konular\Konu.html", 'Kod5Bitiş') EndFunc ;==>yaz [/spoiler]

GUICtrlCreateEdit veya _GUICtrlEdit_Create ile oluşturulan geniş metin kutusunda belirli kodu aratıp belirlediğim değerle değiştirmek istiyorum. Basit bir HTML editör yamayı düşünüyorum. Belli tagları seçtiğim metine eklemek için aşağıdaki kodu buldum ancak, kutuya yazılan metinde arama yaptırıp <br/> tagı varsa onu silmesini istiyorum ama bi türlü yapamadım.   Aşağıdaki kodu denedim, işe yaramıyor. <_< #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <GuiEdit.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 615, 149, 192, 124) $Edit1 = _GUICtrlEdit_Create($Form1, "Only a test edit control", 8, 8, 193, 105) $Button1 = GUICtrlCreateButton("Replace", 136, 120, 65, 17) $Button2 = GUICtrlCreateButton("Delete", 60, 120, 65, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1     $nMsg = GUIGetMsg()     Switch $nMsg         Case $GUI_EVENT_CLOSE             Exit         Case $Button1             _TAG("<b>","</b>",$Edit1)         Case $Button2         If StringInStr($Edit1, "<br/>") Then         StringReplace($Edit1, "<br/>", "")                 Else         MsgBox(0, "Hata", "<br/> kodu bulunamadı!")         EndIf     EndSwitch WEnd Func _TAG($sOpenTag,$sCloseTag,$hEdit) $sSelPos = _GUICtrlEdit_GetSel($hEdit) $sSelString = StringMid(_GUICtrlEdit_GetText($hEdit), $sSelPos[0] + 1, $sSelPos[1] - $sSelPos[0]) _GUICtrlEdit_ReplaceSel($Edit1, $sOpenTag & $sSelString & $sCloseTag) EndFunc;_TAG

Yeni sürümü olan paylaşabilir mi?

  Mükemmel tam istediğim gibi olmuş :)   [spoiler]Seçilen: ABD Sırası: 1 Seçilen: Türkiye Sırası: 0 Seçilen: Almanya Sırası: 4 Seçilen: Japanyo Sırası: 3 Seçilen: Çin Sırası: 2 Seçilen: Türkiye Sırası: 0 Seçilen: ABD Sırası: 1 Seçilen: Japanyo Sırası: 3 Seçilen: Çin Sırası: 2 Seçilen: Almanya Sırası: 4 Seçilen: Japanyo Sırası: 3 Seçilen: Almanya Sırası: 4[/spoiler]

  Malesef bunu konuyu açmadan önce araştırdığımda denemiştim, istediğimi yapamadım bu kodlarla.

Autoit ile dizideki elemanlar arasında rastgele seçim yapmak istiyorum. Seçilen dizine ait kodlar çalıştırılacak ve belli bir süre bekledikten sonra tekrar başa dönecek ancak bu sefer ki seçimde önceki dizi elemanını seçemeyecek. Yani aynı seçenek üst üste seçilemeyecek. Bu şekilde döngüyü nasıl yapabilirim.   Örnek vermek gerekirse; Dizideki elemanlar; 1, 2, 3, 4, 5 Program bunlardan birini rastgele seçecek. Seçtiği 2 olsun diyelim. 2 dizisine ait kodu çalıştıracak mesela 2 nolu dizi elemanı seçildi mesajı versin. Daha sonra 5 sn bekleyecek ve 2. kez seçim yapacak. Bu seferki dizi elemanlar; 1, 3, 4, 5 2 yok çünkü onu az önce seçtik. Aynı şekilde birini seçip o dizinin kodunu çalıştıracak. Diyelim 4 seçti. Bu seferki dizi elemanlar; 1, 2, 3, 5 4 yok çünkü onu az önce seçtik. bu şekilde sınırsız döngüye girecek.

Klasördeki dosyaları listeleyebiliyorum ancak kaç tane olduğunu bir türlü gösteremiyorum. #include <File.au3> #include <Array.au3> Local $FileList = _FileListToArray(@DesktopDir, "*.mp3", "1") MsgBox(4096, "Dosya Sayısı", $FileList[0]) _ArrayDisplay($FileList, "$FileList") $FileList[0],$FileList[1],$FileList[n] diziler şeklinde sonucu veriyor ama oradaki n sayısını bulamıyorum.

Ne yaptıysam olmuyor. Tüm dediklerinizi tamamıyla yaptım ve programı etkinleştirdim. Herşey güzel çalışıyordu ne olduysa reset attıktan sonra oldu. Tekrar yaptım bu sefer de kabul etmiyor Full sürüm olarak açılıyor 5 sn sonra kapanıyor Trial moduna dönüyor.

Başka forumdan biri sağolsun yardımcı oldu, biraz kendime göre düzelttim oldu :)

Hocam başlangıç seviyesindeyim daha döngülü işlemleri yapamıyorum. :D Dynamic kod yapısı oluşturamıyorum henüz.   Aklımdaki algoritma: İlk Döngü Başlangıcı ---------> hedef dosyayı 1.bat şeklinde kaydedecek İkinci Döngü Başlangıcı ---------> Proxy.txt dosyasının ilk satırını okuyacak 1.bat dosyasına hedefteki ilk satıra yazacak. Proxy.txt dosyasının ikinci satırını okuyacak 1.bat dosyasına hedefteki ikinci satıra yazacak. ..... 20 olunca hedef dosyayı 2.bat şeklinde kaydedecek. aynı işlemleri tekrar yapacak. bunu proxy bitene kadar yapacak. Proxy.txt okuyan değer sıfırlanmayacak 20 den sonra 21 şeklinde sürekli artarak devam edecek.   20 değeri sabit olmayacak mesela onu 50 de yapabilirim arayüzden değiştirebilmem lazım. Ama koda dökemiyorum :)

Bir başka proje üzerinde uğraşıyorum. Şimdi yapmak istediğim şu; Bir bat dosyam var ve içine proxy eklemem gerekiyor. Her dosyaya 20 veya yazdığım değerde proxy eklemek istiyorum. Bat dosyası bu şekilde. KODLAR VAR... REM Proxy               ---------------------------> SET Proxy01=-e http_proxy=BURAYA SET Proxy02=-e http_proxy=BURAYA SET Proxy03=-e http_proxy=BURAYA SET Proxy04=-e http_proxy=BURAYA SET Proxy05=-e http_proxy=BURAYA SET Proxy06=-e http_proxy=BURAYA .... SET Proxy20=-e http_proxy=BURAYA KODLAR VAR... BURAYA yazan yere txt içindeki proxyleri sırayla yazıcak. Daha sonra 20 veya yazdığım değer olunca bu bat dosyasından bir kopya oluşturup, oluşturduğu yeni bat dosyasına yazmaya devam edecek. Umarım anlatabilmişimdir.   FileReadLine, FileWriteLine ile yapılıyor ama biraz karışık geldi bunu yapmak.