Tekil Mesaj gösterimi
Alt 02 Aralýk 2020, 16:40   #1
Çevrimdýþý
Fredyyy
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
youtube remote hk.




Merhaba iyi forumlar dilerim. Daha önce de paylaþýlmýþtý lakin code çalýþmýyor. Bir üstadýmýz onarabilirse hep birlikte faydalanabiliriz, þimdiden teþekkür ederim.

Kod:   Kodu kopyalamak için üzerine çift týklayýn!
alias youtube { if $sock(youtube1) { sockclose $ifmatch } sockopen -e youtube1
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
443 } on *:sockopen:youtube1: { if $sockerr { echo -a 12Baðlantý hatasý $sock($sockname).wsmsg return } sockwrite -nt $sockname GET $+(/results?search_query=,$hget(youtube,youtube)) HTTP/1.1 sockwrite -nt $sockname Accept: */* sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
sockwrite -nt $sockname $crlf } on *:sockread:youtube1: { if $sockerr { return } else { if $sock($sockname) { sockread %f if *h3 class="yt-lockup-title "><a hre* iswm %f { inc -u1 %yu if %yu == 1 { echo -a 0,4 $+ $ghta($htmlfree($gettok(%f,12,34))) 11,1 Parçanýn 4YouTube11,1 klibi için týklayýnýz. 12 $+ $+(https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
sockclose $sockname } } } } } alias ytb { var %m 1 %retyb = $1- while %m <= $numtok(%retyb,32) { if
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
isin $gettok(%retyb,%m,32) || .com isin $gettok(%retyb,%m,32) || .net isin $gettok(%retyb,%m,32) || .org isin $gettok(%retyb,%m,32) { %retyb = $deltok(%retyb,%m,32) } inc %m } if - isin %retyb { return $+(",$replace($remove(%retyb,",1,2,3,4,5,6,7,8,9,0),-,",$chr(32),+,ý,i,ü,u,ö,o,ð,g,ç,c,þ,s),") } else { return $replace($remove(%retyb,",1,2,3,4,5,6,7,8,9,0),$chr(32),+,ý,i,ü,u,ö,o,ð,g,ç,c,þ,s) } } alias klipara { if $hget(youtube,ytb) { hdel youtube ytb } hadd -m youtube youtube $ytb($1-) youtube } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) return %x } alias ghta { return $replace($1-,â,a,’,',Â,$chr(32),Åž,Þ,°,°,Ç,Ç,Ä°,Ý,Å?,Þ,Ãœ,Ü,ı,ý,ÅŸ,þ,Ç,Ç,ç,ç,ÄŸ,ð,ÅŸ,þ,ü,ü,ı,ý,ö,ö,Ö,Ö,Ä,Ð,&uuml;,ü,&ccedil;,ç,&ouml;,ö,&rsquo;,') }


 
Alýntý ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odalarý eglen sohbet reklamver