Hej!

Jag har följande problem:

När jag ska ansluta till www.pellesoft.nu eller någon annan sida så ansluter den inte. Om jag sen stoppar in en msgbox i error eventet så får jag felmeddelandet: "Address in use"

Internet Explorer fungerar bra

visa koden som du använder.

Låter som att du har satt winsock-kontrollen att lyssna på en port som är upptagen.

/Johan

<code>
Option Explicit

Dim strWhat As String
Dim bolStatus As Boolean
Dim strAlias As String
Dim strName As String




Private Sub cmdLogout_Click()
strWhat = "logout"
If (sckInternet.State <> sckClosed) Then sckInternet.Close
sckInternet.Connect "www.pellesoft.nu", 80
End Sub

Private Sub Form_Load()
Show
frmStart.Width = Me.Width
frmStart.Show
frmStart.Top = Me.Top + (Me.Height - frmStart.Height) / 2
frmStart.Left = Me.Left + (Me.Width - frmStart.Width) / 2
cmdLogout_Click
frmStart.Hide
Me.Enabled = True
Me.SetFocus
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = (MsgBox("Vill du verkligen stänga av pellesoft.nu?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Stänga av Pellesoft.nu?") = vbNo)
If Not Cancel Then End
End Sub



Sub login()
bolStatus = True
lblStatus.Caption = "Online"
End Sub

Sub logout()
bolStatus = False
strName = ""
strAlias = ""
lblAlias.Caption = ""
lblName.Caption = ""
lblStatus.Caption = "Offline"
End Sub

Private Sub sckInternet_Connect()
Select Case (strWhat)
Case "logout"
sckInternet.SendData doHeader("/default.asp")
End Select
End Sub

Function doHeader(strAddress As String, Optional strPost As String = "", Optional strCookies As String = "", Optional strReferer As String = "") As String
Dim strTemp1 As String
Dim strTemp2 As String
Dim strtemp3 As String
Dim strTemp4 As String
If (strReferer = "") Then strTemp4 = "" Else strTemp4 = "Referer: " & strReferer & vbCrLf
If (strCookies = "") Then strtemp3 = "" Else strtemp3 = "Cookie: " & strCookies
If (strPost = "") Then strTemp1 = "GET": strTemp2 = "" Else strTemp1 = "POST": strTemp2 = vbCrLf & vbCrLf & strPost
doHeader = _
strTemp1 & " " & strAddress & " HTTP/1.1" & vbCrLf & _
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*" & vbCrLf & _
strTemp4 & _
"Accept-Language: sv" & vbCrLf & _
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)" & vbCrLf & _
"Host: " & sckInternet.LocalHostName & vbCrLf & _
"Connection: Keep-Alive" & vbCrLf & _
strtemp3 & _
strTemp2
End Function

Private Sub sckInternet_DataArrival(ByVal bytesTotal As Long)
Dim strtemp As String
sckInternet.GetData strtemp
MsgBox strtemp
End Sub

Private Sub sckInternet_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
If (sckInternet.State <> sckClosed) Then sckInternet.Close
MsgBox Description
End Sub
</code>

Vad har du satt för LocalPort? Testa att sätt den till 0, då kommer programmet välja en ledig port själv.

/Johan

hade gjort en tabbe plus det du sa. Det kan dock inte bara ha varit det felet eftersom jag har testat det förut. Men nu fungerar det i alla fall...


TACK

OK, det fungera bara nästan... Jag kommer åt servern nu, MEN jag får ett normalt 404 meddelande med http-huvud och allt. www.pellesoft.nu var det.

MEN ifall jag kör www.altavista.com så fungerar det perfekt...

Du har troligtvis inte fått med en helt korrekt header. Gissningsvis har du missat host-namnet. Pellesoft körs som en virtuell server (med avseende på namn) vilket inte www.altavista.com gör.

/Johan