Hallo!
Ich bin dabei eine Testroutine zu entwickeln, die prüfen soll, ob eine Internetverbindung vorhanden ist oder nicht. Dabei habe ich mir folgende Objektklassen einmal angeschaut:
Code:
(setq shell (vlax-create-object "Shell.Application"))
(setq ado (vlax-create-object "ADODB.Stream"))
(setq http (vlax-create-object "MSXML2.XMLHTTP"))
(setq http2 (vlax-create-object "Microsoft.XMLHTTP"))
Aber nicht das passende gefunden. Dass mir vorher sagen soll, wenn ich nicht mit dem Internet verbunden bin.
Bei allen habe ich festgestellt, dass ich unweigerlich Autocad crashd , wenn keine Verbindung vorhanden ist.
Hier mein Ansatz, der mich nicht richtig weiter bringt
Code:
(defun checkUrl (url / http )
(setq http (vlax-create-object "MSXML2.XMLHTTP"))
(vlax-invoke-method http 'open "get" url :vlax-false)
(if (vl-catch-all-error-p (vl-catch-all-apply 'vlax-invoke (list http 'send)))
(progn
(princ (strcat "\nNo Internet connection!"))
(exit)
)
)
)
(checkUrl "https://google.de")Wer kann mir weiterhelfen !
------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP