Advertisement
intersys

Untitled

Dec 30th, 2017
256
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 0.72 KB | None | 0 0
  1. alias nynet { if ($sock(ynet)) sockclose ynet | sockopen ynet mivzakon.co.il 80 | unset %lnews | unset %tnews }
  2. on *:SOCKOPEN:ynet:{
  3.   sockwrite -n ynet GET / HTTP/1.1
  4.   sockwrite -n ynet Host: www.mivzakon.co.il
  5.   sockwrite -n ynet Connection: close
  6.   sockwrite -n ynet Accept: text/html, application/xhtml+xml, */*
  7.   sockwrite -n ynet User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:11.0)
  8.   sockwrite -n ynet Accept-Charset:ISO-8859-1,utf-8;q=0.7,*;q=0.7
  9.   sockwrite -n ynet $crlf
  10. }
  11. on *:SOCKREAD:ynet:{
  12.   if (!$sockerr) {
  13.     var %wnews | sockread %wnews
  14. if ($regex(%wnews,/www\.mivzakon\.co\.il\/click.asp\?ID=(\d+).+nbsp;(.+?)<\/b><\/td><td width="100"/i) && !%matched) { echo -s Link: $regml(1) News: $regml(2) | var %matched 1 }
  15.   }
  16. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement