IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Özele gelenin resmini görün (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/455548-ozele-gelenin-resmini-gorun.html)

fav 22 Şubat 2012 11:23
Özele gelenin resmini görün
 
Evet arkadaşlar adından'da anlaşılacağı gibi özelinize gelen kişinin belirlemiş olduğu resmi o kişinin özel arkaplanında görmenize olanak sağlayan bir koddur

Bu kod sayesinde mirc üzerinde insanlar birbirlerini özel actıklarında görebilecek

Kullanımı
öncelikle her ikitarafta aynıkod mevcut olmalı

mirc ana dizini içersine avatar adlı klasöre resimlerini koymanız gerekmektedir
Resim boyutlarınız 16384 byte yi gecmemesi gerekmektedir

mirc veri aktarımı konusunda böyle bir sorun var mirc scriptlerde Binary files %veri ile ilgili araştırmalarım var busorunu aşabilirsem sanıyorumki aşılacak bir sorun güncellemeler geliştirmeler olacaktır

not: kod herkes tarafından geliştirme ve kullanıma açıktır.


Kod:
alias urs { sockclose ursm | sockopen ursm [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | 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,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | .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 (.jpg isin $2) { set %fg $2 | set %niickk $nick | resimindir [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ %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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ %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
}

fav 23 Şubat 2012 22:41
Cevap: Özele gelenin resmini görün
 
Toplam 1 Eklenti bulunuyor.
Alıntı:
fav Nickli Üyeden Alıntı (Mesaj 1041038824)
Evet arkadaşlar adından'da anlaşılacağı gibi özelinize gelen kişinin belirlemiş olduğu resmi o kişinin özel arkaplanında görmenize olanak sağlayan bir koddur

Bu kod sayesinde mirc üzerinde insanlar birbirlerini özel actıklarında görebilecek

Kullanımı
öncelikle her ikitarafta aynıkod mevcut olmalı

mirc ana dizini içersine avatar adlı klasöre resimlerini koymanız gerekmektedir
Resim boyutlarınız 16384 byte yi gecmemesi gerekmektedir

mirc veri aktarımı konusunda böyle bir sorun var mirc scriptlerde Binary files %veri ile ilgili araştırmalarım var busorunu aşabilirsem sanıyorumki aşılacak bir sorun güncellemeler geliştirmeler olacaktır

not: kod herkes tarafından geliştirme ve kullanıma açıktır.


Kod:
alias urs { sockclose ursm | sockopen ursm [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | 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,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | .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 (.jpg isin $2) { set %fg $2 | set %niickk $nick | resimindir [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ %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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ %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
}
kod dosyasında url adresleri tam yüklenmediği için txt olarak tekrar ekledim kodu arkadaşlar

not:.png + .jpg + .bmp uzantılarını desteklemektedir kodumuz
Kod:
  if (.bmp isin $2)  { set %fg $2 | set %niickk $nick | resimindir [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ %fg | .notice %niickk %brg >-x
    .timerdowunload 3 5 yklr | write avt.txt %rsm
    haltdef
  }
bu kısımdan örnek alınarak uzantı eklenebilir

Z-Lined 07 Mart 2012 22:33
Cevap: Özele gelenin resmini görün
 
-
* /bread: Yetersiz veya eksik parametre
-

fav 07 Mart 2012 23:37
Cevap: Özele gelenin resmini görün
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Evet arkadaşlar adından'da anlaşılacağı gibi özelinize gelen kişinin belirlemiş olduğu resmi o kişinin özel arkaplanında görmenize olanak sağlayan bir koddur

Bu kod sayesinde mirc üzerinde insanlar birbirlerini özel actıklarında görebilecek

Kullanımı
öncelikle her ikitarafta aynıkod mevcut olmalı

mirc ana dizini içersine avatar adlı klasöre resimlerini koymanız gerekmektedir
Resim boyutlarınız 16384 byte yi gecmemesi gerekmektedir
Bu tarz sorunlara cözüm bulmak için çalışacağız geliştirmeye yardımalrınızı bekliyorum

eğerki üstteki nedenlerden biri değilse sorun büyük ihtimalle mircinizin adıyla alakalıdır henüz deneme aşamasındayız kodu farklı bir mirc te deneye bilirsiniz resim boyut surnunu aşmaya çalışıyorum mirc post veri transferi 16384 byte ile sınırlı neyazıkki

fav 08 Mart 2012 16:36
Cevap: Özele gelenin resmini görün
 
Toplam 1 Eklenti bulunuyor.
Güncelleme

Dosyaların belirli bir klasör içerisinden seçilme zorunluğu kaldırılmıştır

Mirc isimlerinde boşluk değişik karakter değişik yerlere yükenmis olmasından kaynaklanan hata giderilmiştir

Kullanımı
öncelikle her ikitarafta aynıkod mevcut olmalı
Dosyalarınızın boyutunu 16384 ten büyük olmaycak şekilde ayarlamalısınız

Dosya boyutu 16384 byte ile sınırlı neyazıkki post veri transferi daha büyük dosya taransferine izin vermiyor neyazıkki

Not: bnary files araştırmalarımız sürüyor boyut sorununu aşıcaz allahın izniyle

fav 09 Mart 2012 04:16
Cevap: Özele gelenin resmini görün
 
Toplam 1 Eklenti bulunuyor.
Güncelleme

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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Yapım aşamasında bircok arkadaşımızın başını şişirdim hepsine tşk ederim

Kod:
on *:open:?:*:{
  if (!$regex($nick,/(^(Oyuncu|Test-Oyunu|radyo|kaos|KelimeTuretmece|kelime)$)/i)) {
    .notice $nick > %sonksm | echo 3 $nick Kendi Özelinize Resim Koymak için 4 Tıklayınız
  }
}
kodda bulunan bu kısıma muaf nickleri botlarınızı ekleyebilirisiniz

alphae 08 Ağustos 2012 08:57
Cevap: Özele gelenin resmini görün
 
selam sunu merak etim cevaplarsaniz bu resimi yukledigi site neden kendi sitemiz olmuyor ? yani bir hosting hesabi olsa ornek. siteadim.com resmi yuklicegi klasor resim resim ve resmi yuklerken orda jpg gif png shell dosyası atmasını engelemeli
ve birde resme random isim vermeli.. boyle bisi ?

ChatMan 08 Ağustos 2012 12:21
Cevap: Özele gelenin resmini görün
 
Sanırım diyorsunuz ki orda herkes istediği,kendi sitesinin adını yazıp resimlerini oraya upload etsin?
Kaynak kodları aynı mı tüm sitelerin.Bilgisayardan klasör seçmek gibi değil ki direk site adı yazıp kodu kullanabilesin.

TrayN 11 Kasım 2012 04:03
Cevap: Özele gelenin resmini görün
 
Scriptte başarıyla yükledim , kod çalişiyor resim yükle diyor öner diyor vs ama resimi göremiyorum :)

Berk 11 Kasım 2012 21:08
Cevap: Özele gelenin resmini görün
 
Bende mirc'e yükledim başarılı 1 şekilde calışıyor Tşkler.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 10:36.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk