mirc özelde arka plan - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

fav · 10 Kasım 2011, 18:43

slm arkadaşlar özel pencere actığım biriyle aynı kodu kullanan kişilerde kim arka plana ne koymuşsa onu kendi mircimde oda benim kullandığım arka plan resmini kendi mircinde görebilsin diye bir çalışma içersindeyim

kod aşağıda lakin kişi belirlediğimiz resimler dışında istediği resmi veya kendi resmini dahi koyabilsin istiyorum bunun için load upload kodları lazım

resmi bir siteye yükleyerek ve o siteden indirmek süretiyle calışa bilecek olay socket kullanımına giriyor socket kodlamayı yetiri kadar bilmiyorum bilen biirileri varsa herhangi bir resim yükleme sitesine resim yükleye bileceğim bir socket kodlaması gerekiyor

dowonload edebileceğim bir kodum mevcut araştırmalarımda çalışan bir load kodlaması bulamadım var olanlar sitelerin yapmıs olduğu değişikliklerden deforma olmuş ilgili arkadaşlara teşekkürler

Kod: Kodu kopyalamak için üzerine çift tıklayın!

ctcp ^*:*: { set %fg $1-
  if  %fg isin $1- { Background -dc $nick " $+ %fg $+ " | ad }
  halt
} 
on *:OPEN:?:*:{
  enable #ds | .ctcp $nick %ff
}
alias query {
  enable #ds | query $$1 | .ctcp $$1 %ff
}
menu * {
  Avatarım:dsy
}
alias dsy {
  var %file = $dll($shortfn($scriptdiredialogs.dll),EDlg,l $+ $nofile(%file) $+ >Avatarınızı Seçin>|Resim Dosyası|*.jpg;);
  if (%file) {
    inc %av.y 75
    inc %av.id
    inc %tbox.id
    window -Bhp +d @sav 0 0 64 64
    drawpic -s @sav 0 0 64 64 $shortfn(%file)
    drawsave -b32q100 @sav $qt($scriptdiravsave. $+ $gettok(%file,-1,46))
    window -c @sav
    set %ff %file
  }
}
#ds on
alias ad { .ctcp $nick %fF | .disable #ds | .timer 1 5 .enable #ds }
#ds end
alias ad { }

fav · 04 Şubat 2012, 11:11

arkadaşlar epey uzun süredir yanıt alamadım konuma araştırmalarımda yeterli bilgiye ulaşamıyorum

socket veri transferi hakkında bilgi sahibi arkadaşlardan yardım istiyorum

dosya.tc ye bir resmi yüklemeye ve yüklenince linki alabilecek bir koda itiyacım var

socket sniff adlı programla veri transferi anındaki bilgileri alıp sockopen kısmında ekledim bu bilgileri nasıl kullanmalıyım

bir resmi dosya.tc sitasine yükleyip linki alabilecek bir kod yapabilirmiyiz

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias up { clear -s | sockclose up | sockopen up [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }

on *:sockopen:up:{
  if ($sockerr) echo -a Avatar yüklenmiyor
  else {
    var %fname 1.png
    POST /cgi-bin/uu_upload.pl?tmp_sid=68628a9d97a216861f08a507ea78d579 HTTP/1.1
    Accept: text/html, application/xhtml+xml, */*
    Referer: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    Accept-Language: tr-TR
    User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)
    Content-Type: multipart/form-data; boundary=---------------------------7dc7e360394
    Accept-Encoding: gzip, deflate
    Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    Content-Length: 3307
    Connection: Keep-Alive
    Cache-Control: no-cache
    Cookie: PHPSESSID=e730f5c5196b1b5c52f59a7752a5714c
  }
}
on *:SOCKREAD:up: { 
  var %a
  sockread %a
  echo -a $htmlfree(%a)  . 
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias gndr { clear -s | sockclose up | sockopen up1 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }
on *:sockopen:up1: {
  var %a D:\mırc\1.PNG
  sockwrite -n up1 POST /upload.php HTTP/1.1
  sockwrite -n up1 Content-Type: multipart/form-data; boundary=---------------------------7dc1a3233807cc
  sockwrite -n up1 Content-Length: $calc($len(%a) + 1)
  sockwrite -n up1  host: b.hizliresim.com
  sockwrite -n up1
  sockwrite -n $sockname %a
}
on *:SOCKREAD:up1: { 
  var %a1
  sockread %a1
  echo -a $htmlfree(%a1)  . 
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}

arkadaşlar bukadar yapabildim kodu yüklenecek dosya bulunamadı diyor nerde hatalıyım

SiLuet · 04 Şubat 2012, 17:54

Belki Şu Konuda "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]" İşine yarayacak Bişeyler Bulabilirsin.

fav · 04 Şubat 2012, 21:20

pek işime yaramadı sonuç olarak ordaki kod da deforma olmuş site yenilikyapmış bunedenle post verileri siteye uymuyorki benim üzerinde çalıştığım site bambaşka post verilerine sahip socket post data konusunda eğitim şart
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kaynak yok neyazıkki

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias gndr { clear -s | sockclose up | sockopen up1 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }
on *:sockopen:up1: {
  var %i D:\mırc\1.PNG
  sockwrite -n up1 POST /upload.php HTTP/1.1
  sockwrite -n up1 Accept: text/html, application/xhtml+xml, */*
  sockwrite -n up1 Referer: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -n up1 Accept-Language: tr-TR
  sockwrite -n up1 User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)
  sockwrite -n up1 Content-Type: multipart/form-data; boundary=---------------------------7dc2502798505a0
  sockwrite -n up1 Accept-Encoding: gzip, deflate
  sockwrite -n up1 Host: c.hizliresim.com
  sockwrite -n up1 Content-Length: $calc($len(%a) + 1)
  sockwrite -n up1 Connection: Keep-Alive
  sockwrite -n up1 Cache-Control: no-cache
  sockwrite -n up1
  sockwrite -n up1 %i
}
on *:SOCKREAD:up1: { 
  var %a1
  sockread %a1
  ;if (hizliresim isin $htmlfree(%a1)) { }
  echo -a $htmlfree(%a1) .
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Mirc Kanal Arka Plan Resim	cihangarip	mIRC Scripting Sorunları	5	13 Ağustos 2010 22:39
Arka Plan	Braun	mIRC Scripting Sorunları	2	16 Nisan 2008 15:12
mIRC Arka Plan Yazı Ekleme.	RapoLicE	mIRC Scripting Sorunları	3	05 Ekim 2007 21:12

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

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.