Forum

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)
Καλησπέρα,θα ήθελα να ρωτήσω αν θα μπορούσα να έχω με ένα τρόπο remote access μέσα από το περιβάλλον του office σε μια βάση δεδομένων με το teamviewer ως TeamViewer QuickSupport δηλαδή ως πελάτης.
Υπάρχει κάποιος κώδικας που παντρεύεται μέσα σε φόρμα της access να το πω έτσι? γίνετε κάτι τέτοιο,και πως? Βασικά αν υπάρχει κάτι παρόμοιο θα μπορούσατε να με βοηθήσετε?
Πιστεύω είναι πρωτότυπη η ερώτηση μου όχι η σκέψη μου πάνω σε αυτό.
Βασικά αν υπάρχει κάτι παρόμοιο σαν αυτό θα μπορούσατε να με βοηθήσετε?
Πιστεύω είναι πρωτότυπη η ερώτηση μου όχι η σκέψη μου πάνω σε αυτό.


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

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)
Καλημέρα!

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

artchrist73 19-12-13 20:52
Παράθεση:
Αρχική Δημοσίευση από artchrist73 (Μήνυμα 16575)
Τάσο καλησπέρα δες τι μ... εκανα.
Δες δεν ξέρω τι έχω κάνει έχω μπερδέψει τα αυγά και τα πασχάλια,επειδή είναι πολύ προχωρημένο για εμενα αυτό αν θες κάντο μου ζωντανό σε φόρμα αν θες βεβαια.
Επίσης δεν μπορώ να καταλάβω από που θα βρει τους κωδικούς του teamviewer.Θα τους δηλώσω εγώ ?
Πιστεύω ένα παράδειγμα βάσης θα δω τι ακριβώς γίνετε!!

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

Tasos 19-12-13 21:36
1 Συνημμένο(α)
Αντώνη είσαι κακούργος!!!:a018a: Βάζεις άνω κάτω τελεία σε ονόματα αντικειμένων!!

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

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

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

artchrist73 22-12-13 14:00
teamviewer
 
Καλησπέρα στο φόρουμ!! Τάσο έφτιαξα το team όλα ok.Το ζητούμενο είναι πως λειτουργεί τώρα? Δηλαδή εγώ έχω άνοιξη την βάση έχω δώσει τυχαίους κωδικούς σε κάποιον που έχει ανοιχτό το teamviewer τους δίνει και μπαίνει στην βάση μου?
Και πρέπει να έχω εγκαταστήσει και εγώ το teamviewer στο pc μου η όχι?
Εξήγησε μου αν θες γιατί είμαι πολύ χαρούμενος πάνω σε αυτό που μου έδειξες και θέλω να το ενώσω στην βάση μου που φτιάχνω εδώ και μήνες.
Σε ευχαριστώ για την προσπάθεια τάσο ειλικρινά.

Tasos 22-12-13 14:51
Καλησπέρα Αντώνη!

Ο κώδικας θα χρησιμεύσει σε κάποιον που θέλει να δημιουργεί συνδέσεις σε απομακρυσμένους υπολογιστές υπό την προϋπόθεση ότι οι απομακρυσμένοι υπολογιστές διαθέτουν Teamviewer ή TeamViewer QuickSupport που είναι ανοιχτό και τα στοιχεία ID + Password είναι γνωστά.

Εξυπηρετεί δηλαδή όσους χρησιμοποιούν τακτικά το Teamviewer για να προσφέρουν τεχνική υποστήριξη σε απομακρυσμένους υπολογιστές ή εκτελούν προγραμματισμένες συντηρήσεις σε απομακρυσμένους υπολογιστές.

Σε κάθε περίπτωση η ταυτότητα και ο κωδικός χρήστη πρέπει να είναι γνωστά ή αν θέλεις, αποθηκευμένα σε πίνακα της βάσης.

Οι κωδικοί χρηστών του απομακρυσμένου υπολογιστεί ισχύουν φυσικά μόνο αν στον απομακρυσμένο υπολογιστή έχει ρυθμιστεί ένας σταθερός κωδικός.

Η εφαρμογή TeamViewer πρέπει να υπάρχει και στους 2 υπολογιστές είτε εγκατεστημένη είτε στη μορφή του TeamViewer QuickSupport για να είναι εφικτός ο απομακρυσμένος έλεγχος.

Για να επιτύχεις το ζητούμενο σου δεν χρειάζεσαι τίποτε από τα παραπάνω.

Απλά εγκαθιστάς το TeamViewer , δημιουργείς έναν σταθερό κωδικό και τον γνωστοποιείς στους συνεργάτες σου μαζί με την ταυτότητα χρήστη.

Εκείνοι με τη σειρά τους δίνουν τα στοιχεία αυτά στο δικό τους TeamViewer και έτσι αποκτούν πρόσβαση στον υπολογιστή σου εφόσον το Teamviewer είναι ανοιχτό στον υπολογιστή σου.

Δεν είναι αναγκαίος κάποιος αυτοματισμός για να επιτύχεις τα αναγραφόμενα.

Τάσος

artchrist73 22-12-13 16:10
teamviewer
 
Αχ αυτό λέω τάσο μου ποιος ο λόγος όμως να πρέπει να έχω το temaviewer από την acces εφόσον πρέπει να είναι ανοικτό?
Δεν γίνετε ο κώδικας που έφτιαξες να μην χρειάζεται teamviewer?
υπάρχει κάποιος άλλος τρόπος που να χειρίζομαι μονο το περιβάλλον access?

alex 22-12-13 21:00
Καλησπέρα Αντώνη!!
Παρακολουθώ την διαδρομή του θέματός σου όπου συμμετείχα και εγώ. Παίρνω το θάρρος να συμπληρώσω δύο λόγια.
Αντώνη για να χρησιμοποιείς το Team Viewer πρέπει να ξέρεις και τι δουλειά κάνει πιστεύω.
Η δουλειά που κάνει είναι βοήθεια από κάποια υπηρεσία να επικοινωνείς με κάποιον άλλο και να χειρίζεσαι τον απομακρυσμένο υπολογιστή.Είναι ξένη υπηρεσία δεν είναι ανοικτός(ξεκλείδωτος κώδικας) ή ένα Site να κάνεις κάποια παρέμβαση.
Το σκεπτικό του Τάσου είναι πάρα πολύ καλό και βοηθάει πάρα πολύ αυτούς που όντως το χρειάζονται για τη δουλειά τους για τεχνικούς Η/Υ που δεν μπορούν να μετακινήσουν τις μονάδες στο μαγαζί τους.Οπότε έχουν από πριν τους κωδικούς κατεγραμμένους σε μια βάση σε ένα πίνακα με ένα ονοματεπώνυμο.
Για να αποφεύγουν δώσε μου το πρώτο κωδικό κατόπιν δώσε το δεύτερο κωδικό κλπ ή σε μια διακοπή ρεύματος που ίσως θα χαθεί η επαφή ή κατά λάθος αντί να πατήσεις κάποιο άλλο κουμπί βγαίνεις και από την σύνδεση ή θα χρειαστεί να περάσεις ένα πρόγραμμα και πρέπει να κάνεις Restart τον Η/Υ.
Τελικά είναι σπαστικό να κάνεις από την αρχή τις ίδιες κινήσεις.
Να σκεφτείς τα συνεργεία το χειρίζονται με πολλές εταιρείες του εξωτερικού ανάλογα την μάρκα συνδέει την OBD φύσα με το πρόγραμμα της πχ mercedes για κάποια ρύθμιση που δεν μπορεί να την πραγματοποιήσει ο τεχνικός στο συνεργείο στην Ελλάδα ή δεν είναι ελεύθερη η ρύθμιση από την εταιρεία για τον καθένα .Οπότε την πραγματοποιεί από την Γερμανία ο ξένος τεχνικός κατευθείαν στο αυτοκίνητο χειρίζοντας το συγκεκριμένο πρόγραμμα.
Καταλαβαίνεις πόσο πολύτιμο είναι.Ακόμη και για διδασκαλίες, φροντιστήρια κλπ.
Στην συγκεκριμένη δική σου περίπτωση η ενσωμάτωση δεν ξέρω πόσο σε βοηθάει.
Πιθανόν εσύ θα ήθελες να ενσωματωθεί σε φόρμα τύπου sfrmWorkspace και να εμφανίζει ενσωματωμένη την φόρμα TeamViewer . Αν ήταν ξεκλείδωτο το πρόγραμμα ίσως θα γίνονταν.
Να ξέρεις κάτι ότι το παράδειγμα του Tάσου είναι πολύ χρήσιμο!!!!!!!!!!!
Αλλά πιστεύω η διαφορά είναι πολύ μικρή στο χειρισμό χρησιμοποιώντας το πρόγραμμα 1),με ενσωμάτωση ή 2) με το άνοιγμα ενός κουμπιού.
Ερμηνεύοντας το τελευταίο μήνυμα σου ίσως να θέλεις να κάνεις το δικό σου TeamViewer το οποίο πιστεύω είναι πολύ δύσκολο προγραμματιστικά και σίγουρα οικονομικά θα στοιχίζει να διατηρείς και online τέτοιο πρόγραμμα.
.

artchrist73 22-12-13 21:37
teamviewer
 
Σαφώς κατάλαβα ότι δεν μπορώ να κάνω sfrmWorkspace.
Όντως το παράδειγμα του τάσου είναι μέχρι στιγμής ok τέλειο.
Θα μπορούσε να υπάρξει κάτι παρόμοιο έστω να επεμβαίνω σε κάποια πεδία τουλάχιστον όμως?
να αλλάζω δεδομένα σε κάποια πεδία online?
:wall:


Η ώρα είναι 21:28.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2