Neler yeni
MEGAForum - Teknoloji Forumu

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Youtube Link Bulma Kodu

cLaS

Yarım Kalmış cümleyim
MFC Üyesi
Konum
İzmir
  • Üyelik Tarihi
    2 Ara 2012
  • Mesajlar
    282
  • MFC Puanı
    36
Kullanımı;
!youtube kelime yazmaları yeterli.Hemen o linki oto o kişiye veriyor


Kod:
;YouTube Info 2.0
;By cLaS Nemesis
on *:TEXT:*youtube*:#: {
if ($1 == !youtube) {
%c.ytb = $chan
YouTube search $2-
}
else {
%c.ytb = $chan
YouTube $1
}
}
alias s.YTB.Parse {
if (& isin $remove($gettok($1-,2,32),href=”,$chr(34))) { return $replace($remove($gettok($remove($1-,

,,,
),2,62),else { return $replace($remove($gettok($remove($1-,

,,,
),2,62),}
alias YouTube {
if ($1 == search) {
;search
unset %ysrc*
sockclose s.ytb
%ysrch = /results?search_query= $+ $replace($2-,$chr(32),$chr(43)) $+ &aq=f
sockopen s.ytb http://www.youtube.com 80
}
else {
unset %ytb*
sockclose ytb
%ytb1 = $remove($1,http://,www.,youtube,.com)
sockopen ytb http://www.youtube.com 80
}
}
on *:SOCKOPEN:s.ytb: {
sockwrite -n $sockname GET %ysrch HTTP/1.1
sockwrite -n $sockname Host: http://www.youtube.com
sockwrite -n $sockname Connection: Close
sockwrite -n $sockname Content-Type: text/html
sockwrite -n $sockname $crlf
}
on *:SOCKREAD:s.ytb: {
sockread %ysrc.1
if (About isin %ysrc.1) {
.timerYTB6 1 1 msg %c.ytb 1,0You0,4Tube15,1 Search – $remove(%ysrc.1,,) – http://www.youtube.com $+ %ysrch
%ysrc.3 = $true
}
if (dir=”ltr” title=” isin %ysrc.1) && (%ysrc.3 == $true) {
if (%ysrc.2) { inc %ysrc.2 }
else { %ysrc.2 = 1 }
if (%ysrc.2 else { sockclose s.ytb }
}
}
on *:SOCKOPEN:ytb: {
sockwrite -n $sockname GET %ytb1 HTTP/1.1
sockwrite -n $sockname Host: http://www.youtube.com
sockwrite -n $sockname Connection: Close
sockwrite -n $sockname Content-Type: text/html
sockwrite -n $sockname $crlf
}
on *:SOCKREAD:ytb: {
sockread %ytb2
if ( if (=”title” content=” isin %ytb2) {
%ytb.title = $remove(%ytb2,)
.timerYTB1 1 1 msg %c.ytb 1,0You0,4Tube15,1 Title: $replace(%ytb.title,’,$chr(39),”,$chr(34),&,$chr(38)) $+ 
}
if (=”description” content=” isin %ytb2) {
%ytb.desc = $remove(%ytb2,)
.timerYTB2 1 2 msg %c.ytb 1,0You0,4Tube15,1 Info: $replace(%ytb.desc,’,$chr(39),”,$chr(34),&,$chr(38)) $+ 
}
if (%ytb.title) && (%ytb.desc) { sockclose ytb }
}
}
 
Üst Alt