IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/48976-iwbs-demo-irc-web-bilgilendirme-kick-sebeplerini-webten-bildirin-mircphp.html)

SpecifiC 30 Ocak 2008 23:23
IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP
 
Resim 1
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Resim 2
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


webbot.php dosyası
PHP- Kodu:
<?php
/* IRC Web Bilgilendirme Sistemi by SpecifiC
 * IWBS Beta (Demo)
 *  
 * SpecifiC Tarafından yazılmıştır.
 * 
 * Scripti yazılımcısını belirtmek sureti ile kullanıma açıktır.
 * Bu script tamamen ücretsizdir.
 * 
 * Script üzerinde değişiklik yaparak kendi çıkarlarınız dogrultusunda gelir
 * sağlamak ve/veya reklam yapmak amacı ile kullanmak kesinlikle yasaktır. 
 * 
 * Lütfen üzerinde emeğinizin olmadığı hiç birşey üzerinden prim kazanmaya çalışmayınız.
 *
 * Not:
 * - İstek doğrultusunda çok daha gelişmiş, kapsamlı uygulamar yazılır. 
 * --- Tamamen ciddi kurum(lar)ın cevapları dikkate alınacaktır... 
 * 
 * Saygılarımla SpecifiC
 * 
 * iletişim MSN/mail: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 */
// DB Ayarlari
$conf = Array();
// Script ayarları
$conf['MySQL']['DbName'] = 'test'; // DB ismi
$conf['MySQL']['Host'] = 'localhost'; // MySqL hostu
$conf['MySQL']['User'] = 'root'; // DB Kullanıcı adı
$conf['MySQL']['DbPass'] = ''; //  DB Şifreniz
$conf['MySQL']['BotPass'] = 'PASSWD'; //mIRC Socket Botu tanımak için gereken şifre
 
$baglanti = @mysql_connect($conf['MySQL']['Host'],$conf['MySQL']['User'],$conf['MySQL']['DbPass']);
if (!$baglanti) {
  echo "Baglanti hatasi";
  exit;
}
mysql_select_db($conf['MySQL']['DbName'],$baglanti);
if ($_GET['s'] == 'info') { 
  if (!empty($_GET['idno'])) {
    $sorgu = mysql_query("SELECT * FROM webbot WHERE idno='" . $_GET['idno'] . "'");
    $oku = mysql_fetch_array($sorgu);     
    if (!empty($oku[1])) {
?>
<p>&nbsp;</p>
<p>&nbsp;</p>
<table width="673" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="12" height="24" bgcolor="#99CC99"><div align="center">
      <p></p>
      </div></td>
    <td width="661" bgcolor="#99CC99"><strong><font size="2" face="tahoma">Web Bilgilendirme Sistemi</font></strong> </td>
  </tr>
  <tr>
    <td height="22"><font size="1" face="tahoma"></font></td>
    <td><font size="1" face="tahoma"><strong>Sayin <?=$oku[2]?></strong></font></td>
  </tr>
  <tr>
    <td height="162" bgcolor="#F4F4F4"></td>
    <td bgcolor="#F4F4F4"><table width="678" height="123" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="123" height="19"><font size="1" face="tahoma">Sizi Atan:</font></td>
        <td width="464"><font size="1" face="tahoma"><?=$oku[1]?></font></td>
      </tr>
      <tr>
        <td height="19"><font size="1" face="tahoma">Atıldıgınız Kanal:</font></td>
        <td><font size="1" face="tahoma"><?=$oku[3]?></font></td>
      </tr>
      <tr>
        <td height="85"><font size="1" face="tahoma">Sebep:</font></td>
        <td><font size="1" face="tahoma"><?=$oku[4]?></font></td>
      </tr>
    </table><div align="center"><font size="1" face="tahoma"><a href="#demo">IRCoperatoru Bilgilendir</a></font></div></td>
  </tr>
  <tr>
    <td height="20" bgcolor="#999999">&nbsp;</td>
    <td bgcolor="#999999"><div align="center"><font size="1" face="tahoma">Coded by SpecifiC</font></div></td>
  </tr>
</table>
<?php
    }
    else {
    echo "
    <html>
          <head>
          </head>
       <body>
    NoData
       </body>
    </html>";
    }
  }
}
elseif ($_GET['s'] == 'add' && $_GET['passwd'] == $conf['MySQL']['BotPass']) {
  if ($ekle = mysql_query("INSERT INTO webbot (idno , nick , knick , chan , reason , date) VALUES ('$idno' , '$nick' , '$knick' , '$chan' , '$reason' , '$date')" , $baglanti)) {
    if ( $ekle ) {
      echo "
        <html>
          <head>
          </head>
       <body>
       Added data
       </body>
       </html>";
    }
  }
  elseif (mysql_errno() == 1146) {    
    $olustur = @mysql_query("
                        CREATE TABLE `webbot` (
                        `idno` varchar(13) NOT NULL default '',
                        `nick` varchar(25) NOT NULL default '',
                        `knick` varchar(25) NOT NULL default '',
                        `chan` varchar(25) NOT NULL default '',
                        `reason` text NOT NULL,
                        `date` varchar(12) NOT NULL default '0000-00-00'
                        );", $baglanti);
    if ($olustur) {
     echo "
      <html>
          <head>
          </head>
       <body>
      Tabo olusturuldu
        </body>
        </html>";
    }
    else {
     echo " <html>
          <head>
          </head>
       <body>
       Tablo Olusturulamadı!
       </body>
       </html>";
     exit;
    }
  }
}
elseif ($_GET['s'] == 'del' && $_GET['passwd'] == $conf['MySQL']['BotPass']) {
  $ekle = mysql_query("DELETE FROM webbot WHERE idno='" . $_GET['idno']. "'" , $baglanti);
  if ( $ekle ) {
    echo "<html>
          <head>
          </head>
       <body>
       Deleted data
       </body>
       </html>";
  }
}
else {
echo "
 <html>
          <head>
          </head>
       <body>
   ErrorCMD
       </body>
 </html>";
}
?>
mIRC Socket Bot Dosyası

Kod:
/* IRC Web Bilgilendirme Sistemi by SpecifiC
* IWBS Beta (Demo)
* 
* SpecifiC Tarafından yazılmıştır.
*
* Scripti yazılımcısını belirtmek sureti ile kullanıma açıktır.
* Bu script tamamen ücretsizdir.
*
* Script üzerinde değişiklik yaparak kendi çıkarlarınız dogrultusunda gelir
* sağlamak ve/veya reklam yapmak amacı ile kullanmak kesinlikle yasaktır.
*
* Lütfen üzerinde emeğinizin olmadığı hiç birşey üzerinden prim kazanmaya çalışmayınız.
*
* Not:
* - İstek doğrultusunda çok daha gelişmiş, kapsamlı uygulamar yazılır.
* --- Tamamen ciddi kurum(lar)ın cevapları dikkate alınacaktır...
*
* Saygılarımla SpecifiC
*
* iletişim MSN/mail: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
*/
 
;## BOT AYARLARI
alias -l botnick return BOTNICK
alias -l bot_full_name return FULLNAME
alias -l bot_email return BOTEMAIL
alias -l webpass return PASSWD
alias -l irchost return irc.bilmemne.com
alias -l ircport return 6667
alias -l webhost return localhost
alias -l webhost_port return 80
;## Bot rapor verecek ise ON vermeyecek ise OFF yapmanız yeterli.
alias -l Bot_Rapor return ON
;## Bot rapor verecekse hangi kanala rapor verecek?
alias -l rapor_chan return #RaporCHAN
;## Bot veri ekledikten sonra silme zamanı (dk cinsinden)
alias -l del_timers return 10
;## Dokanmayin :)
alias -l isRapor return $iif($Bot_Rapor == ON,$true,$false)
alias -l _sdebug {
  if !$window(@Debug) {
    window @Debug
  }
  echo $1 @Debug : $+ $2-
}
alias -l sw sockwrite -nt $sockname $1-
alias sock_status return $iif($sock($1) == $true,$false,$true)
alias -l idno {
  var %n = 13
  while %n {
    var %s = $+(%s,$iif($rand(1,2) = 1,$iif($rand(1,2) = 1,$chr($rand(97,122)),$chr($rand(65,90))),$rand(0,9)))
    dec %n
  }
  return %s
}
alias -l webbot_open {
  if ($sockerr) {
    _sdebug 4 Socket botun bağlantısı kesildi.
    return
  }
  sw NICK $botnick
  sw USER $bot_email * * : $+ $bot_full_name
  sockmark $sockname $botnick
}
alias -l webbot_Read {
  var %data
  sockread %data
  tokenize 32 %data
  if :VERSION iswm $4- {
    sw NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION WebBot v1.0 $+ $chr(1)
  }
  if :FINGER iswm $4- {
    sw NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER SpecifiC $+ $chr(1)
  }
  if $1 == PING { sw PONG $2- }
  if $2 == 376 && $isRapor == $true { sw JOIN $rapor_chan }
  if $2 = KICK {
    var %n = $right($gettok($1,1,33),-1), %kn = $4, %c = $right($3,-1), %r = $right($strip($5-),-1)
    var %idno = $idno
    hadd -m w_temp %idno $+(%n,$chr(9),%kn,$chr(9),%c,$chr(9),%r)
    sockopen $+(webget-,%idno) $webhost $webhost_port
  }
  _sdebug 1 $1-
}
alias -l delete_db {
  var %sock = $+(webgetdel-,$1)
  if !$sock(%sock) {
    sockopen %sock $webhost $webhost_port
  }
}
on *:sockopen:webgetdel-*: {
  sockmark $sockname $gettok($sockname,2,45)
  if $sock_status($sockname) = $true {
    tokenize 9 $hget(w_temp,$sock($sockname).mark)
    var %sdata = $+(?s=del&,passwd=,$webpass,&idno=,$sock($sockname).mark)
    sockwrite -n $sockname GET $+(/webbot.php,%sdata) HTTP/1.1 $+ $crlf $+ $&
      Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */* $+ $crlf $+ $&
      Accept-Language: tr $+ $crlf $+ $&
      Accept-Encoding: gzip, deflate $+ $crlf $+ $&
      User-Agent: WebBot SEC1.2 by SpecifiC $+ $crlf $+ $&
      Host: $+($regsubex(web$host,http.*:\/\/,$null),:,$webhost_port) $+ $crlf $+ $&
      Connection: Keep-Alive $+ $crlf
    sockwrite -n $sockname $crlf $+ $crlf
  }
}
on *:sockread:webgetdel-*: {
  var %webdata
  sockread %webdata
  tokenize 32 %webdata
  if $regex($1-,Deleted data) {
    if $hget(w_temp,$sock($sockname).mark) {
      if $isRapor {
        sockwrite -nt webbot PRIVMSG $rapor_chan Silindi: $gettok($hget(w_temp,$sock($sockname).mark),2,9)
      }
      .hdel w_temp $sock($sockname).mark
    }
  }
  _sdebug 12 $1-
}
on *:sockopen:webget-*: {
  sockmark $sockname $gettok($sockname,2,45)
  if $sock_status($sockname) = $true {
    tokenize 9 $hget(w_temp,$sock($sockname).mark)
    var %sdata = $+(?s=add&,passwd=,$webpass,&idno=,$sock($sockname).mark,&nick=,$1,&knick=,$2,&chan=,$3,&reason=,$regsubex($4-,/( )/g,$+(%,20)))
    sockwrite -n $sockname GET $+(/webbot.php,%sdata) HTTP/1.1 $+ $crlf $+ $&
      Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */* $+ $crlf $+ $&
      Accept-Language: tr $+ $crlf $+ $&
      Accept-Encoding: gzip, deflate $+ $crlf $+ $&
      User-Agent: WebBot SEC1.2 by SpecifiC $+ $crlf $+ $&
      Host: $+($regsubex($webhost,http.*:\/\/,$null),:,$webhost_port) $+ $crlf $+ $&
      Connection: Keep-Alive $+ $crlf
    sockwrite -n $sockname $crlf $+ $crlf
  }
}
on *:sockread:webget-*: {
  var %webdata
  sockread %webdata
  tokenize 32 %webdata
  if $regex($1-,Added data) {
    var %li_nk = $+($iif($regex($webhost,^http.*\/\/),$webhost,$+([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
    var %chan = $+(#,$gettok($hget(w_temp,$sock($sockname).mark),3,9)), %nick = $gettok($hget(w_temp,$sock($sockname).mark),1,9) ,%knick = $gettok($hget(w_temp,$sock($sockname).mark),2,9)
    sockwrite -nt webbot NOTICE %knick %chan kanalından atılma sebebinizi web üzerinden öğrenmek için tıklayınız.  %li_nk
    .timer $+ $sock($sockname).mark 1 $calc($del_timers * 60) delete_db $sock($sockname).mark
    if $isRapor {
      sockwrite -nt webbot PRIVMSG $rapor_chan Eklendi: $gettok($hget(w_temp,$sock($sockname).mark),2,9)
    }
  }
  elseif $regex($1-,Tabo olusturuldu) {
    _sdebug 12 Tablo olusturuldu!
  }
  _sdebug 4 $1-
}
on *:sockopen:webbot: webbot_open
on *:sockread:webbot: webbot_Read
Socket bot sadece kanalda kicklenen kişileri izleyen ve web ile alakalandırma görevi üstlenmektedir. Gerekirse elim(iz)den geldigince buradan gelen isteklere göre yardımcı olmaya çalışırız...

Kenshin 30 Ocak 2008 23:43
Cevap: IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP
 
Yakışır Kardeşime (!)

Sitemkar 30 Ocak 2008 23:45
Cevap: IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP
 
süper bir çalışma tek kelimeyle. Ellerine Sağlık Specific

LauReLL 30 Ocak 2008 23:46
Cevap: IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP
 
Mükemmel Ustaa Bu Olay Güzelmiş Gerçekten Benm Bi Düşüncem Var ama Bu Forumla İlgili Mesela ;
Biz Forum Uyeleri mIRc iLe Baglantı Kurdugumuzda Hangi Serverde Neysek Onu Forum imzamızda veya herhangi Bir yerde yazsa diyorum örneğin..

LauReLL Şu Anda irc.bilmemne.com da bilmemne görevlisi Olarak bulunuyor
ve
LauReLl Su anda Hiçbir serverde değil veya Offline ...

Bunu yapabilirmiyiz diye düşündümde :D

Kan 31 Ocak 2008 01:07
Cevap: IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP
 
Allahına Kurban senin MIS ve eski forum adminlerinden Khaz^Dum Birşey göstermiş idi o iki çalışmadan sonra bunu tek geçerim...

MavipikSeL 31 Ocak 2008 01:09
Cevap: IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP
 
Irc'yi web üzerinden desteklemek işleve ayrı bir tat katıyor.

Tebrikler.

khazadum 31 Ocak 2008 02:11
Cevap: IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP
 
bizim eski sistem güzeldi :) çok uğraşmıştık. Irc'de yazılan her harfi bile tek tek sayıp en çok konuşanlar listesi bile yaptırıyorduk :p bıraktım artık web ile uğraşmayı, bıktırdı insanlar. Çok uzun ve sıkıcı geliyor artık.

Sw33t 31 Ocak 2008 19:39
Yanıt: IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PH
 
Çok süper bir çalışma olmuş tebrik ederim...

Yakında orasına burasına isimlerini yazarak ben yaptım diyen hırsızlar çıkmaz inş. buna ragmen paylaştıgın için sagol

TRuVa 31 Ocak 2008 20:22
Cevap: IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP
 
tbkler harika olmuş ellerine saglık [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

radiCOOL 31 Ocak 2008 23:19
Yanıt: Cevap: IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!)
 
Alıntı:
Kan Nickli Üyeden Alıntı (Mesaj 337586)
Allahına Kurban senin MIS ve eski forum adminlerinden Khaz^Dum Birşey göstermiş idi o iki çalışmadan sonra bunu tek geçerim...

Aynen katılıyorum ... Eline sağLık

esrarlitolga 02 Şubat 2008 10:25
Cevap: IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP
 
Tebrikler , Güzel Çalışma.

yanki 04 Şubat 2008 15:36
Cevap: IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP
 
ßiri şunu nasil yapacaqimi pm ile anlataßilirmi ?

CanCeL 04 Şubat 2008 15:45
Cevap: IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP
 
Kurulumu buradan anlatılsa daha iyi olur.:)
mIRC kodlarından pek anlamadığımdan yapamadım bende:D
Veri tabanı vs hepsini ayarladım'da kick atıldığında sebep belirten linki vermiyor bir yerde eksiklik yapıyorum ama nerde:)

SpecifiC 04 Şubat 2008 20:10
Cevap: IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP
 
Kısaca kurulumunu anlatayım;

WEBBOT.PHP dosyasında aşagıda belirttiğim bölümleri kendinize göre editleyip hostunuza atıyorsunuz....

PHP- Kodu:
$conf['MySQL']['DbName'] = 'test'; // DB ismi yazıyorsunuz
$conf['MySQL']['Host'] = 'localhost'; // MySqL hostu
$conf['MySQL']['User'] = 'root'; // DB Kullanıcı adınızı yazıyorsunuz
$conf['MySQL']['DbPass'] = ''; //  DB Şifrenizi yazıyorsunuz
$conf['MySQL']['BotPass'] = 'PASSWD'; //Dikkat; buraya kendinizin belirledigi bir şifre yazıyorsunuz PHP dosyası botu bu şifre ile tanıyacak sonra bu şifreyi mIRC Socket botunada yazacagız. 
Yukarıdaki ayarları yaptıktan sonra kayıt edip WEB Hostunuza atıyorsunuz. Sonra mIRC Socket Botunun ayarlarını yapıyoruz ayarları aşağıdaki gibi.


Kod:

alias -l botnick return BOTNICKI
alias -l bot_full_name return BOT-Full-Name
alias -l bot_email return BOTEMAIL
;webpass bölümünüe PHP dosyasında kendimizin belirledigi şifrenin aynısını burayad ayazıyoruz böylece bot bu şifreyi kullanarak PHP dosyasına tam erişim kazanacak.
alias -l webpass return PASSWD
alias -l irchost return irc.serveriniz.com
alias -l ircport return 6667
;webhost bölümüne webbot.php dosyasını koydugunuz adresi yazıyorsunuz örnek: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
alias -l webhost return [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
alias -l webhost_port return 80
;## Bot rapor verecek ise ON vermeyecek ise OFF yapmanız yeterli.
alias -l Bot_Rapor return ON
;## Bot rapor verecekse hangi kanala rapor verecek?
alias -l rapor_chan return #RaporCHAN
;## Bot veri ekledikten sonra silme zamanı (dk cinsinden)
alias -l del_timers return 10
Kırmızı renk ile beirttigim yerleri kendinize göre ayarlayıp kodu mIRC'e yükleyin

ver mircinizden

//sockopen webbot irc.serverim.com 6667

komutunu uygulayarak botunuzu sunucuya bağlayabilirsiniz...

Not: Bot hiç bir şekilde geliştirilmemiştir sadece kickleri takip etmektedir... Sock botu kendinize göre ne şekilde kullanacaksanız bu yönde geliştirmelisiniz... Ve botu herhangi bir kanala sokmanız yeterli... botun bulundugu kanaldaki kick sebeplerini webten bildirebileceksiniz.

C3RVANT3S 12 Şubat 2008 19:50
Cevap: IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP
 
Gerçekten çok güzel SpecifiC . IRC'ye yakışır bir çalışma başarılarının devamını diliyorum .;oki

Mutluw 04 Ekim 2008 15:11
Cevap: IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP
 
ErrorCMD diye bir hata aliyorum hostta. acaba nedir.

SpecifiC 05 Ekim 2008 00:04
Cevap: IWBS Demo - IRC Web bilgilendirme (kick sebeplerini webten bildirin!) mIRC+PHP
 
Bir yerde manuel olarak web tarafına veri gönderirken hata yapıyorsundur. Anlatılanları düzgün biçimde yaptıgında problemsiz çalısacaktır.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 07:34.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk