| LineS | 30 Eylül 2012 22:32 |
You-tube link
arkadaşlar bu kodla -------de ----- aranıyor
örnek: !yotube soner arıca biz
soner arıca biz ile ilgili sayfayı veriyor ama mobil web sayfasını veriyor
gercek google sayfasını verdire bilirmiyiz arama yapılan sanatcının ilk 5 -------deki linkini verdirmek istiyorum
illa bukodu düzenleyelim demiyorum
böyle bir kod varsa elinizde paylaşırsanız sevinirim
!yotube intizar gelincik yazdıgımızı farz edelim
-------de ilk cıkan bes linki kanala yansıtsın istiyorum teşekkürler Kod:
;------- Info 2.0
;By Neo Nemesis
on *:TEXT:*-------*:#: {
if ($1 == !-------) {
%c.ytb = $chan
------- search $2-
}
else {
%c.ytb = $chan
------- $1
}
}
alias s.YTB.Parse {
if (& isin $remove($gettok($1-,2,32),href=",$chr(34))) { return $replace($remove($gettok($remove($1-,<h3>,<b>,</b>,</h3>),2,62),</a),",$chr(34),',$chr(39),&,$chr(38)) 4Link15
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
else { return $replace($remove($gettok($remove($1-,<h3>,<b>,</b>,</h3>),2,62),</a),",$chr(34),',$chr(39),&,$chr(38)) 4Link:15
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias ------- {
if ($1 == search) {
;search
unset %ysrc*
sockclose s.ytb
%ysrch = /results?search_query= $+ $replace($2-,$chr(32),$chr(43)) $+ &aq=f
sockopen s.ytb
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
else {
unset %ytb*
sockclose ytb
%ytb1 = $remove($1,http://,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockopen ytb
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
}
on *:SOCKOPEN:s.ytb: {
sockwrite -n $sockname GET %ysrch HTTP/1.1
sockwrite -n $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname Connection: Close
sockwrite -n $sockname Content-Type: text/html
sockwrite -n $sockname $crlf
}
on *:SOCKREAD:s.ytb: {
sockread %ysrc.1
echo -a - $htg(%ysrc.1)
if (About <strong> isin %ysrc.1) {
.timerYTB6 1 1 msg %c.ytb 1,0You0,4Tube15,1 Search - $remove(%ysrc.1,<strong>,</strong>) -
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if (dir="ltr" title=" isin %ysrc.1) && (%ysrc.3 == $true) {
if (%ysrc.2) { inc %ysrc.2 }
else { %ysrc.2 = 1 }
if (%ysrc.2 <= 4) { .timerYTBb $+ %ysrc.2 1 $calc(%ysrc.2 + $rand(1,2)) msg %c.ytb 1,0You0,4Tube15,1 $s.YTB.Parse(%ysrc.1) }
else { sockclose s.ytb }
}
}
on *:SOCKOPEN:ytb: {
sockwrite -n $sockname GET %ytb1 HTTP/1.1
sockwrite -n $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname Connection: Close
sockwrite -n $sockname Content-Type: text/html
sockwrite -n $sockname $crlf
}
on *:SOCKREAD:ytb: {
sockread %ytb2
if watch?v= isin %i { echo -a - %i }
if (<meta name=" isin %ytb2) {
if (="title" content=" isin %ytb2) {
%ytb.title = $remove(%ytb2,<meta name="title" content=",">)
.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,<meta name="description" content=",">)
.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 }
}
}
|
