/resimindir – mIRC üzerinden resim çekme

Eylül 27, 2008 at 1:50 pm Yorum bırakın

; Web Sitesinden Resim Çekme
; ÖRN: /resimindir www.mircdb.com/resim/banner.PNG


; CipriX

; Bu satırdan sonra yapıcağınız değişiklikler
; kodun çalışmamasına, sorunlu veya eksik çalışmasına neden olabilir..

alias resimindir {
  if * $+ / $+ * !iswm $1 || $2 {
    echo -a * Hata! Lütfen düzgün parametreler kullanın. ÖRN: <a href="http://www.mircdb.com/images/logo" target="_blank"><span style="color:#1b57b1;">www.mircdb.com/images/logo</span></a>
  }
  if $sock(resin) || $sock(resin2) {
    echo -a * Başka bir indirme işlemi devam etmekte
  }
  else {
    .unset %resin.*
    .set %resin.govde $remove($1,http://)
    .set %resin.uzanti $gettok(%resin.govde,2-,47)
    .set %resin.ana $gettok(%resin.govde,1,47)
    .set %resin.ismi $gettok(%resin.govde,$numtok(%resin.govde,47),47)
    sockopen resin %resin.ana 80
    echo 3 -a  * Web sitesine bağlantı kuruluyor; %resin.ana
    echo 1 -a -
  }
}
on *:sockopen:resin: {
  if $sockerr { echo 3 -a * Web sitesine bağlanırken hata oluştu, lütfen bağlantınızı ve web sitesini kontrol ediniz }
  else {
    echo 3 -a * Web sitesine bağlantı kuruldu; %resin.ana
    echo 1 -a -
    sockwrite -n $sockname GET / $+ %resin.uzanti HTTP/1.0
    sockwrite -n $sockname Host: %resin.ana $+ $crlf $+ $crlf
    echo 3 -a * Veri kontrol edildi; %resin.ismi
    echo 1 -a -
  }
}
on *:sockread:resin: {
  var %ğ
  sockread %ğ
  if (*404*Not* iswm %ğ) || (*Found* iswm %ğ) {
    echo 4 -a * HATA! Verdiğiniz URL adresinde böyle bir resim bulunmamaktadır!
    echo 1 -a -
    sockclose resin
    sockclose resin2
    .unset %resin.*
    .halt
  }
  if (*403* iswm %ğ) || (*Forbid* iswm %ğ) {
    echo 4 -a * HATA! Verdiğiniz URL adresinden resim çekmek yasak!
    echo 1 -a -
    sockclose resin
    sockclose resin2
    .unset %resin.*
    .halt
  }
  if (* !iswm %ğ) {
    .sockclose resin2
    sockrename resin resin2
    write -c $qt(%resin.ismi)
    echo 3 -a * Veri oluşturuldu , datalar çekiliyor; %resin.ismi
    echo 1 -a -
  }
}
on *:sockread:resin2: {
  sockread &amp;pdata
  bwrite $shortfn(%resin.ismi) -1 -1 &amp;pdata
}
on *:sockclose:resin2: {
  if $isfile(%resin.ismi) {
    echo 3 -a * Datalar çekildi veri kaydedildi; $mircdir $+ 4 $+ %resin.ismi
    .unset %resin.*
  }
}

Entry filed under: mIRC Hazır Kodlar. Tags: , , , , , , , , , , , , , , , , , , , , , , , , , , .

sock bot mIRC Radyo

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

Trackback this post  |  Subscribe to the comments via RSS Feed


Takvim

Eylül 2008
P S Ç P C C P
    Eki »
1234567
891011121314
15161718192021
22232425262728
2930  

Most Recent Posts


%d blogcu bunu beğendi: