@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Dostum inanırmısın 2 gündür Uğraşıyorum Halende Olmadı.
webistek.tcl
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
#######################################
# TcL scripting WEB TXT Aktarılan #
# verileri #chan kanalına gönderir. #
# TcL coder CLubber #
# #
# Düzenleme MesqeN #
#######################################
# Zaman Aralıgını 4 olarak belirledim #
# isteginize Göre degiştirebilirsiniz.#
# Chan Yazan yere veriyi istediginiz #
# Kanal adını yazın.. #
#
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set zaman_araligi "0"
if {![string match "*basla*" [timers]]} {
timer $zaman_araligi basla
}
proc basla {{text ""}} {
global zaman_araligi
set connect [::http::geturl http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set files [::http::data $connect]
set list [split [subst -nocommands $files] "w"]
foreach i $list {
putquick "PRIVMSG #DJ $i"
::http::cleanup $files
}
timer $zaman_araligi basla
}
putlog "#######################################"
putlog " banac TCL v1.0.2 Load edildi #"
putlog "#######################################"
panel.conf
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
#
# Eggdrop Bot
#
# SekerShell International Service
#
###########################################
loadmodule channels
loadmodule server
loadmodule ctcp
loadmodule irc
loadmodule notes
loadmodule console
loadmodule blowfish
set username "SeckinShell"
set nick "P-Bot"
set altnick "bot"
set my-ip "109.235.253.9"
set my-hostname "SeckinShell.Com"
set realname "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set init-server {
putquick "identify *******"
putquick "oper Bot *******"
putquick "MODE P-Bot +D"
}
set servers {
109.235.253.9:2291
}
channel add #Dj {
need-op { putquick "MODE #Dj +v P-Bot " }
}
channel add #AskFM {
need-op { putquick "MODE #AskFM +v P-Bot " }
}
set net-type 5
set owner "OzeL"
set userfile "Komik.user"
set chanfile "Komik.chan"
logfile jpk #opers "logs/Selvinaz.log"
set shortnick "Korku"
set home "#Soz"
set mod-path "modules/"
set help-path "help/"
set text-path "text/"
listen 3334 all
logfile msbxco * "logs/selvinaz.log"
set console "mkcobxs"
loadmodule uptime
source scripts/alltools.tcl
source scripts/action.fix.tcl
source scripts/userinfo.tcl
source scripts/webistek.tcl
İNDEX.PHP
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
<?php
ob_start();
?>
<html>
<head>
<title>AskFM İstek Paneli</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1254">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-9"></head>
<body bgcolor="FFF4DF">
<div align=center>
<table width=258 height="271" border=0 cellpadding=0 cellspacing=0>
<form action=iste.php method=post>
<tr>
<td height="31" colspan="3"><div align="center"><font face=Tahoma size=2 color=brown><b>
<center> <a href="http://askyerim.net/askfm/index.php">
<img class="" alt="" src="http://askyerim.net/askfm/istekr.png" /></a> </b></font></div></td></center>
</tr>
<tr>
<td width="71" align=left valign="middle"><div align="right"><font color="#000000" size="2" face="Arial"><strong>İsminiz:</strong></font></div></td>
<td width="11"> </td>
<td width=208 align=left><input type=text size=25 name=isim></td>
</tr>
<tr>
<td align=left valign="middle"><div align="right"><font color="#000000" size="2" face="Arial"><strong>Sanatçı:</strong></font></div></td>
<td> </td>
<td align=left><input type=text size=25 name=sanatci></td>
</tr>
<tr>
<td align=left valign="middle"><div align="right"><font color="#000000" size="2" face="Arial"><strong>Şarkı:</strong></font></div></td>
<td> </td>
<td align=left><input type=text size=25 name=sarki></td>
</tr>
<tr>
<td height="139" align=left valign="middle"><div align="right"><font color="#000000" size="2" face="Arial"><strong>Mesaj:</strong></font></div></td>
<td> </td>
<td align=left ><textarea rows=8 cols=20 name=mesaj></textarea></td>
</tr>
<tr>
<td colspan="3"><div align="center">
<input type=submit value=Gönder size=20 name=gonder>
</div>
</form>
</table>
</div>
</body>
</html>
iste.php
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
<html>
<head>
<title>AskFM İstek Paneli</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1254">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-9"></head>
<body bgcolor="#FFF4DF">
</head>
<body>
<center> <a href="http://askyerim.net/askfm/index.php">
<img class="" alt="" src="http://askyerim.net/askfm/istekr.png" /></a></center>
<?php
$isim = $_POST['isim'];
$sanatci = $_POST['sanatci'];
$sarki = $_POST['sarki'];
$mesaj = $_POST['mesaj'];
if ($sanatci == "" OR $sarki == "" OR $mesaj == "") {
echo "<center>Lütfen Boş Alan Bırakmayınız.<br><a href='index.php'>Geri</a></center>";
} else {
$dosya_adi = "veri.txt";
$dosya = fopen ($dosya_adi , 'w') or die ("Hata! Lutfen Tekrar Deneyiniz!");
$yazi = "\00304,01 İsim:\00309,01 $isim \00304,01Sanatçı:\00309,01 $sanatci \00304,01Şarkı:\00309,01 $sarki \00304,01Mesaj:\00309,01 $mesaj ";
fwrite ( $dosya , $yazi ) ;
echo "<font color=red size=2 face=Arial><b><center>İsteğiniz sunucularımıza iletilmiştir.</b><br><br>
<FORM>
<INPUT TYPE='BUTTON' VALUE='Kapat'
NAME='lowerButton' onClick='self.close()'>
</FORM></center>
</font>";
}
?>
</body>
</html>
Uyguladığım Sayfa :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]