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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen