[immortaL]

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

Kullanım: /trend Keywords

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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) www.google.com.tr 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) HTTP/1.1
  %s Host: www.google.com.tr
  %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: https://www.google.com.tr/trends/explore
  %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