Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Link ausführen ohne Explorer Fenster

Link ausführen ohne Explorer Fenster
12.01.2005 12:55:30
Holger
Hallo,
ich möcht aus VBA einen Link ausführen welcher den Webserver auf einem angeschlossenen Gerät neu startet.
Aktuell realisiere ich das mit
CreateObject("WScript.Shell").Run ("ADRESSE")
Dabei geht aber immer ein Explorer-Fenster auf.
Gibt es eine Möglichkeit den Link auszuführen ohne ein Explorer Fenster?
Gru0ß Holger.
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Link ausführen ohne Explorer Fenster
Holger
Die Lösung :
(Es müssen dazu unter Optionen die WinHHTPServices" aktiviert werden.
Dim WinHttpReq As WinHttp.WinHttpRequest
Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1
Const HEADER = "--Xu02=$"
Const FOOTER = "--Xu02=$--"
Dim FileName

Sub ReachWebsite(ByVal s_ip_str As String)
Dim s_open_target As String
'in "s_ip_str" wird die Adresse übergeben. z.B.: "www.adresse.de"
Set WinHttpReq = CreateObject("WinHttp.WinHttprequest.5.1")
s_open_target = <a href=""http://"">"http://"</a> & s_ip_str 'Zieladresse zusammenstellen
WinHttpReq.Open "GET", s_open_target, False   'Aufruf vorbereiten
WinHttpReq.Send s_open_target                 'Aufruf setzen
Set WinHttpReq = Nothing
End Sub

Gruß Holger.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige