quote:

---

Originally posted by bobby131313

I'm a purdy fart smeller.

---

quote:

---

Originally posted by Carefree

This is untested, but you could try replacing the bit of code in "inc_func_common.asp" with something like this:

Note the bits in red. If you're running a secure forum, you'll have to switch the values in the replace and change the http to https twice in the second routine.

Also note the two bits in purple. If members post more than one video per topic (including replies), you need to change each 1 to 0. Otherwise, you'll get a mess of videos starting simultaneously.

Function ReplaceYouTubeTags(fString)		
	fString=Replace(fString, "youtu.be/", "www.youtube.com/v/")
	fString=Replace(fString, "watch?v=", "v/")
	fString=Replace(fString, "https:", "http:")
	For intFI = 1 to Len(fString)
		If Mid(fString,intFI,9)="[youtube]" Then
			intFJ=intFI+9
		End If
		If Mid(fString,intFI,10)="[/youtube]" Then
			intFK=intFI
			strMovLK = Mid(fString,intFJ,intFK-intFJ)
			Exit For
		End If
	Next
	Dim oTag, cTag
	Dim roTag1, rcTag1, roTag2, rcTag2
	Dim oTagPos, cTagPos
	Dim nTagPos
	Dim counter1, counter2, counter3
	Dim strCodeText
	Dim Tagcount
	Dim strTempString, strResultString
	TagCount = 1
 	Dim CodeTags(1,2,3)
	Dim strArray, strArray2, strArray3, strArray4
	CodeTags(1,1,1) = "[youtube]"
	CodeTags(1,2,1) = "[/youtube]"
	If Instr(strMovLK,"http") = 0 Then
		CodeTags(1,1,2) = "<object width=""640"" height=""390""><param name=""movie"" value=""http://www.youtube.com/v/"
	Else
		CodeTags(1,1,2) = "<object width=""640"" height=""390""><param name=""movie"" value="""
	End If
	CodeTags(1,2,2) = "?autoplay=1"" /><param allowfullscreen=""true"" /><param wmode=""transparent"" />"
	If Instr(strMovLK,"http") = 0 Then
		CodeTags(1,1,3) = "<embed src=""http://www.youtube.com/v/"
	Else
		CodeTags(1,1,3) = "<embed src="""
	End If
	CodeTags(1,2,3) = "?autoplay=1"" type=""application/x-shockwave-flash"" allowfullscreen=""true"" wmode=""transparent"" width=""640"" height=""390""></embed></object>"
	strResultString = ""
	strTempString = fString
	For counter1 = 1 To TagCount
		oTag     = CodeTags(counter1,1,1)
		roTag1  = CodeTags(counter1,1,2)
		roTag2  = CodeTags(counter1,1,3)
		cTag     = CodeTags(counter1,2,1)
		rcTag1  = CodeTags(counter1,2,2)
		rcTag2  = CodeTags(counter1,2,3)
		oTagPos= InStr(1, strTempString, oTag, 1)
		cTagPos= InStr(1, strTempString, cTag, 1)
		If (oTagpos > 0) And (cTagPos > 0) Then
			strArray = Split(strTempString, oTag, -1, 1)
			For counter2 = 0 To UBound(strArray)
				If (InStr(1, strArray(counter2), cTag) > 0) Then
					strArray2 = Split(strArray(counter2), cTag, -1, 1)
					strCodeText = Trim(strArray2(0))						
					If (LCase(Left(strCodeText,2))="<a") Then
						strArray3 = Split(strCodeText, ">", -1, 1)						
						If (UBound(strArray3)>0) Then
							strCodeText = Left(strArray3(1), Len(strArray3(1))-3)																					
							strArray3 = Split(strCodeText, "?", -1, 1)													
							If (UBound(strArray3)>0) Then																															
								strCodeText = strArray3(1)
								strArray3 = Split(strCodeText, "&", -1, 1)
								For counter3 = 0 To UBound(strArray3)								
									strArray4 = Split(strArray3(counter3), "=", -1, 1)
									If (UBound(strArray4)=1) And (LCase(strArray4(0))="v") Then																											
										strCodeText = strArray4(1)									
										Exit For
									End If
								Next
							End If
						End If							
					End If
 					strResultString = strResultString & roTag1 & strCodeText & rcTag1 & roTag2 & strCodeText & rcTag2 & strArray2(1)
 				Else
 					strResultString = strResultString & strArray(counter2)
 				End If	
 			Next  
			strTempString = strResultString
 			strResultString = ""
 		End If
	Next
	ReplaceYouTubeTags = strTempString
End Function

NOTE: As of Jan 2015, Google (YouTube) is killing off the <object> method of playing YT videos in web pages. They want everyone to use IFrames instead. So if you want to continue displaying YT videos, we'll have to write some security code to preclude anything other than legitimate YT videos in an embedded IFrame.

---

quote:

---

Originally posted by MaGraham


These codes below (for YouTube and Vimeo) work on my site using the [iframe][/iframe] codes, and they allow full screen.

[iframe]https://www.youtube.com/embed/r5L6QlAH3L4?color=ffffff" width="640" height="360" frameborder="0" webkitallowfullscreen mozallowfullscreen allowfullscreen[/iframe]

[iframe]https://player.vimeo.com/video/214844648?color=ffffff" width="640" height="360" frameborder="0" webkitallowfullscreen mozallowfullscreen allowfullscreen[/iframe]

If those codes, and possibly more for other video sites, could be incorporated into the video mods, oh how wonderful that would be! Just sayin'.

---