From b49532d171f25b9e8f5e573ca44ebc4756f1fb20 Mon Sep 17 00:00:00 2001 From: j502647092 Date: Mon, 13 Jul 2015 15:07:56 +0800 Subject: [PATCH] add tip while use fastlogin... Signed-off-by: j502647092 --- Frm_Main.frm | 95 +++++++++++++++++++++++++++------------------------- 1 file changed, 49 insertions(+), 46 deletions(-) diff --git a/Frm_Main.frm b/Frm_Main.frm index d249454..3bc1ee4 100644 --- a/Frm_Main.frm +++ b/Frm_Main.frm @@ -12,7 +12,7 @@ Begin VB.Form Frm_Main StartUpPosition = 2 '屏幕中心 Begin 导出商品首图.TzButton getindex Height = 300 - Left = 12165 + Left = 12360 Top = 90 Width = 1305 _ExtentX = 2302 @@ -33,12 +33,12 @@ Begin VB.Form Frm_Main End Begin 导出商品首图.TzButton lookitem Height = 300 - Left = 11205 + Left = 11130 Top = 90 - Width = 945 - _ExtentX = 1667 + Width = 1215 + _ExtentX = 2143 _ExtentY = 529 - Caption = "下载商品" + Caption = "下载商品首图" BackColor = 65280 StartColor = 65280 FinshColor = 8454016 @@ -79,7 +79,7 @@ Begin VB.Form Frm_Main Begin VB.CommandButton putpwd Caption = "填写密码" Height = 300 - Left = 14610 + Left = 14745 TabIndex = 16 Top = 90 Width = 1000 @@ -87,7 +87,7 @@ Begin VB.Form Frm_Main Begin VB.CommandButton loginadmin Caption = "登录后台" Height = 300 - Left = 13620 + Left = 13755 TabIndex = 15 Top = 90 Width = 1000 @@ -250,7 +250,7 @@ Begin VB.Form Frm_Main AutoSize = -1 'True Caption = "页数" Height = 180 - Left = 15930 + Left = 15855 TabIndex = 8 Top = 150 Width = 360 @@ -309,18 +309,18 @@ Private Sub Form_Resize() web(0).Width = Me.Width - 50 web(0).Height = lefthg - 250 web(0).Left = 10 - Dim i As Long - For i = 1 To web.UBound - web(i).Width = Me.Width / 3 * 2 - 50 - web(i).Top = web(0).Top + lefthg / 2 - web(i).Height = lefthg / 2 - web(i).Left = 10 + Dim I As Long + For I = 1 To web.UBound + web(I).Width = Me.Width / 3 * 2 - 50 + web(I).Top = web(0).Top + lefthg / 2 + web(I).Height = lefthg / 2 + web(I).Left = 10 Next End Sub Private Sub getfp(webb As WebBrowser) On Error Resume Next - Dim i, J, vDoc + Dim I, J, vDoc Dim ix As Long Dim itemname, itemurl ix = webb.index @@ -335,7 +335,7 @@ Private Sub getfp(webb As WebBrowser) If InStr(1, itemurl, "http") <> 0 And InStr(1, itemurl, "jpg") <> 0 And InStr(1, itemurl, ".com//") = 0 Then If Frm_Download.UName.AddItemNotSame(itemurl) Then If Not (Frm_Download.SName.AddItemNotSame(resetfilename(Trim(itemname) & ".jpg"))) Then - Frm_Download.SName.AddItemNotSame resetfilename((Trim(itemname) & i) & ".jpg") + Frm_Download.SName.AddItemNotSame resetfilename((Trim(itemname) & I) & ".jpg") End If End If End If @@ -376,20 +376,20 @@ Private Sub getindex_Click() Me.Caption = "Load Complete" showweb (0) Dim vDoc, vTag_2, vTag_1, vTag, vTag1, vTag2, vTXT - Dim i As Integer + Dim I As Integer Set vDoc = web(0).Document On Error Resume Next Dim alll As Long alll = vDoc.All.Length On Error GoTo 0 - For i = 2 To alll - 1 + For I = 2 To alll - 1 On Error Resume Next - Set vTag_2 = vDoc.All(i - 2) - Set vTag_1 = vDoc.All(i - 1) - Set vTag = vDoc.All(i) - Set vTag1 = vDoc.All(i + 1) - Set vTag2 = vDoc.All(i + 2) - Select Case UCase(vDoc.All(i).TagName) + Set vTag_2 = vDoc.All(I - 2) + Set vTag_1 = vDoc.All(I - 1) + Set vTag = vDoc.All(I) + Set vTag1 = vDoc.All(I + 1) + Set vTag2 = vDoc.All(I + 2) + Select Case UCase(vDoc.All(I).TagName) Case "TD" Case "A" '商品列表批量获取信息 @@ -410,10 +410,10 @@ End Sub Private Sub Label5_Click() On Error Resume Next - Dim i As Long - For i = web.LBound To web.UBound - web(i).Stop - web(i).Tag = True + Dim I As Long + For I = web.LBound To web.UBound + web(I).Stop + web(I).Tag = True Next End Sub @@ -444,10 +444,10 @@ Private Sub putpwd_Click() Doc.getElementById("TPL_username_1").Value = username Doc.getElementById("TPL_password_1").Type = "hidden" Doc.getElementById("TPL_password_1").Value = password + Exit Sub End If - Exit Sub tip: - MsgBox "请在阿里页面执行此操作..." + MsgBox "请在阿里登录页面执行此操作..." End Sub Private Sub urlT_DblClick(index As Integer) @@ -481,6 +481,9 @@ End Sub Private Sub loginadmin_Click() 'On Error Resume Next + Dim isuse + isuse = MsgBox("当前功能不稳定" & vbCrLf & "仅在无法用阿里助手登录时使用!" & vbCrLf & "是否继续?", vbExclamation + vbYesNo) + If isuse = vbNo Then Exit Sub Dim jj 'If InStr(1, mm.LocationURL, "alilogin.aspx") Then If uid <> "" And username <> "" Then @@ -554,7 +557,7 @@ Private Sub web_DownloadComplete(index As Integer) Me.Caption = "Load Complete" showweb (index) Dim vDoc, vTag_2, vTag_1, vTag, vTag1, vTag2, vTXT - Dim i As Integer + Dim I As Integer Set vDoc = web(index).Document On Error Resume Next If InStr(1, web(index).LocationURL, "alilogin.aspx") Then @@ -565,18 +568,18 @@ Private Sub web_DownloadComplete(index As Integer) Dim alll As Long alll = vDoc.All.Length On Error GoTo 0 - For i = 2 To alll - 1 + For I = 2 To alll - 1 On Error Resume Next - Set vTag_2 = vDoc.All(i - 2) - Set vTag_1 = vDoc.All(i - 1) - Set vTag = vDoc.All(i) - Set vTag1 = vDoc.All(i + 1) - Set vTag2 = vDoc.All(i + 2) + Set vTag_2 = vDoc.All(I - 2) + Set vTag_1 = vDoc.All(I - 1) + Set vTag = vDoc.All(I) + Set vTag1 = vDoc.All(I + 1) + Set vTag2 = vDoc.All(I + 2) If InStr(1, web(index).LocationURL, "alilogin.aspx") Then uid = Mid(web(index).LocationURL, InStr(1, web(index).LocationURL, "?id=") + 4) username = vDoc.getelementsbytagname("input")("TPL_username").Value End If - Select Case UCase(vDoc.All(i).TagName) + Select Case UCase(vDoc.All(I).TagName) Case "TD" Case "A" '商品列表批量获取信息 @@ -597,7 +600,7 @@ Private Sub web_DownloadComplete(index As Integer) If Frm_Download.UName.AddItemNotSame(itemurl) Then pages.Caption = "以扫描到 " & Frm_Download.UName.ListCount & " 件商品!" If Not (Frm_Download.SName.AddItemNotSame(resetfilename(Trim(vTag.Title) & ".jpg"))) Then - Frm_Download.SName.AddItemNotSame resetfilename((Trim(vTag.Title) & i) & ".jpg") + Frm_Download.SName.AddItemNotSame resetfilename((Trim(vTag.Title) & I) & ".jpg") End If End If End If @@ -610,7 +613,7 @@ Private Sub web_DownloadComplete(index As Integer) If InStr(1, itemurl, "http") <> 0 And InStr(1, itemurl, "jpg") <> 0 And InStr(1, itemurl, ".com//") = 0 Then If Frm_Download.UName.AddItemNotSame(itemurl) Then If Not (Frm_Download.SName.AddItemNotSame(resetfilename(Trim(itemname) & ".jpg"))) Then - Frm_Download.SName.AddItemNotSame resetfilename((Trim(itemname) & i) & ".jpg") + Frm_Download.SName.AddItemNotSame resetfilename((Trim(itemname) & I) & ".jpg") pages.Caption = "以扫描到 " & Frm_Download.UName.ListCount & " 件商品!" End If End If @@ -622,9 +625,9 @@ End Sub Private Sub web_NewWindow2(index As Integer, ppDisp As Object, Cancel As Boolean) On Error Resume Next - Dim i - For i = 1 To web.UBound - If web(i).Tag Then Set ppDisp = web(i).object: showweb (i): pages = "已加载...": Exit Sub + Dim I + For I = 1 To web.UBound + If web(I).Tag Then Set ppDisp = web(I).object: showweb (I): pages = "已加载...": Exit Sub Next pages = "未加载..." Cancel = True @@ -646,9 +649,9 @@ Public Function urlreset(ByVal url As String) As String End Function Private Sub showweb(index As Long) - Dim i As Long - For i = 1 To web.UBound - web(i).Visible = False + Dim I As Long + For I = 1 To web.UBound + web(I).Visible = False List2.Visible = False Next web(index).Visible = True