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

>
+
Etiketlenen Kullanıcılar

5Beğeni(ler)
  • 4 Post By fav
  • 1 Post By fav

 
 
LinkBack Seçenekler Arama Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 22 Şubat 2012, 11:23   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Ö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:   Kodu kopyalamak için üzerine çift tıklayın!
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 }


 
Alıntı ile Cevapla

 

Etiketler
gelenin, open, resmini, socket, özele


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

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 Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Mükemmeliyetçilik mi, elimizden gelenin en iyisini yapmak mı? CORDON BLEU Kişisel Gelişim 1 02 Kasım 2022 21:47
Namaza Gelenin Farkı Seyra İslamiyet 0 30 Ağustos 2014 21:19
özele gelenin loglarını görmek AsiLmavi mIRC Scripting Sorunları 3 07 Temmuz 2009 15:38
Özele gelenin loglarının otomatik açılması [Loglarla ilgili] MaeLStrOm mIRC Scripting Sorunları 13 10 Nisan 2005 08:49