check if a flash(swf) file is embedded in the website using vb.net

Question

4.00/5 (1 vote)

See more:

Hi,
This is my first post in any place. is there any way we can check if the flash image or videos are embedded in the website.
[Edit]
I have used WebBrowser in the windows forms and have added it and i want to get the count of all the images, video links and flash in the web page.
i am able to get the count of images and video links. but cant capture if there is a flash present or not.

Posted 23-Jan-13 21:43pm

Manu_vish

Updated 23-Jan-13 21:57pm

v2

Add a Solution

Comments

Logi Guna 24-Jan-13 11:41am

see my edited answer, added emded tag searching

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

**Logi Guna** · Accepted Answer · 2013-01-24T05:20:00

VB

Dim elements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("object")
For Each element As HtmlElement In elements
    ' "CLSID:D27CDB6E-AE6D-11cf-96B8-444553540000" is clsid for SWFObject
    ' clsid was confirmed here: http://helpx.adobe.com/flash/kb/object-tag-syntax-flash-professional.html
    Dim attr As String = element.GetAttribute("classid")
    If "clsid:d27cdb6e-ae6d-11cf-96b8-444553540000".Equals(attr, StringComparison.OrdinalIgnoreCase) Then
MessageBox.Show("SWF Object found")
    End If
Next
' Now search for embed tag
elements = WebBrowser1.Document.GetElementsByTagName("embed")
For Each element As HtmlElement In elements
    If element.OuterHtml.IndexOf("application/x-shockwave-flash", StringComparison.OrdinalIgnoreCase) >= 0 Then
MessageBox.Show("Embedded SWF found")
    End If
Next

Hope this helps.