mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Showcase - Hazır kodlar

Showcase - Hazır kodlar mIRC Scripting hakkında hazır kodları bulup, paylaşabileceğiniz bölüm.

Cevapla
 
LinkBack Seçenekler
  #1  
Alt 24 Şubat 2012, 18:52
Avatar Yok
fav fav isimli Üye şimdilik offline konumundadır

mS Puan: 11
mS Derece: fav
 
Üyelik tarihi: 11 Eylül 2011
Mesajlar: 40
Konular: 16
Eklentiler: 1
Alınan Teşekkür: 1
Yapılan Teşekkür: 17
Standart Özele gelenin resmini görün

arkadaşlar cok uğraştım sonunda başardım bu kod
özele gelen kişinin resmini görmenizi sağlar ben bukadar yapabildim geliştirmeye açıktır

16384 byte olan resimleri ve png + .jpg + .bmp uzantılarını desteklemektedir şimdilik

Kullanımı boyut ve uzantılar eşliğinde seçtiğiniz resimleri avatar adlı klasöre koymanız özelinizde hotlink mesajı veya popups kısmına sağ tıkladığında avatarım şeklinde resminizi yükleye biirsiniz

not: txt olarak indirirseniz url adres sorunu yaşanmaz kodu altta indirme linkinden indirmeniz tavsiye olunur
Kod:
alias urs { sockclose ursm | sockopen ursm www.hizliresim.com 80 }
on *:sockopen:ursm: { bread %ds 0 $lof(%ds) &file | set %ip $calc($bvar(&file,0) + 492) | bread $qt(%ds) 0 $file($qt(%ds)).size &img | sockwrite -n $sockname POST /upload.php HTTP/1.1 | sockwrite -n $sockname Accept: text/html, application/xhtml+xml, */* | sockwrite -n $sockname Referer: Hızlı Resim yükle, internette paylaş | resim upload | bedava resim | sockwrite -n $sockname Accept-Language: tr-TR
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0) | sockwrite -n $sockname Content-Type: multipart/form-data; boundary=---------------------------7dc1cdf2f043e | sockwrite -n $sockname Host: d.hizliresim.com | sockwrite -n $sockname Content-Length: %ip | sockwrite -n $sockname Connection: Keep-Alive | sockwrite -n $sockname Cache-Control: no-cache
  sockwrite -n $sockname Cookie: __utma=251736208.584732837.1328376985.1329045042.1329064944.11; __utmz=251736208.1329036173.9.6.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=h%C4%B1zl%C4%B1%20resim%20y%C3%BCkle; __utmb=251736208.1.10.1329064947; __utmc=251736208; __utma=100797268.395949191.1327231426.1328356989.1329037975.3; __utmz=100797268.1329036275.3.3.utmcsr=hizliresim.com|utmccn=(referral)|utmcmd=referral|utmcct=/
  sockwrite -n $sockname | sockwrite -n $sockname -----------------------------7dc1cdf2f043e | sockwrite -n $sockname Content-Disposition: form-data; name="upload"; filename="C:\Program Files (x86)\1\%ds" | sockwrite -n $sockname Content-Type: image/png | sockwrite -n $sockname | sockwrite $sockname &img | sockwrite -n $sockname | sockwrite -n $sockname -----------------------------7dc1cdf2f043e | sockwrite -n $sockname Content-Disposition: form-data; name="size" | sockwrite -n $sockname | sockwrite -n $sockname | sockwrite -n $sockname -----------------------------7dc1cdf2f043e
  sockwrite -n $sockname Content-Disposition: form-data; name="effect" | sockwrite -n $sockname | sockwrite -n $sockname | sockwrite -n $sockname -----------------------------7dc1cdf2f043e | sockwrite -n $sockname Content-Disposition: form-data; name="rotate" | sockwrite -n $sockname | sockwrite -n $sockname | sockwrite -n $sockname -----------------------------7dc1cdf2f043e-- | sockwrite -n $sockname 
}
on *:sockread:ursm: { var %x | sockread %x | if (<img style="max-width: 336px; border: 1px solid #000;" src= isin %x) { var %itt $gettok(%x,3-,47) |  var %brrg $gettok(%itt,1-,47) | set %brg $gettok(%brrg ,1,34) } }
alias resimindir { if * $+ / $+ * !iswm $1 || $2 { echo -a * Hata! Oluştu } | if $sock(resin) || $sock(resin2) { echo -a * Yoğun veri iletişimi Tesbit edildi }
  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 }
}
on *:sockopen:resin: { if $sockerr { echo 3 -a * Bağlantı Sorunu Oluştu } | else { sockwrite -n $sockname GET / $+ %resin.uzanti HTTP/1.0 | sockwrite -n $sockname Host: %resin.ana $+ $crlf $+ $crlf } }
on *:sockread:resin: { var %ğ | sockread %ğ | if (*404*Not* iswm %ğ) || (*Found* iswm %ğ) { echo 4 -a * HATA! Veri iletişimi| sockclose resin | sockclose resin2 | .unset %resin.* | .halt }
  if (*403* iswm %ğ) || (*Forbid* iswm %ğ) { echo 4 -a * HATA! Yasak veri | sockclose resin |  sockclose resin2 | .unset %resin.* | .halt } | if (* !iswm %ğ) { .sockclose resin2 | sockrename resin resin2 | write -c $qt(%resin.ismi) }
}
alias query { .timer 1 1 echo 3 $$1 Kendi Özelinize Resim Koymak için 4 Tıklayınız | query $$1 }
on *:sockread:resin2: { sockread &pdata | bwrite $shortfn(%resin.ismi) -1 -1 &pdata }
on *:sockclose:resin2: { if $isfile(%resin.ismi) { set %rsm %resin.ismi | .unset %resin.* } }
alias dsy { var %fv $sfile($mircdir\Avatar\,Lütfen bir dosya seçiniz.,TAMAM) | set %ds avatar\ $+ $gettok(%fv,-1,92) | .timeruplod 1 3 urs }
on ^*:notice:*:?: { 
  if (.png isin $2) { set %fg $2 | set %niickk $nick | resimindir Hızlı Resim yükle, internette paylaş | resim upload | bedava resim $+ %fg | .notice %niickk %brg >-x
    .timerdowunload 3 5 yklr | write avt.txt %rsm
    haltdef
  }
  if (.jpg isin $2)  { set %fg $2 | set %niickk $nick | resimindir Hızlı Resim yükle, internette paylaş | resim upload | bedava resim $+ %fg | .notice %niickk %brg >-x
    .timerdowunload 3 5 yklr | write avt.txt %rsm
    haltdef
  }
  if (.bmp isin $2)  { set %fg $2 | set %niickk $nick | resimindir Hızlı Resim yükle, internette paylaş | resim upload | bedava resim $+ %fg | .notice %niickk %brg >-x
    .timerdowunload 3 5 yklr | write avt.txt %rsm
    haltdef
  }
  if (>-x isin $2) { set %fg $1 | set %niickk $nick | resimindir Hızlı Resim yükle, internette paylaş | resim upload | bedava resim $+ %fg | .timerdowunload 1 10 yklr | write avt.txt %rsm }
  haltdef
}
alias yklr { /Background -dp %niickk " $+ %rsm $+ " }
on *:open:?:*:{ .notice $nick > %brg | echo 3 $nick Kendi Özelinize Resim Koymak için 4 Tıklayınız }
on *:connect: {  tmz }
alias tmz { var %x = 1 | var %t = $lines(avt.txt) | while %x <= %t { .timer 1 $calc(%x * 2) .remove $read(avt.txt,%x) | inc %x } }
on ^*:hotlink:*:*: { if Tıklayınız isin $strip($1) { return } | halt }
on *:hotlink:*:*: { if Tıklayınız isin $strip($1) { if !$exists(Avatar) { mkdir Avatar } | var %fv $sfile($mircdir\Avatar\,Lütfen bir dosya seçiniz.,TAMAM) | set %ds avatar\ $+ $gettok(%fv,-1,92) | urs } }
menu * {
  Avatarım
  .Karşı Tarafın göreceği Resiminizi Seçiniz:dsy
  .Klasöre Resim ekleyiniz:run $mircdiravatar
}
Eklenmiş Dosya
Dosya tipi: txt fav.txt (5,3 KB (Kilobyte), 6x kez indirilmiştir)

Konu fav tarafından (24 Şubat 2012 Saat 18:54 ) değiştirilmiştir.
Alıntı ile Cevapla
Sponsored Links
  #2  
Alt 09 Mart 2012, 03:48
Avatar Yok
fav fav isimli Üye şimdilik offline konumundadır

mS Puan: 11
mS Derece: fav
 
Üyelik tarihi: 11 Eylül 2011
Mesajlar: 40
Konular: 16
Eklentiler: 1
Alınan Teşekkür: 1
Yapılan Teşekkür: 17
Standart Günceleme

Evet son olarak boyut sorununu aştım arkadaşlar
ikinci olarak belirli dosyadan yükleme sorununu aştım ve botlar için muaf nick ekledim Resim yüklemenin yavaş olması durumları için timer le 10 saniyelik arayla beş kez tekrarla arkana plana atama gerçekleştirdim

mirclerin bulundukları yerler ve isim aralarındaki acıklıktan doğan hataları sonlandırdım

umarım beğenirsiniz
Resim atamayı
background

-r : Belirtilen ekrana belirtilen resmi esnek biçimde konumlandırır
olarak belirledim kod üzerinde bu kısmı dilerseniz kendi isteğinize göre değiştirirsiniz.

Hata öneri ve yorumlarınızı bekliyorum

Yapım aşamasında bircok arkadaşımızın başını şişirdim hepsine tşk ederim
Kod:
alias urs { sockclose ursm
  if $1 = $null {
    %sharing_file = $$msfile($$msfile($mircdir\))
  }
  if $1 {
    %sharing_file = $1-
  }
  %tempsockname = ursm
  echo 3 yüklenmeye çalışıyor...
  sockopen %tempsockname www.hizliresim.com 80
  sockmark %tempsockname filename= $+ %sharing_file
  unset %sharing_file
  unset %tempsockname
}
on *:sockopen:ursm: { 
  bset -t &postdata 1 -----------------------------7dc322f4c0442 $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload"; filename=" $+ $nopath($gettok($mid($sock($sockname).mark,11),1,59)) $+ " $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Type: image/ $+ $gettok(%ds,2,46) $+ $crlf $+ $crlf
  bread " $+ $gettok($mid($sock($sockname).mark,10),1,59) $+ " 0 $file($gettok($mid($sock($sockname).mark,10),1,59)).size &file_contents
  bcopy &postdata $calc($bvar(&postdata,0) + 1) &file_contents 1 -1
  bset -t &postdata $calc($bvar(&postdata,0) + 1) $crlf $+ -----------------------------7dc322f4c0442 $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="size" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) -----------------------------7dc322f4c0442 $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="effect" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) -----------------------------7dc322f4c0442 $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="rotate" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) -----------------------------7dc322f4c0442--
  sockwrite -nt $sockname POST /upload.php HTTP/1.1
  sockwrite -nt $sockname Host: e.hizliresim.com
  sockwrite -nt $sockname Content-Type: multipart/form-data; boundary=---------------------------7dc322f4c0442
  sockwrite -nt $sockname Content-Length: $bvar(&postdata,0) $+ $crlf $+ $crlf
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite $sockname &postdata
}
on *:sockread:ursm: { 
  var %x
  sockread %x
  if (img style="max-width isin %x) {
    set %brrg $gettok(%x,4,34)
    set %orta  $gettok(%x,2,47) $+ /
    set %sonksm $gettok(%x,3-4,47) $+ / $+ $gettok($gettok(%x,-1,47),1,46) $+ . $+ $gettok($gettok(%x,-1,46),-2,34)
    echo -a 7Başarıyla yüklendi
  } 
}
alias resimindir { if * $+ / $+ * !iswm $1 || $2 { echo -a * Hata! Oluştu } | if $sock(resin) || $sock(resin2) { echo -a * Yoğun veri iletişimi Tesbit edildi }
  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 }
}
on *:sockopen:resin: { if $sockerr { echo 3 -a * Bağlantı Sorunu Oluştu } | else { sockwrite -n $sockname GET / $+ %resin.uzanti HTTP/1.0 | sockwrite -n $sockname Host: %resin.ana $+ $crlf $+ $crlf } }
on *:sockread:resin: { var %ğ | sockread %ğ | if (*404*Not* iswm %ğ) || (*Found* iswm %ğ) { echo 4 -a * HATA! Veri iletişimi| sockclose resin | sockclose resin2 | .unset %resin.* | .halt }
  if (*403* iswm %ğ) || (*Forbid* iswm %ğ) { echo 4 -a * HATA! Yasak veri | sockclose resin |  sockclose resin2 | .unset %resin.* | .halt } | if (* !iswm %ğ) { .sockclose resin2 | sockrename resin resin2 | write -c $qt(%resin.ismi) }
}
alias query { .timer 1 1 echo 3 $$1 Kendi Özelinize Resim Koymak için 4 Tıklayınız | query $$1 }
on *:sockread:resin2: { sockread &pdata | bwrite $shortfn(%resin.ismi) -1 -1 &pdata }
on *:sockclose:resin2: { if $isfile(%resin.ismi) { set %rsm %resin.ismi | .unset %resin.* } }
on ^*:notice:*:?: { 
  if (.png isin $2) { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x
    .timerdowunload 5 10 yklr | write avt.txt %rsm
    haltdef
  }
  if (.jpg isin $2)  { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x
    .timerdowunload 5 10 yklr | write avt.txt %rsm
    haltdef
  }
  if (.bmp isin $2)  { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x
    .timerdowunload 5 10 yklr | write avt.txt %rsm
    haltdef
  }
  if (>-x isin $2) { set %fg $1 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .timerdowunload 5 10 yklr | write avt.txt %rsm }
  haltdef
}
alias yklr { //Background -dr %niickk " $+ %rsm $+ " }
on *:open:?:*:{
  if (!$regex($nick,/(^(Oyuncu|Test-Oyunu|TaTLiFM|kaos|KelimeTuretmece|kelime)$)/i)) {
    .notice $nick > %sonksm | echo 3 $nick Kendi Özelinize Resim Koymak için 4 Tıklayınız 
  }
}
on *:connect: {  tmz }
alias tmz { var %x = 1 | var %t = $lines(avt.txt) | while %x <= %t { .timer 1 $calc(%x * 2) .remove $read(avt.txt,%x) | inc %x } }
on ^*:hotlink:*:*: { if Tıklayınız isin $strip($1) { return } }
on *:hotlink:*:*: { if Tıklayınız isin $strip($1) { urs } }
menu * {
  Avatarım
  .Karşı Tarafın göreceği Resiminizi Seçiniz:urs
}
Alıntı ile Cevapla
  #3  
Alt 08 Eylül 2012, 13:58
Avatar Yok
reu reu isimli Üye şimdilik offline konumundadır

mS Puan: 11
mS Derece: reu
 
Üyelik tarihi: 27 Ağustos 2012
Mesajlar: 5
Konular: 2
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Standart

bu hafızıya alınan resim kodlarını mirce ekrana yansıtamazmıyız resım halinde
şöyleki büyük yazı kodları gibi bigtext kodlaması gibi kısaca resmi ekrana yansıtamazmıyız kanala
Alıntı ile Cevapla
  #4  
Alt 09 Ağustos 2013, 12:33
Avatar Yok

mS Puan: 1
mS Derece: aspawa
 
Üyelik tarihi: 26 Şubat 2012
Mesajlar: 1
Konular: 0
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Standart

* /bread: Yetersiz veya eksik parametre od çalışmıyor
Alıntı ile Cevapla
Cevapla

Etiketler
gelenin, görün, Özele, resmini

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



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