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.

  • Web sitemizin içeriğine ve tüm hizmetlerimize erişim sağlamak için Web sitemize kayıt olmalı ya da giriş yapmalısınız. Web sitemize üye olmak tamamen ücretsizdir.
  • Sohbetokey.com ile canlı okey oynamaya ne dersin? Hem sohbet et, hem mobil okey oyna!
  • Soru mu? Sorun mu? ''Bir Sorum Var?'' sistemimiz aktiftir. Paylaşın beraber çözüm üretelim.

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