Αναθεώρηση 22 (Έκδοση 8.1)

Σχεδόν τελείωσε η αναβάθμιση της Μ2000. Μου έχει μείνει ο Assembler. Έχω βρει ένα ήδη γραμμένο σε VB6 assembler, αλλά θα τον δοκιμάσω πρώτα! Πάντως για την ώρα έχω δει ότι μπορώ να τρέξω κώδικα ενώ ισχύει το DEP (απαγόρευση εκτέλεσης, σε κεντρικό χώρο, αλλά όχι σε εικονικό).


Το παρακάτω πρόγραμμα Ανοίγει το Word. Αν κλείσουμε το Word θα μας πεις σε πόσα δευτερόλεπτα το κλείσαμε. Αν ο χρόνος περάσει τα 10 δευτερόλεπτα θα κλείσει το Word (εκτός και αν έχουμε κάποιο διάλογο ανοικτό).


Αναθεώρηση 23, δεν χρειάζεται να είναι Gobal το ExitNow. Η κλήση του γεγονότος γίνεται σαν να είναι στο τμήμα.

ExitNow=false
Declare WithEvents Alfa "WORD.APPLICATION"
Title "Minimized", 0
Wait 300
Print "ok"
With Alfa, "Visible", True
Function ALFA_QUIT {
            Print "Why you close Word?"
            ExitNow=True
}
M=0
Every 20 {
      If ExitNow then exit
      M++
      If M>500 then exit
}
Try {
      Method Alfa, "QUIT"
}
Declare Alfa Nothing
if ExitNow then {
      Print format$("Finish  {0:2} sec", M/50)
} Else {
      Print "Close Word manually"
}
Title "ok",1