Externe Anwendung/ Dialogfelder/ MessageBox aus dem integrierten VBS in WinCCflexible

[Hahnus]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,

auch auf die Gefahr, Euch zu quälen hier die folgende Frage (zu der ich verbindlich im Forum doch keine Antwort gefunden habe...):

Ich habe WinCCflexible2005 und möchte per Script:
- eine Fremdanwendung starten (*.exe aus VB.net)
- Dialogfelder rufen (Datei öffnen)
- Messageboxen zeigen

Auf dem Visualisierungsrechner läuft keine VB-Entwicklungsumgebung (ich hatte dazu was gelesen).

Für Antworten/ Codebeispiele wäre ich sehr dankbar.

Grüße
Hahnus

 

[KalEl]

1. geht. gibt es eine funktion für
2. schau mal hier. http://www.sps-forum.de/showthread.php?t=9908&page=3 (falls er link sich wieder verabschiedet suche nach 'ASCII File in WinCC Variable einlesen' seite 3. komplett lesen auch die links im beitrag von volker
3. der befehl msgbox wird nicht unterstützt.
popup sollte gehen.

Dim ausgabe,abfrage
Set ausgabe = CreateObject("WScript.Shell")
abfrage=ausgabe.Popup ("Sind sie sicher?",,"Bit setzen",4)
If abfrage=6 Then
 abfrage=ausgabe.Popup ("Call PtFct.Bit_setzen(PtVar.var)",,"Bit setzen",0)
End If
If abfrage=7 Then
 abfrage=ausgabe.Popup ("Call PtFct.Bit_setzen(PtVar.var)",,"Bit rücksetzen",0)
End If

 

[Hahnus]

Zuviel Werbung?
-> Hier kostenlos registrieren

Dialog Datei öffnen

@Kalel
Vielen Dank für die schnelle Antwort. Leider bin ich erst jetzt zum Ausprobieren gekommen.

@Alle
Der Prompt funktioniert so, wie Kalel das beschrieben hat.

Datei öffnen:

Dim strFilename, Dialog, fso
Dim Filename
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set Filename = HmiRuntime.SmartTags("Variable")   
Dialog = "UserAccounts.CommonDialog"                 
'Damit Dateiauswahl erfolgen kann (Windows-Explorer)
Set Dialog = CreateObject(Dialog)
'Explorer-Dialog zum Speichern von Dateien
'Titelzeile
Dialog.Flags = &H0004 ' datei muss nicht vorhanden sein
Dialog.Filter = "All Files (*.*)|*.*|"  & "TAB Files (*.tab) |*.tab| "'Filter setzen
' Filter auf den Eintrag All Files setzen  TAB=2
Dialog.FilterIndex = 1
'Flags setzen: Explorer-Dialog mit langen Dateinamen
Dialog.Flags = &H1814
Dialog.ShowOpen
'Dateiname in die variable schreiben
Filename.Value = Dialog.FileName 
Set Dialog = Nothing

Was ich jetzt noch nicht weiß, ist wie man eine Fremdanwendung starten kann (Windows.exe aus VB.NET)???

Hahnus

 

[repök]

Geht doch....

Das Skribt läuft. Ich habe dazu nur noch einige Fragen.
Muss ich jetzt beim Kunden auch VB-Express installieren oder kann man die entsprechenden Funktionen (klassen) einfach in ein bestimmtes Verzeichnis kopieren/installieren oder der gleichen ?
Oder wird das mit Erzeugung der Runtime (WinCC Flexible 2005 SP1) übernommen?
Danke noch mal an alle.....

 

[Hahnus]

Geht auch ohne VB

Ich habe die Prompts und den Öffen-Dialog gestern auf einem Rechner ohne VB-Entwicklungsumgebung (WinXP SP2/ WinCCflexible2005) probiert- Läuft.

Eine externe Anwendung zu starten ist mir bis jetzt jedoch nicht gelungen.

Hahnus

 

[repök]

Zuviel Werbung?
-> Hier kostenlos registrieren

Externe Anwendung starten

Funktioniert das den nicht über die Systemfunktionen?
Unter Sonstige Funktionen kann man da ein Programm Starten. Ich bin allerdings in Flexible noch nicht so der experte. Auf meinem Rechner habe ich noch W2K laufen (Wegen WinCC5.1). Ich probieres aber auch mal mit XP. Ich danke noch mal für die schnelle Antwort.

 

[Praktikant]

Dim objWshShell
Set objWshShell = CreateObject("Wscript.Shell")
objWshShell.Run "Notepad Example.txt", 1