[Hayat]

Merhaba arkadaşlar bir diyalog menüsü hazırlayacağım. Bu menüdeki yükle butonuna bastığımda. C:\Program Files\Scriptim\youtube\hosts

dizinindeki hosts isimli dosyayı C:\Windows\System32\Drivers\etc dizinine kopyalayacak bu dizinde hosts isimli bir dosya zaten var windows orada muhtemelen varolan dosya ile değiştirilsinmi diyecek evet diyince dosya istenilen dizine yüklenmiş olacak.

Hosts isimli dosyanın işlevi ;

Youtube.com sitesine giriş sağlıyor oluşturacağım diyalogta kısa bir bilgi metninden sonra iki adım (iki buton) yapacağım. Host dosyasını aktar. Youtubeye Gir! şeklinde. Tek kafamın basmadığı şey bu dosyayı System32\etc dizinine nasıl kopyalayacağım yardımcı olursanız sevinirim.

[muratt_aziz]

Yaratıcılığı hep sevmişimdir...
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
güzel bir fikir sonucunu sabırsızlıkla bekleyeceğim.. kolay gelsin

[CesuryureK]

şimdi güzel bir düşünce. lakin, dosyayı aktarmak için şöyle bişi düşündüm,
önce windows içindeki hosts dosyasını silip sonra mircin içindeki dosyayı aktarabiliriz diye

/remove C:\Windows\System32\Drivers\etc\hosts.txt | /copy -ao C:\Program Files\Scriptim\youtube\hosts.txt C:\Windows\System32\Drivers\etc\hosts.txt

şeklinde
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


bunu alias yapıp butona alias komutunu koyman daha mantıklı olur

[XcLusive]

boşluk olan klasörlerde $shortfn kullanılırsa iyi olur ileriye yönelik hatalarıda gidermiş oluruz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[Hayat]

XcLusive Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

boşluk olan klasörlerde $shortfn kullanılırsa iyi olur ileriye yönelik hatalarıda gidermiş oluruz Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Biraz daha ayrıntı ve ipucu lütfen
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
şu halde çalışıyor akşama eksiklerini tamamlayıp paylaşacağım burada. Birde Windows Xp kullanıcısı olan arkadaşlardan bir ricam olacak.

Windows XP de de bu dosya System32\Drivers\etc dizinindemi bakabilirseniz sevinirim çünkü ben Vista da çalışıyorum

[AzuLa]

Xp kullanıyorum, hosts dosyasının bulunduğu yer:


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


sanırım bahsettiğin yer ile tutuyor =]
Güzel çalışma ;] tebrikler.

[SeRDaR406]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

/*
======================
"FiberOPtics" tarafından

yazılmıştır.
=========================
*/

/*
===================================================
Bu kod ile alabileceğin özel klasörlerin listesi...

AllUsersAppdata
;                AllUsersDesktop
;                AllUsersFavorites
;                AllUsersPrograms
;                AllUsersStartMenu
;                AllUsersStartup
;                Appdata
;                Comspec
;                Cookies
;                Desktop
;                Favorites
;                Fonts
;                History
;                Internetcache
;                LocalAppdata
;                MyDocuments
;                MyPictures
;                Nethood
;                Printhood
;                ProgramFiles
;                Programs
;                Recent
;                Sendto
;                StartMenu
;                Startup
;                System
;                Templates
;                Userprofile
;                Windir
=====================================================
/*
alias specialfolder {
  if $1 == $null {
    echo $color(info) -a * $!specialfolder: Insufficient parameters.
    return
  }
  var %f1 = $&
    AllUsersDesktop AllUsersStartMenu AllUsersPrograms AllUsersStartup $&
    Desktop AppData PrintHood Templates Fonts NetHood . $&
    StartMenu SendTo Recent Startup Favorites MyDocuments Programs
  var %f2 = $&
    LocalAppdata . . AllUsersFavorites Internetcache Cookies $&
    History AllUsersAppdata . System . MyPictures
  var %f3 = Windir Programfiles Userprofile Comspec

  if $1 == . || !$istok(%f1 %f2 %f3,$1,32) {
    echo $color(info) -a * $!specialfolder: incorrect special folder - Possible:
    tokenize 32 $sorttok($remove(%f1 %f2,.) %f3,32)
    echo -a $*
    return
  }
  var %result = COM Error
  if $istok(%f1 %f3,$1,32) {
    var %objWSH = a $+ $ticks
    .comopen %objWSH wscript.shell
    if !$comerr {
      if $findtok(%f1,$1,1,32) {
        %result = $com(%objWSH,specialfolders,3,uint,$calc($ifmatch - 1))
      }
      else %result = $com(%objWSH,expandenvironmentstrings,3,bstr*,% $+ $1%)
      %result = $com(%objWSH).result 
      .comclose %objWSH
    }
  }
  else {
    if $istok(95 98,$os,32) {
      echo $color(info) -a * $!specialfolder: need atleast Windows ME to retrieve this path
      return
    }
    var %objScript = a $+ $ticks
    .comopen %objScript msscriptcontrol.scriptcontrol
    if !$comerr {
      %result = $com(%objScript,language,4,bstr*,vbscript)
      %result = createobject("shell.application").namespace( $&
        $calc($findtok(%f2,$1,1,32) + 27) ).self.path
      %result = $com(%objScript,eval,1,bstr*,%result)
      %result = $com(%objScript).result
      .comclose %objScript
    }
  }
  $iif($isid,return,echo -a) %result
}

Herkes Windows'u C:\ sürücüsüne kurmayabilir.Bazen değişikliği seven insanlar da çıkabiliyor.

Yukardaki kodu kullanarak listelenmiş özel klasörleri alabilirsin.

Örneğin;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

echo -a $specialfolder(system)

Bu ayrıntıyıda unutmamak gerek
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
XP'de gayet güzel çalışıyor.

[muratt_aziz]

SeRDaR406 Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın! /* ====================== "FiberOPtics" tarafından yazılmıştır. ========================= */ /* =================================================== Bu kod ile alabileceğin özel klasörlerin listesi... AllUsersAppdata ; AllUsersDesktop ; AllUsersFavorites ; AllUsersPrograms ; AllUsersStartMenu ; AllUsersStartup ; Appdata ; Comspec ; Cookies ; Desktop ; Favorites ; Fonts ; History ; Internetcache ; LocalAppdata ; MyDocuments ; MyPictures ; Nethood ; Printhood ; ProgramFiles ; Programs ; Recent ; Sendto ; StartMenu ; Startup ; System ; Templates ; Userprofile ; Windir ===================================================== /* alias specialfolder { if $1 == $null { echo $color(info) -a * $!specialfolder: Insufficient parameters. return } var %f1 = $& AllUsersDesktop AllUsersStartMenu AllUsersPrograms AllUsersStartup $& Desktop AppData PrintHood Templates Fonts NetHood . $& StartMenu SendTo Recent Startup Favorites MyDocuments Programs var %f2 = $& LocalAppdata . . AllUsersFavorites Internetcache Cookies $& History AllUsersAppdata . System . MyPictures var %f3 = Windir Programfiles Userprofile Comspec if $1 == . || !$istok(%f1 %f2 %f3,$1,32) { echo $color(info) -a * $!specialfolder: incorrect special folder - Possible: tokenize 32 $sorttok($remove(%f1 %f2,.) %f3,32) echo -a $* return } var %result = COM Error if $istok(%f1 %f3,$1,32) { var %objWSH = a $+ $ticks .comopen %objWSH wscript.shell if !$comerr { if $findtok(%f1,$1,1,32) { %result = $com(%objWSH,specialfolders,3,uint,$calc($ifmatch - 1)) } else %result = $com(%objWSH,expandenvironmentstrings,3,bstr*,% $+ $1%) %result = $com(%objWSH).result .comclose %objWSH } } else { if $istok(95 98,$os,32) { echo $color(info) -a * $!specialfolder: need atleast Windows ME to retrieve this path return } var %objScript = a $+ $ticks .comopen %objScript msscriptcontrol.scriptcontrol if !$comerr { %result = $com(%objScript,language,4,bstr*,vbscript) %result = createobject("shell.application").namespace( $& $calc($findtok(%f2,$1,1,32) + 27) ).self.path %result = $com(%objScript,eval,1,bstr*,%result) %result = $com(%objScript).result .comclose %objScript } } $iif($isid,return,echo -a) %result } Herkes Windows'u C:\ sürücüsüne kurmayabilir.Bazen değişikliği seven insanlar da çıkabiliyor. Yukardaki kodu kullanarak listelenmiş özel klasörleri alabilirsin. Örneğin; Kod:   Kodu kopyalamak için üzerine çift tıklayın! echo -a $specialfolder(system) Bu ayrıntıyıda unutmamak gerek Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. XP'de gayet güzel çalışıyor.

Biraz acıklarsan sevinirim serdar nasıl calısır calıstıramadım da
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[Hayat]

Hazır kodlar bölümüne taşınmıştır.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[AzuLa]

Bu kodları hazır kodlar bölümünde paylaşırsan daha iyi olur senin için, sorunlar bölümünde konu unutulabilir (konu başlığı açısından ayrıca arama yapılması da gerekebilir bu kodu bulabilmek için çoğu kişide de arama yapma alışkanlığı pek yok henüz.). Bu nedenle hazır kodlar bölümüne daha uygun bence. En azından sadece bizler değil bundan herkes yararlanmış olur. Henüz indirip bakmadım ama güzel olmuşa benziyor. Eline emeğine sağlık.