ironmankho Posted November 1, 2008 Share Posted November 1, 2008 (edited) 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_5bovozEbut i change into : http://www.youtube.com/watch?v=DsL_5bovozEYoutube.au3my script yt_keyword.au3can i implement loop ......... while loop is better for this purpose ? Edited November 1, 2008 by ironmankho Link to comment Share on other sites More sharing options...
ironmankho Posted November 2, 2008 Author Share Posted November 2, 2008 (edited) 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 November 2, 2008 by ironmankho Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now