Parse html (online) via winsock - Problem

sikkert fordi du har lavet din winsock som array..

Winsock1(array nummer).....

Winsock1(0).RemoteHost = Text1.Text
Winsock1(0).RemotePort = 80
Winsock1(0).Connect

Den melder ikke fejl, nu hvor jeg har sat et index på, men nu hænger den bare - Der sker ikke en dyt, ud over at jeg bliver nød til at "force" lukke programmet :(

Hele koden ser således ud nu:

Public Sub Command1_Click()
Winsock1(0).RemoteHost = Text1.Text
Winsock1(0).RemotePort = 80
Winsock1(0).Connect
End Sub

Public Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim X As String
Winsock1(0).GetData X
Text2.Text = X
End Sub

Nop.. du skal jo sende noget til server..

Jeg har lavet en til dig.. med en winsock uden array

'-------------------------- Form1 --------------------------
Option Explicit

Private Sub Command1_Click()
  With Winsock1 '<- Winsock
      .RemoteHost = "www.eksperten.dk"
      .RemotePort = 80
      .Connect
  End With
End Sub

Private Sub Winsock1_Close()
  With Winsock1 '<- Winsock
      .Close
      Do Until .State = sckClosed
        DoEvents
      Loop
  End With
End Sub

Private Sub Winsock1_Connect()
Dim strData As String
  With Winsock1 '<- Winsock
      '------> www.eksperten.dk/spm/532936
      strData = strData & "GET /spm/532936 HTTP/1.1" & vbCrLf
      strData = strData & "Host: " & .RemoteHost & vbCrLf
      .SendData strData & vbCrLf
  End With
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
  With Winsock1 '<- Winsock
      Call .GetData(strData, vbString, bytesTotal)
      Text1.Text = (Text1.Text & strData)
  End With
End Sub
'-------------------------- Form1 --------------------------