[kapetang]

Καλησπέρα

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

Private Sub cmdLogin_Click()
    Dim IE As Object
    Dim sws As SHDocVw.ShellWindows
    Dim strURL As String
    Dim i As Integer

    On Error GoTo err_Hander
    If Me.cboUesr.ListIndex >= 0 Then

        'Ορισμός URL
        strURL = "https://login.gsis.gr/sso/pages/login.jsp"

        Set sws = New SHDocVw.ShellWindows

        'Εύρεση κατάλληλης ιστοσελίδας
        For i = 0 To sws.Count - 1
            If Left(sws.Item(i).LocationURL, Len(strURL)) = strURL Then
                Set IE = sws.Item(i).Document
                sws.Item(i).Visible = True
                Exit For
            End If
        Next

        'Ανοίγει την ιστοσελίδα login, αν δεν είναι ανοιχτή
        'Επειδή δεν επιτρέπεται η άμεση πρόσβαση θα προκληθεί λάθος
        If i > sws.Count - 1 Then
            Set IE = CreateObject("InternetExplorer.Application")
            IE.Navigate strURL
            IE.Visible = True
            Do While IE.busy Or IE.ReadyState <> 4
                DoEvents
            Loop
        End If
        
        IE.all("ssousername").Value = Me.cboUesr.Column(1)
        IE.all("password").Value = Me.cboUesr.Column(2)
    Else
        MsgBox "Δεν έγινε επιλογή στο ComboBox"
    End If
    Exit Sub
err_Hander:
    MsgBox "Η σελίδα login πρέπει να είναι ανοιχτή στον IE"

End Sub

Για να εκτελείται σωστά ο κώδικας πρέπει:

1) Στο παράθυρο του κώδικα, να προσθέσουμε μία αναφορά στο στοιχείο "Microsoft Internet Controls" (Tools>References> Microsoft Internet Controls).

2) Η σελίδας Login να είναι ανοιχτή, επειδή το Taxisnet δεν επιτρέπει το άμεσο άνοιγμά της με κώδικα.

Άνοιξε στον IE τη σελίδα Login του Taxinet, διάλεξε ένα πελάτη στο ComboBox της φόρμας και πάτησε το κουμπί.

Κανονικά στη σελίδα Login θα πρέπει να συμπληρωθούν αυτόματα τα στοιχεία του πελάτη (UserName και PassWord).

Φιλικά/Γιώργος