🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
Aktif olani asagiya birakiyorum.
;;;;;;;;;;;;;;;;;;;;;;
;burc astroloji son hali
;;;;;;;;;;;;;;;;;;;;;;;
;yzr : jeun
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: {
if $regex($1,/^[!.]bur[cç]/i) {
if $regex($2,/(ko[cç]|bo[gğ]a|[İi]kizler|yenge[cç]|a[rs]lan|ba[sş]ak|terazi|akrep|yay|o[gğ]lak|kova|bal[ıi]k)/i) {
set %lnk $replace($regml(1),koç,koc,boğa,boga,İkizler,ikizler,başak,basak,oğlak,oglak,balık,balik,yengeç,yengec)
set %burchn $chan
set %burcnck $nick
burc
}
}
}
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&,$chr(9)) | return %x }
alias burc { if $sock(burc) { sockclose burc } | sockopen burc Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 80 }
on *:sockopen:burc:{
sockwrite -n $sockname GET /yildizfali/ $+ %lnk $+ .asp HTTP/1.0
sockwrite -n $sockname User-Agent: Mozilla
sockwrite -n $sockname Host: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. sockwrite -n $sockname $crlf
}
on *:sockread:burc:{
sockread -f %burc
if $regex(%burc,/ (.+)</td>/i) && $len($regml(1)) > 80 {
msg %burchn [[ %lnk fali yorumu ]]
msg %burchn 4<2 %burcnck 4> $gettok($regml(1),1-2,46)
msg %burchn 4<2 %burcnck 4> $gettok($regml(1),3-5,46)
msg %burchn 4<2 %burcnck 4> $gettok($regml(1),6-8,46)
}
}
bugün denedim bu kodu, mirc 7.83'de calismadi. :-)
Kimse yokmu bu sekil kod bana ögretebilecek sabirli biri? Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
mIRC 6.35'te sorunsuz çalışmaktadır. 7.83 6.35'in aksine HTTPs desteği vardır ama yine hata sebebi başka bir kodla çatışmadır diye düşünüyorum.Denememekle beraber 7.83'te şöyle bir kod yazdım
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: {
if $regex($1,/^[!.]bur[cç]/i) {
; Burç isimlerini düzeltme ve eşleştirme
if $regex($2,/(ko[cç]|bo[gğ]a|[İi]kizler|yenge[cç]|a[rs]lan|ba[sş]ak|terazi|akrep|yay|o[gğ]lak|kova|bal[ıi]k)/i) {
var %b = $lower($regml(1))
%b = $replace(%b,ç,c,ğ,g,ı,i,ş,s,ö,o,ü,u)
set %lnk %b
set %burchn $chan
set %burcnck $nick
burc
}
}
}
alias burc {
if ($sock(burc)) { sockclose burc }
; -e parametresi SSL (HTTPS) üzerinden bağlanmayı sağlar
sockopen -e burc Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 443
}
on *:sockopen:burc:{
if ($sockerr) { msg %burchn Bağlantı hatası oluştu. | return }
sockwrite -n $sockname GET /yildizfali/ $+ %lnk $+ .asp HTTP/1.1
sockwrite -n $sockname Host: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64)
sockwrite -n $sockname Connection: close
sockwrite -n $sockname $crlf
}
on *:sockread:burc:{
if ($sockerr) { return }
var %br
sockread %br
if $regex(%br, /<p>(.+?)<\/p>/i) {
var %yorum = $regml(1)
; HTML kodlarını temizle
%yorum = $regsubex(%yorum, /<[^>]*>/g, $null)
if ($len(%yorum) > 100) {
msg %burchn 4[12 %lnk 4] %yorum
}
}
}
14 Şubat 2026, 15:11
Benzer Konular 
Ağaç şeklinde
