Forum - Φόρμες Access Teamviewer

Σελίδα 1 από 2

Εμφάνιση 40 μηνυμάτων αυτού του θέματος σε μία σελίδα

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Φόρμες ] Access Teamviewer (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2860-access-teamviewer.html)

artchrist73

17-12-13 18:18

Access Teamviewer

1 Συνημμένο(α)

Καλησπέρα,θα ήθελα να ρωτήσω αν θα μπορούσα να έχω με ένα τρόπο remote access μέσα από το περιβάλλον του office σε μια βάση δεδομένων με το teamviewer ως TeamViewer QuickSupport δηλαδή ως πελάτης.
Υπάρχει κάποιος κώδικας που παντρεύεται μέσα σε φόρμα της access να το πω έτσι? γίνετε κάτι τέτοιο,και πως? Βασικά αν υπάρχει κάτι παρόμοιο θα μπορούσατε να με βοηθήσετε?
Πιστεύω είναι πρωτότυπη η ερώτηση μου όχι η σκέψη μου πάνω σε αυτό.
Βασικά αν υπάρχει κάτι παρόμοιο σαν αυτό θα μπορούσατε να με βοηθήσετε?
Πιστεύω είναι πρωτότυπη η ερώτηση μου όχι η σκέψη μου πάνω σε αυτό.
:047:

artchrist73

17-12-13 18:37

access teamviewer περιβάλλον

1 Συνημμένο(α)

Παράθεση:

Αρχική Δημοσίευση από artchrist73 (Μήνυμα 16559)

Έχω ένα παράδειγμα σε φόρμα αυτό μπορεί να διευκολύνει!!!

alex	17-12-13 21:14

1 Συνημμένο(α)

Καλησπέρα Αντώνη!!

Νομίζω στο Team Viewer μέχρι εκεί μπορείς να πάς.Δεν αφήνει για περισσότερα.
Βλέπε συνημμένο.

alex	17-12-13 21:33

1 Συνημμένο(α)

Αντώνη!!
Αναβαθμισμένο με Menu
Με καλύτερη εμφάνιση του Team Viewer
Bλέπε συνημμένο.

Tasos

18-12-13 06:44

Καλημέρα!
Δοκιμάστε το παρακάτω:

Κώδικας:

'Σε μια λειτουργική μονάδα:
 

Option Explicit
 

Public Enum TvAction

    Action_RemoteControl = 0

    Action_FileTransfer = 1

    Action_VPN = 2

End Enum
 

Public Function TVConnect(TvID As String, TvPass As String, _

                          Optional Action As TvAction = TvAction.Action_RemoteControl)

    Dim fso As Object

    Dim strComputer As String

    Dim TvArgs As String

    Dim objWMIService As Object

    Dim colItems As Object

    Dim objItem As Object

    Dim TVPath As String
 

    strComputer = "."
 

    TvArgs = " -i " & TvID & " --Password " & TvPass
 

    If Action = Action_FileTransfer Then

        TvArgs = TvArgs & " -m fileTransfer"
 

    ElseIf Action = Action_VPN Then

        TvArgs = " -m vpn"
 

    End If

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service", , 48)

    For Each objItem In colItems

        If objItem.Name Like "TeamViewer*" Then

            TVPath = Replace(objItem.pathname, Chr(34), "")

            TVPath = fso.GetParentFolderName(TVPath) & "\Teamviewer.exe"

            If fso.FileExists(TVPath) Then

                TVPath = Chr(34) & TVPath & Chr(34) & TvArgs

                Shell TVPath, vbNormalFocus

            End If

            Exit For

        End If

    Next

End Function
 
 'Στο κουμπί της φόρμας:

Private Sub cmdTVConnect_Click()
 'Το όρισμα Action_RemoteControl μπορεί να παραληφθεί

    TVConnect TvID:="123456789", TvPass:="1234"    ', Action:=TvAction.Action_RemoteControl

End Sub

Καλή συνέχεια!

Τάσος

artchrist73

18-12-13 19:12

Παράθεση:

Αρχική Δημοσίευση από Tasos (Μήνυμα 16565)

Καλημέρα!
Δοκιμάστε το παρακάτω:

Κώδικας:

'Σε μια λειτουργική μονάδα:
 

Option Explicit
 

Public Enum TvAction

    Action_RemoteControl = 0

    Action_FileTransfer = 1

    Action_VPN = 2

End Enum
 

Public Function TVConnect(TvID As String, TvPass As String, _

                          Optional Action As TvAction = TvAction.Action_RemoteControl)

    Dim fso As Object

    Dim strComputer As String

    Dim TvArgs As String

    Dim objWMIService As Object

    Dim colItems As Object

    Dim objItem As Object

    Dim TVPath As String
 

    strComputer = "."
 

    TvArgs = " -i " & TvID & " --Password " & TvPass
 

    If Action = Action_FileTransfer Then

        TvArgs = TvArgs & " -m fileTransfer"
 

    ElseIf Action = Action_VPN Then

        TvArgs = " -m vpn"
 

    End If

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service", , 48)

    For Each objItem In colItems

        If objItem.Name Like "TeamViewer*" Then

            TVPath = Replace(objItem.pathname, Chr(34), "")

            TVPath = fso.GetParentFolderName(TVPath) & "\Teamviewer.exe"

            If fso.FileExists(TVPath) Then

                TVPath = Chr(34) & TVPath & Chr(34) & TvArgs

                Shell TVPath, vbNormalFocus

            End If

            Exit For

        End If

    Next

End Function
 
 'Στο κουμπί της φόρμας:

Private Sub cmdTVConnect_Click()
 'Το όρισμα Action_RemoteControl μπορεί να παραληφθεί

    TVConnect TvID:="123456789", TvPass:="1234"    ', Action:=TvAction.Action_RemoteControl

End Sub

Καλή συνέχεια!

Τάσος

Υπάρχει δυνατότητα να το έχω σε βάση αυτό Τάσο?
Γιατί δεν κατάφερα να το κάνω να λειτουργήσει.
Και δεν ξέρω αν παίζει ρολο που βρίσκετε εγκατεστημένο το temaviewer.
Ειδικά στο θέμα κωδικού εδώ που γραφεις ---> TVConnect TvID:="123456789", TvPass:="1234"
Ευχαριστώ πολύ που βρήκες λύση άσχετα αν εγώ δεν το κατάλαβα!!!!

Tasos

19-12-13 02:10

Καλημέρα!

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

Τάσος

artchrist73

19-12-13 20:13

2 Συνημμένο(α)

Παράθεση:

Αρχική Δημοσίευση από Tasos (Μήνυμα 16570)

Κώδικας:

'Στο κουμπί της φόρμας:

Private Sub cmdTVConnect_Click()

'Το όρισμα Action_RemoteControl μπορεί να παραληφθεί

    TVConnect TvID:="123456789", TvPass:="1234"    ', Action:=TvAction.Action_RemoteControl

End Sub

που θα αντιστοιχηθεί σε ένα κουμπί σε φόρμα της Access.

Τάσος

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

artchrist73

19-12-13 20:52

Παράθεση:

Αρχική Δημοσίευση από artchrist73 (Μήνυμα 16575)

Το μονο που κατάφερα είναι η φόρμα teamviewer τπτ άλλο Τάσο χαχαχαχαχααα!!!!

Tasos

19-12-13 21:36

1 Συνημμένο(α)

Αντώνη είσαι κακούργος!!!:a018a: Βάζεις άνω κάτω τελεία σε ονόματα αντικειμένων!!

Δες το συνημμένο

Καλή συνέχεια!

ΥΓ. Δεν χρειάζεται να κάνεις παράθεση ολόκληρο το μήνυμα κάθε φορά. Δεν μπορεί να διαβαστεί εύκολα το άρθρο.

Η ώρα είναι 19:52.

Σελίδα 1 από 2

Εμφάνιση 40 μηνυμάτων αυτού του θέματος σε μία σελίδα

Search Engine Optimization by vBSEO 3.3.2