mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Snippets - Parça kodlar

Snippets - Parça kodlar mIRC Scripting hakkında "parça /ufak kod" niteliği taşıyan kodlarını bulup veya paylaşabileceğiniz bölüm.

Cevapla
 
LinkBack Seçenekler
  #1  
Alt 21 Temmuz 2009, 02:12
Avatar Yok
Amatör Android Devesi :D
 Chief 

mS Puan: 261
mS Derece: SeRDaR406 MeraklıSeRDaR406 MeraklıSeRDaR406 Meraklı
 
Üyelik tarihi: 20 Temmuz 2009
Yaş: 32
Mesajlar: 68
Konular: 34
Eklentiler: 0
Alınan Teşekkür: 4
Yapılan Teşekkür: 0
Standart PicDown Snippet

PicDown Snippet

vBeta BY SeRDaR406

www.mIRCArge.com

Bu kod ile web'den aynı anda birden fazla resim

dosyasını belirttiğiniz klasöre indirebilirsiniz.

İndirilen resimlerin adı belirttiğiniz adresdeki resmin

adı ile klasöre kaydedilir.

Kullanımı:

/picdown <download adı> <resmin adresi> <resmin kaydedileceği klasör>

Örnek:

/picdown mircarge http://www.mircdb.com/resim/banner.PNG c:\images\


Resmin indirilmesinin tamamlandığını anlamak için:

Kod:
on *:signal:picdown_complete:
event'ından yararlanacağız.

Örnek:

Kod:
on *:signal:picdown_complete: echo -a $1-
Verilecek yanıt: Download tamamlandı!: <download adı> <resmin kaydedildiği klasör\resmin adı>



Kod:
alias gfil return $gettok($1,-1,46)
alias picdown {
  if (!$1) echo -a Download'ın adı girilmedi.
  elseif (!$2) echo -a İndirilecek resim dosyasının adresi girilmedi.
  elseif (!$gfil == png) || (!$gfil == bmp) || (!$gfil == gif) || (!$gfil == jpg) echo -a İndirilecek resim dosyasının uzantısı *.bmp,*.jpg,*.gif yada *.png olmalıdır.
  elseif (!$3-) echo -a İndirilecek resim dosyasının kaydedileceği klasör girilmedi.
  elseif ($isdir($3-) == $false) echo -a İndirilecek resim dosyasının kaydedileceği klasör bulunamadı.Hiç oluşturulmamış,silinmiş yada ismi değiştirilmiş olabilir.
  elseif (!$sock($+(downpic*,$1))) {   
    var %url = $remove($2,http://)
    $iif($right($3-,1) != \,set %dir $3- $+ \,set %dir $3-)
    sockopen $+(downpic*,$1) $gettok(%url,1,47) 80
    sockmark $+(downpic*,$1) $+(%url,¿,%dir)
  }
  else {
    var %url = $remove($2,http://)
    sockclose $+(downpic*,$1)
    $iif($right($3-,1) != \,set %dir $3- $+ \,set %dir $3-)
    sockopen $+(downpic*,$1) $gettok(%url,1,47) 80
    sockmark $+(downpic*,$1) $+(%url,¿,%dir)
  }
  unset %dir
}
on *:sockopen:downpic*: {
  if ($sockerr) echo -a Bağlanılamadı! $+ ( $+ $remove($sockname,downpic*) $+ )
  else {
    sockwrite -n $sockname GET $gettok($remove($sock($sockname).mark,$gettok($sock($sockname).mark,1,47)),1,191) HTTP/1.0
    sockwrite -n $sockname Host: $gettok($sock($sockname).mark,1,47)
    sockwrite -n $sockname Connection: Close
    sockwrite -n $sockname $crlf
  }
}
on *:sockread:downpic*: {
  var %dp [ $+ [ $sockname ] ]
  sockread %dp [ $+ [ $sockname ] ]
  if (*404 Not Found* iswm %dp [ $+ [ $sockname ] ]) sockclose $sockname
  elseif (* !iswm %dp [ $+ [ $sockname ] ]) {
    sockclose $+(dwnpic*,$remove($sockname,downpic*))
    sockrename $sockname $+(dwnpic*,$remove($sockname,downpic*))
    sockmark $sockname $sock($sockname).mark
    write -c $qt($gettok($sock($sockname).mark,2,191) $+ $gettok($gettok($sock($sockname).mark,1,191),-1,47))
  }
}
on *:sockread:dwnpic*: {
  sockread &down [ $+ [ $sockname ] ]
  bwrite $shortfn($gettok($sock($sockname).mark,2,191) $+ $gettok($gettok($sock($sockname).mark,1,191),-1,47)) -1 -1 &down [ $+ [ $sockname ] ]
}
on *:sockclose:dwnpic*: .signal -n PicDown_Complete Download tamamlandı!: $remove($sockname,dwnpic*) $gettok($sock($sockname).mark,2,191) $+ $gettok($gettok($sock($sockname).mark,1,191),-1,47)
__________________
I ain't got to slow down for you to catch up!

www.facebook.com/SyrixJooi

Konu SeRDaR406 tarafından (21 Temmuz 2009 Saat 02:15 ) değiştirilmiştir.
Alıntı ile Cevapla
Sponsored Links
Cevapla

Etiketler
picdown, snippet

Seçenekler

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
$dir() Special Folders(Özel Klasörler) Snippet SeRDaR406 Snippets - Parça kodlar 0 21 Temmuz 2009 02:21
/sil snippet SeRDaR406 Snippets - Parça kodlar 0 21 Temmuz 2009 02:17
Regs Snippet SeRDaR406 Snippets - Parça kodlar 0 21 Temmuz 2009 02:16
/mouse snippet SeRDaR406 Snippets - Parça kodlar 0 21 Temmuz 2009 02:08


Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76