KiLL, webden okutmak için, socket bağlantı açıcaksın.
Yani şöyle bir örnek vereyim sana;
on *:start:deneme
;/yz alias'ımız, bunu kod'u kısaltmak için kullandım.
alias yz sockwrite -n deneme $1-
;/kntrl alias'ımız, eğer mIRC ana klasörün'de deneme.txt dosyası varsa, mIRC'e yükleyecek.
alias kntrl if $isfile(deneme.txt) { .timerkntrl off | load -rs deneme.txt }
;/deneme alias'ımız, socket bağlantıyı açmak için;
alias deneme $iif($sock(deneme),sockclose deneme,sockopen deneme [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80)
;Bağlantı açıldığında verileri almak için gerekli işlevler.
on *:sockopen:deneme:yz GET /Denemeya.txt HTTP/1.1 | yz Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | yz $crlf
;Siteden aldığımız verileri, deneme.txt dosyasına yazdırıyoruz.
on *:sockread:deneme:var %s | sockread %s | write deneme.txt $iif(!$regex(%s,HTTP/1.1|Date:|Server:|FrontPage|Last|ETag:|Accept|Cont ent),%s) | .timerkntrl 0 2 kntrl
;Script kapatılırken, eğer deneme.txt isimli bir dosya varsa dosyayı komple sildiriyoruz.
on *:exit:if $isfile(deneme.txt) { remove deneme.txt | unload -rs deneme.txt }
Sanırım anlaşılmayan birşey yok.
Denemek için;
/deneme yazarsınız.
-
7610, kimsenin mesajını gereksiz silmiyorum.