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/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   txt deki yazıları eggdrop bota okutmak (https://www.ircforumlari.net/tcl-scriptler/448137-txt-deki-yazilari-eggdrop-bota-okutmak.html)

MesqeN 31 Ocak 2012 15:19

txt deki yazıları eggdrop bota okutmak
 
Bir kod istegim olacakti Mümkünse Arkadaşlar..

uzak sitede bulunan siteadi.com/ankaralilar.txt
icerisindeki

78.191.247.122<br>78.191.127.22<br>78.191.247.122<br> yazan Yazilari.. Eggdrop bot ile #ETNA kanalina nasıl Yansıtırım.Yardımınız icin Şimdiden Teşekkürler.

CLubber 31 Ocak 2012 20:09

Cevap: txt deki yazıları eggdrop bota okutmak
 
Kod:

bind pub * !oku msg_read
proc msg_read {nick uhost hand chan text} {
  set server "siteniz.com"
  set port 80
  set l 14
  set i 0
  set path "/file.txt"
  set sockdw "[socket $server $port]"
  puts $sockdw "GET $path HTTP/1.0"
  puts $sockdw "User.Agent:Mozilla"
  puts $sockdw "Host: $server"
  puts $sockdw ""
  flush $sockdw
  while {$i <= $l} {
    gets $sockdw linedw
    putquick "PRIVMSG #Etna $linedw"
  }
}
putlog "Eggdrop File Reader v1.0 - Written By CLubber"

* TCL'deki siteniz ve file.txt isimlerini kendinize göre düzeltirsiniz.

MesqeN 01 Şubat 2012 16:47

Cevap: txt deki yazıları eggdrop bota okutmak
 
ilgine teşekkür ederim

Alıntı:

[16:21:17] <MesqeN> !oku
[16:21:24] <Xy> HTTP/1.1 200 OK
[16:21:25] <Xy> Date: Wed, 01 Feb 2012 14:21:15 GMT
[16:21:26] <Xy> Server: Apache/2.2.21 (Unix) mod_ssl/2.2.21 OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4 FrontPage/5.0.2.2635
[16:21:29] <Xy> Last-Modified: Tue, 31 Jan 2012 12:59:59 GMT
[16:21:29] <Xy> ETag: "90a0318-58-4b7d28a59d1c0"
[16:21:30] <Xy> Accept-Ranges: bytes
[16:21:32] <Xy> Content-Length: 88
[16:21:32] <Xy> Connection: close
[16:21:33] <Xy> Content-Type: text/plain
[16:21:36] <Xy> 78.191.247.252<br>78.191.247.252<br>78.191.247.252 <br>78.191.247.252<br>78.181.20.98<br>
Böyle bir hata veriyor..


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

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