[artchrist73]

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

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

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

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"
Ευχαριστώ πολύ που βρήκες λύση άσχετα αν εγώ δεν το κατάλαβα!!!!