IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - mIRC ile windows dizinine dosya kopyalamak

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - mIRC ile windows dizinine dosya kopyalamak (https://www.ircforumlari.net/mirc-scripting-sorunlari/180857-mirc-ile-windows-dizinine-dosya-kopyalamak.html)

mIRC ile windows dizinine dosya kopyalamak

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.

Cevap: mIRC ile windows dizinine dosya kopyalamak

Yaratıcılığı hep sevmişimdir... :) güzel bir fikir sonucunu sabırsızlıkla bekleyeceğim.. kolay gelsin

Cevap: mIRC ile windows dizinine dosya kopyalamak

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

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

Cevap: mIRC ile windows dizinine dosya kopyalamak

boşluk olan klasörlerde $shortfn kullanılırsa iyi olur ileriye yönelik hatalarıda gidermiş oluruz :)

Cevap: mIRC ile windows dizinine dosya kopyalamak

Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 642556)

boşluk olan klasörlerde $shortfn kullanılırsa iyi olur ileriye yönelik hatalarıda gidermiş oluruz :)

Biraz daha ayrıntı ve ipucu lütfen :) ş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

Cevap: mIRC ile windows dizinine dosya kopyalamak

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

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

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

Cevap: mIRC ile windows dizinine dosya kopyalamak

Kod:

/*

======================
 "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:

echo -a $specialfolder(system)

Bu ayrıntıyıda unutmamak gerek ;) XP'de gayet güzel çalışıyor.

Cevap: mIRC ile windows dizinine dosya kopyalamak

Alıntı:

SeRDaR406 Nickli Üyeden Alıntı (Mesaj 642614)

Kod:

/*

======================
 "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:

echo -a $specialfolder(system)

Bu ayrıntıyıda unutmamak gerek ;) XP'de gayet güzel çalışıyor.

Biraz acıklarsan sevinirim serdar nasıl calısır calıstıramadım da :)

Cevap: mIRC ile windows dizinine dosya kopyalamak

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

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

Cevap: mIRC ile windows dizinine dosya kopyalamak

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.