CoolBreeze Posted January 7, 2011 Share Posted January 7, 2011 Hi,Some days I am looking for a solution, how to Write a script like "YouTUBE Search"On the Developers page I don`t understand anything, how to combine with AutoIT.IDEA: Making the GUI with search field and button, showing 10 result of searched keyword For example: Prodigyvertically down with thumbnail=default.jpg, and only Title, Searching: Result type: Videos, Sort by: RelevanceIf click on Title with LeftMouseClick, you will get the video url, and save to some text file.See Picture to understand what I want make.How to start?, Does someone has done similar?, Does anyone can help me?Thanks in advance, good people Link to comment Share on other sites More sharing options...
guinness Posted January 7, 2011 Share Posted January 7, 2011 (edited) Have a look at this example by to give you an idea. But my advice (and many others here) is start creating the code first, I would suggest looking at GUICreate(), GUIMsg(), GUICtrlCreatePic(), GUICtrlCreateLabel and the GUI Concepts in the Help File. Plus, the Search Function in the Forums has been a huge help. Edited January 7, 2011 by guinness UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018 Link to comment Share on other sites More sharing options...
CoolBreeze Posted January 7, 2011 Author Share Posted January 7, 2011 You're right, code first and than design. But on this picture I wanted to show, how will the look, and how it will work.I looked code by but his search not work me, and in fact I do not understand part of, How to search a specific word and sort... "Search Function in the Forums" = I hope to make it something. Link to comment Share on other sites More sharing options...
iamtheky Posted January 7, 2011 Share Posted January 7, 2011 gathers the returns from m.youtube (for the minimalist gui) subs out the relative mobile formatted watch links with the full link. displays the modified page. maybe a portion of this will be useful #include <INet.au3> #include <IE.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Search = InputBox ("Videos?" , "What are you looking for?") $FmtSearch = StringRegExpReplace ($Search , " " , "+") $URL = "http://m.youtube.com/results?search_query=" & $FmtSearch $sourcebin = inetread ($URL , 1) $source = BinaryToString ($sourcebin) $edit = StringRegExpReplace ($source , "/watch" , "http://www.youtube.com/watch") $oIE = _IECreateEmbedded() $Form1 = GUICreate("YouTube", @Desktopwidth / 2, @desktopheight / 2, 192, 0) $ActiveX = GUICtrlCreateObj($oIE,0,0,@Desktopwidth / 2,@desktopheight / 2) _IENavigate($oIE, "about.blank" , 1) _IEDocWriteHTML ($oIE , $edit) $oIE.document.body.scroll = "yes" GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case -3 GUIDelete() ExitLoop EndSwitch WEnd ,-. .--. ________ .-. .-. ,---. ,-. .-. .-. .-. |(| / /\ \ |\ /| |__ __||| | | || .-' | |/ / \ \_/ )/ (_) / /__\ \ |(\ / | )| | | `-' | | `-. | | / __ \ (_) | | | __ | (_)\/ | (_) | | .-. | | .-' | | \ |__| ) ( | | | | |)| | \ / | | | | | |)| | `--. | |) \ | | `-' |_| (_) | |\/| | `-' /( (_)/( __.' |((_)-' /(_| '-' '-' (__) (__) (_) (__) Link to comment Share on other sites More sharing options...
guinness Posted January 7, 2011 Share Posted January 7, 2011 Cool, nice Example iamthesky I am still reluctant to you use the IE UDF, but I can see the benefits for some applications. UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018 Link to comment Share on other sites More sharing options...
CoolBreeze Posted January 8, 2011 Author Share Posted January 8, 2011 More detail: expandcollapse popup#cs 08.01.2011 = By BoRisk YouTUBE-SEARCH = explaining script Searching options: Result type: Videos Sort by: Relevance Displaying 10 result / search Thumbnail, Title - Question? How to make search like this==> If tipe keyword PRODIGY in $eSearch and press $sBtn, how to get 10 result, like shown here http://www.youtube.com/results?search_type=videos&search_query=Prodigy&uni=3 Than use default picture as button to get link, example of first video === [http://www.youtube.com/watch?v=wmin5WkOuPw] and save this to text file - PROBLEM! How to make search... #Ce #cs ============================== How to get Title? =========================================== String in Page Source = http://gdata.youtube.com/feeds/api/videos/wmin5WkOuPw The Prodigy - Firestarter If using _StringBetween ===> Exmple: $left = $right = _StringBetween($Read_In_PageSource, $left, $right) and get Title = The Prodigy - Firestarter GET PAGE SOURCE: #include #include $GUI = GUICreate("Page Source", 800, 450) $object = ObjCreate("Shell.Explorer.2") $object_ctrl = GUICtrlCreateObj($object, 0, 0, 800, 450) _IENavigate($object, "http://gdata.youtube.com/feeds/api/videos/wmin5WkOuPw") GUISetState() While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit EndSelect WEnd #ce #cs ********Im used GUIScrollbars_Ex UDF by Melba23 = http://www.autoitscript.com/forum/topic/113723-scrollbars-made-easy/page__hl__scrollbar #ce #include "GUIScrollbars_Ex.au3" #include "GUIConstantsEx.au3" #include "EditConstants.au3" #include "IE.au3" #include "WindowsConstants.au3" #include "INet.au3" #include "ButtonConstants.au3" DirCreate(@ScriptDir & "\TempFILES") Global $fSave = @ScriptDir & "\" & "Save.txt" $hGUI = GUICreate("YouTUBE-SEARCH", 500, 800) GUISetBkColor(0xFFFFFF) ;$Logo = GUICtrlCreatePic(@ScriptDir & '\YouTube.jpg', 20, 20, 107, 45) $URL = "http://boris.host56.com/UPLOAD/YouTube.jpg" $PicL = @ScriptDir & "\TempFILES" & "\YouTube.jpg" InetGet($URL, $PicL, 1) $Logo = GUICtrlCreatePic( $PicL, 20, 20, 107, 45) GUICtrlSetCursor (-1, 0) $eSearch = GUICtrlCreateEdit("Prodigy", 140, 30, 250, 25, $ES_AUTOHSCROLL) GUICtrlSetFont($eSearch, 12) GUICtrlSetBkColor($eSearch, 0xFFFFFF) $sBtn = GUICtrlCreateButton("SEARCH", 400, 30, 75, 25, 0) GUICtrlSetCursor (-1, 0) GUICtrlSetColor($sBtn, 0xFFFFFF) GUICtrlSetBkColor($sBtn, 0xBEBEBE) ; 01 result ==================================================================================== Local $VideID_01 = "wmin5WkOuPw" $URL = "http://i.ytimg.com/vi/"& $VideID_01 &"/default.jpg" $PicName = $VideID_01 $PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg" Global $yTOP = 90 InetGet($URL, $PIC, 1) $r01 = GUICtrlCreatePic( $PIC, 30, $yTOP, 120, 90) GUICtrlSetCursor (-1, 0) ; Create Label = TITLE of Song $Label1 = GUICtrlCreateLabel("", 160, $yTOP, 200, 15) GUICtrlSetData( $Label1, "The Prodigy - Firestarter") ; 02 result ==================================================================================== Local $VideID_02 = "6RI9wVgOO1s" $URL = "http://i.ytimg.com/vi/"& $VideID_02 &"/default.jpg" $PicName = $VideID_02 $PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg" $yTOPnext = $yTOP + 100 InetGet($URL, $PIC, 1) $r02 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90) GUICtrlSetCursor (-1, 0) ; Create Label = TITLE of Song $Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15) GUICtrlSetData( $Label1, "Prodigy - No Good") ; 03 result ==================================================================================== Local $VideID_03 = "-Fz85FE0KtQ" $URL = "http://i.ytimg.com/vi/"& $VideID_03 &"/default.jpg" $PicName = $VideID_03 $PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg" $yTOPnext = $yTOP + 200 InetGet($URL, $PIC, 1) $r03 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90) GUICtrlSetCursor (-1, 0) ; Create Label = TITLE of Song $Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15) GUICtrlSetData( $Label1, "THE PRODIGY - voodoo people (original)") ; 04 result ==================================================================================== Local $VideID_04 = "BKXKWBcaV3A" $URL = "http://i.ytimg.com/vi/"& $VideID_04 &"/default.jpg" $PicName = $VideID_04 $PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg" $yTOPnext = $yTOP + 300 InetGet($URL, $PIC, 1) $r04 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90) GUICtrlSetCursor (-1, 0) ; Create Label = TITLE of Song $Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15) GUICtrlSetData( $Label1, "The Prodigy - Voodoo People (Pendulum Remix)") ; 05 result ==================================================================================== Local $VideID_05 = "Lrmf283dSXw" $URL = "http://i.ytimg.com/vi/"& $VideID_05 &"/default.jpg" $PicName = $VideID_05 $PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg" $yTOPnext = $yTOP + 400 InetGet($URL, $PIC, 1) $r05 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90) GUICtrlSetCursor (-1, 0) ; Create Label = TITLE of Song $Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15) GUICtrlSetData( $Label1, "Prodigy - Spitfire") ; 06 result ==================================================================================== Local $VideID_06 = "rmHDhAohJlQ" $URL = "http://i.ytimg.com/vi/"& $VideID_06 &"/default.jpg" $PicName = $VideID_06 $PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg" $yTOPnext = $yTOP + 500 InetGet($URL, $PIC, 1) $r06 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90) GUICtrlSetCursor (-1, 0) ; Create Label = TITLE of Song $Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15) GUICtrlSetData( $Label1, "The Prodigy - 'Breathe'") ; 07 result ==================================================================================== Local $VideID_07 = "Bq46OY-FHIc" $URL = "http://i.ytimg.com/vi/"& $VideID_07 &"/default.jpg" $PicName = $VideID_07 $PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg" $yTOPnext = $yTOP + 600 InetGet($URL, $PIC, 1) $r07 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90) GUICtrlSetCursor (-1, 0) ; Create Label = TITLE of Song $Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15) GUICtrlSetData( $Label1, "The Prodigy 'Omen'") ; 08 result ==================================================================================== Local $VideID_08 = "20tWDFxQq5A" $URL = "http://i.ytimg.com/vi/"& $VideID_08 &"/default.jpg" $PicName = $VideID_08 $PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg" $yTOPnext = $yTOP + 700 InetGet($URL, $PIC, 1) $r08 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90) GUICtrlSetCursor (-1, 0) ; Create Label = TITLE of Song $Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15) GUICtrlSetData( $Label1, "Prodigy - Smack My Bitch Up (banned from mtv)") ; 09 result ==================================================================================== Local $VideID_09 = "CD5I-srSIbc" $URL = "http://i.ytimg.com/vi/"& $VideID_09 &"/default.jpg" $PicName = $VideID_09 $PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg" $yTOPnext = $yTOP + 800 InetGet($URL, $PIC, 1) $r09 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90) GUICtrlSetCursor (-1, 0) ; Create Label = TITLE of Song $Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15) GUICtrlSetData( $Label1, "Prodigy") ; 10 result ==================================================================================== Local $VideID_10 = "gTw2YvutJRA" $URL = "http://i.ytimg.com/vi/"& $VideID_10 &"/default.jpg" $PicName = $VideID_10 $PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg" $yTOPnext = $yTOP + 900 InetGet($URL, $PIC, 1) $r10 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90) GUICtrlSetCursor (-1, 0) ; Create Label = TITLE of Song $Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15) GUICtrlSetData( $Label1, "The Prodigy - Invaders Must Die [HQ] High Quality Sound") ;=========================================================== GUISetState(@SW_SHOW) _GUIScrollbars_Generate($hGUI, 0, 1100) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $r01 IniWrite($fSave, "01", "Link", $VideID_01) Case $r02 IniWrite($fSave, "02", "Link", $VideID_02) Case $r03 IniWrite($fSave, "03", "Link", $VideID_03) Case $r04 IniWrite($fSave, "04", "Link", $VideID_04) Case $r05 IniWrite($fSave, "05", "Link", $VideID_05) Case $r06 IniWrite($fSave, "06", "Link", $VideID_06) Case $r07 IniWrite($fSave, "07", "Link", $VideID_07) Case $r08 IniWrite($fSave, "08", "Link", $VideID_08) Case $r09 IniWrite($fSave, "09", "Link", $VideID_09) Case $r10 IniWrite($fSave, "10", "Link", $VideID_10) Case $sBtn $keyword = GUICtrlRead( $eSearch) MsgBox( 0, "Search", $keyword) ; <--example ; _funcSEARCH and than sort results by ... EndSwitch WEnd ;==> End script #cs From search on YouTUBE - http://www.youtube.com/results?search_type=videos&search_query=Prodigy&uni=3 The Prodigy - Firestarter [http://www.youtube.com/watch?v=wmin5WkOuPw] Prodigy - No Good [http://www.youtube.com/watch?v=6RI9wVgOO1s] THE PRODIGY - voodoo people (original) [http://www.youtube.com/watch?v=-Fz85FE0KtQ] The Prodigy - Voodoo People (Pendulum Remix) [http://www.youtube.com/watch?v=BKXKWBcaV3A] Prodigy - Spitfire [http://www.youtube.com/watch?v=Lrmf283dSXw] The Prodigy - 'Breathe' [http://www.youtube.com/watch?v=rmHDhAohJlQ] The Prodigy 'Omen' [http://www.youtube.com/watch?v=Bq46OY-FHIc] Prodigy - Smack My Bitch Up (banned from mtv) [http://www.youtube.com/watch?v=20tWDFxQq5A] Prodigy [http://www.youtube.com/watch?v=CD5I-srSIbc] The Prodigy - Invaders Must Die [HQ] High Quality Sound [http://www.youtube.com/watch?v=gTw2YvutJRA] #ce ; FUNCTIONS==> Link to comment Share on other sites More sharing options...
CoolBreeze Posted January 9, 2011 Author Share Posted January 9, 2011 (edited) expandcollapse popup#include 'IE.au3' #include 'String.au3' #include 'Array.au3' #include 'INet.au3' ;$Keyword = InputBox( "Search", "YouTUBE") $Keyword = "Prodigy" $file="sRESULT.xml" INetGet("http://m.youtube.com/results?client=mv-google&gl=US&hl=en&q="& $Keyword &"&submit=Search",""& $file, 0, 0) $source= FileRead("sRESULT.xml") ; 01 ========================================================================================= ; Video ID $left_VideoID = '[url="/watch?gl=US&client=mv-google&hl=en&v=%27%3Cbr%20/%3E$right_VideoID%20=%20%27"]' $string_ID=_StringBetween( $source, $left_VideoID, $right_VideoID) ; Title $left_Title = $string_ID[0] & '">' $right_Title = "[/url]" $string_TITLE=_StringBetween( $source, $left_Title, $right_Title) MsgBox(0,"1", $string_ID[0] & @CRLF & $string_TITLE[0]) ; 02 ========================================================================================= ; Video ID $left_VideoID = '[url="/watch?gl=US&client=mv-google&hl=en&v=%27%3Cbr%20/%3E$right_VideoID%20=%20%27"]' $string_ID=_StringBetween( $source, $left_VideoID, $right_VideoID) ; Title $left_Title = $string_ID[0] & '">' $right_Title = "[/url]" $string_TITLE=_StringBetween( $source, $left_Title, $right_Title) MsgBox(0,"2", $string_ID[0] & @CRLF & $string_TITLE[0]) ; 03 ========================================================================================= ; Video ID $left_VideoID = '[url="/watch?gl=US&client=mv-google&hl=en&v=%27%3Cbr%20/%3E$right_VideoID%20=%20%27"]' $string_ID=_StringBetween( $source, $left_VideoID, $right_VideoID) ; Title $left_Title = $string_ID[0] & '">' $right_Title = "[/url]" $string_TITLE=_StringBetween( $source, $left_Title, $right_Title) MsgBox(0,"3", $string_ID[0] & @CRLF & $string_TITLE[0]) ; 04 ========================================================================================= ; Video ID $left_VideoID = '[url="/watch?gl=US&client=mv-google&hl=en&v=%27%3Cbr%20/%3E$right_VideoID%20=%20%27"]' $string_ID=_StringBetween( $source, $left_VideoID, $right_VideoID) ; Title $left_Title = $string_ID[0] & '">' $right_Title = "[/url]" $string_TITLE=_StringBetween( $source, $left_Title, $right_Title) MsgBox(0,"4", $string_ID[0] & @CRLF & $string_TITLE[0]) ; 05 ========================================================================================= ; Video ID $left_VideoID = '[url="/watch?gl=US&client=mv-google&hl=en&v=%27%3Cbr%20/%3E$right_VideoID%20=%20%27"]' $string_ID=_StringBetween( $source, $left_VideoID, $right_VideoID) ; Title $left_Title = $string_ID[0] & '">' $right_Title = "[/url]" $string_TITLE=_StringBetween( $source, $left_Title, $right_Title) MsgBox(0,"5", $string_ID[0] & @CRLF & $string_TITLE[0]) ; 06 ========================================================================================= ; Video ID $left_VideoID = '[url="/watch?gl=US&client=mv-google&hl=en&v=%27%3Cbr%20/%3E$right_VideoID%20=%20%27"]' $string_ID=_StringBetween( $source, $left_VideoID, $right_VideoID) ; Title $left_Title = $string_ID[0] & '">' $right_Title = "[/url]" $string_TITLE=_StringBetween( $source, $left_Title, $right_Title) MsgBox(0,"6", $string_ID[0] & @CRLF & $string_TITLE[0]) ; 07 ========================================================================================= ; Video ID $left_VideoID = '[url="/watch?gl=US&client=mv-google&hl=en&v=%27%3Cbr%20/%3E$right_VideoID%20=%20%27"]' $string_ID=_StringBetween( $source, $left_VideoID, $right_VideoID) ; Title $left_Title = $string_ID[0] & '">' $right_Title = "[/url]" $string_TITLE=_StringBetween( $source, $left_Title, $right_Title) MsgBox(0,"7", $string_ID[0] & @CRLF & $string_TITLE[0]) ; 08 ========================================================================================= ; Video ID $left_VideoID = '[url="/watch?gl=US&client=mv-google&hl=en&v=%27%3Cbr%20/%3E$right_VideoID%20=%20%27"]' $string_ID=_StringBetween( $source, $left_VideoID, $right_VideoID) ; Title $left_Title = $string_ID[0] & '">' $right_Title = "[/url]" $string_TITLE=_StringBetween( $source, $left_Title, $right_Title) MsgBox(0,"8", $string_ID[0] & @CRLF & $string_TITLE[0]) Edited January 11, 2011 by BoRisk 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