Jump to content
Sign in to follow this  
ironmankho

Youtube keyword finder

Recommended Posts

ironmankho

after many searching and asking i am success in to write this code

it is little autoit script that enable to get keyword from youtube

#include <IE.au3>
#include <Youtube.au3>
#include <File.au3>
; using youtube.udf to get keyword 
$sID = ClipGet() 
_IELoadWait ($sID)
$sPlayer = _Youtube_Read($sID); Read webpage (could take a while)
$sKeywords = _Youtube_GetKeywords($sPlayer)
MsgBox(0, "keywords", $sKeywords)
_FileWriteToLine("c:\auto.txt", 1, $sKeywords, 0)
_IEQuit ($sID)

now i am getting two problem / bugs

1- some times it return null / blank value

2- it is no capable to get Chinese character

please download modified youtube.udf

(i made minor change in youtube.udf get only video link like DsL_5bovozE

but i change into : http://www.youtube.com/watch?v=DsL_5bovozE

Youtube.au3

my script

yt_keyword.au3

can i implement loop ......... while loop is better for this purpose ?

Edited by ironmankho

Share this post


Link to post
Share on other sites
ironmankho

Sorry for bump !!!!!

please help me ...i do my best but can't find any solution for blank value (some time it return null value some time return good result )

because i will use this for my _youtube indexing site approximatly i have 45,000 links ..... so that'why i can't post links with out Tag

Even i write this code again

#include <IE.au3>
#include <Youtube.au3>
#include <File.au3>
; using youtube.udf to get keyword 
$sID = ClipGet() 
MsgBox(0, "Clipget Auto it ID", $sID)
$sPlayer = _Youtube_Read($sID); Read webpage (could take a while)
$sKeywords = _Youtube_GetKeywords($sPlayer)
;ClipPut($sKeywords)
MsgBox(0, "keywords that last time grabbe", $sKeywords)

;Run("pagesaver.exe", "", @SW_HIDE)
If $sKeywords="   "Then
     MsgBox(0,"", "String only contained whitespace characters.")
$sID = ClipGet() 
;_IELoadWait ($sID)
$sPlayer = _Youtube_Read($sID); Read webpage (could take a while)
sKeywords = _Youtube_GetKeywords($sPlayer)
MsgBox(0, "retrive error", $sKeywords)
;FileWriteToLine("c:\auto.txt", 1, $sKeywords, 0)
Else
_IEQuit ($sID)
EndIf
Edited by ironmankho

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×