YouMyCure | 16 Ocak 2016 19:50 | Cevap: Mirc Haberler Addonu/Botu Toplam 1 Eklenti bulunuyor. evet arkadaþlar kodu geliþtirmiþ bulunmaktayým; koda .goster ve .aç komutlarý ekledim;
.goster :numarasý belirtilen haberin içeriðini kanala aktarýr.
.aç :eðer bota deðilde kendi mircinizde eklediyseniz belirtilen numaradaki haberi mirc üzerinde @ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sekmesinde açabilirsiniz. Kod:
alias _reco { .timer 1 2 .play $chan haberler.txt 1 }
alias _gosttir { set %chan $chan | set %:_goster $_goster($1) | sockclose _gymc | .timer 1 1 sockopen _gymc Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir. 80 }
alias _baslik { return $+(4,$token($1,4,34),) }
alias _goster { return $+(/,$gettok($hget(linkler,$1),3,47),/) }
alias _ymcl { return $+($chr(89),$chr(111),$chr(117),$chr(77),$chr(121),$chr(67),$chr(117),$chr(114),$chr(101)) }
alias _cekymc { .hmake -si linkler 1500 | write -c haberler.txt | sockclose _hymc | sockopen _hymc Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir. 80 }
alias _hbaslik { return $+(4,$replace($token($gettok($1,2,62),4,61),",$chr(32)),,.) }
alias _hlink { return $token($token($gettok($1,2,62),3,61),1,34) }
alias _duzelt { return $replace($1,ı,ý,ÅŸ,þ,ö,ö,ü,ü,ç,ç,Ä°,Ý,ÄŸ,ð,Ãœ,Ü,Ç,ç,Åž,Þ,Ö,Ö) }
alias _icerik1 { return $replace($token($gettok($1,3,$asc(<)),3,$asc(/)),-,$chr(32)) }
alias _icerik2 { return $replace($token($gettok($1,4,$asc(<)),2,$asc(>)),",$chr(32)) }
on *:sockopen:_hymc: {
sockwrite -nt $sockname GET /guncel HTTP/1.1
sockwrite -nt $sockname Host: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir. sockwrite -nt $sockname $crlf
}
on *:sockread:_hymc:{
var %i
sockread %i
if *"hbrListLink"* iswm %i {
inc %ymc
.hadd -si linkler %ymc $_duzelt($_hlink(%i))
write haberler.txt $+(===========,$base(BBDC0,35,34) by: $_ymcl,===========)
write haberler.txt $+(4 %ymc,. 2Haber Baþlýðý:,$_duzelt($_hbaslik(%i)))
write haberler.txt 14Link:7 $_duzelt($_hlink(%i))
write haberler.txt -
set %ymc %ymc
}
}
on *:input:*: {
if $active == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] {
if http isin $1 || Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir. isin $1 {
web $1- | halt
}
}
if $regex($1,/([.!]haberler)/Si) {
if $hget(linkler) == linkler { .hfree -si linkler }
unset %ymc | _cekymc | _reco
}
if $regex($1,/([.!]goster)/Si) {
if !$2 { msg $chan 4Hatalý Kullaným Lütfen 2.goster 13 4Þeklinde Kullanýnýz. | return }
_gosttir $2
}
if $regex($1,/([.!]a[çÇc])/Si) {
if !$2 { msg $chan 4Hatalý Kullaným Lütfen 2.aç 13 4Þeklinde Kullanýnýz. | return }
web $hget(linkler,$2)
}
}
on *:sockopen:_gymc: {
sockwrite -nt $sockname GET %:_goster HTTP/1.1
sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -nt $sockname $crlf
}
on *:sockread:_gymc:{
var %i
sockread %i
if *itemprop="alternativeHeadline"* iswm %i {
msg %chan 2Haberin Baþlýðý: $_duzelt($_baslik(%i))
}
if *<a*class="keyword"* iswm %i {
msg %chan $_duzelt($_icerik1(%i) $_icerik2(%i))
}
}
alias web {
if ($window($active) != @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ) && (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) {
window -peng1k0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1
set -u2 %x $dll(nHTMLn_2.95.dll,attach,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).hwnd)
set -u2 %x $dll(nHTMLn_2.95.dll,navigate,$1)
editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] --> site adý yaz ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
}
if ($window($active) == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) && ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) {
editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1
set -u2 %x $dll(nHTMLn_2.95.dll,attach,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).hwnd)
set -u2 %x $dll(nHTMLn_2.95.dll,navigate,$1)
editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] --> $base(BBDC0,35,34) by: $_ymcl
}
} ekteki dll dosyalarýný mirc anadizine atmazsanýz .aç komutu çalýþmaz!!!! [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Aslýnda kendi mircinizde kullanmanýz için konuyu web içerisindeki resimlere birlikte dialog þeklinde açtýracaktým lakin kullanacak kiþinin fazla olmayacagý açýsýndan onu þimdilik yapmadým eger talep gelirse paylaþýrým. |