Bron weergeven van webiste

[WILLIAMXXX]

Hey,

Een programmatje om de broncode van een webiste te zien.
Er wordt geen gebruik gemaakt van een browser control.
Nij het intypen van een url moet het volgende aanwezig zijn:

http://
.(b.v: .com, .nl, .net etc)

Daarna zie je de source code in het grote tekstvak.

 

[Platzii]

Handig progje

 

[mmatteman]

wow netjes hoor. Hoe doe je dat??
trouwens, kun je ook zo iets doen dat wanneer je een website intypt die niet bestaat (http://www.sbnhjfnbsdfjksjdfdsf.nl bijvoorbeeld) dat ie dan zegt dat die niet bestaat?

 

[WILLIAMXXX]

Denk wel dat dat kan...

 

[bn2vs]

Nice :thumb:

Als de line breaks nu eens zouden worden weergegeven zou het heel wat makkelijker te lezen zijn

 

[WILLIAMXXX]

Ja, dat wel:thumb:
Ik had dat tijdens het maken nog geprobeerd maar lukte niet...

 

[eeyk]

Werk die ook op php want als ik bron code wil zien Niet brutaal bedoeld druk iik


Beeld - > Pagina bron (FF)

 

[thomasderoo]

Je kan ook doen zonder dat je perse http:// er voor moet doen
dat doe je zo:

zet in de handler van de bevestigingsknop dit:

Dim web as String
if <Naam_van_Textbox>.Text = "http://*" Then
web = <Naam_van_Textbox>.Text
else
web = "http://" & <Naam_van_Textbox_.text
end if

gebruik veder in het programma inplaats van <Naam_van_Textbox>.text web

Weet niet of het klopt heb even geen Visual Basic 2008/2005/.NET bij de hand!

 

[thomasderoo]

Werk die ook op php

nee want als er en php pagina wordt opgeroepen door een browser wordt deze eerst omgezet in html alvorens deze wordt getoond!

 

[bn2vs]

if <Naam_van_Textbox>.Text = "http://*" Then

Je kan beter dit gebruiken denk ik

if <Naam_van_Textbox>.Text.StartsWith("http://") Then

Dit is een procedure die een url omvoegd naar een uri. Dan kan je zelf gewoon google invoeren en word er http://google.com van gemaakt

#Region "refineUrl"
' Converts an url in string format to a functional uri
' By De Dauw Jeroen - june 2008 - jeroen_dedauw@yahoo.com
Private Function refineUrl(ByRef url As String) As Uri
On Error Resume Next
Dim fullUrl As String = url

Dim isHttp As Boolean = Mid(url, 1, 7) = "http://"
Dim isHttps As Boolean = Mid(url, 1, 8) = "https://"
Dim isFtp As Boolean = Mid(url, 1, 6) = "ftp://"
Dim isAbout As Boolean = "about:".Contains(Mid(url, 1, 6))

Dim foundProtoc As Boolean = isHttp Or isHttps Or isFtp Or isAbout
If Not foundProtoc Then fullUrl = "http://" & url

If isHttp Then url = url.Substring(7)
If isHttps Then url = url.Substring(8)
If isFtp Then url = url.Substring(6)

Dim foundExt As Boolean = url.Substring(url.Length - 4, 2).Contains(".")
foundExt = foundExt Or url.Contains("/") Or url.Contains("?")
If (Not foundExt Or url.Length <= 3) And Not isAbout Then fullUrl = fullUrl & ".com"

Return New Uri(fullUrl)
End Function
#End Region

 

[koen152]

hmm... aardig ja maar niet erg overzichtelijk en je kan natuurlijk nog altijd n de broncode kijken van je browser maar keurig !!:thumb:

 

[thomasderoo]

Je kan beter dit gebruiken denk ik

if <Naam_van_Textbox>.Text.StartsWith("http://") Then

Dit is een procedure die een url omvoegd naar een uri. Dan kan je zelf gewoon google invoeren en word er http://google.com van gemaakt

#Region "refineUrl"
' Converts an url in string format to a functional uri
' By De Dauw Jeroen - june 2008 - jeroen_dedauw@yahoo.com
Private Function refineUrl(ByRef url As String) As Uri
On Error Resume Next
Dim fullUrl As String = url

Dim isHttp As Boolean = Mid(url, 1, 7) = "http://"
Dim isHttps As Boolean = Mid(url, 1, 8) = "https://"
Dim isFtp As Boolean = Mid(url, 1, 6) = "ftp://"
Dim isAbout As Boolean = "about:".Contains(Mid(url, 1, 6))

Dim foundProtoc As Boolean = isHttp Or isHttps Or isFtp Or isAbout
If Not foundProtoc Then fullUrl = "http://" & url

If isHttp Then url = url.Substring(7)
If isHttps Then url = url.Substring(8)
If isFtp Then url = url.Substring(6)

Dim foundExt As Boolean = url.Substring(url.Length - 4, 2).Contains(".")
foundExt = foundExt Or url.Contains("/") Or url.Contains("?")
If (Not foundExt Or url.Length <= 3) And Not isAbout Then fullUrl = fullUrl & ".com"

Return New Uri(fullUrl)
End Function
#End Region

niet alle website's eindingen op .com!

 

[bn2vs]

nee, tuurlijk niet. Als je helpmij.nl erdoor jaagt, dan blijft er gewoon .nl op het einde staan. Enkel als je geen top level domain op het einde zet, dan komt er de default tld bij, in dit geval .com. kan je trouwens heel makkelijk aanpassen naar iets anders

 

[gangas]

Highlighting

Kan je ook elke tag ( bijv <div align=left> highlinen en op een aparte lijn zetten?

Dat zou leuk zijn, dan kan je misschien geld voor je ding gaan vragen!

 

[That Guy]

Dat zou leuk zijn, dan kan je misschien geld voor je ding gaan vragen!

Hoe, als ik vragen mag? Als je in firefox je broncode opent, heb je ook de ge-highligte source code.


:thumb:

 

[gangas]

Bekijk Notepad++

Je kan de source code van Notepad++ bekijken!

 

[WILLIAMXXX]

Ok, eerst de source maar weer eens opzoeken van het progje...

En automatisch http:// toevoegen is niet zo moeilijk aangezien die al detecteert of er geen http:// staat kan het zeer makkelijk toegevoegt worden:thumb:

 

[bn2vs]

Waarom niet mijn functie gebruiken?
*emo scream*

 

[thomasderoo]

Waarom niet mijn functie gebruiken?
*emo scream*

Mag ik jouw functie wel in mijn webbrowser gebruiken???
alleen iets aangepast, zodat als er geen geldige uri in de adresbalk staat dat er dan wordt genavigeerd naar een zoekactie van google met die tekst.

 

[bn2vs]

Hey,

Ja tuurlijk mag je mn functie gebruiken en hem aanpassen. Zou trouwens heel leuk zijn als je de aangepaste versie dan ook post zodat iedreeen die kan gebruiken :thumb:

Cheers
BN