ok ... så har jeg fået stykket noget sammen ...
dette eksempel downloader en fil i txt format fra en webserver..
jeg havde forestillet mig at filen kunne være noget i denne stil
date;link
ex.
201103;/update/201103.dat
221103;/update/201103.dat
EOF
prgrammet gemmer den dato den har en fil fra og henter alle dem imellem (dette har jeg ikke lavet)
txtfilen hentes således:
tilføj winsock componenten (projeckt -> components) og så "microsoft winsock controle"
------------------------------
Dim m_strHttpResponse As String
Private Sub Command1_Click()
m_strRemoteHost = "kandu.dk"
With Winsock
.Close
.LocalPort = 0
.Connect m_strRemoteHost, 80
End With
End Sub
Private Sub Winsock_Connect()
m_strFilePath = "/dk/last25.asp"
strHttpRequest = "GET " & m_strFilePath & " HTTP/1.1" & vbCrLf
strHttpRequest = strHttpRequest & "Host: " & m_strRemoteHost & vbCrLf
strHttpRequest = strHttpRequest & "Accept: */*" & vbCrLf
strHttpRequest = strHttpRequest & "Connection: close" & vbCrLf
'strHttpRequest = strHttpRequest & "Referer:
http://www.microsoft.com/ms.htm" + vbCrLf
'strHttpRequest = strHttpRequest & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.72; Linux Slackware 8)" & vbCrLf
'og en blank linie til at slutte
strHttpRequest = strHttpRequest & vbCrLf
'
'send the request
Winsock.SendData strHttpRequest
End Sub
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
On Error GoTo errhandler
Winsock.GetData strdata
Text1.Text = Text1.Text + strdata
'm_strHttpResponse = m_strHttpResponse + strdata
If InStr(m_strHttpResponse, "EOF") Then
MsgBox "Complete - (" & Len(Text1.Text) & ") bytes"
'MsgBox "Complete - (" & Len(m_strHttpResponse) & ") bytes"
m_strHttpResponse = ""
End If
Exit Sub
errhandler:
MsgBox Error
End Sub
Private Sub Winsock_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)
MsgBox Number & vbCrLf & Description
End Sub
---------------
Under winsock_connect er der hvad en browser ville sende, jeg har dog fjernet Referer og user-agent de ikke så vigtige.
Når InStr(m_strHttpResponse, "EOF") bliver sand skal der bare kaldes en funktion der finder de filer der skal hentes, disse filer kan så hentes med en API som du kan finde lidt info om i linket herunder.
http://beta.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/VB_Controls/Q_20727897.html
håber du syntes om min løsning :) ellers må du jo specificere hvad det er du har brug for ...
mvh
Phylock`