Koruma Botuna Sockserv Olusturma. - IRCGundem

DaDaS · 24-03-10

PHP- Kodu:


			
;### Link Conf.

alias -l linkname return DaDaS.ConferenceRoom.com

alias -l linkpass return şifrenız

alias -l irchost return irc.adresiniz.Com

alias -l ircport return 6667





alias SockServ {

  sockclose SockServ

  sockopen SockServ $irchost $ircport

  echo $color(info) -a :SockServ Açıldı

}

alias SetNick {

  if $sock(SockServ) {

    sockwrite -nt SockServ  $+(:,$1) NICK $2

  }

  else {

    echo $color(info) -at Socket bağlantı hatası

  }

}

;## Sock Code

on *:sockopen:SockServ:{

  sockwrite -tn $sockname PASS $linkpass $+ $crlf $+ $&

    server $linkname  1 Bot Services Agent 

}

on *:sockread:SockServ:{

  if ($sockerr) { echo $color(info) -at Socket botun bağlantısı kesildi. | return }

  sockread %data 

  if PING* iswm %data { sockwrite -tn $sockname PONG $gettok(%data,2,32) | echo -a :pong }



  ;### Gelen verileri echo için. Aktif etmek için aşağı satır başındaki ';' işaretini kaldırın

  ;if !$window(@SocketServ) { window -k0 @SocketServ } | aline -p @SocketServ $timestamp < %data

}

24-03-10	#1 (permalink)
DaDaS Giriş Tarihi: 03-02-10 Yer: ERZuRuM. Mesajlar: 903 IRC: İRC.SohbetLisin.Com Web: http://wWw.BeykozSohbet.Com İlgi Alanı: ConferenceRoom İtibar Gücü: 95 Rep Puanı : 1860 Rep Derecesi :	Koruma Botuna Sockserv Olusturma. PHP- Kodu: ;### Link Conf. alias -l linkname return DaDaS.ConferenceRoom.com alias -l linkpass return şifrenız alias -l irchost return irc.adresiniz.Com alias -l ircport return 6667 alias SockServ { sockclose SockServ sockopen SockServ $irchost $ircport echo $color(info) -a :SockServ Açıldı } alias SetNick { if $sock(SockServ) { sockwrite -nt SockServ $+(:,$1) NICK $2 } else { echo $color(info) -at Socket bağlantı hatası } } ;## Sock Code on :sockopen:SockServ:{ sockwrite -tn $sockname PASS $linkpass $+ $crlf $+ $& server $linkname 1 Bot Services Agent } on :sockread:SockServ:{ if ($sockerr) { echo $color(info) -at Socket botun bağlantısı kesildi. \| return } sockread %data if PING* iswm %data { sockwrite -tn $sockname PONG $gettok(%data,2,32) \| echo -a :pong } ;### Gelen verileri echo için. Aktif etmek için aşağı satır başındaki ';' işaretini kaldırın ;if !$window(@SocketServ) { window -k0 @SocketServ } \| aline -p @SocketServ $timestamp < %data } __________________ ιηѕαηℓαя gєçιуσя нαуαтıм∂αη...¢αηıм ∂є∂ιgιм...вєş ραяα єтмєѕ ιηѕαηℓαя...

Seçenekler
Yazdırılabilir şekli göster Bu sayfayı e-postayla gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

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