Com object ile web verileri. - IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

**SuLh** · 23 Aralık 2020, 20:21

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.