VERSION 5.00
Begin VB.Form Frm_IE 
   Caption         =   "Form1"
   ClientHeight    =   6555
   ClientLeft      =   60
   ClientTop       =   405
   ClientWidth     =   6885
   LinkTopic       =   "Form1"
   ScaleHeight     =   6555
   ScaleWidth      =   6885
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "填写密码"
      Height          =   390
      Left            =   5535
      TabIndex        =   4
      Top             =   195
      Width           =   990
   End
   Begin VB.ListBox List2 
      Height          =   2400
      Left            =   330
      TabIndex        =   3
      Top             =   3750
      Width           =   6195
   End
   Begin VB.ListBox List1 
      Height          =   2580
      Left            =   345
      TabIndex        =   2
      Top             =   1035
      Width           =   6210
   End
   Begin VB.TextBox url 
      Height          =   360
      Left            =   330
      TabIndex        =   1
      Text            =   "www.baidu.com"
      Top             =   225
      Width           =   4080
   End
   Begin VB.CommandButton start 
      Caption         =   "导航"
      Height          =   390
      Left            =   4470
      TabIndex        =   0
      Top             =   195
      Width           =   990
   End
End
Attribute VB_Name = "Frm_IE"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ie As InternetExplorer
Dim objIE As Object
Dim WithEvents dWinFolder As ShellWindows
Attribute dWinFolder.VB_VarHelpID = -1
Dim WithEvents eventIE As WebBrowser_V1
Attribute eventIE.VB_VarHelpID = -1

Private Sub Command1_Click()
    On Error Resume Next
    eventIE.Document.getElementById("TPL_username_1").Value = "18868595911"
    eventIE.Document.getElementById("TPL_password_1").Type = "hidden"
    eventIE.Document.getElementById("TPL_password_1").Value = "jtb2hww"
    Sleep 500
    eventIE.Document.getElementById("TPL_username_1").Value = "18868595911"
    eventIE.Document.getElementById("TPL_password_1").Type = "hidden"
    eventIE.Document.getElementById("TPL_password_1").Value = "jtb2hww"
    Sleep 500
    eventIE.Document.getElementById("TPL_username_1").Value = "18868595911"
    eventIE.Document.getElementById("TPL_password_1").Type = "hidden"
    eventIE.Document.getElementById("TPL_password_1").Value = "jtb2hww"
End Sub

Private Sub dWinFolder_WindowRegistered(ByVal lCookie As Long)
    getlist_Click
End Sub

Private Sub dWinFolder_WindowRevoked(ByVal lCookie As Long)
    getlist_Click
End Sub

Private Sub eventIE_DownloadComplete()
    If InStr(1, eventIE.LocationURL, "login.taobao.com/member/login.jhtml") <> 0 Then
        Command1_Click
    End If
End Sub

Private Sub Form_Load()
    Set dWinFolder = New ShellWindows
End Sub

Private Sub getlist_Click()
    On Error Resume Next
    List1.clear
    For Each objIE In dWinFolder
        If InStr(1, objIE.FullName, "IEXPLORE.EXE") <> 0 Then
            List1.AddItem objIE.LocationURL
            If InStr(1, objIE.LocationURL, "login.taobao.com/member/login.jhtml") <> 0 Then
                Set eventIE = objIE
                If ERR.Number <> 0 Then
                    List2.AddItem "Hook IE Error!"
                    ERR.clear
                Else
                    List2.AddItem "Hook IE 自动输入密码!"
                    Command1_Click
                End If
            End If
'            If InStr(1, objIE.LocationURL, "alilogin/alilogin.aspx") <> 0 Then
'                Set eventIE = objIE
'                If ERR.Number <> 0 Then
'                    List2.AddItem "Hook IE Error!"
'                    ERR.clear
'                Else
'                    List2.AddItem "Hook IE 发现阿里助手界面!"
'                    eventIE.Navigate "https://login.taobao.com/member/login.jhtml?style=b2b&from=b2b&full_redirect=true"
'                End If
'            End If
        End If
    Next
End Sub

Private Sub List1_Click()
    On Error Resume Next
    For Each objIE In dWinFolder
        If InStr(1, objIE.LocationURL, List1.List(List1.ListIndex)) <> 0 Then
            Set eventIE = objIE
            If ERR.Number <> 0 Then
                List2.AddItem "Hook IE Error!"
                ERR.clear
            Else
                List2.AddItem "Hook IE!"
            End If
        End If
    Next
End Sub

Private Sub start_Click()
    On Error Resume Next
    eventIE.Navigate url.Text
End Sub