IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi

SNOOPY · 14 Şubat 2026, 15:11

mIRC kodlamalar hakkında [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] linkten faydalanabilirsin

manikdepresif Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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,/&nbsp;(.+)</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)
  }
}

ZaLiM1979 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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
    }
  }
}

Test etmedim.