[artchrist73]

Αρχική Δημοσίευση από Tasos

Καλημέρα!

Ο κώδικας θα χρησιμεύσει σε κάποιον που θέλει να δημιουργεί συνδέσεις σε απομακρυσμένους υπολογιστές υπό την προϋπόθεση ότι οι απομακρυσμένοι υπολογιστές διαθέτουν 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.

Τάσος

Τάσο καλησπέρα δες τι μ... εκανα.
Δες δεν ξέρω τι έχω κάνει έχω μπερδέψει τα αυγά και τα πασχάλια,επειδή είναι πολύ προχωρημένο για εμενα αυτό αν θες κάντο μου ζωντανό σε φόρμα αν θες βεβαια.
Επίσης δεν μπορώ να καταλάβω από που θα βρει τους κωδικούς του teamviewer.Θα τους δηλώσω εγώ ?
Πιστεύω ένα παράδειγμα βάσης θα δω τι ακριβώς γίνετε!!