Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL$, _
ByVal szFileName$, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Sub Downl_1()
'das Orginal
Dim lResult As Long
Dim sURL$, sLocalFile$
sURL = "http:// _
www.activevb-archiv.de/downloadstore/tipps/vb6/tipp0015.zip"
sLocalFile = Application.DefaultFilePath & "\tipp0015.zip"
lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
'Workbooks.Open Application.DefaultFilePath & "\tipp0009.zip"
End Sub
Der Link für die bmp:
http://www.office-loesung.de/ftopic208796_0_0_asc.php
Gruß heiko
Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub laden()
URL = "http://www.kicker. _
de/news/fussball/bundesliga/startseite/"
res = ShellExecute(0&, "open", URL, vbNullString, vbNullString, vbNormalFocus)
' an dieses Stelle kommt die Pause von 10 sec.
' und der Screenshort wird über den Befehl call ... gestartet
' das ganz läuft noch über eine schleife
' usw.
End Sub
Gruß
heiko