blue_life

@MeHMeTBeN Yarın bakmaya çalışırım. Aslında ilgili koruma önlemi çok basitti. Yani işten anlayan birisi çözebilir. Daha gelişmiş yamalar yapabiliyoruz, lakin bazı antivirüsler uyarı veriyor. Yeni daha zor yamaları bir kaç kez denemiş ve antivirüs engeline takılmıştım malesef. Bir ara @radyofon güzel bir yama programı paylaşmıştı. Ondada antivirüs uyarı sayısı arttıyordu ama çok aşırı deyildi. Ilgili yama programıda kırılabiliyor lakin tahminime göre autoit ile ilgilenenlerin %95 ilgili yamayı kıramaz! Diğer soruna cevap vermemişim Çalışma dizinini hatalı yazmışsın. Aşağıdaki gibi dene! [color="#0000FF"][b]FileCreateShortcut(@ProgramFilesDir & "\revolt\revolt.exe",@DesktopDir & "\revolt.lnk",@ProgramFilesDir & "\revolt")[/b][/color]

[tnctr='topic/185886-bluelife-hosts-editor-v10']Ben hosteditor çalışmamada user32.dll dosyasını kullanmıştım.[/tnctr] Ama buda acemi kullanıcılar için biraz karışık. Bu yüzden az önce daha basit bir şey yazdım. Bu sayede zorlanmadan yapabilirsiniz... Lakin xp kullandığım için w7 gibi nt6 sistemlerde test etmek lazım. [codebox]Global $BlueMouseArray[10][2] = [[0,"Selam Millet!" & @crlf & "BlueLife Test 123 "]] Global $BlueGuiInfo Local $Form1 = GUICreate("BlueLife MouseOver Test", 350, 150) $Button1 = GUICtrlCreateButton("Button1", 10, 10, 75, 25) _BlueMouseSetTip(-1,"Birinci Buton") ;Isterseniz -1 yerine $Button1 da yazabilirsiniz. $Button2 = GUICtrlCreateButton("Button2", 10, 40, 75, 25) _BlueMouseSetTip(-1,"Ikinci Buton") ;Isterseniz -1 yerine $Button2 da yazabilirsiniz. $Button3 = GUICtrlCreateButton("Button3", 10, 70, 75, 25) _BlueMouseSetTip(-1,"Üçüncü Buton") ;Isterseniz -1 yerine $Button3 da yazabilirsiniz. GUICtrlCreateButton("Button3", 10, 100, 75, 25) _BlueMouseSetTip(-1,"Dördüncü Buton") GUICtrlCreateLabel("Label2", 100, 10, 150, 15) _BlueMouseSetTip(-1,"Label") $Input1 = GUICtrlCreateInput("Input1", 100, 25, 150, 20) _BlueMouseSetTip(-1,"Input1") $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 100, 55, 150, 15) _BlueMouseSetTip(-1,"$Checkbox1") $Combo1 = GUICtrlCreateCombo("Combo1", 100, 70, 150, 20) _BlueMouseSetTip(-1,"$Combo1") $Radio1 = GUICtrlCreateRadio("Radio1", 100, 105, 70, 15) _BlueMouseSetTip(-1,"Radio1") $Radio2 = GUICtrlCreateRadio("Radio2", 175, 105, 70, 15) _BlueMouseSetTip(-1,"Radio2") $BlueGuiInfo = GUICtrlCreateLabel($BlueMouseArray[0][1], 260, 10, 80, 130,1,1) ;Bu labele yazdırıyoruz! GUIRegisterMsg(32, "_BlueMouseOver") GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit EndSwitch WEnd Func _BlueMouseOver($hWnd, $Msg, $wParam, $lParam) If Not IsDeclared ("BlueLastMsg") Then Global $BlueLastMsg Local $Blue_NID = False If $BlueLastMsg <> $wParam Then $BlueLastMsg = $wParam For $I = 1 to $BlueMouseArray[0][0] If $BlueMouseArray[$I][0] = $BlueLastMsg Then $Blue_NID = True GUICtrlSetData($BlueGuiInfo,$BlueMouseArray[$I][1]) ExitLoop EndIf Next If $Blue_NID = False Then GUICtrlSetData($BlueGuiInfo,$BlueMouseArray[0][1]) EndIf EndFunc Func _BlueMouseSetTip($Blue_NID,$Blue_NMSG) Local $Blue_NID_Hwnd = GUICtrlGetHandle($Blue_NID) If $Blue_NID_Hwnd = 0 Then Return False $BlueMouseArray[0][0] += 1 If UBound($BlueMouseArray) <= $BlueMouseArray[0][0] Then Redim $BlueMouseArray[$BlueMouseArray[0][0] +10][2] $BlueMouseArray[$BlueMouseArray[0][0]][0] = $Blue_NID_Hwnd $BlueMouseArray[$BlueMouseArray[0][0]][1] = $Blue_NMSG EndFunc[/codebox] Senin kodlarına göre ayarlarsak; [codebox]#AutoIt3Wrapper_Icon=program.ico #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Sound.Au3> ; -------- Mouse Over Variables ------------------------ Global $BlueMouseArray[10][2] = [[0,"Selam Millet!" & @crlf & "BlueLife Test 123 "]] Global $BlueGuiInfo ; -------- Mouse Over Variables ------------------------ $Form1 = GUICreate("Katılımsız Programlar Kasım 2011.::MeHMeT::.", 821, 570) $photoshop = GUICtrlCreateCheckbox("Photoshop Cs5", 4, 36, 121, 25) _BlueMouseSetTip(-1,"Bu kadar basit") ;Isterseniz -1 yerine $Button1 da yazabilirsiniz. $Reader = GUICtrlCreateCheckbox("Adobe Reader", 4, 58, 121, 25) _BlueMouseSetTip(-1,"Kafana göre takıl") ;Isterseniz -1 yerine $Button1 da yazabilirsiniz. $FlashPlayer = GUICtrlCreateCheckbox("Adobe Flash Player", 4, 80, 121, 25) _BlueMouseSetTip(-1,"Canım Sıkılıyor") ;Isterseniz -1 yerine $Button1 da yazabilirsiniz. $FlashPaketi = GUICtrlCreateCheckbox("Flash Paketi", 4, 102, 121, 25) _BlueMouseSetTip(-1,"Acaba ne yapsam") ;Isterseniz -1 yerine $Button1 da yazabilirsiniz. $Java = GUICtrlCreateCheckbox("Java", 4, 124, 121, 25) _BlueMouseSetTip(-1,"Düşünüyorum") ;Isterseniz -1 yerine $Button1 da yazabilirsiniz. $Chrome = GUICtrlCreateCheckbox("Google Chrome", 4, 453, 89, 25) _BlueMouseSetTip(-1,"Her zaman olduğu gibi bir filmi izleyelim" & @CRLF & _ "Hadi kolay gelsin") ;Isterseniz -1 yerine $Button1 da yazabilirsiniz. $klite = GUICtrlCreateCheckbox("K-Lite Mega Codec Pack", 4, 168, 137, 25) $eset = GUICtrlCreateCheckbox("Eset Smart Security", 4, 190, 124, 25) $CCleaner = GUICtrlCreateCheckbox("CCleaner", 4, 212, 121, 25) $DirectX = GUICtrlCreateCheckbox("DirectX 9.29", 4, 234, 121, 25) $idm = GUICtrlCreateCheckbox("Internet.Download.Manager", 4, 256, 161, 25) $avira = GUICtrlCreateCheckbox("Avira AntiVir Free", 4, 278, 121, 25) $winrar = GUICtrlCreateCheckbox("Winrar", 4, 299, 121, 25) $Uninstaller = GUICtrlCreateCheckbox("Your Uninstaller7", 4, 321, 110, 25) $nero = GUICtrlCreateCheckbox("Nero Lite", 4, 346, 110, 18) $office = GUICtrlCreateCheckbox("Office 2007", 4, 365, 121, 25) $framework = GUICtrlCreateCheckbox("NET Framework AIO", 4, 387, 129, 25) $winamp = GUICtrlCreateCheckbox("Winamp", 4, 409, 73, 25) $ultraiso = GUICtrlCreateCheckbox("Ultra İso", 4, 431, 73, 25) $teamviewer = GUICtrlCreateCheckbox("Team Viewer", 4, 146, 121, 25) $turing = GUICtrlCreateCheckbox("Turing", 4, 519, 121, 25) $nameiso = GUICtrlCreateButton("N", 114, 435, 18, 17) GUICtrlSetFont(-1, 7, 400, 0, "MS Sans Serif") GUICtrlSetTip(-1, "Name Kopyala") $serialiso = GUICtrlCreateButton("S", 134, 435, 18, 17) GUICtrlSetFont(-1, 7, 400, 0, "MS Sans Serif") GUICtrlSetTip(-1, "Serial Kopyala") $label1 = GUICtrlCreateLabel("", 232, 408, 188, 17) $mny = GUICtrlCreateButton("?", 4, 544, 121, 20) GUICtrlSetTip(-1, "©MNY@") $tumusec = GUICtrlCreateButton("Tümünü Seç", 680, 70, 127, 55) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) $secme = GUICtrlCreateButton("Seçme", 548, 70, 127, 55) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) $kuran = GUICtrlCreateCheckbox("Kuran-ı Kerim Pro", 184, 37, 121, 25) $namazhoca = GUICtrlCreateCheckbox("Namaz Hocası", 184, 67, 121, 25) $osmanlitanitim = GUICtrlCreateCheckbox("Osmanlı Tanıtımı", 184, 97, 121, 25) $osmanlitarihi = GUICtrlCreateCheckbox("Osmanlılar Tarihi", 184, 127, 121, 25) $turkiyetanitim = GUICtrlCreateCheckbox("Türkiye Tanıtımı", 184, 157, 121, 25) $turklerv2 = GUICtrlCreateCheckbox("Türkler v2", 184, 187, 121, 25) $yahoo = GUICtrlCreateCheckbox("Yahoo Messenger", 401, 35, 121, 25) $skype = GUICtrlCreateCheckbox("Skype", 401, 66, 121, 25) $googletalk = GUICtrlCreateCheckbox("Google Talk", 401, 96, 121, 25) $camfrog = GUICtrlCreateCheckbox("Camfrog", 401, 126, 121, 25) $windowsmessenger = GUICtrlCreateCheckbox("Windows Live Messenger", 401, 156, 145, 25) $ucakoyunu = GUICtrlCreateCheckbox("HyperSpace Invader", 184, 260, 121, 25) $kucukoyun = GUICtrlCreateCheckbox("Karışık Küçük Oyunlar", 184, 290, 121, 25) $satranc = GUICtrlCreateCheckbox("3D Satranç", 184, 321, 121, 25) $zurna = GUICtrlCreateCheckbox("Zurna Mirc", 401, 260, 121, 25) $kelebek = GUICtrlCreateCheckbox("Kelebek FinaL4", 401, 290, 121, 25) $geveze = GUICtrlCreateCheckbox("Geveze Mirc", 401, 321, 121, 25) $yuzuk = GUICtrlCreateCheckbox("Yüzük", 401, 351, 121, 25) $agbaglantilar = GUICtrlCreateButton("Ağ Bağlantıları", 548, 150, 127, 35) $aygityonetici = GUICtrlCreateButton("Aygıt Yöneticisi", 548, 192, 127, 35) $guvenlikduvar = GUICtrlCreateButton("Güvenlik Duvarı", 548, 234, 127, 35) $hizmetler = GUICtrlCreateButton("Hizmetler", 548, 276, 127, 35) $kullanicihesap = GUICtrlCreateButton("Kullanıcı Hesapları", 548, 318, 127, 35) $otoguncelleme = GUICtrlCreateButton("Oto Güncelleştirmeler", 548, 360, 127, 35) $sistemozellik = GUICtrlCreateButton("Sistem Özellikleri", 548, 402, 127, 35) $programeklekaldir = GUICtrlCreateButton("Program Ekle Kaldır", 548, 444, 127, 35) $hostsdefault = GUICtrlCreateButton("Hosts Default", 680, 150, 127, 35) $hostsidm = GUICtrlCreateButton("Hosts İDM", 680, 192, 127, 35) $hostsidmyaz = GUICtrlCreateButton("Hosts İDMYAZ", 680, 234, 127, 35) $coklumsn = GUICtrlCreateButton("Çoklu Msn", 680, 276, 127, 35) $kilitac = GUICtrlCreateButton("Kilitaç Google", 680, 318, 127, 35) $oksil = GUICtrlCreateButton("Kısa Yol Ok Sil", 680, 360, 127, 35) $okgerial = GUICtrlCreateButton("Kısa Yol Ok Geri Al", 680, 402, 127, 35) $driver = GUICtrlCreateButton("Driver", 680, 444, 127, 35) $play = GUICtrlCreateButton("Pause", 680, 485, 127, 35) GUICtrlSetTip(-1, "Müzik Kapat") $denetimmasa = GUICtrlCreateButton("Denetim Masası", 548, 485, 127, 35) $oyun = GUICtrlCreateButton("Oyun", 184, 223, 91, 33) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $chat = GUICtrlCreateButton("Chat Script", 401, 223, 91, 33) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $sistem = GUICtrlCreateButton("Sistem", 3, 3, 91, 33) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $osmanliturkdini = GUICtrlCreateButton("Karma", 183, 3, 99, 33) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $messenger = GUICtrlCreateButton("Messenger", 401, 3, 91, 33) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $calistir = GUICtrlCreateButton("Çalıştır", 549, 3, 258, 55) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $mtu = GUICtrlCreateCheckbox("Mtu Sözlük", 4, 497, 121, 25) $mozilla = GUICtrlCreateCheckbox("Mozilla Firefox", 4, 475, 121, 25) $internetozellik = GUICtrlCreateButton("İnternet Özellikleri", 548, 525, 127, 35) $cikis = GUICtrlCreateButton("Çıkış", 680, 525, 127, 35) GUICtrlSetTip(-1, "Programdan Çık") $name = GUICtrlCreateButton("N", 114, 328, 18, 17) GUICtrlSetFont(-1, 7, 400, 0, "MS Sans Serif") GUICtrlSetTip(-1, "Name Kopyala") $serial = GUICtrlCreateButton("S", 134, 328, 18, 17) GUICtrlSetFont(-1, 7, 400, 0, "MS Sans Serif") GUICtrlSetTip(-1, "Serial Kopyala") DirCreate(@TempDir & "\mny") FileInstall("resim.gif", @TempDir & "\mny\resim.gif") $PIC1 = GUICtrlCreatePic(@TempDir & "\mny\resim.gif", 176, 462, 345, 97) FileInstall("Ses.mp3", @TempDir & "\mny\Ses.mp3") Sleep(1000) SoundPlay(@TempDir & "\mny\Ses.mp3", 0) SoundSetWaveVolume(50) $BlueGuiInfo = GUICtrlCreateLabel($BlueMouseArray[0][1], 200, 450, 300, 100,1,1) ;Bu labele yazdırıyoruz! GUIRegisterMsg(32, "_BlueMouseOver") WinSetTrans($Form1, "", 230) GUISetState(@SW_SHOW) GUISetBkColor(0xffffff) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE DirRemove(@TempDir & "\mny", 1) ExitLoop Case $cikis DirRemove(@TempDir & "\mny", 1) Exit Case $play If GUICtrlRead($play) = "Pause" Then GUICtrlSetData($play, "Play") SoundPlay("") Else GUICtrlSetData($play, "Pause") SoundPlay(@TempDir & "\mny\Ses.mp3", 0) EndIf Case $driver RunWait("Programs\Driverkur\DriverPackSolution.exe") ;hakkında Case $mny Msgbox(64,"Hakkında","TnCtR" & @CRLF & _ "Programın yapılış amacı Katılımsız Kurulum içindir." & @crlf & _ "Program AutoIt v3 ile kodlanmıştır" & @CRLF & _ "İyi günlerde kullanmanız dileğiyle" ,10,$Form1) Case $nameiso ClipPut("MeHMeT") Case $serialiso ClipPut("0B1F-9F39-37E6-C63F") ;SİSTEM ÖZELLİK Case $internetozellik RunWait("Extra\sistem özellik\internetozellik.exe") Case $denetimmasa RunWait("Extra\sistem özellik\denetimmasasi.exe") Case $agbaglantilar RunWait("Extra\sistem özellik\Ağbaglantilari.exe") Case $guvenlikduvar RunWait("Extra\sistem özellik\Güvenlikduvari.exe") Case $kullanicihesap RunWait("Extra\sistem özellik\Kullanicihesaplari.exe") Case $otoguncelleme RunWait("Extra\sistem özellik\Otogüncelleme.exe") Case $aygityonetici RunWait("Extra\sistem özellik\Aygityoneticisi.exe") Case $hizmetler RunWait("Extra\sistem özellik\Hizmetler.exe") Case $programeklekaldir RunWait("Extra\sistem özellik\Programeklekaldir.exe") Case $sistemozellik RunWait("Extra\sistem özellik\Sistemozellikleri.exe") ;AYAR Case $hostsdefault RunWait("Extra\ayar\Hostsdefault.exe") Case $hostsidm RunWait("Extra\ayar\HostsİDM.exe") Case $hostsidmyaz RunWait("Extra\ayar\HostsİDMYAZ.exe") Case $coklumsn RunWait("Extra\ayar\ÇokluMsn.exe") Case $kilitac RunWait("Extra\ayar\KilitaçGoogle.exe") Case $oksil RunWait("Extra\ayar\Oksil.exe") Case $okgerial RunWait("Extra\ayar\Okgerial.exe") Case $name ClipPut("MeHMeT") Case $serial ClipPut("000014-QET0RE-W2MYUA-P5V5Z9-QC44JK-12UCYE-1EPH1U-RQADZ8-8RJ475-N2N57D ") Case $tumusec GUICtrlSetState($photoshop, $GUI_CHECKED) GUICtrlSetState($Reader, $GUI_CHECKED) GUICtrlSetState($FlashPlayer, $GUI_CHECKED) GUICtrlSetState($FlashPaketi, $GUI_CHECKED) GUICtrlSetState($Java, $GUI_CHECKED) GUICtrlSetState($Chrome, $GUI_CHECKED) GUICtrlSetState($klite, $GUI_CHECKED) GUICtrlSetState($eset, $GUI_CHECKED) GUICtrlSetState($CCleaner, $GUI_CHECKED) GUICtrlSetState($DirectX, $GUI_CHECKED) GUICtrlSetState($idm, $GUI_CHECKED) GUICtrlSetState($avira, $GUI_CHECKED) GUICtrlSetState($winrar, $GUI_CHECKED) GUICtrlSetState($Uninstaller, $GUI_CHECKED) GUICtrlSetState($nero, $GUI_CHECKED) GUICtrlSetState($office, $GUI_CHECKED) GUICtrlSetState($framework, $GUI_CHECKED) GUICtrlSetState($winamp, $GUI_CHECKED) GUICtrlSetState($ultraiso, $GUI_CHECKED) GUICtrlSetState($teamviewer, $GUI_CHECKED) GUICtrlSetState($turing, $GUI_CHECKED) GUICtrlSetState($mtu, $GUI_CHECKED) GUICtrlSetState($kuran, $GUI_CHECKED) GUICtrlSetState($namazhoca, $GUI_CHECKED) GUICtrlSetState($osmanlitanitim, $GUI_CHECKED) GUICtrlSetState($osmanlitarihi, $GUI_CHECKED) GUICtrlSetState($turkiyetanitim, $GUI_CHECKED) GUICtrlSetState($turklerv2, $GUI_CHECKED) GUICtrlSetState($yahoo, $GUI_CHECKED) GUICtrlSetState($skype, $GUI_CHECKED) GUICtrlSetState($googletalk, $GUI_CHECKED) GUICtrlSetState($camfrog, $GUI_CHECKED) GUICtrlSetState($windowsmessenger, $GUI_CHECKED) GUICtrlSetState($ucakoyunu, $GUI_CHECKED) GUICtrlSetState($kucukoyun, $GUI_CHECKED) GUICtrlSetState($satranc, $GUI_CHECKED) GUICtrlSetState($zurna, $GUI_CHECKED) GUICtrlSetState($kelebek, $GUI_CHECKED) GUICtrlSetState($geveze, $GUI_CHECKED) GUICtrlSetState($yuzuk, $GUI_CHECKED) GUICtrlSetState($mozilla, $GUI_CHECKED) Case $sistem GUICtrlSetState($photoshop, $GUI_CHECKED) GUICtrlSetState($Reader, $GUI_CHECKED) GUICtrlSetState($FlashPlayer, $GUI_CHECKED) GUICtrlSetState($FlashPaketi, $GUI_CHECKED) GUICtrlSetState($Java, $GUI_CHECKED) GUICtrlSetState($Chrome, $GUI_CHECKED) GUICtrlSetState($klite, $GUI_CHECKED) GUICtrlSetState($eset, $GUI_CHECKED) GUICtrlSetState($CCleaner, $GUI_CHECKED) GUICtrlSetState($DirectX, $GUI_CHECKED) GUICtrlSetState($idm, $GUI_CHECKED) GUICtrlSetState($avira, $GUI_CHECKED) GUICtrlSetState($winrar, $GUI_CHECKED) GUICtrlSetState($Uninstaller, $GUI_CHECKED) GUICtrlSetState($nero, $GUI_CHECKED) GUICtrlSetState($office, $GUI_CHECKED) GUICtrlSetState($framework, $GUI_CHECKED) GUICtrlSetState($winamp, $GUI_CHECKED) GUICtrlSetState($ultraiso, $GUI_CHECKED) GUICtrlSetState($teamviewer, $GUI_CHECKED) GUICtrlSetState($turing, $GUI_CHECKED) GUICtrlSetState($mtu, $GUI_CHECKED) GUICtrlSetState($mozilla, $GUI_CHECKED) Case $osmanliturkdini GUICtrlSetState($kuran, $GUI_CHECKED) GUICtrlSetState($namazhoca, $GUI_CHECKED) GUICtrlSetState($osmanlitanitim, $GUI_CHECKED) GUICtrlSetState($osmanlitarihi, $GUI_CHECKED) GUICtrlSetState($turkiyetanitim, $GUI_CHECKED) GUICtrlSetState($turklerv2, $GUI_CHECKED) Case $oyun GUICtrlSetState($ucakoyunu, $GUI_CHECKED) GUICtrlSetState($kucukoyun, $GUI_CHECKED) GUICtrlSetState($satranc, $GUI_CHECKED) Case $messenger GUICtrlSetState($yahoo, $GUI_CHECKED) GUICtrlSetState($skype, $GUI_CHECKED) GUICtrlSetState($googletalk, $GUI_CHECKED) GUICtrlSetState($camfrog, $GUI_CHECKED) GUICtrlSetState($windowsmessenger, $GUI_CHECKED) Case $chat GUICtrlSetState($zurna, $GUI_CHECKED) GUICtrlSetState($kelebek, $GUI_CHECKED) GUICtrlSetState($geveze, $GUI_CHECKED) GUICtrlSetState($yuzuk, $GUI_CHECKED) Case $calistir If GUICtrlRead($photoshop) = 1 Then RunWait("Programs\sistem\APCS5E.x86.exe") If GUICtrlRead($Reader) = 1 Then RunWait("Programs\sistem\AdobeReader1010TR.exe") If GUICtrlRead($FlashPlayer) = 1 Then RunWait("Programs\sistem\Adobe-flash-player-11-32bit-21Ekim2011Cuma.exe") If GUICtrlRead($FlashPaketi) = 1 Then RunWait("Programs\sistem\Flash Paketi 3.1.1 (x86-x64).exe") If GUICtrlRead($Java) = 1 Then RunWait("Programs\sistem\Java Runtime Environment 7.0.exe") If GUICtrlRead($Chrome) = 1 Then RunWait("Programs\sistem\Googlechrome.exe") If GUICtrlRead($klite) = 1 Then RunWait("Programs\sistem\K-Lite Mega Codec Pack.exe") If GUICtrlRead($eset) = 1 Then RunWait("Programs\sistem\Eset Smart Security 5.0.84 x86.exe") If GUICtrlRead($CCleaner) = 1 Then RunWait("Programs\sistem\CCleaner.exe") If GUICtrlRead($DirectX) = 1 Then RunWait("Programs\sistem\DirectX 9.29.1974 (Nisan-2011)(x86-x64).exe") If GUICtrlRead($idm) = 1 Then RunWait("Programs\sistem\İDM.exe") If GUICtrlRead($avira) = 1 Then RunWait("Programs\sistem\Avira AntiVir Free 10.0.0.609.exe") If GUICtrlRead($winrar) = 1 Then RunWait("Programs\sistem\Winrar 4.01 TR.exe") If GUICtrlRead($Uninstaller) = 1 Then RunWait("Programs\sistem\YourUninstaller7.exe") If GUICtrlRead($nero) = 1 Then RunWait("Programs\sistem\Nero Lite 9.4.26.0.exe") If GUICtrlRead($office) = 1 Then RunWait("Programs\sistem\Office 2007.exe") If GUICtrlRead($framework) = 1 Then RunWait("Programs\sistem\NETAIO.exe") If GUICtrlRead($winamp) = 1 Then RunWait("Programs\sistem\Winamp.2.95.Extreme.TR.exe") If GUICtrlRead($ultraiso) = 1 Then RunWait("Programs\sistem\uiso9_pe.exe") If GUICtrlRead($teamviewer) = 1 Then RunWait("Programs\sistem\TeamViewer6.0.11117.0.exe") If GUICtrlRead($turing) = 1 Then RunWait("Programs\sistem\Turing.exe") If GUICtrlRead($mtu) = 1 Then RunWait("Programs\sistem\Mtusozluk.exe") If GUICtrlRead($mozilla) = 1 Then RunWait("Programs\sistem\firefox7.exe") If GUICtrlRead($kuran) = 1 Then RunWait("Programs\osmanlı-türkiye-dini programlar\Kuransetup.exe") If GUICtrlRead($namazhoca) = 1 Then RunWait("Programs\osmanlı-türkiye-dini programlar\Namaz.exe") If GUICtrlRead($osmanlitanitim) = 1 Then RunWait("Programs\osmanlı-türkiye-dini programlar\Osmanlitanitim.exe") If GUICtrlRead($osmanlitarihi) = 1 Then RunWait("Programs\osmanlı-türkiye-dini programlar\osmanlilar.exe") If GUICtrlRead($turkiyetanitim) = 1 Then RunWait("Programs\osmanlı-türkiye-dini programlar\Türkiyetanitim.exe") If GUICtrlRead($turklerv2) = 1 Then RunWait("Programs\osmanlı-türkiye-dini programlar\Türkler.exe") If GUICtrlRead($yahoo) = 1 Then RunWait("Programs\messenger\Yahoomessenger11.exe") If GUICtrlRead($skype) = 1 Then RunWait("Programs\messenger\Skype5.6.0.110.exe") If GUICtrlRead($googletalk) = 1 Then RunWait("Programs\messenger\GoogleTalk.exe") If GUICtrlRead($camfrog) = 1 Then RunWait("Programs\messenger\Camfrog Video Chat 6.1.136.exe") If GUICtrlRead($windowsmessenger) = 1 Then RunWait("Programs\messenger\windowslivemessenger.exe") If GUICtrlRead($ucakoyunu) = 1 Then RunWait("Programs\oyun\Ucakoyunu.exe") If GUICtrlRead($kucukoyun) = 1 Then RunWait("Programs\oyun\oyunkarisik.EXE") If GUICtrlRead($satranc) = 1 Then RunWait("Programs\oyun\3Dsatrancv3.02.exe") If GUICtrlRead($zurna) = 1 Then RunWait("Programs\chat\Zurnamirc.exe") If GUICtrlRead($kelebek) = 1 Then RunWait("Programs\chat\Kelebek FinaL4.exe") If GUICtrlRead($geveze) = 1 Then RunWait("Programs\chat\Gevezescript.exe") If GUICtrlRead($yuzuk) = 1 Then RunWait("Programs\chat\yuzuk.exe") Case $secme GUICtrlSetState($photoshop, $GUI_UNCHECKED) GUICtrlSetState($Reader, $GUI_UNCHECKED) GUICtrlSetState($FlashPlayer, $GUI_UNCHECKED) GUICtrlSetState($FlashPaketi, $GUI_UNCHECKED) GUICtrlSetState($Java, $GUI_UNCHECKED) GUICtrlSetState($Chrome, $GUI_UNCHECKED) GUICtrlSetState($klite, $GUI_UNCHECKED) GUICtrlSetState($eset, $GUI_UNCHECKED) GUICtrlSetState($CCleaner, $GUI_UNCHECKED) GUICtrlSetState($DirectX, $GUI_UNCHECKED) GUICtrlSetState($idm, $GUI_UNCHECKED) GUICtrlSetState($avira, $GUI_UNCHECKED) GUICtrlSetState($winrar, $GUI_UNCHECKED) GUICtrlSetState($Uninstaller, $GUI_UNCHECKED) GUICtrlSetState($nero, $GUI_UNCHECKED) GUICtrlSetState($office, $GUI_UNCHECKED) GUICtrlSetState($framework, $GUI_UNCHECKED) GUICtrlSetState($winamp, $GUI_UNCHECKED) GUICtrlSetState($ultraiso, $GUI_UNCHECKED) GUICtrlSetState($teamviewer, $GUI_UNCHECKED) GUICtrlSetState($turing, $GUI_UNCHECKED) GUICtrlSetState($kuran, $GUI_UNCHECKED) GUICtrlSetState($namazhoca, $GUI_UNCHECKED) GUICtrlSetState($osmanlitanitim, $GUI_UNCHECKED) GUICtrlSetState($osmanlitarihi, $GUI_UNCHECKED) GUICtrlSetState($turkiyetanitim, $GUI_UNCHECKED) GUICtrlSetState($turklerv2, $GUI_UNCHECKED) GUICtrlSetState($yahoo, $GUI_UNCHECKED) GUICtrlSetState($skype, $GUI_UNCHECKED) GUICtrlSetState($googletalk, $GUI_UNCHECKED) GUICtrlSetState($camfrog, $GUI_UNCHECKED) GUICtrlSetState($windowsmessenger, $GUI_UNCHECKED) GUICtrlSetState($ucakoyunu, $GUI_UNCHECKED) GUICtrlSetState($kucukoyun, $GUI_UNCHECKED) GUICtrlSetState($satranc, $GUI_UNCHECKED) GUICtrlSetState($zurna, $GUI_UNCHECKED) GUICtrlSetState($kelebek, $GUI_UNCHECKED) GUICtrlSetState($geveze, $GUI_UNCHECKED) GUICtrlSetState($yuzuk, $GUI_UNCHECKED) GUICtrlSetState($mtu, $GUI_UNCHECKED) GUICtrlSetState($mozilla, $GUI_UNCHECKED) EndSwitch WEnd Func _BlueMouseOver($hWnd, $Msg, $wParam, $lParam) If Not IsDeclared ("BlueLastMsg") Then Global $BlueLastMsg Local $Blue_NID = False If $BlueLastMsg <> $wParam Then $BlueLastMsg = $wParam For $I = 1 to $BlueMouseArray[0][0] If $BlueMouseArray[$I][0] = $BlueLastMsg Then $Blue_NID = True GUICtrlSetData($BlueGuiInfo,$BlueMouseArray[$I][1]) ExitLoop EndIf Next If $Blue_NID = False Then GUICtrlSetData($BlueGuiInfo,$BlueMouseArray[0][1]) EndIf EndFunc Func _BlueMouseSetTip($Blue_NID,$Blue_NMSG) Local $Blue_NID_Hwnd = GUICtrlGetHandle($Blue_NID) If $Blue_NID_Hwnd = 0 Then Return False $BlueMouseArray[0][0] += 1 If UBound($BlueMouseArray) <= $BlueMouseArray[0][0] Then Redim $BlueMouseArray[$BlueMouseArray[0][0] +10][2] $BlueMouseArray[$BlueMouseArray[0][0]][0] = $Blue_NID_Hwnd $BlueMouseArray[$BlueMouseArray[0][0]][1] = $Blue_NMSG EndFunc[/codebox]

@MeHMeTBeN Sorununuz çözüldü mü? Örnek vermemi istermisiniz?

@MeHMeTBeN Öncelikle ben katılımsız çalışmalar yapmadığım için büyük boyutlu dosyaları, fileinstall ile test etmedim. Autoitte upx kullanılmasının bazı nedenleri, kısaca uygulama dosyasının boyutunu bir nebze düşürmesi, upxin üctretsiz olması ve antivürüs programları tarafından daha az uyarı vermesi vs. Eğer autoit ile yaptığın çalışma büyük boyutluysa upx gibi bir sıkıştırma kullanmayınız! Autoitte standart bir uygulama dosyamız olur ve compile edilmiş kodlar bu uygulama dosyamızın sonuna eklenir. Uygulamamız çalıştığında haliyle rame yüklenir ve uygulama dosyasının son kısımındaki kodları algılayıp çalıştırır. Upx ile sıkıştırma yaptığımızda, sadece bizim uygulama dosyamız upx tarafından sıkıştırılır. Yani ortalama autoitte upx ile elde edeceğimiz sıkıştırma oranı 1 mb yi bile geçmez. Autoit kodlarımız zaten compile edilirken sıkıştırılmaktadır. Compile edilmiş kodlar sıkıştırılmış olsa zaten autoit programımız çalışmaz ve hata verir. Kısaca büyük boyutlu dosyalarınızda uxp kullanmayınız. Zaten bu tip sıkıştırma yaptığımızda bazı antivirüsler tarafından bir takım uyarılara maruz kalıyoruz. Umarım anlatabilmişimdir, kolay gelsin arkadaşlar...

[warning][b][color=#FF0000]Mesajınızın tamamını kapsayacak şekilde gereksiz yere renk, boyut, kalınlık, smiley gibi efektler kullanamazsınız. Tekrarlamanız haline uyarı alacaksınız! [topic=872]Lütfen Forum Kurallarını Okuyunuz.[/topic] Anlayışınız için teşekkür ederiz Tnc-Team[/color][/b][/warning]

[img]http://i.imgur.com/14Dl7.jpg[/img] Sevdiklerinizle birlike, sağlıklı, huzurlu ve mutlu bir bayram geçirmenizi dilerim! Tüm Müslüman Aleminin Kurban Bayarımı Mübarek Olsun...

Dnsjumperda parametre desteği vardı! Yani bir *.bat, *.cmd dosyasıyla ilgili programı kullanarak dns değiştirebilirsiniz. [img]http://www.sordum.com/wp-content/uploads/2010/07/DnsJumper_Command_Prompt1.png[/img] [quote]Ben hızlı dns değiştirmek için dnsjumper v.1.0.4 programını kullanıyorum ve tavsiye ederim. Kısaca; [img]http://bluelife.winbuilder.net/Apps/DnsJumper/DnsJumper_v1.0.4.png[/img] [color="#0000FF"][u][b]http://bluelife.winbuilder.net/Apps/DnsJumper/DnsJumper_v1.0.4.zip[/b][/u][/color] [color="#8B0000"][b]Kullanımı;[/b][/color] [color="#8B0000"]1-[/color]Dns sunucusu seç bölümünden dns sunucunuzu seçiniz. Ben genelde Open Dns ve Google Dns kullanıyorum. [color="#8B0000"]2-[/color]Kaydet uygula butonuna basarak seçtiğiniz dns sunucusunu kayıt ediniz. [color="#8B0000"]3-[/color]Internet tarayıcınızdaki tüm sayfaları kapatıp yeniden açınız. Veyahut sisteminizide yeniden başlatabilirsiniz.[/quote]

[color="#0000FF"][b]DirCopy(@ScriptDir & "\themes", $FSFolder & "\",1)[/b][/color]

Bu konu "Yazılım" forumundan "AutoPlay Media Studio" forumuna taşınmıştır.

Bu konu "Program-Appz - Ebook İstek" forumundan "Yazılım" forumuna taşınmıştır.

Evet daha kontrollü yazmalısın. Ayrıca konuyla ilgili birden fazla konu açmamaya özen göster! Ben kısaca hatalı kısmı düzelteyim... [codebox]#RequireAdmin #NoTrayIcon #region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=D:\Online Games\Silkroad\Silkroad.ico #AutoIt3Wrapper_outfile=iBot Auto Buff v2.8.exe #AutoIt3Wrapper_Res_Description=NoN_Stop #AutoIt3Wrapper_Res_Fileversion=2.8.0.0 #AutoIt3Wrapper_Res_LegalCopyright=NoN_Stop #Obfuscator_Parameters=/sf 1 #endregion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <Process.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GUIListView.au3> #include <GUIListBox.au3> #include <Clipboard.au3> Global $timers[255] Global $handle = 0 Global $ver = "2.7" Global $version Opt("TrayMenuMode", 3) Opt("WinDetectHiddenText", 1) Opt("GUIOnEventMode", 1) Opt("TrayOnEventMode", 1) Global $FSFolder Global $Form1 = GUICreate("Çalışmam 1", 771, 619) GUISetOnEvent(-3, "_Exit") $MenuItem1 = GUICtrlCreateMenu("&Dosya") $exit = GUICtrlCreateMenuItem("Çıkış", $MenuItem1) $MenuItem2 = GUICtrlCreateMenu("&Yardım") $update = GUICtrlCreateMenuItem("Güncellemeleri Kontrol Et", $MenuItem2) $MenuItem3 = GUICtrlCreateMenuItem("", $MenuItem2) $about = GUICtrlCreateMenuItem("Hakkında", $MenuItem2) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 130) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 60) $Group115 = GUICtrlCreateGroup("Bilgi", 405, 35, 350, 420) $logs = GUICtrlCreateList("", 410, 55, 340, 400) GUICtrlSetData(-1, "") GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlCreateTabItem("") Logs("log1") Logs("log2") Logs("-----------------------------------------") $Button1 = GUICtrlCreateButton("Başlat", 405, 555, 350, 25, 0x0001) GUICtrlSetOnEvent(-1, "BTN1") $Button1 = GUICtrlCreateButton("gözat", 405, 505, 350, 25, 0x0001) GUICtrlSetOnEvent(-1, "BTN22") $Tab1 = GUICtrlCreateTab(8, 16, 393, 569) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) $TabSheet1 = GUICtrlCreateTabItem("C6 V20") $Checkbox1111 = GUICtrlCreateCheckbox("Mod1", 20, 50, 150, 17) $TabSheet2 = GUICtrlCreateTabItem("C6 V40") GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlCreateGroup("", -99, -99, 1, 1) $Group5 = GUICtrlCreateGroup("Boş Alan", 10, 50, 185, 105) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetData(-1, "") GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlCreateTabItem("") $logscontext = GUICtrlCreateContextMenu($logs) $clear_logs = GUICtrlCreateMenuItem("Temizle", $logscontext) GUICtrlSetOnEvent($exit, "_Exit") GUICtrlSetOnEvent($clear_logs, "ClearLogs") ; Burdaki fonkisyonlar kod içeriğinde yok! ;~ GUISetOnEvent(-4, "_Hide") ;~ GUICtrlSetOnEvent($update, "Update") ;~ GUICtrlSetOnEvent($about, "About") ;~ TraySetOnEvent(-13, "_Tray") GUISetState(@SW_SHOW) Func BTN22() $FSFolder = FileSelectFolder("Klasörünü seç", "0", 7, "", $Form1) Logs(" " & $FSFolder & " ") EndFunc ;==>BTN22 Func BTN1() ProgressOn("FW Modder", "Fw niz Modlanıyor Lütfen Bekleyiniz", "0 %", 605, 132) For $i = 0 To 2 Step 2 ProgressSet($i, $i & "%") Next If GUICtrlRead($Checkbox1111) = $GUI_CHECKED Then Logs("seçim1 kurulum başladı") DirCopy(@ScriptDir & "\themes\", $FSFolder & "") If GUICtrlRead($Checkbox1111) = $GUI_CHECKED Then Logs("seçim1 kurulum bitti") For $i = 5 To 15 Step 10 ProgressSet($i, $i & "%") Next ProgressSet(100, "Yuppiiii Bitti =D", "By Mert Can") Sleep(3000) ProgressOff() EndFunc ;==>BTN1 While 1 Sleep(20) WEnd Func _Exit() Exit EndFunc ;==>_Exit Func Logs($text) $string = '[' & Time() & ']' & " - " $string &= $text _GUICtrlListBox_InsertString($logs, $string, 0) EndFunc ;==>Logs Func ClearLogs() GUICtrlSetData($logs, '') Logs("Log1") Logs("Log2") Logs("-----------------------------------------") Logs("Temizlendi...") EndFunc ;==>ClearLogs Func Time() $IHOUR = @HOUR $IMIN = @MIN $ISEC = @SEC If $IHOUR = 0 Then $IHOUR = 24 Return $IHOUR & ":" & $IMIN & ":" & $ISEC EndFunc ;==>Time[/codebox]

Tabiki; [codebox]_ProcessCloseLocation(@ProgramFilesDir & "\Winamp") Func _ProcessCloseLocation($BlueGetLoca) If StringRight($BlueGetLoca, 1) <> "\" Then $BlueGetLoca &= "\" If FileExists($BlueGetLoca) = 0 Then Return SetError(1, 0, 0) Local $ErrorLacation = "|" & StringLeft(@WindowsDir, 3) & "|" & @WindowsDir & "\|" & @WindowsDir & "\System32\|" If StringInStr($ErrorLacation, "|" & $BlueGetLoca & "|") <> 0 Then Return SetError(1, 0, 0) Local $Process_list = ProcessList() If UBound($Process_list) Then ReDim $Process_list[UBound($Process_list)][5] For $i = 1 To $Process_list[0][0] $Process_list[$i][2] = FileGetLongName(_ProcessGetLocation($Process_list[$i][1])) $Process_list[$i][3] = StringTrimRight($Process_list[$i][2], StringLen($Process_list[$i][0])) If $Process_list[$i][3] = $BlueGetLoca Then $Process_list[$i][4] = ProcessClose($Process_list[$i][1]) EndIf Next EndIf EndFunc ;==>_ProcessCloseLocation Func _ProcessGetLocation($iPID); Programın çalıştığı dizin Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $iPID) If $aProc[0] = 0 Then Return SetError(1, 0, '') Local $vStruct = DllStructCreate('int[1024]') DllCall('psapi.dll', 'int', 'EnumProcessModules', 'hwnd', $aProc[0], 'ptr', DllStructGetPtr($vStruct), 'int', DllStructGetSize($vStruct), 'int_ptr', 0) Local $aReturn = DllCall('psapi.dll', 'int', 'GetModuleFileNameEx', 'hwnd', $aProc[0], 'int', DllStructGetData($vStruct, 1), 'str', '', 'int', 2048) If StringLen($aReturn[3]) = 0 Then Return SetError(2, 0, '') Return $aReturn[3] EndFunc ;==>_ProcessGetLocation[/codebox]

@kamuran731 Şimdi baktım ve explorer.exe ilgili yapılan bazı değişiklikleri normal kapanırken kayıt ediyor. Biz direk exploerer.exe yi sonlandırdığımızdan ilgili yaptığın ayarlar kayıt edilmiyor malesef. Explorer.exe nink kullandığı (Progrman vb. gibi) pencereye WinKill komutu gönderirsek senin istediğin oluyor ama explorer.exe donmuş ve yanıt vermiyorsa işlem çok uzun sürebilir ve Restart programı haliyle doğru çalışmaz. Ben yinede bunun için basit bir komut vereyim. [codebox]Global $Progman = WinGetHandle("[CLASS:Progman]") If $Progman <> "" Then WinKill($Progman) [/codebox] Veyahut; [codebox]Global $TrayWnd = WinGetHandle("[CLASS:Shell_TrayWnd]") If $TrayWnd <> "" Then WinKill($TrayWnd)[/codebox] Diğer soruna gelirsek; programını yönetici olarak çalıştır. Ayrıca ilgili klasördeki bir program çalışıyor veyahut bir dosya farklı bir program tarafından kullanılıyor olabilir. W7 kullanmadığım için şuan ne desem boş Bu arada konudaki programı birazdan güncelleyeceğim...

@MeHMeTBeN Evet kısa isim alıyormuş! Olur niye olmasınki. Eğer sorun yaşarsan programın çalıştığı klasöre göre tüm programları kapatırız. Yani misal programımız C:\Program Files\Test klasörüne kurulup burdan çalışıyrsa, C:\Program Files\Test altında çalışan tüm programları kapatırız olur biter Bu arada FileInstall kullanırken dosya konumu tam vermene gerek yok. Ilgili dosyaları script dosyanın yanına koy ve tam konum vermeden fileinstall ile ekle. Tam konum verdiğinde ve çalışmanı farklı konuma taşıdığında kodlardaki ilgili konum bilgisini düzeltmek zorunda kalırsın. Misal Dosyamızın ismi Test.exe olsun. Bu dosyayı autoit script dosyasının yanına koyacaksın ve; [b]FileInstall("Test.exe", @TempDir & "\test.exe")[/b] vs. gibi kullanabilirsin... Ayrıca exe dosyalarını çalıştırmak için [b]ShellExecute [/b]yerine [b]Run [/b]komutunu kullanman daha sağlıklı!

@MeHMeTBeN ProcessClose ile ilgili uygulama çalışıyorsa kapanması lazım. Dosya ismini doğru yazdığından eminmisin? Ayrıca birden fazla aynı isimde uygulama çalışıyor olabilir mi? Veyahut bir servis veyahut program tarafından ilgili uygulama tekrar başlatılıyordur... Diğer soruna gelirsek [b]ExitLoop [/b]tan önce sildirebilirsin. Veyahut [b]WEnd[/b] satırının altına ekleyebilirsin. Yani; [codebox]#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Sound.Au3> $Form1 = GUICreate("Katılımsız Programlar", 821, 570) $cikis = GUICtrlCreateButton("Çıkış", 680, 525, 127, 35) DirCreate(@TempDir & "\x") GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE DirRemove(@TempDir & "\x", 1) ExitLoop Case $cikis DirRemove(@TempDir & "\x", 1) Exit EndSwitch WEnd [/codebox]

Bu konu "Program-Appz - Ebook İstek" forumundan "Yazılım" forumuna taşınmıştır.

@kamuran731 Kullandığın işletim sistemini nedir? Yarın bakarım...

Basit bir örnek vermem gerekirse; [codebox]Local $FSFolder = FileSelectFolder("Klasörünü seç", "0",7) If @error <> 0 Or $FSFolder <> "" Then FileCopy("kopyalanacak dosya konumu",$FSFolder, EndIf[/codebox]

@wolfman.tr Evet sanin hattına tanımlanmış indirme hızını düşürmüşler! Ben heralde Ekimin birinde aramıştım. Aradan zaman geçtiği için konuşmayı tam hatırlamıyorum. Hatırladığım kadarıyla önce internet ortamından mail yoluyla vs. şikayetimi iletmiştim. Mail ile geri gönmüşlerdi ama konuyla alakasız mesajlar atmışlardı. Attıkları mesajların içeriği ttnetin sitesinde olan tarife bilgileriydi. İnternet ortamından yaptığım şikayetlerden bir şey elde edemeyince ttnet müşteri hizmetlerini aramıştım. Bayan müşteri elemanına; benim hattıma tanımlanmış indirme hızımın yaklaşık 1-2 hafta önce 5 mbps civarlarına düşürttüklerini ve şuan modemimin arayüzünde gördüğümü iletmiştim. Tabi sorunum iletince beni anlayıp anlamadığını da sormuştum. Bazen acemi müşteri hizmetleri elemanına da düşebiliyoruz. Müşteri hizmetleri elemanı, bu hızın çok iyi bir rakam olduğunu vs. gibi bir çok laf kalabalığı yaparak beni razı etmeye çalışmıştı. Ama ben razı olmamıştım ve sorunumun biran öce çözülmesini istemiştim... Müşteri hizmetleri elemanı beni ikna edemeyince (5-10 dk civarı görüşmüştük) sorunumun en kısa sürede çözüleceğini iletmişti. Kısa bir süre sonra da hızım yükseltilmişti.

@wolfman.tr Evet durumu müşteri hizmetleri elemanına izah ettim ve hızımı tekrar 8 mbps ye çıkarttılar. Ama sendeki sorun farklı olabilir. Bu yüzden önce modeminin arayüzüne girip ilgili hız değerlerini kontrol etmelisin!

Dns değiştirdikten sonra kullandığınız internet tarayıcısına ait tüm pencereleri kapatıp tekrar açmalısınız! Ben OpenDns (208.67.222.222,208.67.220.220) kullanıyorum ve memnunum...

Modeminden ttnet tarafında senin hattına tanımlanmış indirme hızını kontrol etmelisin! Ben AirTies modem kullanıyorum ve tarayıcıdan modeme giriş yaptığımda, ilk sayfada gerekli bilgi mevcut. Benim modemimde şuan [b]ADSL Hızı:799 / 8187 kbps[/b] yazıyor. Yani banim hattıma tanımlanmış indirme hızı 8187 kbps Geçen ay benim hızımı da düşürmüşlerdi... Yaklaşık 5 mbps civarlarında hızım sabitlenmişti! Müşteri hizmetlerini arayarak sorunumu çözmüştüm... Şuan indirme hızımdan memnunum. [img]http://i.imgur.com/ZZ3wh.png[/img]

@zancar Tabiki mümkün! [tnctr='topic/173188-iso-dosyasyndan-xp2003-kurulum-projesi']Ilgili yöntem için bu linkteki konuyu inceleyebilirsin...[/tnctr]

@bygbsx Öncelikle ilgili bölüme format atma ve ilgili diske herangi bir yazım işlemi yapma! Ilk denemen gereken programlar, partition recovery programlarıdır. Eğer partition recovery programları işe yaramaz ise, file recovery programlarını kullanarak şansını denemelisin. Partition reovery programlarına bir örnek vermem gerekirse, Active Partition Recovery for Windows gayet başarılıdır. File recovery programı olarakta benim favorim R-Studio ve benzeri programlardır... Kolay gelsin...

Tamam o zaman yukarıdaki verdiğim örneğe bener bir şey sorununu çözecektir. Kodlamanı bilmiyorum ama işte kısaca kullanmış olduğun döngü içine ilgili programın çalışıp çalışmadığını kontrol edecek bir komut ekle. Misal; [codebox]Run("notepad.exe") ;Bunu test için çalıştırıyoruz. notepad.exe sonlanınca senin scripte sonlanacak Local $Form1 = GUICreate("Form1", 623, 445) GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case -3 Exit EndSwitch If ProcessExists("notepad.exe") = 0 Then Exit ;döngüden çıkmak için exitloop WEnd[/codebox] Kısaca senin kodlama becerine bağlı olarak farklı şekillerde yapılabilir...