Radyo istek paneli (mIRC HTTPd) - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

CoCoRiCo · 25 Kasım 2015, 16:02

mIRC olan makinanızın portunu acma işini halledip
port ayalarınıda yapınca kullanabilirsiniz..

web sitenize entegre etmek için

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

<iframe src="http://mIRC_makinanin_Ipadresi:Portu"> </iframe>

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

<iframe src="http://127.0.0.1:1331"> </iframe>

gerisi sizin top sizde.. iyi eglenceler..

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

on *:start: web
alias web { socklisten webot 1331 }
on *:socklisten:webot: { sockaccept $+(Kullanici-:,$ticks,:,$r(1,9999))  }
on *:sockopen:Kullanici-*: { echo 4 GIRIS: $sockname : $sock($sockname).ip }
on *:sockread:Kullanici*: {
  var %session 600
  if ($sockerr > 0) return | :. 
  sockread -f %d
  if ($sockbr == 0) return
  echo 4 : %d
  if %d {
    if $regex(%d,(GET\s\/\sHTTP/\d\.\d$)) {
      var %s sockwrite -nt $sockname
      if $hget(session,$longip($sock($sockname).ip))  {
        header $sockname
        %s <!DOCTYPE HTML> <html><head><meta charset="ISO-8859-9"></head><body><b> Yeniden istek göndermek için $calc(%session /60) dk. beklemelisiniz.</b> </body></html>
        $+(.timer_ ,$sockname) 1 1 sockclose $sockname
      }
      if !$hget(session,$longip($sock($sockname).ip)) {
        header $sockname
        %s <html><head><meta charset="ISO-8859-9"> </head> <style> 
        %s .snr $chr(123) border:solid thin #00BBFF; $chr(125) .en $chr(123) width:300px; $chr(125)
        %s *:focus $chr(123) background: #E7E7E7; border:solid 2px #0087C8; $chr(125) .pos $chr(123) float:right; $chr(125)
        %s </style>
        %s  <div class="en"><form action="cc.rc" method="post" id="istekform">
        %s Adınız: <div> <input type="text" name="isim" class="snr pos en" required><div><br>
        %s Sanatci: <div><input type="text" name="sanatci" value="orn: mustafa ceceli" class="snr pos en" required><div><br>
        %s Şarkı:<div><input type="text" name="sarki" value="hüsran" class="snr pos en" required><div><br> 
        %s <textarea rows="4" cols="50" name="mesaj" form="istekform" class="snr en"required>
        %s istek mesajı...</textarea>
        %s <input name="sid" type="hidden" value=" $+  $+(t=,$ticks,/,$longip($sock($sockname).ip)) $+ ">
        %s <input type="submit" value="İSTE"> </form> <div> </body> </html>
        $+(.timer_ ,$sockname) 1 1 sockclose $sockname
        hadd $+(-mu,%session) session $longip($sock($sockname).ip) $sock($sockname).ip
      }
    }
    if !$hget(seesion,$longip($sock($sockname).ip))  &&  $regex(%d,/(^isim=.+&sanatci=.+&sarki=.+&mesaj=.+)/) {
      header $sockname
      noop $regex(istek,$urldecode(%d),/(=[^&]+&)/g) 

      echo  İsteyen___:  $remove($regml(istek,1),=,&) 
      echo  Sanatcı___: $remove($regml(istek,2),=,&) 
      echo  Şarkı_____: $remove($regml(istek,3),=,&) 
      echo  Mesaj____: $remove($regml(istek,4),=,&) 

      sockwrite -nt $sockname isteginiz alındı! 
      $+(.timer_ ,$sockname) 1 1 sockclose $sockname
    }
  }
  goto .
}

alias urldecode {
  if $version < 7 { return $regsubex($replace($1, +, $chr(32)), /%([A-F\d]{2})/gi, $chr($base(\1, 16, 10))) }
  ;utf decode
  if $version > 7 { return $utfdecode($regsubex($replace($1, +, $chr(32)), /%([A-F\d]{2})/gi, $chr($base(\1, 16, 10))))  }
}


alias header { 
  var %s sockwrite -nt $1 
  %s HTTP/1.1 200 OK 
  %s Date: $fulldate GMT 
  %s Server: mIRC/ $+ $version 
  %s DevID: 149284b9b05fbb7adabd7ff2a3f47e56
  ;%s Set-Cookie: webistk= $+  $+(t=,$ticks,u=,$longip($sock($1).ip)) Expires= $+ $asctime(ddd $+ $chr(44) dd-mmm-yyyy hh:nn:ss)  GMT;
  %s $str($crlf,4) 
}

25 Kasım 2015, 19:54

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Muhteşemsin Abi Eline sağlık
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

ZaLiM1979 · 17 Ağustos 2017, 04:10

anlayamadim bu ne icin simdi?

saygilar..

Alper · 14 Ekim 2017, 16:06

ZaLiM1979 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

anlayamadim bu ne icin simdi?

saygilar..

Web üzerinden mIRC e Şarkı isteğini gönderiyor. Gayet başarılı güzel çalışıyor. 1 harf eksik yazılmış sadece orayıda ben belirteyim

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

hadd $+(-mu,%session) session $longip($sock($sockname).ip) $sock($sockname).ip

Kırmızı yazılan yer yazılamdığı için hash a eklenen ip süresi geçsede silinmiyordu. Belki o şekilde çalıştıran olmuştur bende o sorunu verdiği için ekleme yaptım sıkıntısız çalışıyor.

Dahaka · 17 Ekim 2017, 21:21

Sayfa kücük baya nasil büyütebiliriz ?

CoCoRiCo · 18 Ekim 2017, 09:16

TR-ance Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Sayfa kücük baya nasil büyütebiliriz ?

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Php Radyo istek Paneli Kacirma Bence:)	RahuL	PHP	22	23 Temmuz 2012 02:02
Radyo Istek PaneLi	Gecemavisi02	PHP	13	30 Ekim 2010 13:40
Radyo istek paneli php yardım	C!n	PHP	3	07 Ekim 2009 04:28
Radyo Sitesi+istek paneli	Golf	PHP	1	07 Mayıs 2009 14:32

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.