Thomas: Erstellt

2018-12-19T10:55:05Z

Erstellt

Neue Seite

''wget'' ist ein freies Kommandozeilenprogramm des GNU-Projekts zum Herunterladen von Dateien aus dem Internet. Zu den unterstützten Protokollen gehören ftp, http und https. Das Programm gibt es unter anderem für Unix, GNU/Linux, OS/2, Windows und SkyOS. Es steht unter der GNU General Public License. Wget wird mit diversen Linux-Distributionen mitgeliefert.

In den MS-Office Produkten kann ''wget'' mit [[Visual Basic]] nachempfunden werden.

== Download einer Datei als String (GET) ==

Das Makro ruft die Datei mit der Methode ''GET'' aus dem Internet ab udn gibt den Wert sie in einem String zurück.

<pre>

Public Function wgetText(URL As String) As String

Dim result As String
Dim success As Boolean
Dim oHTTP As WinHttp.WinHttpRequest
Set oHTTP = New WinHttp.WinHttpRequest

With oHTTP
.Open Method:="GET", URL:=URL, async:=False
.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64; Trident/7.0; rv:11.0) like Gecko"
.SetRequestHeader "Content-Type", "multipart/form-data; "
.Option(WinHttpRequestOption_EnableRedirects) = True
.Send

success = .waitForResponse()
If success Then
result = .responseText
Else
result = "Download failed"
End If

End With

Set oHTTP = Nothing

wgetText = result

End Function

</pre>

== Download einer Datei als String (POST) ==

Formulare können mit den Methoden ''GET'' und ''POST'' Parameter übergeben. Während bei der Methode GET einfach die Parameter in der URL übergeben werden, werden beid er Methode POST die Daten in eien extra Block übertragen.

<pre>

Public Function wgetTextPost(URL As String, PostData As String) As String

Dim result As String
Dim success As Boolean
Dim oHTTP As WinHttp.WinHttpRequest
Set oHTTP = New WinHttp.WinHttpRequest

With oHTTP
.Open Method:="POST", URL:=URL, async:=False
.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64; Trident/7.0; rv:11.0) like Gecko"
.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.Send (PostData)
success = .waitForResponse()
If success Then
result = .responseText
Else
result = "Download failed"
End If
End With

Set oHTTP = Nothing
wgetTextPost = result

End Function
</pre>

== Test ==

<pre>
Private Sub test()

MsgBox wgetText("https://wiki.byggvir.de), vbOKOnly

End Sub
</pre>

[[Kategorie:VBA]]
[[Kategorie:Access]]
[[Kategorie:Excel]]
[[Kategorie:PowerPoint]]
[[Kategorie:Word]]

Wget - Versionsgeschichte

Thomas: Erstellt