添加新的IE登录模式...

Signed-off-by: 502647092 <jtb1@163.com>

Frm_IE.frm

@@ -0,0 +1,144 @@
+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

首图导出工具.vbp

@@ -13,7 +13,8 @@ Form=Frm_Index.frm
 UserControl=..\VBUserContorl\XmlHttp.ctl
 Form=Frm_Err.frm
 UserControl=..\VBUserContorl\TzButton.ctl
-Startup="Frm_Main"
+Form=Frm_IE.frm
+Startup="Frm_IE"
 HelpFile=""
 ExeName32="首图导出工具.exe"
 Path32="C:\Users\蒋天蓓\Desktop"

首图导出工具.vbw

@@ -7,5 +7,6 @@ MainBas = 0, 0, 0, 0, C
 Frm_Tols = 0, 0, 0, 0, C, 208, 208, 1538, 738, C
 Frm_Index = 26, 26, 1356, 556, , 234, 234, 1564, 764, C
 XmlHttp = 0, 0, 0, 0, C, 260, 260, 1590, 790, C
-Frm_Err = 0, 0, 0, 0, C, 0, 0, 1330, 530, C
+Frm_Err = 194, 260, 1591, 790, , 0, 0, 1330, 530, C
 TzButton = 0, 0, 0, 0, C, 26, 26, 1356, 556, C
+Frm_IE = 41, 115, 1371, 706, , 78, 78, 1302, 608, C