port ayalarınıda yapınca kullanabilirsiniz..
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)
}