keywords : mirc icinde script icinde google ara arama bul mirc mırc kod alias allias aliases kod kodu hazır hazırkod hazırkodu bul oku indir ara
----------------------------------------------
alias google {
if ($1 != $null) {
sockclose google
set %google.search $1-
sockopen google
www.google.com 80
}
else {
echo -a You need to specify what to google
}
}
on *:sockopen:google:{
sockwrite -n $sockname GET /ie?q= $+ $replace($replace($replace(%google.search,$chr(32),$eval(%20,0)),&,$eval(%26,0)),=,$eval(%3D,0)) $+ &hl=en&lr=&ie=UTF-8&oe=UTF-8&btnG=Google+Search HTTP/1.1
sockwrite -n $sockname Host:
www.google.com sockwrite -n $sockname Connection: Keep-Alive
sockwrite -n $sockname $crlf
}
on *:sockread:google:{
if ($sockerr) {
echo -a Error.
halt
}
else {
;var %sock.temp
sockread %sock.temp
if (%sock.temp != $null) {
if (<NOBR>* iswm %sock.temp) {
var %sock.temp = $remove($remove(%sock.temp,<b>),</b>)
var %google.1 = $mid($gettok(%sock.temp,1,32),7)
var %google.3 = $gettok($mid($gettok(%sock.temp,$calc($findtok(%sock.temp,TARGET=_main,32) + 1),32),6),1,62)
var %google.2 = $gettok($gettok($gettok(%sock.temp,$calc($findtok(%sock.temp,TARGET=_main,32) + 1) $+ -,32),2,62),1,60)
$iif(%google.1 == 1.,window -k @Google)
$iif(%google.1 == 1.,aline @Google Results for %google.search)
aline @Google $replace($replace($replace($replace($replace(%google.1 %google.2 - 12 $+ %google.3,>,>),<,<),","),',’),&,&)
}
elseif (*No standard web pages containing all your search terms were found.* iswm %sock.temp) {
window -k @Google
aline @Google No results found for %google.search
}
;echo -a %sock.temp
}
}
}
menu @google {
Clear:clear @google
}
Addon Hakkında Bilgi ve Kullanımı:
Arkadaşlar addon mirc üzerinden konuşurken geçen bir kelimeyi konuşmayı kesmeden aramamızı sağlar. Kullanış bakımında gayet kolay ve rahat.
Öncelikle yukarıdaki kodu bir txt dosyasına kopyalayıp //load -rs textismi.txt şeklinde kuruyoruz. Kurduktan sonra bizim için gerekli olan komutlar:
Arama yapmak için:
/google aranacak kelime
Arama Yaptığımız Pencereyi Temizlemek İçin İse:
/clear @google
Komutlarını Kullanıyoruz.
------------------------------
tesekkurler
