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. Üye Olmak için TIKLAYIN...]
Msxml2.SererXMLHTTP Aplikasyonu ile ilgili kaynak: [Üye Olmadan Linkleri Göremezsiniz. Ü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. Üye Olmak için TIKLAYIN...]
Uzun veri çekiminde
/uzun [Üye Olmadan Linkleri Göremezsiniz. Ü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.