Results 1 to 5 of 5

Thread: Broken link check program

  1. #1

    Thread Starter
    Hyperactive Member csKanna's Avatar
    Join Date
    Dec 2005
    Location
    Tech-Tips-Now.com
    Posts
    339

    Broken link check program

    Hi,

    am developing a Broken link check program. Is there any way to check whether a web link is broken or not without downloading the file ?

    thanks for your help
    Kanna

  2. #2
    PowerPoster
    Join Date
    Jan 2008
    Posts
    11,074

    Re: Broken link check program

    Can you PING it?


    Anything I post is an example only and is not intended to be the only solution, the total solution nor the final solution to your request nor do I claim that it is. If you find it useful then it is entirely up to you to make whatever changes necessary you feel are adequate for your purposes.

  3. #3
    Hyperactive Member deathfxu's Avatar
    Join Date
    Mar 2009
    Location
    USA
    Posts
    279

    Re: Broken link check program

    You can also use the Microsoft Internet Transfer Control (MsInet.ocx) to try to connect to the page.

  4. #4

    Thread Starter
    Hyperactive Member csKanna's Avatar
    Join Date
    Dec 2005
    Location
    Tech-Tips-Now.com
    Posts
    339

    Re: Broken link check program

    Quote Originally Posted by deathfxu View Post
    You can also use the Microsoft Internet Transfer Control (MsInet.ocx) to try to connect to the page.
    I will try this. thanks
    Kanna

  5. #5
    Discovering Life Siddharth Rout's Avatar
    Join Date
    Feb 2005
    Location
    Mumbai, India
    Posts
    12,001

    Re: Broken link check program

    I found this in one of the websites... see if this makes any sense to you

    Code:
    Private Sub Command1_Click()
        Set obj = Browser("name:=Blackboard.*").Page("title:=Blackboard.*").Frame("name:=main.*").object.All.tags("IMG")
        For Each element In obj
            s1 = element.nameProp
            If Browser().Page().Frame().Image("filename:=" & s1, "index:=0").exist(0) Then
                If Browser().Page().Frame().Image("filename:=" & s1, "index:=0").object.complete = "True" Then
                    MsgBox "Link is Valid"
                Else
                    MsgBox "Link is Invalid"
                End If
            End If
        Next
    End Sub
    A good exercise for the Heart is to bend down and help another up...
    Please Mark your Thread "Resolved", if the query is solved


    MyGear:
    ★ CPU ★ Ryzen 5 5800X
    ★ GPU ★ NVIDIA GeForce RTX 3080 TI Founder Edition
    ★ RAM ★ G. Skill Trident Z RGB 32GB 3600MHz
    ★ MB ★ ASUS TUF GAMING X570 (WI-FI) ATX Gaming
    ★ Storage ★ SSD SB-ROCKET-1TB + SEAGATE 2TB Barracuda IHD
    ★ Cooling ★ NOCTUA NH-D15 CHROMAX BLACK 140mm + 10 of Noctua NF-F12 PWM
    ★ PSU ★ ANTEC HCG-1000-EXTREME 1000 Watt 80 Plus Gold Fully Modular PSU
    ★ Case ★ LIAN LI PC-O11 DYNAMIC XL ROG (BLACK) (G99.O11DXL-X)
    ★ Monitor ★ LG Ultragear 27" 240Hz Gaming Monitor
    ★ Keyboard ★ TVS Electronics Gold Keyboard
    ★ Mouse ★ Logitech G502 Hero

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width