PHP Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sQuelltext As String = WebBrowser1.DocumentText.ToString
TextBox1.Text = WebBrowser1.DocumentText
End Sub
Private Function LoadURL(ByVal sURL As String) As Boolean
Dim nTimeout As Integer
Dim vStart As Date
Dim bResult As Boolean = True
Me.Cursor = Cursors.WaitCursor
With WebBrowser1
' URL übergeben
.Navigate(sURL)
' Warten, bis vollständig geladen
' Timeout auf 30 Sek. festlegen
nTimeout = 30
vStart = Now
Do While .ReadyState <> WebBrowserReadyState.Complete
Application.DoEvents()
' Timeout ?
If DateDiff(DateInterval.Second, vStart, Now) > nTimeout Then
bResult = False
Exit Do
End If
Loop
End With
Me.Cursor = Cursors.Default
Return bResult
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
WebBrowser1.Navigate(TextBox1.Text)
Catch ex As Exception
MsgBox("Ungültige Adresse.Sicher gehen das www voran steht!")
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WebBrowser1.Navigate("www.google.de")
TextBox2.Text = "http://www.google.de"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
WebBrowser1.GoBack()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
WebBrowser1.GoForward()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
WebBrowser1.Refresh()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
du brauchst :
6 Button, 2 Textboxen, 2 Labels und einen Webbrowser
DU gehst auf die Seite im Webbrowser und drücks dann auf den button wo es den quelltext ausliest. Nun kannst du mit einer Search function etwas bestimmtes im Quelltext auslesen
