deprem Türkçe mIRC indir - Resmi mIRC indirme Sitesi

mIRC Anlık Deprem Raporu

08 Ekim 2015 • 15:22 OxiGeN Addonlar, Hazır Kodlar, Türkçe mIRC

alias Deprem { sockopen aziz www.koeri.boun.edu.tr 80 } on *:sockopen:aziz: { sockwrite -n $sockname Get /scripts/lst6.asp HTTP/1.1 sockwrite -n $sockname host: www.koeri.boun.edu.tr sockwrite -n $sockname $crlf } on *:SOCKREAD:aziz: { var %a sockread %a window -enz @Depremler if (Büyüklük isin %a) { aline @Depremler 3——————————————————————0,4 $+ $htmlfree(%a) $+ 3——————————– } if (son depremler isin %a) { aline @Depremler 13 $htmlfree(%a) […]

» Devamını Oku

Yorum yaz deprem, hazır kodlar, mirc, raporu, scripting, turkce mırc

mIRC Deprem okuyucu Remote

27 Mart 2014 • 17:36 OxiGeN Hazır Kodlar

alias depremler {   set %koeri-writedir $+($scriptdir,depremler\)   if $sock(koeri-depremler) { .sockclose koeri-depremler }   sockopen koeri-depremler www.koeri.boun.edu.tr 80   if !$exists($qt(%koeri-writedir)) { mkdir $qt(%koeri-writedir) }}on *:sockopen:koeri-depremler: {   if ($sockerr) { return }   set %koeri-get-begin $false   sockwrite -n $sockname GET /scripts/lst2.asp HTTP/1.1 $crlf   sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322) $crlf   sockwrite -n $sockname Accept: */* $crlf   sockwrite -n $sockname Host: www.koeri.boun.edu.tr $crlf   sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf}on *:sockread:koeri-depremler: {   sockread %getstr   if $regex(%getstr,^&lt;pre&gt;$) { set %koeri-get-begin $true | return }   elseif $regex(%getstr,^&lt;/pre&gt;$) {      var %file = $qt($+(%koeri-writedir,$replace($date,/,.),.txt))     set %koeri-get-begin $false | sockclose $sockname      if $exists(%file) { loadbuf -a %file }   }   if %koeri-get-begin &amp;&amp; $regex(%getstr,^\d{4}\.\d{2}\.\d{2}) {      var %getdate = $gettok(%getstr,1,32), %knowndate = $+($gettok(%getdate,3,46),.,$gettok(%getdate,2,46),.,$gettok(%getdate,1,46))     var %time = $gettok(%getstr,2,32), %location = $gettok(%getstr,9-,32), %MD = $iif($gettok(%getstr,6,32) != -.-,MD: $v1,$null), %ML = $iif($gettok(%getstr,7,32) != -.-,ML: $v1,$null), %MS = $iif($gettok(%getstr,8,32) != -.-,MS: $v1,$null)     var %totalstr = $+([,%knowndate %time,]) %location &#65533;B&#65533;üyüklüğü %MD %ML %MS     if !$read($qt($+(%koeri-writedir,%knowndate,.txt)),w,%totalstr) {       write $qt($+(%koeri-writedir,%knowndate,.txt)) %totalstr     }   }}

alias depremler { set %koeri-writedir $+($scriptdir,depremler\) if $sock(koeri-depremler) { .sockclose koeri-depremler } sockopen koeri-depremler www.koeri.boun.edu.tr 80 if !$exists($qt(%koeri-writedir)) { mkdir $qt(%koeri-writedir) }}on *:sockopen:koeri-depremler: { if ($sockerr) { return } set %koeri-get-begin $false sockwrite -n $sockname GET /scripts/lst2.asp HTTP/1.1 $crlf sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322) $crlf sockwrite -n $sockname Accept: */* $crlf sockwrite -n $sockname Host: www.koeri.boun.edu.tr $crlf sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf}on *:sockread:koeri-depremler: { sockread %getstr if $regex(%getstr,^<pre>$) { set %koeri-get-begin $true | return } elseif $regex(%getstr,^</pre>$) { var %file = $qt($+(%koeri-writedir,$replace($date,/,.),.txt)) set %koeri-get-begin $false | sockclose $sockname if $exists(%file) { loadbuf -a %file } } if %koeri-get-begin && $regex(%getstr,^\d{4}\.\d{2}\.\d{2}) { var %getdate = $gettok(%getstr,1,32), %knowndate = $+($gettok(%getdate,3,46),.,$gettok(%getdate,2,46),.,$gettok(%getdate,1,46)) var %time = $gettok(%getstr,2,32), %location = $gettok(%getstr,9-,32), %MD = $iif($gettok(%getstr,6,32) != -.-,MD: $v1,$null), %ML = $iif($gettok(%getstr,7,32) != -.-,ML: $v1,$null), %MS = $iif($gettok(%getstr,8,32) != -.-,MS: $v1,$null) var %totalstr = $+([,%knowndate %time,]) %location �B�üyüklüğü %MD %ML %MS if !$read($qt($+(%koeri-writedir,%knowndate,.txt)),w,%totalstr) { write $qt($+(%koeri-writedir,%knowndate,.txt)) %totalstr } }}

» Devamını Oku

Yorum yaz deprem, mirc, okuyucu, remote