webden istegi bot kanala atsin - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

OzeL · 06 Kasım 2013, 15:58

@[Ü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">&nbsp;</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>&nbsp;</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>&nbsp;</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>&nbsp;</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...]

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Kanala girdiğimde Check botu kanala benim istediğim metini yazsın !	SabotaJ_	mIRC Scripting Sorunları	2	02 Aralık 2012 16:43
Kanala girdiğim zaman, Servicesler otomatik olarak bir yazı atsın kanala	Update	mIRC Scripting Sorunları	5	17 Kasım 2012 02:30
Adminler Sizi Atsin Siz Aninda Server'e Baglanin Ama Yeni Bir Proxy IP'si Yazmadan	AnarchyZm	Chat ve IRC	34	19 Haziran 2005 23:31

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.