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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - mirc özelde arka plan (https://www.ircforumlari.net/mirc-scripting-sorunlari/425511-mirc-ozelde-arka-plan.html)

mirc özelde arka plan

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:

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 { }

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:

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:

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

Cevap: mirc özelde arka plan

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

Cevap: mirc özelde arka plan

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 :) kaynak yok neyazıkki

Kod:

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 

}