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

MesqeN · 13 Şubat 2012, 22:00

kafa yorucu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

böyle birşey üstünde calişiyorum bitirince Paylaşmayı düşünüyorum kısa süre icerisinde

house · 16 Nisan 2012, 06:42

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

Birde şu var : Tcl error [time:optara] : "file25" wasn't opened for reading ; diye çalışıyor ama neden tcl error hatası veriyor onu anlayamadım.

Bu hata : file25 adlı dosyanın okunmak için açılamadığını belirtiyor. Onun karşılığı neyse o dosyayı denetlemelisin. Okuyamadığı dosyayı yansıtamaz.

OzeL · 06 Kasım 2013, 01:25

Şu Konuyu bi açıklığa Kavuştursak Güzel Olur.

MesqeN · 06 Kasım 2013, 15:32

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bey kardeşim kavuşturalım..

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..                 #
# [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yazan yere veri     #
# Cekceginiz adresi yazın....         #
#######################################
set zaman_araligi "4"
if {![string match "*basla*" [timers]]} {  
  timer $zaman_araligi basla  
}  
proc basla {{text ""}} {
  global zaman_araligi 
  set connect [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]] 
  set files [::http::data $connect] 
  set list [split [subst -nocommands $files] "w"]
  foreach i $list {
  putquick "PRIVMSG #Chan $i"
      ::http::cleanup $files
  }
 timer $zaman_araligi basla
}
putlog "#######################################"
putlog "  banac TCL v1.0.2 Load edildi        #"
putlog "#######################################"

NOTE denemeler yapıldı ve Sorunsuz olarak çalışmakta

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...]

MesqeN · 06 Kasım 2013, 21:19

Paylaşımın güzeligine kendi güzeligini yansıtmışsın üstadım..

Fakat şöyle bir problem doguyor..

Bot malum indexi gönbdermiş olduğu txt dosyasını silemiyor.

ve sürekli aynı şeyleri kanala gönderiyor.

bunu web olarak belirli Aralık TCL göre 4 5 dk da bir sildirmek mümkünmüdür.

ulusalchat · 10 Kasım 2013, 06:59

cron ile dosya sildirile bilir

MesqeN · 10 Kasım 2013, 23:07

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] fikeren sildirile bilir olması yetersiz. Bizler için.

istek dk sonra silincek. veri.txt içerisinden hepsi bu.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:07 -->-> Daha önceki mesaj 23:03 --

Uyguladıgım sistem : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

veri işlev Adresi irc.kelebek.gen.tr -j #radyo

istek isteyerek ircd Görebilirsiniz.

Örnek Gösterim :
[KBSC] [ 23::08 ] <KLBKRadyo> istek Ferdi Tayfur prangalar Kelebek ailesine gelsin..

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
Kanala girenleri atıp başka kanala joinlemek	Kablosuz NET	Unreal IRCd	6	30 Haziran 2007 14:46

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

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.