remove aliassist...

Signed-off-by: j502647092 <jtb1@163.com>
2025-11-24 21:36:15 +00:00 · 2015-06-15 20:26:09 +08:00
parent 6126278ec4
commit 1d2c318121
2 changed files with 17 additions and 166 deletions
--- a/Frm_Main.frm
+++ b/Frm_Main.frm
@@ -10,52 +10,6 @@ Begin VB.Form Frm_Main
   ScaleHeight     =   9390
   ScaleWidth      =   19035
   StartUpPosition =   3  '<27><><EFBFBD><EFBFBD>ȱʡ
-   Begin VB.CommandButton lg 
-      Caption         =   "login"
-      Height          =   270
-      Left            =   12660
-      TabIndex        =   17
-      Top             =   105
-      Width           =   735
-   End
-   Begin VB.Timer getcb 
-      Enabled         =   0   'False
-      Interval        =   100
-      Left            =   8910
-      Top             =   4455
-   End
-   Begin SHDocVwCtl.WebBrowser mm 
-      Height          =   720
-      Left            =   10920
-      TabIndex        =   16
-      Top             =   1335
-      Visible         =   0   'False
-      Width           =   4530
-      ExtentX         =   7990
-      ExtentY         =   1270
-      ViewMode        =   0
-      Offline         =   0
-      Silent          =   0
-      RegisterAsBrowser=   0
-      RegisterAsDropTarget=   1
-      AutoArrange     =   0   'False
-      NoClientEdge    =   0   'False
-      AlignLeft       =   0   'False
-      NoWebView       =   0   'False
-      HideFileNames   =   0   'False
-      SingleClick     =   0   'False
-      SingleSelection =   0   'False
-      NoFolders       =   0   'False
-      Transparent     =   0   'False
-      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
-      Location        =   "http:///"
-   End
-   Begin VB.Timer getass 
-      Enabled         =   0   'False
-      Interval        =   1000
-      Left            =   8910
-      Top             =   4455
-   End
   Begin <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>ͼ.Frm_Tols Frm 
      Height          =   240
      Left            =   9390
@@ -65,14 +19,6 @@ Begin VB.Form Frm_Main
      _ExtentX        =   423
      _ExtentY        =   423
   End
-   Begin VB.CommandButton loginassist 
-      Caption         =   "<22>̻<EFBFBD><CCBB><EFBFBD><EFBFBD><EFBFBD>"
-      Height          =   300
-      Left            =   13455
-      TabIndex        =   15
-      Top             =   90
-      Width           =   930
-   End
   Begin VB.CommandButton pic 
      Caption         =   "ͼƬ"
      Height          =   300
@@ -229,7 +175,7 @@ Begin VB.Form Frm_Main
      AutoSize        =   -1  'True
      Caption         =   "ҳ<><D2B3>"
      Height          =   180
-      Left            =   14550
+      Left            =   12720
      TabIndex        =   8
      Top             =   150
      Width           =   360
@@ -323,18 +269,18 @@ End Sub

 Private Function resetfilename(ByVal name As String) As String
    On Error Resume Next
-    name = clear(name, "/")
-    name = clear(name, "\")
-    name = clear(name, "*")
-    name = clear(name, "?")
-    name = clear(name, "<")
-    name = clear(name, ">")
-    name = clear(name, ":")
+    name = pclear(name, "/")
+    name = pclear(name, "\")
+    name = pclear(name, "*")
+    name = pclear(name, "?")
+    name = pclear(name, "<")
+    name = pclear(name, ">")
+    name = pclear(name, ":")
    resetfilename = name
 End Function

-Private Function clear(name As String, P As String) As String
-    clear = Replace(name, P, "")
+Private Function pclear(name As String, P As String) As String
+    pclear = Replace(name, P, "")
 End Function

 Private Sub Form_Unload(Cancel As Integer)
@@ -342,71 +288,11 @@ Private Sub Form_Unload(Cancel As Integer)
    End
 End Sub

-Private Sub getass_Timer()
-    On Error Resume Next
-    Dim Cname As String
-    assisthWnd = Frm.GethWndByClass("#32770")
-    '"<22><><EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD><CDB0>̻<EFBFBD><CCBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼"
-    If assisthWnd <> 0 Then
-        Debug.Print hWnd
-        Cname = Frm.GetTitle(assisthWnd)
-        Debug.Print Cname
-        Frm.SetFedWnd assisthWnd
-        assistpid = Frm.GetPidByhWnd(assisthWnd)
-        getass.Enabled = False
-        getcb.Enabled = True
-    End If
-End Sub
-
-Private Sub getcb_Timer()
-    On Error Resume Next
-    Dim hWnd As Long
-    Dim mcname As String
-    hWnd = Frm.GetMouseWindowhWnd
-    If Frm.GetPidByhWnd(hWnd) = assistpid Then
-        mcname = Frm.GetClassName(hWnd)
-        If mcname = "ComboBox" Then
-            Frm.SetFedWnd hWnd
-            Debug.Print "<22>ѻ<EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>" & hWnd
-            Frm.hWndKeyPress hWnd, vbKeyLButton, System
-            Frm.hWndKeyPress assisthWnd, vbKeyTab, System
-            SendKeys "123"
-            Frm.hWndKeyPress assisthWnd, vbKeyTab, System
-            SendKeys "123"
-            getcb.Enabled = False
-        End If
-    End If
-End Sub
-
 Private Sub Label1_Click()
    web(0).Visible = Not web(0).Visible
    showweb (0)
 End Sub

-Private Sub Label2_Click()
-'A A   A   DIV DIV
-    Dim vDoc, vTag_2, vTag_1, vTag, vTag1, vTag2, vTXT
-    Dim i As Integer
-    Set vDoc = web(0).Document
-    On Error Resume Next
-    For i = 0 To vDoc.All.length - 1
-        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 "A"
-            If UCase(vTag_2.TagName) = "A" And _
-               UCase(vTag_1.TagName) = "A" And _
-               UCase(vTag1.TagName) = "DIV" And _
-               UCase(vTag2.TagName) = "DIV" Then
-                If vTag.Class = "next" Then vTag.Click
-            End If
-        End Select
-    Next
-End Sub
-
 Private Sub Label5_Click()
    On Error Resume Next
    Dim i As Long
@@ -416,32 +302,6 @@ Private Sub Label5_Click()
    Next
 End Sub

-Private Sub lg_Click()
-    getass.Enabled = True
-End Sub
-
-Private Sub loginassist_Click()
-    On Error Resume Next
-    Dim jj
-    'If InStr(1, mm.LocationURL, "alilogin.aspx") Then
-    If uid <> "" And username <> "" Then
-        mm.Navigate "http://192.168.0.8:83/"
-        pages.Caption = "<22><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>..."
-        jj = MsgBox("<22><>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>: " & gsmc & vbCrLf & vbCrLf & "<22><>ǰ<EFBFBD>û<EFBFBD>UID: " & uid & vbCrLf & "<22><>ǰ<EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD>: " & username & vbCrLf _
-                  & "<22><>ǰ<EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD>: ********" & vbCrLf & vbCrLf & "<22>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼?", vbExclamation + vbYesNo)
-        If jj = vbYes Then
-            Do Until Not mm.Busy
-                Sleep 10
-            Loop
-            mm.Navigate "javascript:document.getElementById('sixiAX').GetPW('" + uid + "','192.168.0.8:83')"
-            Dim password
-            showmsg = True
-        End If
-    Else
-        MsgBox "<22><><EFBFBD>ȴ<EFBFBD><C8B4><EFBFBD>һ<EFBFBD>ΰ<EFBFBD><CEB0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!"
-    End If
-End Sub
-
 Private Sub lookitem_Click()
    Frm_Download.Show
 End Sub
@@ -450,18 +310,6 @@ Private Sub manager_Click()
    web(0).Navigate2 "http://offer.1688.com/offer/manage.htm?show_type=valid&tracelog=work_1_m_orderManage"
 End Sub

-Private Sub mm_DocumentComplete(ByVal pDisp As Object, url As Variant)
-    On Error Resume Next
-    If showmsg Then
-        password = mm.Document.body.innerhtml
-        Clipboard.clear
-        Clipboard.SetText password
-        MsgBox "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD>ɹ<EFBFBD>,<2C><><EFBFBD><EFBFBD>1<EFBFBD><31><EFBFBD>Ӵ<EFBFBD><D3B4><EFBFBD><EFBFBD>̻<EFBFBD><CCBB><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>Զ<EFBFBD><D4B6><EFBFBD>¼!", vbInformation, "<22>̻<EFBFBD><CCBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼"
-        getass.Enabled = True
-    End If
-    showmsg = False
-End Sub
-
 'http://picman.1688.com/album/album_list.htm?tracelog=work_1_m_albumManage
 'http://offer.1688.com/offer/manage.htm?show_type=valid&tracelog=work_1_m_orderManage
 'http://login.1688.com/member/signout.htm
@@ -521,7 +369,11 @@ Private Sub web_DownloadComplete(index As Integer)
        uid = Mid(web(index).LocationURL, InStr(1, web(index).LocationURL, "?id=") + 4)
        username = vDoc.getelementsbytagname("input")("TPL_username").Value
    End If
-    For i = 2 To vDoc.All.length - 1
+    On Error Resume Next
+    Dim alll As Long
+    alll = vDoc.All.length
+    On Error GoTo 0
+    For i = 2 To alll - 1
        On Error Resume Next
        Set vTag_2 = vDoc.All(i - 2)
        Set vTag_1 = vDoc.All(i - 1)
--- a/首图导出工具.vbw
+++ b/首图导出工具.vbw
@@ -1,8 +1,7 @@
-Frm_Main = 22, 22, 1006, 396, Z, 44, 44, 1028, 418, C
+Frm_Main = 22, 22, 1006, 396, Z, 44, 44, 1143, 418, C
 TzDownload = 0, 0, 0, 0, C, 0, 0, 984, 374, C
 TzListBox = 0, 0, 0, 0, C, 22, 22, 1006, 396, C
 Frm_Download = 0, 0, 984, 374, , 110, 110, 1094, 484, C
 TzProgressBar = 0, 0, 0, 0, C, 44, 44, 1028, 418, C
-Frm_WebList = 176, 176, 1160, 550, , 154, 154, 1138, 528, C
 MainBas = 88, 88, 1139, 462, 
 Frm_Tols = 66, 66, 1050, 440, , 132, 132, 1116, 506, C