ciao a tutti,
come detto sul titolo uso un'istruzione per caricare il codice html su un richtextbox,
Dim URL As String
Dim FindString As String
Dim StringaChat As String
Dim Posizione As Long
URL = Text2.Text
RichTextBox1.Text = Inet1.OpenURL(URL)
FindString = ""
Posizione = InStr(1, RichTextBox1.Text, FindString, vbTextCompare)
If Posizione = 0 Then
Text1.Text = "no"
Else
StringaChat = Mid(RichTextBox1.Text, Posizione, Len(FindString) + 5)
Text1.Text = StringaChat
End If
praticamente questo codice carica l'html e poi mi da una stringa ma non ci importa.
cmq quando mi carica sul richtextbox non mi da tutto il codice ma solo un pezzo.
perchè??