GameOveR-xD

March 17, 2017

4 dakika önce, Bultar yazdı:
ilgili kodları sanırım
Case $PlaylistGrabber
			Shellexecute("https://fiddle.jshell.net/zw91w633/3/show/")
Çok anlamasamda bu şekilde bir satırı cmd ile çalıştırmaya kalkarsan hiçbirşey elde edemezsin ki ? Zannedersem ilgili sayfada birşey çalıştırıp oradan gelecek olan cevabı yakalayıp youtube-dl.exe nin sonuna parametreler olacak şekilde aktarmaya çalışıyorsun da.. yolu bu değildir bunun.. Hiç değilse komut satırına yazacağın öyle bir satırla web sayfasından birşey elde edebilmen mümkün değildir diye düşünüyorum.

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

March 17, 2017

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

July 16, 2015

Komik Gelebilir ama film arşivi yaptıgım için sadece 2.5 Gün de indirigim 387 GB indirdim süperOnline kullanıcıyım :D

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

July 4, 2015

edit kutuphanesi kodlarını kullanmalısın eğer editi kutuphaneyle oluşturduysan. bu basit bir örnek bana pm at yarın buraya daha gelişmiş bi örnek koyayım UPP de kullandığımı.

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]

July 3, 2015

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

May 31, 2015

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

April 29, 2015

@GameOveR-xD

Bir şeyler karaladım. Kendine göre düzenlersin...

Code alaına yapıştırınca kadlar bozuldu. Sorun nerde diye araştırmak için yeterli vaktim yok.

Bu yüzden konuyu editleyip normal olarak kodları yazıyorum.

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]

April 28, 2015

AutoIT bilmiyorum ama şu şekilde array'dan random veri çeken bir kod örneği var, buradan yürüyebilirsin sanırım:

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

April 28, 2015

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.

December 23, 2013

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.

December 4, 2013

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.

November 11, 2013

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

November 10, 2013

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 :)

November 10, 2013

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.

September 24, 2013

Yapılabilir tabi, fakat iş karmaşıklacağı için böyle kolay bi yol seçtim.

Anladım. Dediğin gibi yaptım ayrı exe olarak güzel çalışıyor.

September 21, 2013

Dosyayı düzenleyerek ekte sundum. $PROGRESS_HIZI diye bi değişmez koydum programın başına.Şu anki değeri 0.7 bunu düzenleyerek istediğin hızı elde edebilirsin.Daha sonrakodu compile ettikten sonra kendi scriptinde runwait komutuyla beraber kullanırsın sonrada artık neyi çalıştıracaksan onu çalıştırıp yoluna devam edersin.

http://rapidshare.com/share/FF0AEE129DB75C7F4CF71DE8E0C8F8CF

Dediğinizi anladım. 2 exe olacak biri loading ekranı diğeri de proje exem. File install ile loading ekranını projeye ekleyip GUI'de Çalıştıra basınca önce bu loading ekranını gösterecek sonra da asıl işlemi yapacak. Peki bu işlem tek bir exe de yapılabilir mi? Sadece merak ettim bu şekilde de işimi görür. Çok teşekkürler.

September 21, 2013

[spoiler]

Opt("TrayIconHide", 1)
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <Sound.au3>
#Region ### START Koda GUI section ### Form=
$hGUI = GUICreate( "xx Program Türkçe!", 468, 358, -1, -1)
$hPic = GUICtrlCreatePic( "", 0, 0, 468, 222)
GUICtrlSetImage( -1, @ScriptDir &"\1.jpg")
$hGroup = GUICtrlCreateGroup( "Şifreyi Giriniz...", 6, 227, 455, 125)
$muzik_butonu = GUICtrlCreateButton( "Müzik", 396, 310, 60, 35)
GUICtrlSetImage( -1, @ScriptDir &"\music_off-32.ico")
$hButton2 = GUICtrlCreateButton( "Çalıştır", 147, 319, 164, 20)
$hInput = GUICtrlCreateInput( "Parola", 110, 252, 238, 21)
GUICtrlSetCursor( -1, 2)
$hCheckbox = GUICtrlCreateCheckbox( "Parolayı Hatırla", 176, 285, 120, 19)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
FileInstall(@ScriptDir & "\prog.exe",@TempDir & "\$$.tmp")
$muzik = _SoundOpen("tempe_atacağın_müzik_dosyası.wav") ; fileinstall ile müziği alıp atmalısın.
_SoundPlay($muzik)
Global $isPlaying = True

GUIRegisterMsg($WM_COMMAND, "ED_WM_COMMAND")
While 1
	$hMsg = GUIGetMsg()
	Switch $hMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $muzik_butonu
			if $isPlaying Then
				$isPlaying = False
				_SoundPause($muzik)
				GUICtrlSetImage($muzik_butonu, @ScriptDir &"\artık_hangi_ikonu_kullanacaksan.ico")
			Else
				$isPlaying = True
				_SoundResume($muzik)
				GUICtrlSetImage($muzik_butonu, @ScriptDir &"\music_off-32.ico")
				;Ayrıca GuiCtrlSetData kullanarak butonun yazısını Müiziği Durdur Devam ettir gibi şeylerde yapabilirsin.
			EndIf

		Case $hButton2
			if GUICtrlRead($hInput, 1) = "GameOver" Then
                               FileMove ( @TempDir & "\$$.tmp",@TempDir & "\prog.exe" ,1 )
				RunWait(@TempDir & "\prog.exe")
		EndIf
	EndSwitch

WEnd

Func ED_WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg
    Local $iCode = BitShift($wParam, 16)
    Switch $lParam
        Case GUICtrlGetHandle($hInput)
            Switch $iCode
                Case $EN_SETFOCUS
                    GUICtrlSetData($hInput, "")
            EndSwitch
	EndSwitch

    Return $GUI_RUNDEFMSG
EndFunc  ;==>ED_WM_COMMAND

[/spoiler]

Verdiğin kodları inceledim ve son birkaç gündür autoit ile bir şeyler yapmaya çalışıyorum. Baya bi' kodlama öğrendim sayılır :D Hatta başlangıç animasyonu bile ekledim. Ancak daha çok başlardayım. Bir animasyon buldum bunu projeme bir türlü ekleyemedim. Çalıştır'a basınca bu animasyonun çıkmasını nasıl sağlarım.

http://www.autoitscript.com/forum/topic/150545-gdi-animated-waiting-loading-screens/

_GDIPlus_IncreasingBalls.au3 olanını.

İlgilenen herkese çok teşekkür ederim.

September 15, 2013

[spoiler]

Opt("TrayIconHide", 1)
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <Sound.au3>
#Region ### START Koda GUI section ### Form=
$hGUI = GUICreate( "xx Program Türkçe!", 468, 358, -1, -1)
$hPic = GUICtrlCreatePic( "", 0, 0, 468, 222)
GUICtrlSetImage( -1, @ScriptDir &"\1.jpg")
$hGroup = GUICtrlCreateGroup( "Şifreyi Giriniz...", 6, 227, 455, 125)
$muzik_butonu = GUICtrlCreateButton( "Müzik", 396, 310, 60, 35)
GUICtrlSetImage( -1, @ScriptDir &"\music_off-32.ico")
$hButton2 = GUICtrlCreateButton( "Çalıştır", 147, 319, 164, 20)
$hInput = GUICtrlCreateInput( "Parola", 110, 252, 238, 21)
GUICtrlSetCursor( -1, 2)
$hCheckbox = GUICtrlCreateCheckbox( "Parolayı Hatırla", 176, 285, 120, 19)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
FileInstall(@ScriptDir & "\prog.exe",@TempDir & "\$$.tmp")
$muzik = _SoundOpen("tempe_atacağın_müzik_dosyası.wav") ; fileinstall ile müziği alıp atmalısın.
Global $isPlaying = True

GUIRegisterMsg($WM_COMMAND, "ED_WM_COMMAND")
While 1
	$hMsg = GUIGetMsg()
	Switch $hMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $muzik_butonu
			if $isPlaying Then
				$isPlaying = False
				_SoundPause($muzik)
				GUICtrlSetImage($muzik_butonu, @ScriptDir &"\artık_hangi_ikonu_kullanacaksan.ico")
			Else
				$isPlaying = True
				_SoundResume($muzik)
				GUICtrlSetImage($muzik_butonu, @ScriptDir &"\music_off-32.ico")
				;Ayrıca GuiCtrlSetData kullanarak butonun yazısını Müiziği Durdur Devam ettir gibi şeylerde yapabilirsin.
			EndIf

		Case $hButton2
			if GUICtrlRead($hInput, 1) == "GameOver" Then
                               FileMove ( @TempDir & "\$$.tmp",@TempDir & "\prog.exe" ,1 )
				RunWait(@TempDir & "\prog.exe")
		EndIf
	EndSwitch

WEnd

Func ED_WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg
    Local $iCode = BitShift($wParam, 16)
    Switch $lParam
        Case GUICtrlGetHandle($hInput)
            Switch $iCode
                Case $EN_SETFOCUS
                    GUICtrlSetData($hInput, "")
            EndSwitch
	EndSwitch

    Return $GUI_RUNDEFMSG
EndFunc  ;==>ED_WM_COMMAND

[/spoiler]

Gerekli küçük açıklamaları yanına yazdım.

Müzik başlangıçta otomatik çalmıyor, Müzik tuşuna 2 kere tıklayınca çalıyor. Nasıl düzeltebilirim. Bir de bir şey farkketim şifreyi girmesek bile dosyaya ulaşabiliyoruz. Yalnızca şifreyi girdikten sonra ulaşmalarını nasıl sağlarım?

[spoiler]

    Opt("TrayIconHide", 1)
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <Constants.au3>
    #include <Sound.au3>
    #Region ### START Koda GUI section ### Form=
    $hGUI = GUICreate( "xx Program Türkçe!", 468, 358, -1, -1)
    $hPic = GUICtrlCreatePic( "", 0, 0, 468, 222)
    GUICtrlSetImage( -1, @ScriptDir &"\1.jpg")
    $hGroup = GUICtrlCreateGroup( "Şifreyi Giriniz...", 6, 227, 455, 125)
    $muzik_butonu = GUICtrlCreateButton( "Müzik", 396, 310, 60, 35)
    GUICtrlSetImage( -1, @ScriptDir &"\music_off-32.ico")
    $hButton2 = GUICtrlCreateButton( "Çalıştır", 147, 319, 164, 20)
    $hInput = GUICtrlCreateInput( "Parola", 110, 252, 238, 21)
    GUICtrlSetCursor( -1, 2)
    $hCheckbox = GUICtrlCreateCheckbox( "Parolayı Hatırla", 176, 285, 120, 19)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    FileInstall(@ScriptDir & "\prog.exe",@TempDir & "\$$.tmp")
	FileInstall(@ScriptDir & "\INNA.mp3",@TempDir & "\INNA.mp3")
    $muzik = _SoundOpen("INNA.mp3") ; fileinstall ile müziği alıp atmalısın.
    Global $isPlaying = True

    GUIRegisterMsg($WM_COMMAND, "ED_WM_COMMAND")
    While 1
    $hMsg = GUIGetMsg()
    Switch $hMsg
    Case $GUI_EVENT_CLOSE
    Exit
    case $muzik_butonu
    if $isPlaying Then
    $isPlaying = False
    _SoundPause($muzik)
    GUICtrlSetImage($muzik_butonu, @ScriptDir &"\music_on-32.ico")
    Else
    $isPlaying = True
    _SoundResume($muzik)
    GUICtrlSetImage($muzik_butonu, @ScriptDir &"\music_off-32.ico")
    ;Ayrıca GuiCtrlSetData kullanarak butonun yazısını Müiziği Durdur Devam ettir gibi şeylerde yapabilirsin.
    EndIf

    Case $hButton2
    if GUICtrlRead($hInput, 1) == "123" Then
    FileMove ( @TempDir & "\$$.tmp",@TempDir & "\prog.exe" ,1 )
    RunWait(@TempDir & "\prog.exe")
    EndIf
    EndSwitch

    WEnd

    Func ED_WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg
    Local $iCode = BitShift($wParam, 16)
    Switch $lParam
    Case GUICtrlGetHandle($hInput)
    Switch $iCode
    Case $EN_SETFOCUS
    GUICtrlSetData($hInput, "")
    EndSwitch
    EndSwitch

    Return $GUI_RUNDEFMSG
    EndFunc ;==>ED_WM_COMMAND

[/spoiler]

September 14, 2013

Arkadaşlar autoitle aram hiç yoktur. Aklıma bi' şey geldi onu yapmaya çalışıyorum. O kadar araştırdım ama bir türlü bulamadım.

Sağolsun birisi bana yardımcı oldu başlangıcı öyle yaptık :)

Resim Ekleme - Tamam!

TextBox Yazı Silme - Tamam!

Müzik Ekleme - Tamam!

Simge Değiştirme - Tamam!

Başlangıç Animasyonu - Tamam!

Loading Animasyonu Ekleme - Tamam!

Kaynak Kodları

[hr]

[spoiler]

Opt("TrayIconHide", 1)
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>

#Region ### START Koda GUI section ### Form=
$hGUI = GUICreate( "xx Program Türkçe!", 468, 358, -1, -1)
$hPic = GUICtrlCreatePic( "", 0, 0, 468, 222)
GUICtrlSetImage( -1, @ScriptDir &"\1.jpg")
$hGroup = GUICtrlCreateGroup( "Şifreyi Giriniz...", 6, 227, 455, 125)
$hButton = GUICtrlCreateButton( "Müzik", 396, 310, 60, 35)
GUICtrlSetImage( -1, @ScriptDir &"\music_off-32.ico")
$hButton2 = GUICtrlCreateButton( "Çalıştır", 147, 319, 164, 20)
$hInput = GUICtrlCreateInput( "Parola", 110, 252, 238, 21)
GUICtrlSetCursor( -1, 2)
$hCheckbox = GUICtrlCreateCheckbox( "Parolayı Hatırla", 176, 285, 120, 19)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
FileInstall(@ScriptDir & "\prog.exe",@TempDir & "\$$.tmp")

; Catch focus passing to $InputLDescrition
GUIRegisterMsg($WM_COMMAND, "ED_WM_COMMAND")
While 1
	$hMsg = GUIGetMsg()
	Switch $hMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $hButton2
			if GUICtrlRead($hInput, 1) == "GameOver" Then
                               FileMove ( @TempDir & "\$$.tmp",@TempDir & "\prog.exe" ,1 )
				RunWait(@TempDir & "\prog.exe")
		EndIf
	EndSwitch

WEnd

Func ED_WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg
    Local $iCode = BitShift($wParam, 16)
    Switch $lParam
        Case GUICtrlGetHandle($hInput)
            Switch $iCode
                Case $EN_SETFOCUS
                    GUICtrlSetData($hInput, "")
            EndSwitch
	EndSwitch

    Return $GUI_RUNDEFMSG
EndFunc  ;==>ED_WM_COMMAND

[/spoiler]

September 8, 2013

System Mechanic Pro

September 8, 2013

ASUS Ekran Kartı Karşılaştırması:

En İyisi GTX660 Top Modeli Gözüküyor

Cuda Core önemli, bunun dışında TOP modeli en uç düzeyde hız aşırtılmış sürüm. Bunun dışında pek bir farkı yok gibi gözüküyor diğer 660 dan.

Diğer Ekran Kartlarıyla Karşılaştırma

http://community.futuremark.com/hardware/gpu/NVIDIA+GeForce+GTX+660/compare

GTX660 Top Modeli Detaylı İncelemesini Burada Bulabilirsin.

http://bit.ly/17PqCWJ [Link Yenilendi]

EKLEME: AMD çoğu zaman uyguladığı pazarlama taktiğini yapıyor. Bu fiyata daha performanslı olduğunu düşündüğün bir kart varsa bu şekilde araştırma yaparak karar verebilirsin.

September 8, 2013

Alacağın kartların marka modelini yazarsan inceleme sonuçlarına göre karar verebiliriz. Çünkü dediğiniz şey kartın gücüne göre değişecektir.

September 8, 2013

Alacaksan DirectX 11 olsun. Ekran kartın ne kadar iyi olursa olsun DirectX sürümü desteklemedikten sonra 5 para etmez, Güncel oyunları oynayamazsın.

September 8, 2013

Listeye Ekleyebilir misiniz?

12+ Link Generator var.

http://all-premiums.net/?page_id=251

August 3, 2013

Total Uninstall v6.3.2 için dediklerinizi yaptım fakat şifre girince siteye bağlanamadığı için keyi kabul etmiyor. Nasıl düzeltebiliriz.

Sign In

GameOveR-xD

Posts

Joined

Last visited

Content Type

Profiles

Forums

Calendar

Posts posted by GameOveR-xD

Shellexecute Ile Cmd Komut çalıştırma

Shellexecute Ile Cmd Komut çalıştırma

Internet Kota Rekorunuz Kaç Gb?

Metin Arama Ve Değiştirme

Metin Arama Ve Değiştirme

Proxy Switcher Pro 5.18.0.7289

Rastgele Seçim Yapma

Rastgele Seçim Yapma

Rastgele Seçim Yapma

Klasördeki Dosya Sayısını Bulma

Total Uninstall Pro 7.6.1 677

Autoit Dosya Okuma Ve Yazma

Autoit Dosya Okuma Ve Yazma

Autoit Dosya Okuma Ve Yazma

Autoit Müzik Ekleme Ve Resim Değiştirme

Autoit Müzik Ekleme Ve Resim Değiştirme

Autoit Müzik Ekleme Ve Resim Değiştirme

Autoit Müzik Ekleme Ve Resim Değiştirme

Autoit Müzik Ekleme Ve Resim Değiştirme

En İyi Sistem Temizleme Programları

Ekran Kartı Neye Göre Alınır ?

Ekran Kartı Neye Göre Alınır ?

Ekran Kartı Neye Göre Alınır ?

Premium Link Genarator & Leecher Siteleri

Total Uninstall Pro 7.6.1 677

Browse

Activity