Jump to content

daft117

Üye
  • Posts

    23
  • Joined

  • Last visited

Everything posted by daft117

  1.   Yandex hesabına kopyala + yandex disk programı   şurdan: http://goo.gl/YDZPAZ veya şurdan: http://goo.gl/DMGxtn   izle olayı anlayacaksın. torrentten bi farkı yok. iki tık yapacaksın sadece.   300 kb ile çekiyor yavaş çekiyor deme zaman geçtikçe artıyor indirme hızı ve benim bağlantım 3 mbit o yüzden yavaş :)
  2. mesajım bulunsun, yandex'e atınca düzenleyeceğim.   ben yandex'e atıncaya kadar bir ipucu vereyim, hotfile seçerseniz turkuaz renkli pcloud butonunu görebilirsiniz. yandex mantığıyla çalışıyor. deneyen ne demek istediğimi anlar.   edit: yandex: http://goo.gl/8N05XV partlar aynıdır isterseniz yandexten isterseniz köylü hocanın verdiği linklerden çekin
  3. buradaki de uzun :) sadece PWBOOT ile kurulum yapın. BOOTICE ile mbr kısmını ayarlayın. bitti gitti.
  4. bunlar falan hikaye. d-h.st bal gibi de siliyor dosyaları. bir sürü dosyam gitti. çok upload yapan biriyim, siz beni dinleyin. Yandex ve Wuala, gerisi yalan. Yandex = dosyaları silmeyeceğini bildiğim için oraya atıyorum Wuala = IDM ile çekebilme, 5 GB alan veriyor, istersen 5 GB tek part dosya at
  5. arkadaşlar bu kadar adıma gerek yok: PWBOOt araştırın.   laptop'un harddiski bozuk olduğu için aylardır USB 3.0   2 TB hdd'ye kurulu win8 kullanıyorum.
  6. arkadaşlar bi up olsun. görmeyenler olabilir.
  7. Arkadaşlar öncelikle tnctr'yi yıllardır takip ettiğimi belirteyim. Çok kaliteli paylaşımlar oluyor fakat bir süre sonra indirilmeyen linkler siliniyor ve  indirmek isteyenler indiremiyor.   Bu duruma şöyle bir çözüm getirmek istedim: - Elimin altında hızlı bir internet bulunmakta. - Sunum yapan arkadaşlar özel mesaj vasıtasıyla linklerini çoğaltmamı istediğinde seve seve bu işi yaparım. Özellikle günümüzde Yandex Disk gibi bir nimet varken, linklerin silinme derdi yok.   Tercihen yandex'e atarım fakat isteğe göre başka yerlere de atabilirim.   Teşekkürler, pm'lerinizi bekliyorum.
  8. Reg2AU3 programını araştır regedit.exe /S kullanımını araştır
  9. notdefteriyle kafayı bozmuşsun. elinde içinde gereksiz satırlar olan bi değişken var $gereksiz olsun ismi $yeni = __RemoveExtraLines($gereksiz) $gereksiz'deki gereksiz satırları silip yeni değişkenine atayacak
  10. [code]Func PencereyiOrtala($OrtalaBaslik) Local $a $a = WinGetPos($OrtalaBaslik) WinMove($OrtalaBaslik, "", (@DesktopWidth- $a[2]) / 2, (@DesktopHeight - $a[3]) / 2) EndFunc ;==>PencereyiOrtala[/code]
  11. Komut, Windows dosya yapısına uygun olarak rasgele kelimeler üretir (harf, rakam karışık) !@ gibi özel işaretleri kullanmaz Türkçe karakter üretmez. Heryerde kolaylıkla kullanılsın diye böyle yaptım. parametre olarak kelimenin uzunluğunu girmelisiniz. [code]Func __GetRandomName($rLength) Local $i = 0, $string, $number Do $number = Random(48, 122, 1) If $number > 57 And $number < 65 Then ContinueLoop If $number > 90 And $number < 97 Then ContinueLoop $string = $string & Chr($number) $i = $i + 1 Until $i = $rLength Return ($string) EndFunc ;==>__GetRandomName[/code]
  12. Satır1 Satır2 Satır3 örneğindeki gibi aradaki boş satırları (@CR,@LF,@CRLF) silmeye yarayan fonksiyon. [code]Func __RemoveExtraLines($string) Local $i = 0, $s = "", $split $split = StringSplit($string, @CRLF, 0) Do $i = $i + 1 If $split[$i] = @CR Or $split[$i] = @CRLF Or $split[$i] = "" Or $split[$i] = @LF Then ContinueLoop If $s == "" Then $s = $split[$i] Else $s = $s & @CRLF & $split[$i] EndIf Until $i = UBound($split) - 1 Return ($s) EndFunc [/code]
  13. StdoutRead gibi fonksiyonları kullananlar demek istediğimi anlayacaktır. basitçe anlatmak gerekirse, cmd ekranında dir *.* > 1.txt yaptığımızda veriler 1.txt'ye kaydoluyor (ama garip karakterlerle) bu fonksiyon türkçe'ye uygun hale getiriyor [code]Func __DOSTR($dostr_string) Local $h $h = $dostr_string $h = StringReplace($h, Chr(159), 'ş', 0, 1) $h = StringReplace($h, Chr(129), 'ü', 0, 1) $h = StringReplace($h, Chr(141), 'ı', 0, 1) $h = StringReplace($h, Chr(152), 'İ', 0, 1) $h = StringReplace($h, Chr(153), 'Ö', 0, 1) $h = StringReplace($h, Chr(148), 'ö', 0, 1) $h = StringReplace($h, Chr(166), 'Ğ', 0, 1) $h = StringReplace($h, Chr(167), 'ğ', 0, 1) $h = StringReplace($h, Chr(154), 'Ü', 0, 1) $h = StringReplace($h, Chr(158), 'Ş', 0, 1) $h = StringReplace($h, Chr(128), 'Ç', 0, 1) $h = StringReplace($h, Chr(135), 'ç', 0, 1) Return ($h) EndFunc ;==>__DOSTR[/code]
  14. bu programda geçerli olur mu bilmem de, bu kadar satır kod yazmaya gerek yok. 1. arkadaşın dediği gibi katılımsız parametre kullanarak kur. 2. sanal xp'de (temiz, hiçbi program kurulu olmayan) total uninstall ile serial girerken yaptıgı değişiklikleri bulacaksın bu regedit'te de olabilir, herhangi bi dosyada da saklayabilir regedit'te saklıyorsa .reg olarak kaydedip internetten buldugun Reg2Au3 programıyla AU3 kodlarına dönüştürüp projene ekliyceksin.
  15. al en basit haliyle bir örnek $a=1 while $a=1 ;$a=1 olduğu sürece döngü devam edecek. $yazi="yaz bişiler işte" if Butona Basıldıysa Then $a=0 ;veya ne istersen yeterki 1 olmasın endif wend
  16. alt alta yazdığın pencere isimlerini array'a atman gerekli parçalayıp. daha sonra döngülerle tek tek işlem yapıcaksın blackman12 sanırım kodunda eksik var. $ayir = StringSplit($sdata,@LF) StringSplit($sdata,@CRLF,1) olması gerekmez mi? muhtemelen notdefteriyle yazmıştır = notdefteri enter tuşunda @CRLF kullanır
  17. daft117

    Controlsend()

    illa Edit1 gibi birşey girmek zorunda değilsin. control ismini boş bırakıp yani "" sadece title ve yollayacağın şeyi girerek, send komutu mantığında kullanabilirsin. ama yine de olacağını sanmıyorum. çoğu online veya herhangi bi oyun (directx vs kullanan) genelde bu tarz programları engelliyo bilerek veya bilmeyerek. çoğu oyuna bu yöntem sökmez, Trainer'lar neden var sanıyorsun? oyunlara yazılan botlar, oyun ekranından çok, oyunun ram'deki değerlerini okuyup/yazarak çalışır. sağlam bir tersine mühendislik eseridir yani.
  18. başlangıç onarma'yı dene. google'dan bulabilirsin
  19. dosya indir: http://www.multiupload.com/AYM1VGH2S1 kodu neden buraya koymadım, kodun içindeki bir siteyi, gizlenmiş link sanıp engelliyor örnek kullanım: [b]$kisaltilmis = __TinyUrl("www.google.com")[/b]
  20. program aslında sadece hafızaya alınan (CTRL V = kopyala) linkleri toplamak için değil geniş amaçlı da kullanılabilir geliştirilebilir ben basit bıraktım misal www.rapidshare.com/...../1.rar şeklinde kısaltılmış linkleri topluca almanın başka yöntemleri de var(IDM, Excel+Firefox gibi) ama program yinede iş görür [img]http://img233.imageshack.us/img233/1649/clipboard01up.jpg[/img] [code]#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form1_1 = GUICreate("Link Kopyala", 625, 445, -1, -1) $Button1 = GUICtrlCreateButton("Başlat", 536, 6, 75, 25, $WS_GROUP) $Button2 = GUICtrlCreateButton("Durdur", 536, 33, 75, 25, $WS_GROUP) $Button3 = GUICtrlCreateButton("Kaydet", 536, 61, 75, 25, $WS_GROUP) $Button4 = GUICtrlCreateButton("Panoya Al", 536, 89, 75, 25, $WS_GROUP) $Edit1 = GUICtrlCreateEdit("", 8, 8, 521, 433) GUICtrlSetStyle($Edit1, $ES_READONLY) GUISetState(@SW_SHOW) $a = 0 $old = "" While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $a = 1 Case $Button2 $a = 0 Case $Button3 DosyaKaydet() Case $Button4 NotDefterineAt() EndSwitch Kopyala() WEnd Func Kopyala() If $a = 1 Then If ClipGet() <> "" And ClipGet() <> $old Then $old = ClipGet() $editoku = GUICtrlRead($Edit1) If $editoku = "" Then $editoku = ClipGet() Else $editoku = $editoku & @CRLF & $old EndIf GUICtrlSetData($Edit1, $editoku) EndIf EndIf EndFunc ;==>Kopyala Func DosyaKaydet() If $a = 0 Then $default=GetRandomName( $dosyayolu = FileSaveDialog("Bir isim seçin", @DesktopDir, "Yazı dosyaları (*.txt;*.txt)", 2, $default) & ".txt" If @error <> 0 Then Else $editoku = GUICtrlRead($Edit1) $dosya = FileOpen($dosyayolu, 2) FileWrite($dosya, $editoku) FileClose($dosya) EndIf Else MsgBox(0, "Hata", "İlk önce programı durdurun") EndIf EndFunc ;==>DosyaKaydet Func NotDefterineAt() $editoku = GUICtrlRead($Edit1) ClipPut($editoku) EndFunc ;==>NotDefterineAt Func GetRandomName($rLength) Local $i = 0, $string, $number Do $number = Random(48, 122, 1) If $number > 57 And $number < 65 Then ContinueLoop If $number > 90 And $number < 97 Then ContinueLoop $string = $string & Chr($number) $i = $i + 1 Until $i = $rLength Return ($string) EndFunc ;==>__GetRandomName[/code]
  21. [code]Func __FindSendTo() If @OSVersion = "WIN_2008R2" Or @OSVersion = "WIN_7" Or @OSVersion = "WIN_2008" Or @OSVersion = "WIN_VISTA" Then Return (@AppDataDir & "\Microsoft\Windows\SendTo") ElseIf @OSVersion = "WIN_2003" Or @OSVersion = "WIN_XP" Or @OSVersion = "WIN_XPe" Or @OSVersion = "WIN_2000" Then return (@UserProfileDir & "\SendTo") Else Return (0) EndIf EndFunc ;==>FindSendTo [/code] örnek kullanım: [code]Run("explorer.exe " & __FindSendTo())[/code]
  22. Ek olarak bu listede görmek istemediğiniz girişleri silebiliyorsunuz Kayıt defteri, array işlemlerine güzel bir örnek [img]http://img839.imageshack.us/img839/1271/123ne.jpg[/img] dosya linki: http://www.multiupload.com/BTKCN7W6IB kod: [code]#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <WindowsConstants.au3> Global $i = 0, $name = "", $command = "", $aName[1], $aCommand[1], $aKey[1] $Form1 = GUICreate("verpacino Uninstaller", 625, 445, -1, -1) $List1 = GUICtrlCreateList("", 8, 8, 609, 370) $Button1 = GUICtrlCreateButton("Kaldır", 24, 392, 75, 25, $WS_GROUP) $Button2 = GUICtrlCreateButton("Girişi Sil", 120, 392, 75, 25, $WS_GROUP) $Button3 = GUICtrlCreateButton("Yenile", 216, 392, 75, 25, $WS_GROUP) Yenile() GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case $Button1 Kaldir() Case $Button2 GirisiSil() Case $Button3 Yenile() EndSwitch WEnd Func Yenile() $aKey = 0 $aName = 0 $aCommand = 0 Global $i = 0, $name = "", $command = "", $aName[1], $aCommand[1], $aKey[1] $aName[0] = 0 $aCommand[0] = 0 $aKey[0] = 0 While 1 ; İSİM VE KOMUTLARI AL ;~ ANAHTARLARI AL $i = $i + 1 $a = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $i) If $a = "" And @error <> -1 Then ContinueLoop If @error = -1 Then ExitLoop ;~ İSİMLERİ OKU VE STRING'E EKLE (LIST İÇİN) $read = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & $a $RegRead1 = RegRead($read, "DisplayName") If $RegRead1 = "" And @error Then ContinueLoop If $name = "" Then $name = $RegRead1 Else $name = $name & "|" & $RegRead1 EndIf ;~ KALDIRMA KOMUTUNU OKU VE STRING'E EKLE (LIST İÇİN) $RegRead2 = RegRead($read, "UninstallString") If $command = "" Then $command = $RegRead2 Else $command = $command & "|" & $RegRead2 EndIf ;~ ARRAY'A İSİMLERİ, KOMUTLARI, ANAHTARLARI YERLEŞTİR $a = UBound($aName) + 1 ReDim $aName[$a] ReDim $aCommand[$a] ReDim $aKey[$a] $a = $a - 1 $aName[$a] = $RegRead1 $aCommand[$a] = $RegRead2 $aKey[$a] = $read WEnd GUICtrlSetData($List1, "") GUICtrlSetData($List1, $name) EndFunc ;==>Yenile Func Kaldir() Local $a, $b, $i $a = GUICtrlRead($List1) If $a <> "" Then $b = UBound($aName) - 1 For $i = 1 To $b Step +1 If $aName[$i] = $a Then $b = $aCommand[$i] ExitLoop EndIf Next If Run($ = 0 Then MsgBox(0, "Hata", "Kaldırma fonksiyonu çalıştırılamadı") EndIf Yenile() EndFunc ;==>Kaldir Func GirisiSil() Local $a, $b, $i $a = GUICtrlRead($List1) If $a <> "" Then $b = UBound($aName) - 1 For $i = 1 To $b Step +1 If $aName[$i] = $a Then $b = $aKey[$i] ExitLoop EndIf Next If MsgBox(4, "Soru", "Giriş: " & $aName[$i] & @CRLF & @CRLF & "Gerçekten silmek istiyormusun?") = 6 Then RegDelete($ EndIf Yenile() EndFunc ;==>GirisiSil[/code]
  23. daha önce benzer konu açıldı mı bilmiyorum string fonksiyonları kullanımına güzel bir örnek bence [img]http://img51.imageshack.us/img51/2299/clipboard01dh.png[/img] au3 dosyası için : http://www.multiupload.com/53W5TX7X9Z [code]#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("IP Adress", 268, 48, -1, -1) $Button1 = GUICtrlCreateButton("Copy", 176, 8, 75, 25, $WS_GROUP) $Label1 = GUICtrlCreateInput("Getting...", 11, 12, 100, 20) GUISetState(@SW_SHOW) $ip = __GetIP() GUICtrlSetData($Label1, $ip) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case $Button1 ClipPut($ip) EndSwitch WEnd Func __GetIP() Local $source, $dot, $ip, $split, $i $source = BinaryToString(InetRead("http://checkip.dyndns.org/", 1)) $source = StringTrimLeft($source, StringInStr($source, ":", 2, 1) + 1) $dot = StringInStr($source, ".", 2, 3) $ip = StringLeft($source, $dot) $split = StringSplit(StringLeft(StringTrimLeft($source, $dot), 3), "") For $i = 1 To 3 Step +1 If StringIsInt($split[$i]) Then $ip = $ip & $split[$i] Next Return ($ip) EndFunc ;==>__GetIP[/code]
  24. Drive Snapshot gibi basit ve hızlı bir program varken, neden hala insanlar Acronis ve Ghost'ta ısrar ederler anlamıyorum
  25. Win7 kurulu bi makinaya, o şekilde vista kurulmaz diye hatırlıyorum. Zaten yeni sürüm var niye eskisini kuruyon gibi bişiler diyodu. xp ve vista üzerinde bu işlemi yapabilirsin ekstra bi yükleme şekli olarak, hirens boot cd 14.1 'i çek MiniXP ile boot et bilgisayarı HCBD programında, menülerde Others > NT 6.0 Install gibi bişi var, vista'nın install.wim dosyasını gösteriyorsun, onu kuracağın yere imagex ile çıkartıp resetten sonra o bölümü boot edip klasik vista kurulumunun 2. aşamasına geçiyor direk NOT: BU YÖNTEMLE KURACAĞIN PARTISYON BOOT EDİLEBİLİR (AKTİF) OLMALI VE PRIMARY (BİRİNCİL) OLMALIDIR
×
×
  • Create New...