mIRC Scripting - Tekil Mesaj gösterimi

**CoCoRiCo** · #1 25 Kasım 2015, 15:54

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

web sitenize entegre etmek için

HTML-Kodu:

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

orn:

HTML-Kodu:

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

Kod:

on *:start: web
alias web { socklisten webot 1331 }
on *:socklisten:webot: { sockaccept $+(istekci-:,$ticks,:,$r(1,9999))  }

on *:sockopen:istekci-*: { echo 4 GIRIS: $sockname : $sock($sockname).ip }
on *:sockread:istekci*: {
  var %session 600
  if ($sockerr > 0) return | :. 
  sockread -f %d
  if ($sockbr == 0) return
  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 $+(-m,%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,2) 
}