TIA C Skript in VBS help

[TIAISM]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo Community,

ich möchte gerne folgendes Skript von C in VB umwandeln, da ich es gerne innerhalb eines Bildbausteins verwenden möchte.

    #define CURRENT_USER         "@CurrentUser"
    #define TAG_SET                "IDB_2270_Taste_Service_Hand_PU_li_re_Entkoppeln_stat_VISU_OUT_SPS_IN.Tastenbit"

    #define TXT_ID       5050 // Pusher entkoppeln

    DWORD dwAction                = 0;
    MESSAGE_INFORMATIONS scMessageInformations;

     [B]//Klären[/B]
      memset(&scMessageInformations, 0, sizeof(MESSAGE_INFORMATIONS));

    [B]  //Meldung konstruieren[/B]
      scMessageInformations.lAlarmNo = 1003;
      strcpy(scMessageInformations.cStringValues[0], GetTextByID(TXT_ID));
      scMessageInformations.iTypes[0] = MESSAGE_INFORMATIONS_TYPE_STRING;
      strcpy(scMessageInformations.cStringValues[1], GetTagChar(CURRENT_USER));
      scMessageInformations.iTypes[1] = MESSAGE_INFORMATIONS_TYPE_STRING;

   [B] //Bit setzen[/B]
    SetTagBit(TAG_SET, 1);

 

[Thomas_v2.1]

Wenn das was du da gezeigt hast das komplette Script sein sollte, dann bleibt effektiv davon nur das Setzen des Bits mit SetTagBit() übrig. Das sollte in VBS kein Problem darstellen.

Vermutlich wird da aber noch ein anwenderdefinierter Alarm (zur Nachvollziehbarkeit einer Bedienung im Alarmlogging) erzeugt, in dem Code den du uns nicht gezeigt hast?

 

[TIAISM]

Zuviel Werbung?
-> Hier kostenlos registrieren

Ja unter dem
//Bit setzen
SetTagBit(TAG_SET, 1);

rufe ich eine C-Funktion auf, um die Meldung zu konstruieren und auszulösen.
Leider kann ich im VB Skript kein C-Skript auslösen, stimmts?

Danke

 

[Thomas_v2.1]

Ja unter dem
//Bit setzen
SetTagBit(TAG_SET, 1);

rufe ich eine C-Funktion auf, um die Meldung zu konstruieren und auszulösen.
Leider kann ich im VB Skript kein C-Skript auslösen, stimmts?

Nein das geht nicht. Zeig doch mal den Funktionsaufruf der da folgt, und ggf. den restlichen Code.