mIRC üzerinden günün sözünü almak için aşağıdaki kodu kullanabilirsiniz.
Kod:
dialog söz {
title "Günün Sözü "
size -1 -1 312 24
option dbu
edit "", 1, 11 6 291 10
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
alias gününsözü { sockopen söz www.gununsozu.com 80 | dialog -m söz söz }
on *:sockopen:söz:{
sockwrite -n $sockname GET / HTTP/1.0
sockwrite -n $sockname Host: gununsozu.com $+ $crlf $+ $crlf
}
on *:sockread:söz:{
if ($sockerr) {
echo 4 -a hata var!
}
else {
var %gününsözü
sockread %gününsözü
if <p id="text<font color=" align=center"> isin %gününsözü { set %sözler " $deltok($htmlfree(%gününsözü),,9) $+ " ) } } } on *:Dialog:söz:init:0:{ did -a söz 1 %sözler }