IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

Kodun işlevi: Web sitelerinden veri çekmeye yarar, kısa verilerde socketlerden daha hızlı çalışabilir.
Kodun amacı: Uzun yıllardır kullanılan web socketleri yerine biraz fantazi.
Com object ile ilgili kaynak: [Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
Msxml2.SererXMLHTTP Aplikasyonu ile ilgili kaynak: [Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
Kodun avantajı ve dezavantajı:
Avantajı Kısa tip verilerde çok hızlıdır ayrıca binary kullanmak istenilirse, sonuçlar $com(name,&binvar) ile aktarılabilir.
Dezavantajı Uzun veri çekme işlemlerinde mIRC'in byte sınırına ulaşmış olur. Bu yüzden belirli bir karakter limiti(4150)(mIRC v6.35) bulunur. Bunun için, powershell dilinde tekrar oluşturup sonuçları yansıttım.

Kullanım şekli:
Kısa veri çekiminde: /kisa [Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
Uzun veri çekiminde /uzun [Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]

Kod:

alias kisa {

  var %qk $+(hop,$r(1,9999)) | .comopen %qk Msxml2.ServerXMLHTTP.6.0

  noop $com(%qk, open, 2, bstr, GET, bstr, $1)

  noop $com(%qk, send, 1) $com(%qk, responseText, 2)

  var %l1 $len($com(%qk).result)

  if %l1 > 4141 { var %l $mid($com(%qk).result,1,4141), %l2 $mid($com(%qk),4141,4150) } 

  else { var %l $mid($com(%qk).result,1,4141) }

  .comclose %qk

  echo -a %l

  $iif(%l2,echo -a %l2,)

}

alias uzun {

  var %qk $+(hop,$r(1,9999)) | .comopen %qk wscript.shell 

  .comclose %qk $com(%qk,run,1,bstr,cmd.exe /k $&

    powershell $+($chr(36),xx=new-object -COM Msxml2.ServerXMLHTTP.6.0;) $+($chr(36),xx.Open,$chr(40),'GET',$chr(44),',$1,',$chr(44),$false,$chr(41),;) $+($chr(36),xx.Send,$chr(40),$chr(41),;) $+($chr(36),xx.responseText) $&

    $+ |clip & exit,uint,0,bool,1)

  var %k 1 | while %k <= $cb(0) { if $cb(%k) { echo -a $cb(%k) } | inc %k }

}

Sonuçlar:

Kod:

/kisa http://www.mirc.com
 

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html lang="en">

<head>

<title>mIRC: Internet Relay Chat client</title>

<meta name="author" content="mIRC Co. Ltd.">

<meta name="description" content="mIRC: Internet Relay Chat client">

<meta name="keywords" content="mIRC, IRC, Internet Relay Chat, 

..

..

..

Kod:

/uzun http://www.mirc.com
 

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html lang="en">

<head>

<title>mIRC: Internet Relay Chat client</title>

<meta name="author" content="mIRC Co. Ltd.">

<meta name="description" content="mIRC: Internet Relay Chat client">

<meta name="keywords" content="mIRC, IRC, Internet Relay Chat, Chat, Chat Rooms, Chat Online">

<meta name="viewport" content="width=device-width, initial-scale=1">

<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">

<link rel="stylesheet" type="text/css" href="/styles/layout.css">

</head>

<body>

..

..

..

Dipnot: sitelerin başına http:// eklemezseniz hata verebilir.