μήνυμα επιβλαβή για το PC

[ΚΩΣΤΑΣ2]

Γεια σε όλο το forum.
Στο κουμπί μίας φόρμας έχω το εξής κώδικά

Private Sub Εντολή0_Click()
Dim Apath As String
Apath = "C:\Windows\system32\osk.exe"
FollowHyperlink Apath
End Sub

Μου βγαίνει το μήνυμα στο συνημμένο

Μπορεί να παρακάμπτω το μήνυμα ;
Ευχαριστώ

[kapetang]

Καλημέρα

Κώστα θα πρότεινα αντί της εντολής: FollowHyperlink Apath να δοκιμάσεις την:

Shell Apath, vbNormalFocus.

Ίσως σου λύση το πρόβλημα.

[ΚΩΣΤΑΣ2]

Γιώργο ευχαριστώ δεν κατάφερα να συντάξω τη Shell Apath, vbNormalFocus.Μετά από έρευνα βρήκα μια άλλη και αντί Osk.exe την tabtip.exe
ShellExecute 0, vbNullString, "tabtip.exe", vbNullString, "C:\", 1

[kapetang]

Καλημέρα

Κώστα το αρχικό μήνυμά σου περιέχει τον παρακάτω κώδικα:

Private Sub Εντολή0_Click()
    Dim Apath As String
    Apath = "C:\Windows\system32\osk.exe"
    FollowHyperlink Apath
End Sub

Όπως επίσης προκύπτει από το μήνυμα σου, ο κώδικας, που τρέχει πατώντας το κουμπί [Εντολή0] της φόρμας, ανοίγει κανονικά το αρχείο osk.exe, αλλά εμφανίζει ένα ενοχλητικό προειδοποιητικό μήνυμα.

Επειδή το μήνυμα το εμφανίζει η μέθοδος FollowHyperlink, σκέφτηκα ότι, αν ανοίξεις το αρχείο osk.exe με την εντολή Shell, δηλαδή αν χρησιμοποιήσεις τον κώδικα:

Private Sub Εντολή0_Click()
    Dim Apath As String
    Apath = "C:\Windows\system32\osk.exe"
    Shell Apath, vbNormalFocus
End Sub

Το προειδοποιητικό μήνυμα θα εξαφανιστεί.

Τρέξε τον παραπάνω κώδικα, ίσως σου λύσει το πρόβλημα (εξαφάνιση μηνύματος).

Δεν έχω ασχοληθεί με τα προγράμματα osk.exe και TabTip.exe. Συνεπώς δεν μπορώ να σε βοηθήσω

[ΚΩΣΤΑΣ2]

Γιώργο δυστυχώς χτυπάει ο κώδικας Shell Apath, vbNormalFocus