Google Trend Kodu(Socket)

[Code]

mIRC Version: 6.35 'de yazılmıştır.

Kullanım: /trend Keywords


[Only Registered Users Can See Links] resim küçültülmüştür. Orjinal boyutunu(537x471) görmek için tıklayın.[Only Registered Users Can See Links] ([Only Registered Users Can See Links])

alias trend {
if !$1 { echo -ea 2Lutfen komutu duzgun belirtiniz, 6Komut:2 /trend kelime 6Ornek:2 /trend sohbet | return }
unset %keywords %y %t
var %rand $rand(0,9999)
sockopen $+(trend,%rand) [Only Registered Users Can See Links] 80
sockmark $+(trend,%rand) $1-
echo -ea 6 $1- 2 Kelimesi Google trend arama kelimeleri taramasi yapiliyor bekleyiniz.
}


on *:sockopen:trend*: {
var %s sockwrite -nt $sockname, %arama $replace($sock($sockname).mark,$chr(32),+)
%s GET $+(/trends/trendsReport?hl=tr&q=,%arama,&tz=Etc%2FGMT-2&content=1) [Only Registered Users Can See Links]
%s Host: [Only Registered Users Can See Links]
%s User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:45.0) Gecko/20100101 Firefox/45.0
%s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
%s Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
%s Accept-Encoding: gzip, deflate, br
%s Referer: [Only Registered Users Can See Links]
%s Connection: keep-alive
%s $crlf
}
on *:sockread:trend*: {
var %x | sockread %x
if (class="errorTitle"> isin %x) {
echo -ea 4 G4o8o2g4le2 trend limit asimina denk geldiniz, Lutfen daha sonra tekrar deneyiniz. (6Ortalama 10-20 dk.)
sockclose $sockname
return
}
if $regex(%x,/Farkl.+arama terimleri kullanmay.+deneyin/i) {
echo -ea 4 $sock($sockname).mark 2 kelimesi G4o8o2g4le2 trend listesinde bulunmamaktadir!
sockclose $sockname
return
}
if $regex(%x,/controlPanel.updatePickerTimeZone/i) && !$var(%keywords) {
echo -ea 4 $sock($sockname).mark 2 kelimesi G4o8o2g4le2 trend listesine detayli sekilde girebilecek kadar ilerlememistir.
return
}
if $regex(%x,/top keywords drilldown g link/i) {
if top10 !== %keywords { set %keywords top10 | echo -ea 4 $sock($sockname).mark 2 kelimesi G4o8o2g4le2 Liste basi aranan kelimeler }
inc %y
echo -a 6 %y -2 $token(%x,-2,39) 6 Link:2 $token(%x,2,34)
}
if $regex(%x,/rising drilldown g link/ig) {
if yukselen !== %keywords { set %keywords yukselen | echo -ea 4 $sock($sockname).mark 2 kelimesi G4oo2g4le2 yukselen aranan kelimeler }
inc %t 1
echo -a 6 %t -2 $token(%x,-2,39) 6 Link:2 $token(%x,2,34)
}
}




Kod Yapımcısı : Set