Καλημέρα!
Ο κώδικας θα χρησιμεύσει σε κάποιον που θέλει να δημιουργεί συνδέσεις σε απομακρυσμένους υπολογιστές υπό την προϋπόθεση ότι οι απομακρυσμένοι υπολογιστές διαθέτουν Teamviewer ή TeamViewer QuickSupport που είναι
ανοιχτό και τα στοιχεία ID + Password είναι γνωστά.
Το TvID:="123456789" και TvPass:="1234" είναι απλά τα στοιχεία του παραδείγματος μου και φυσικά θα πρέπει να τα αντικατασταθούν με πραγματικά στοιχεία αλλά και να αποθηκευτούν σε πίνακα της Access μαζί με άλλες πληροφορίες όπως πχ. το όνομα απομακρυσμένου υπολογιστή.
Το TeamViewer QuickSupport το μόνο που κάνει είναι να παρέχει την πρόσβαση του υπολογιστή στον οποίο τρέχει σε κάποιον απομακρυσμένο.
Δεν κάνει κάτι άλλο που να μπορείς να αυτοματοποιήσεις.
Αν σε εξυπηρετεί το σκεπτικό μου βάλε όλο τον κώδικα σε μια λειτουργική μονάδα (Module)
εκτός το τελευταίο του κομμάτι:
Κώδικας:
'Στο κουμπί της φόρμας:
Private Sub cmdTVConnect_Click()
'Το όρισμα Action_RemoteControl μπορεί να παραληφθεί
TVConnect TvID:="123456789", TvPass:="1234" ', Action:=TvAction.Action_RemoteControl
End Sub
που θα αντιστοιχηθεί σε ένα
κουμπί σε φόρμα της Access.
Τάσος