ejb1123

Private strNewTitle As String = "New Title" 'Whatever value is going between the tags, a title in this case
Private strTag As String = "title"  	  'The tag to look for

Private Sub webOriginal_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles webOriginal.Navigated
	Dim strSource As String = webOriginal.DocumentText.ToLower  'Get the source
	Dim iPos As Integer = 0 'Position counter (if replacing all tag occurrences)
	Dim strStartTag As String = "<" & strTag & ">"  'Form the start and end tags
	Dim strEndTag As String = "</" & strTag & ">"
	'Use a loop if we want to replace all occurrences
	Do 

ejb1123

<?php
/*******************************************************************
* Glype is copyright and trademark 2007-2013 UpsideOut, Inc. d/b/a Glype
* and/or its licensors, successors and assigners. All rights reserved.
*
* Use of Glype is subject to the terms of the Software License Agreement.
* http://www.glype.com/license.php
******************************************************************/

define('high_quality', true);

ejb1123

<script src="http://jwpsrv.com/library/VWDgcuLVEeKEsyIACqoQEQ.js"></script>
<div id='my-video'></div>
<script type='text/javascript'>
    jwplayer('my-video').setup({
        file: 'http://www.youtube.com/watch?v=DqC7H7_Noi8',
        width: '640',
        height: '360'
    });
</script>