daft117

Eline sağlık tek link olsa çok part olayı sinir ediyor beni, tek link ekleyecek varsa minnettar kalırım. Tekrardan eline sağlık.

 

Yandex hesabına kopyala + yandex disk programı

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

 

Bu kadar adıma gerek olmadan PWBoot ile hazırlamak için link . Not: İngilizce . . . .

 

http://www.texplr.com/2012/11/install-and-boot-windows8-from-external-hard-disk.html

buradaki de uzun :)

sadece PWBOOT ile kurulum yapın.

BOOTICE ile mbr kısmını ayarlayın. bitti gitti.

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

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.

arkadaşlar bi up olsun. görmeyenler olabilir.

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.

Reg2AU3 programını araştır

regedit.exe /S kullanımını araştır

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

[code]Func PencereyiOrtala($OrtalaBaslik)
Local $a
$a = WinGetPos($OrtalaBaslik)
WinMove($OrtalaBaslik, "", (@DesktopWidth- $a[2]) / 2, (@DesktopHeight - $a[3]) / 2)
EndFunc ;==>PencereyiOrtala[/code]

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]

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]

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]

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.

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

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

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.

başlangıç onarma'yı dene. google'dan bulabilirsin

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]

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]

[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]

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]

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]

Drive Snapshot gibi basit ve hızlı bir program varken, neden hala insanlar Acronis ve Ghost'ta ısrar ederler anlamıyorum

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