Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige