PC-Messageboxen auf der Box anzeigen mit VB

[Sepp776]

Hallöle!
Vielleicht hat ja jemand Lust an folgendem zu tüfteln
Auf dieser Seite gibt es eine DLL und ein Beispielprogramm, wie man neue Fenster mit VB erkennen und den Titel auslesen kann:
http://home.att.net/~geekStuff/wshDeali ... esPage.htm

Mit folgendem Code kann man dann eine Nachricht an die Box senden:

Code: Alles auswählen

Private mclsBrowser As InternetExplorer


Private Sub SendToBox(strMessage As String)
  
  'replace invalid characters
  strMessage = Replace(strMessage, vbCrLf, "")
  strMessage = Replace(strMessage, vbLf, "")
  strMessage = Replace(strMessage, Chr(13), "")
  strMessage = Replace(strMessage, "ä", "ae")
  strMessage = Replace(strMessage, "Ä", "Ae")
  strMessage = Replace(strMessage, "ö", "oe")
  strMessage = Replace(strMessage, "Ö", "Oe")
  strMessage = Replace(strMessage, "ü", "ue")
  strMessage = Replace(strMessage, "Ü", "Ue")
  strMessage = Replace(strMessage, "ß", "ss")
  strMessage = Replace(strMessage, "\", "_")
  
  'Create http-command
  strMessage = "http://" & HOSTNAME & "/control/message?nmsg=" & strMessage
  
  'Send http-Command
  If mclsBrowser Is Nothing Then
    Set mclsBrowser = New InternetExplorer
  End If
  
  Call mclsBrowser.Navigate(strMessage)
  
End Sub

In den Referenzen braucht man dafür noch die "Microsoft Internet Controls". Der Rest sollte kein großes Problem sein
(Mit VBA/Outlook habe ich die DLL leider nicht zum Laufen bekommen, nur mit "richtigem" VB).

Wenn man ein bisschen herum-loggt findet man vielleicht ein paar Messageboxen, die es wert sind an die Box weitergeleitet zu werden. zum Beispiel Nero CD fertig oder was weiß ich. Habe da leider im Moment nicht so viel Zeit.

Schö,
Sepp.