hallo zusammen
Ich hab schon einige foren durchsucht, aber irgendwie klappt das ganze nicht
unter code1 ist der quelltext der homepage die kann ich auch in einer texbox anzeigen lassen
jetzt möchte ich aber von dem inhalt code1 nur die kompletten zeielen in eine datei abspeichern die das wort Visit haben
meine textdatei sollte dann so aussehen
03.12.2016 16:00 uhr Link1 "irgendeinlink1"
03.12.2016 16:00 uhr Link2 "irgendeinlink2"
ideal wäre es noch wenn er die seite automatisch alle 10 minuten aktualisieren sollte
wie ihr anhand des codes sehen könnt sind das alles codeschnipsel die ich mir aus dem netzt geholt habe weil ich mich noch nicht besonders gut auskenne
ich hoffe ich habe mich halbwegs verständlich ausgedrückt
code1 sieht etwas so aus (gekürztz)
-------------------
<DIV id=container-shadow-top>
<DIV id=popupDiv style="BORDER-TOP: black 1px solid; BORDER-RIGHT: black 1px solid; BACKGROUND: #fff; BORDER-BOTTOM: black 1px solid; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; PADDING-LEFT: 0px; MARGIN: 0px; BORDER-LEFT: black 1px solid; DISPLAY: none; PADDING-RIGHT: 0px"></DIV>
....
<A title="Visit testlink1" href="http:\\irgendeinlink1" target=_blank>Link1<BR><SPAN style="FONT-SIZE: 9px">(Link1)</SPAN></A>
<A title="Visit testlink2" href="http:\\irgendeinlink2" target=_blank>Link2<BR><SPAN style="FONT-SIZE: 9px">(Link2)</SPAN></A>
....
<SCRIPT type=text/javascript charset=utf-8 src="/min/?g=my-js-min"></SCRIPT>
--------------
mein quellcode:
Public Class Form1
Private WithEvents w As New Net.WebClient
Dim webadresse As String
webadresse ="http://localhost/friends.php"
WebBrowser1.Navigate(webadresse)
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim code As String
Dim code1 As String
code = WebBrowser1.Document.Body.InnerText
code1 = WebBrowser1.Document.Body.InnerHtml
TextBox2.Text = code1
End Sub
End Class
Ich hab schon einige foren durchsucht, aber irgendwie klappt das ganze nicht
unter code1 ist der quelltext der homepage die kann ich auch in einer texbox anzeigen lassen
jetzt möchte ich aber von dem inhalt code1 nur die kompletten zeielen in eine datei abspeichern die das wort Visit haben
meine textdatei sollte dann so aussehen
03.12.2016 16:00 uhr Link1 "irgendeinlink1"
03.12.2016 16:00 uhr Link2 "irgendeinlink2"
ideal wäre es noch wenn er die seite automatisch alle 10 minuten aktualisieren sollte
wie ihr anhand des codes sehen könnt sind das alles codeschnipsel die ich mir aus dem netzt geholt habe weil ich mich noch nicht besonders gut auskenne
ich hoffe ich habe mich halbwegs verständlich ausgedrückt
code1 sieht etwas so aus (gekürztz)
-------------------
<DIV id=container-shadow-top>
<DIV id=popupDiv style="BORDER-TOP: black 1px solid; BORDER-RIGHT: black 1px solid; BACKGROUND: #fff; BORDER-BOTTOM: black 1px solid; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; PADDING-LEFT: 0px; MARGIN: 0px; BORDER-LEFT: black 1px solid; DISPLAY: none; PADDING-RIGHT: 0px"></DIV>
....
<A title="Visit testlink1" href="http:\\irgendeinlink1" target=_blank>Link1<BR><SPAN style="FONT-SIZE: 9px">(Link1)</SPAN></A>
<A title="Visit testlink2" href="http:\\irgendeinlink2" target=_blank>Link2<BR><SPAN style="FONT-SIZE: 9px">(Link2)</SPAN></A>
....
<SCRIPT type=text/javascript charset=utf-8 src="/min/?g=my-js-min"></SCRIPT>
--------------
mein quellcode:
Public Class Form1
Private WithEvents w As New Net.WebClient
Dim webadresse As String
webadresse ="http://localhost/friends.php"
WebBrowser1.Navigate(webadresse)
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim code As String
Dim code1 As String
code = WebBrowser1.Document.Body.InnerText
code1 = WebBrowser1.Document.Body.InnerHtml
TextBox2.Text = code1
End Sub
End Class