Konuya cevap cer

Mesaj

<blockquote data-quote="Xenomorph" data-source="post: 8866" data-attributes="member: 5869">Aşağıdaki örnek eğitim amaçlı güvenli Socket Bot kodudur. mIRC/AdiIRC içine Remote kısmına ekleyip çalıştırabilirsin. Bot; sunucuya bağlanır, kanala girer, PING/PONG yapar, mesaj okur ve basit komutlara cevap verir.; ==============================; Xenomorph Socket Bot - Eğitim; ==============================alias bot.baslat {&nbsp; ; Ayarlar&nbsp; set %bot.server irc.trendsohbet.com&nbsp; set %bot.port 6667&nbsp; set %bot.nick XenoBot&nbsp; set %bot.ident XenoBot&nbsp; set %bot.realname Xenomorph Socket Bot&nbsp; set %bot.kanal #Xenomorph&nbsp; set %bot.prefix !&nbsp; ; Eski socket varsa kapat&nbsp; if ($sock(xenobot)) { sockclose xenobot }&nbsp; ; Bağlan&nbsp; sockopen xenobot %bot.server %bot.port&nbsp; echo -a [BOT] Sunucuya baglaniliyor: %bot.server %bot.port}alias bot.kapat {&nbsp; if ($sock(xenobot)) {&nbsp; &nbsp; sockwrite -nt xenobot QUIT :Xenomorph Socket Bot kapatildi.&nbsp; &nbsp; sockclose xenobot&nbsp; }&nbsp; echo -a [BOT] Bot kapatildi.}alias bot.yaz {&nbsp; if (!$sock(xenobot)) { echo -a [BOT] Socket bagli degil. | return }&nbsp; sockwrite -nt xenobot $1-}alias bot.msg {&nbsp; ; Kullanım: /bot.msg #kanal mesaj&nbsp; bot.yaz PRIVMSG $1 : $+ $2-}alias bot.notice {&nbsp; ; Kullanım: /bot.notice nick mesaj&nbsp; bot.yaz NOTICE $1 : $+ $2-}Socket bağlanınca IRC sunucusuna kendimizi tanıtıyoruz:on *:SOCKOPEN:xenobot:{&nbsp; if ($sockerr) {&nbsp; &nbsp; echo -a [BOT] Baglanti hatasi: $sockerr&nbsp; &nbsp; return&nbsp; }&nbsp; echo -a [BOT] Baglandi. Nick/User bilgisi gonderiliyor.&nbsp; bot.yaz NICK %bot.nick&nbsp; bot.yaz USER %bot.ident 0 * : $+ %bot.realname}Sunucudan gelen verileri okuyan ana bölüm:on *:SOCKREAD:xenobot:{&nbsp; var %data&nbsp; sockread %data&nbsp; while (%data) {&nbsp; &nbsp; echo -a [RAW] %data&nbsp; &nbsp; ; PING gelirse PONG dönmezsek bot düşer&nbsp; &nbsp; if ($gettok(%data,1,32) == PING) {&nbsp; &nbsp; &nbsp; bot.yaz PONG $gettok(%data,2,32)&nbsp; &nbsp; }&nbsp; &nbsp; ; 001 = bağlantı başarılı&nbsp; &nbsp; if ($gettok(%data,2,32) == 001) {&nbsp; &nbsp; &nbsp; echo -a [BOT] Sunucu kabul etti. Kanala giriliyor: %bot.kanal&nbsp; &nbsp; &nbsp; bot.yaz JOIN %bot.kanal&nbsp; &nbsp; }&nbsp; &nbsp; ; Kanal mesajlarını yakala&nbsp; &nbsp; if ($gettok(%data,2,32) == PRIVMSG) {&nbsp; &nbsp; &nbsp; bot.privmsg %data&nbsp; &nbsp; }&nbsp; &nbsp; sockread %data&nbsp; }Şimdi mesaj parse eden ve komutları algılayan bölüm:alias bot.privmsg {&nbsp; var %raw = $1-&nbsp; ; Örnek raw:&nbsp; ; :Nick!ident@host PRIVMSG #kanal :!komut test&nbsp; var %fullnick = $gettok(%raw,1,32)&nbsp; var %nick = $gettok($remove(%fullnick,<img src="https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f642.png" class="smilie smilie--emoji" loading="lazy" width="64" height="64" alt=":)" title="Smile&nbsp; &nbsp; :)"&nbsp; data-smilie="1"data-shortname=":)" />,1,33)&nbsp; var %target = $gettok(%raw,3,32)&nbsp; ; Mesaj kısmı &quot;:&quot; işaretinden sonra gelir&nbsp; var %pos = $pos(%raw, :, 2)&nbsp; if (!%pos) { return }&nbsp; var %msg = $mid(%raw,$calc(%pos + 1))&nbsp; ; Kanal mı özel mesaj mı?&nbsp; var %replyto = %target&nbsp; if ($left(%target,1) != $chr(35)) { var %replyto = %nick }&nbsp; ; Komut prefix kontrolü&nbsp; if ($left(%msg,1) != %bot.prefix) { return }&nbsp; var %cmd = $lower($mid($gettok(%msg,1,32),2))&nbsp; var %args = $gettok(%msg,2-,32)&nbsp; if (%cmd == yardim) {&nbsp; &nbsp; bot.msg %replyto Komutlar: !yardim !bilgi !saat !ping !forum !kimim&nbsp; }&nbsp; elseif (%cmd == bilgi) {&nbsp; &nbsp; bot.msg %replyto Xenomorph Socket Bot aktif. Sunucu: %bot.server Kanal: %bot.kanal&nbsp; }&nbsp; elseif (%cmd == saat) {&nbsp; &nbsp; bot.msg %replyto Saat: $asctime(HH:nn:ss) Tarih: $asctime(dd/mm/yyyy)&nbsp; }&nbsp; elseif (%cmd == ping) {&nbsp; &nbsp; bot.msg %replyto Pong, %nick&nbsp; }&nbsp; elseif (%cmd == forum) {&nbsp; &nbsp; bot.msg %replyto Forum: <a href="http://www.mircforum.org.tr" target="_blank">www.mIRCForum.org.tr</a>&nbsp; }&nbsp; elseif (%cmd == kimim) {&nbsp; &nbsp; bot.msg %replyto Senin nickin: %nick&nbsp; }&nbsp; else {&nbsp; &nbsp; bot.msg %replyto Bilinmeyen komut. Yardim icin: !yardim&nbsp; }}Yetkili kontrolü eklemek için:alias bot.yetkili {&nbsp; ; Buraya botu kullanabilecek nickleri ekle&nbsp; ; Kullanım: if (!$bot.yetkili(%nick)) return&nbsp; if ($1 == Xenomorph) { return 1 }&nbsp; if ($1 == AdminNick) { return 1 }&nbsp; return 0}alias bot.privmsg {&nbsp; var %raw = $1-&nbsp; var %fullnick = $gettok(%raw,1,32)&nbsp; var %nick = $gettok($remove(%fullnick,<img src="https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f642.png" class="smilie smilie--emoji" loading="lazy" width="64" height="64" alt=":)" title="Smile&nbsp; &nbsp; :)"&nbsp; data-smilie="1"data-shortname=":)" />,1,33)&nbsp; var %target = $gettok(%raw,3,32)&nbsp; var %pos = $pos(%raw, :, 2)&nbsp; if (!%pos) { return }&nbsp; var %msg = $mid(%raw,$calc(%pos + 1))&nbsp; var %replyto = %target&nbsp; if ($left(%target,1) != $chr(35)) { var %replyto = %nick }&nbsp; if ($left(%msg,1) != %bot.prefix) { return }&nbsp; var %cmd = $lower($mid($gettok(%msg,1,32),2))&nbsp; var %args = $gettok(%msg,2-,32)&nbsp; if (%cmd == yardim) {&nbsp; &nbsp; bot.msg %replyto Komutlar: !yardim !bilgi !saat !ping !op nick !voice nick !kick nick sebep&nbsp; }&nbsp; elseif (%cmd == op) {&nbsp; &nbsp; if (!$bot.yetkili(%nick)) { bot.msg %replyto Yetkin yok. | return }&nbsp; &nbsp; if (!%args) { bot.msg %replyto Kullanim: !op nick | return }&nbsp; &nbsp; bot.yaz MODE %target +o %args&nbsp; }&nbsp; elseif (%cmd == voice) {&nbsp; &nbsp; if (!$bot.yetkili(%nick)) { bot.msg %replyto Yetkin yok. | return }&nbsp; &nbsp; if (!%args) { bot.msg %replyto Kullanim: !voice nick | return }&nbsp; &nbsp; bot.yaz MODE %target +v %args&nbsp; }&nbsp; elseif (%cmd == kick) {&nbsp; &nbsp; if (!$bot.yetkili(%nick)) { bot.msg %replyto Yetkin yok. | return }&nbsp; &nbsp; var %knick = $gettok(%args,1,32)&nbsp; &nbsp; var %sebep = $gettok(%args,2-,32)&nbsp; &nbsp; if (!%knick) { bot.msg %replyto Kullanim: !kick nick sebep | return }&nbsp; &nbsp; if (!%sebep) { var %sebep = Xenomorph Socket Bot }&nbsp; &nbsp; bot.yaz KICK %target %knick : $+ %sebep&nbsp; }&nbsp; elseif (%cmd == bilgi) {&nbsp; &nbsp; bot.msg %replyto Xenomorph Socket Bot aktif.&nbsp; }&nbsp; elseif (%cmd == saat) {&nbsp; &nbsp; bot.msg %replyto Saat: $asctime(HH:nn:ss)&nbsp; }&nbsp; elseif (%cmd == ping) {&nbsp; &nbsp; bot.msg %replyto Pong.&nbsp; }}Botu calistirmak icin ;/bot.baslatKapatmak icin ;/bot.kapatOrnek kanal komutlari :!yardim!bilgi!saat!ping!op Nick!voice Nick!kick Nick sebep</blockquote>

[QUOTE="Xenomorph, post: 8866, member: 5869"] Aşağıdaki örnek [B]eğitim amaçlı güvenli Socket Bot[/B] kodudur. mIRC/AdiIRC içine Remote kısmına ekleyip çalıştırabilirsin. Bot; sunucuya bağlanır, kanala girer, PING/PONG yapar, mesaj okur ve basit komutlara cevap verir. [B]; ============================== ; Xenomorph Socket Bot - Eğitim ; ==============================[/B] alias bot.baslat { ; Ayarlar set %bot.server irc.trendsohbet.com set %bot.port 6667 set %bot.nick XenoBot set %bot.ident XenoBot set %bot.realname Xenomorph Socket Bot set %bot.kanal #Xenomorph set %bot.prefix ! ; Eski socket varsa kapat if ($sock(xenobot)) { sockclose xenobot } ; Bağlan sockopen xenobot %bot.server %bot.port echo -a [BOT] Sunucuya baglaniliyor: %bot.server %bot.port } alias bot.kapat { if ($sock(xenobot)) { sockwrite -nt xenobot QUIT :Xenomorph Socket Bot kapatildi. sockclose xenobot } echo -a [BOT] Bot kapatildi. } alias bot.yaz { if (!$sock(xenobot)) { echo -a [BOT] Socket bagli degil. | return } sockwrite -nt xenobot $1- } alias bot.msg { ; Kullanım: /bot.msg #kanal mesaj bot.yaz PRIVMSG $1 : $+ $2- } alias bot.notice { ; Kullanım: /bot.notice nick mesaj bot.yaz NOTICE $1 : $+ $2- } [B]Socket bağlanınca IRC sunucusuna kendimizi tanıtıyoruz:[/B] on *:SOCKOPEN:xenobot:{ if ($sockerr) { echo -a [BOT] Baglanti hatasi: $sockerr return } echo -a [BOT] Baglandi. Nick/User bilgisi gonderiliyor. bot.yaz NICK %bot.nick bot.yaz USER %bot.ident 0 * : $+ %bot.realname } [B]Sunucudan gelen verileri okuyan ana bölüm:[/B] on *:SOCKREAD:xenobot:{ var %data sockread %data while (%data) { echo -a [RAW] %data ; PING gelirse PONG dönmezsek bot düşer if ($gettok(%data,1,32) == PING) { bot.yaz PONG $gettok(%data,2,32) } ; 001 = bağlantı başarılı if ($gettok(%data,2,32) == 001) { echo -a [BOT] Sunucu kabul etti. Kanala giriliyor: %bot.kanal bot.yaz JOIN %bot.kanal } ; Kanal mesajlarını yakala if ($gettok(%data,2,32) == PRIVMSG) { bot.privmsg %data } sockread %data } [B]Şimdi mesaj parse eden ve komutları algılayan bölüm:[/B] alias bot.privmsg { var %raw = $1- ; Örnek raw: ; :Nick!ident@host PRIVMSG #kanal :!komut test var %fullnick = $gettok(%raw,1,32) var %nick = $gettok($remove(%fullnick,:),1,33) var %target = $gettok(%raw,3,32) ; Mesaj kısmı ":" işaretinden sonra gelir var %pos = $pos(%raw, :, 2) if (!%pos) { return } var %msg = $mid(%raw,$calc(%pos + 1)) ; Kanal mı özel mesaj mı? var %replyto = %target if ($left(%target,1) != $chr(35)) { var %replyto = %nick } ; Komut prefix kontrolü if ($left(%msg,1) != %bot.prefix) { return } var %cmd = $lower($mid($gettok(%msg,1,32),2)) var %args = $gettok(%msg,2-,32) if (%cmd == yardim) { bot.msg %replyto Komutlar: !yardim !bilgi !saat !ping !forum !kimim } elseif (%cmd == bilgi) { bot.msg %replyto Xenomorph Socket Bot aktif. Sunucu: %bot.server Kanal: %bot.kanal } elseif (%cmd == saat) { bot.msg %replyto Saat: $asctime(HH:nn:ss) Tarih: $asctime(dd/mm/yyyy) } elseif (%cmd == ping) { bot.msg %replyto Pong, %nick } elseif (%cmd == forum) { bot.msg %replyto Forum: [URL="http://www.mircforum.org.tr"]www.mIRCForum.org.tr[/URL] } elseif (%cmd == kimim) { bot.msg %replyto Senin nickin: %nick } else { bot.msg %replyto Bilinmeyen komut. Yardim icin: !yardim } } Yetkili kontrolü eklemek için: alias bot.yetkili { ; Buraya botu kullanabilecek nickleri ekle ; Kullanım: if (!$bot.yetkili(%nick)) return if ($1 == Xenomorph) { return 1 } if ($1 == AdminNick) { return 1 } return 0 } alias bot.privmsg { var %raw = $1- var %fullnick = $gettok(%raw,1,32) var %nick = $gettok($remove(%fullnick,:),1,33) var %target = $gettok(%raw,3,32) var %pos = $pos(%raw, :, 2) if (!%pos) { return } var %msg = $mid(%raw,$calc(%pos + 1)) var %replyto = %target if ($left(%target,1) != $chr(35)) { var %replyto = %nick } if ($left(%msg,1) != %bot.prefix) { return } var %cmd = $lower($mid($gettok(%msg,1,32),2)) var %args = $gettok(%msg,2-,32) if (%cmd == yardim) { bot.msg %replyto Komutlar: !yardim !bilgi !saat !ping !op nick !voice nick !kick nick sebep } elseif (%cmd == op) { if (!$bot.yetkili(%nick)) { bot.msg %replyto Yetkin yok. | return } if (!%args) { bot.msg %replyto Kullanim: !op nick | return } bot.yaz MODE %target +o %args } elseif (%cmd == voice) { if (!$bot.yetkili(%nick)) { bot.msg %replyto Yetkin yok. | return } if (!%args) { bot.msg %replyto Kullanim: !voice nick | return } bot.yaz MODE %target +v %args } elseif (%cmd == kick) { if (!$bot.yetkili(%nick)) { bot.msg %replyto Yetkin yok. | return } var %knick = $gettok(%args,1,32) var %sebep = $gettok(%args,2-,32) if (!%knick) { bot.msg %replyto Kullanim: !kick nick sebep | return } if (!%sebep) { var %sebep = Xenomorph Socket Bot } bot.yaz KICK %target %knick : $+ %sebep } elseif (%cmd == bilgi) { bot.msg %replyto Xenomorph Socket Bot aktif. } elseif (%cmd == saat) { bot.msg %replyto Saat: $asctime(HH:nn:ss) } elseif (%cmd == ping) { bot.msg %replyto Pong. } } Botu calistirmak icin ; /bot.baslat Kapatmak icin ; /bot.kapat Ornek kanal komutlari : !yardim !bilgi !saat !ping !op Nick !voice Nick !kick Nick sebep [/QUOTE]

Adı

İnsan doğrulaması