From ae0a8eead46d097d59d2bea751230e2d6d33923a Mon Sep 17 00:00:00 2001 From: j502647092 Date: Sat, 6 Jun 2015 16:33:57 +0800 Subject: [PATCH 1/7] init project... --- Frm_Main.frm | 288 ++++++++++++ fp.html | 1084 ++++++++++++++++++++++++++++++++++++++++++++++ 首图导出工具.vbp | 33 ++ 首图导出工具.vbw | 2 + 4 files changed, 1407 insertions(+) create mode 100644 Frm_Main.frm create mode 100644 fp.html create mode 100644 首图导出工具.vbp create mode 100644 首图导出工具.vbw diff --git a/Frm_Main.frm b/Frm_Main.frm new file mode 100644 index 0000000..2155880 --- /dev/null +++ b/Frm_Main.frm @@ -0,0 +1,288 @@ +VERSION 5.00 +Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "ieframe.dll" +Begin VB.Form Frm_Main + Caption = "ͼ" + ClientHeight = 9390 + ClientLeft = 120 + ClientTop = 450 + ClientWidth = 15750 + LinkTopic = "Form1" + ScaleHeight = 9390 + ScaleWidth = 15750 + StartUpPosition = 3 'ȱʡ + Begin VB.CommandButton getitem + Caption = "Item" + Height = 375 + Left = 10440 + TabIndex = 12 + Top = 720 + Width = 1215 + End + Begin VB.CommandButton getmain + Caption = "Main" + Height = 375 + Left = 9000 + TabIndex = 11 + Top = 720 + Width = 1215 + End + Begin VB.TextBox mainurl + Height = 300 + Left = 1125 + TabIndex = 9 + Text = "I:\ռ\VBļ\Gitļ\ͼ\fp.html" + Top = 90 + Width = 7575 + End + Begin VB.TextBox itemurl + Height = 300 + Left = 8760 + TabIndex = 8 + Text = "I:\ռ\VBļ\Gitļ\ͼ\fp.html" + Top = 90 + Width = 6975 + End + Begin SHDocVwCtl.WebBrowser item + Height = 7650 + Left = 8175 + TabIndex = 7 + Top = 1695 + Width = 7530 + ExtentX = 13282 + ExtentY = 13494 + 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.TextBox folder + Height = 300 + Left = 1125 + TabIndex = 5 + Text = "ͼ" + Top = 990 + Width = 7575 + End + Begin Ʒͼ.TzDownload dl + Height = 240 + Left = 120 + Top = 1395 + Width = 15555 + _ExtentX = 27437 + _ExtentY = 423 + ForeColor = 33023 + End + Begin VB.TextBox itempicurl + Height = 300 + Left = 1125 + TabIndex = 4 + Top = 690 + Width = 7575 + End + Begin VB.TextBox itemname + Height = 300 + Left = 1125 + TabIndex = 3 + Top = 390 + Width = 7575 + End + Begin SHDocVwCtl.WebBrowser main + Height = 7995 + Left = 45 + TabIndex = 10 + Top = 1695 + Width = 8085 + ExtentX = 14261 + ExtentY = 14102 + ViewMode = 0 + Offline = 0 + Silent = 0 + RegisterAsBrowser= 1 + 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.Label Label4 + AutoSize = -1 'True + Caption = "ļ:" + Height = 180 + Left = 120 + TabIndex = 6 + Top = 1080 + Width = 990 + End + Begin VB.Label Label3 + AutoSize = -1 'True + Caption = "ͼ:" + Height = 180 + Left = 120 + TabIndex = 2 + Top = 765 + Width = 810 + End + Begin VB.Label Label2 + AutoSize = -1 'True + Caption = "Ʒ:" + Height = 180 + Left = 120 + TabIndex = 1 + Top = 465 + Width = 810 + End + Begin VB.Label Label1 + AutoSize = -1 'True + Caption = "Ʒ:" + Height = 180 + Left = 120 + TabIndex = 0 + Top = 150 + Width = 810 + End +End +Attribute VB_Name = "Frm_Main" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Option Explicit +Dim strUrl As String +Private Sub dl_OnFinished(ByVal Result As Boolean) + If Result Then + + Else + + End If +End Sub + +Private Sub goto_Click() + main.Navigate2 mainurl.Text +End Sub + +Private Sub Form_Load() + main.Navigate2 "http://192.168.0.8:83/" +End Sub + +Private Sub Form_Resize() + On Error Resume Next + main.Width = Me.Width - 50 + item.Width = Me.Width - 50 + + Dim lefthg + lefthg = Me.Height - main.Top + + main.Height = lefthg / 2 - 350 + item.Height = lefthg / 2 - 350 + + main.Top = 1700 + item.Top = 1700 + main.Height + 20 + + main.Left = 10 + item.Left = 10 + + dl.Left = 10 + dl.Width = Me.Width - 20 + +End Sub + +Private Sub getmain_Click() + Call getfp(main) +End Sub + +Private Sub getitem_Click() + Call getfp(item) +End Sub + +Private Sub getfp(web As WebBrowser) + On Error Resume Next + Dim i, j, vDoc + Set vDoc = web.Document + itemname = resetfilename(vDoc.getelementsbytagname("input")("subject").Value) + itempicurl = vDoc.getelementsbytagname("input")("pictureUrl")(0).Value + dl.FileDownload itempicurl, App.Path & "\" & folder & "\" & itemname & ".jpg" +End Sub + +Private Sub item_DocumentComplete(ByVal pDisp As Object, URL As Variant) + If InStr(1, URL, "operator=edit") Then Call getfp(item) +End Sub + +Private Sub main_DocumentComplete(ByVal pDisp As Object, URL As Variant) + If InStr(1, URL, "operator=edit") Then Call getfp(main) +End Sub + +Private Sub item_NewWindow2(ppDisp As Object, Cancel As Boolean) + Set ppDisp = main.Object +End Sub + +Private Sub main_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) + If URL <> "http:///" And URL <> "" And URL <> "about:blank" Then mainurl = URL +End Sub + +Private Sub item_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) + If URL <> "http:///" And URL <> "" And URL <> "about:blank" Then itemurl = URL +End Sub + +Private Sub main_NewWindow2(ppDisp As Object, Cancel As Boolean) + Set ppDisp = item.Object + 'Cancel = True + 'item.Navigate strUrl +End Sub + +Private Sub main_DownloadBegin() + main.Silent = True +End Sub + +Private Sub main_DownloadComplete() + main.Silent = True +End Sub + +Private Sub item_DownloadBegin() + item.Silent = True +End Sub + +Private Sub item_DownloadComplete() + item.Silent = True +End Sub + +Private Sub itemurl_KeyPress(KeyAscii As Integer) + If KeyAscii = 13 Then item.Navigate2 itemurl.Text +End Sub + +Private Sub mainurl_KeyPress(KeyAscii As Integer) + If KeyAscii = 13 Then main.Navigate2 mainurl.Text +End Sub + +Private Function resetfilename(ByVal name As String) As String + name = clear(name, "/") + name = clear(name, "\") + name = clear(name, "*") + name = clear(name, "?") + name = clear(name, "<") + name = clear(name, ">") + resetfilename = name +End Function + +Private Function clear(name As String, p As String) As String + clear = Replace(name, p, "") +End Function + diff --git a/fp.html b/fp.html new file mode 100644 index 0000000..d9a9d67 --- /dev/null +++ b/fp.html @@ -0,0 +1,1084 @@ + + +ӭҵİ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+
+

ƷϢ

+
+ +
+ + ѡĿ + + 롢> + Ʒ + > + U + + + ѡĿ +
+ + + + + + + + + + + + +
+ + +
+
+
+ + +
+
+ +
+
+
+ 𷢲 + +
+ +
+ ˵ + +
+
+
    +
  • дãarrow
    • +
  • + ͻIJƷʣʵӲƷҪԣ磺ͺšʵȣͻԻ⣬һЩϢ磺ŻݻۿϢʱⰸ +
    • +
  • дϸ˵arrow
    • +
  • + ϸ˵ƷϸܣƷϸͼƷܡϡͺš;װʹ˵ۺȷ棬ͼIJïͻƷƺص㡣ϸ˵ +
    • +
  • δ˷ģ壿arrow
    • +
  • + ڡҽ׹--˷ģ塱½˷ģ塰˷ģеݽƲ䣬ģơءͷʽȣдɺģ屣档δ +
    • +
+
+
+ ѯ +
+
+
+
+ +
+
+ бϢδд밴ʾ޸ġ +
    +
    +
    +
    +
    + +
    +
    +
    +

    ڵǼΪ

    +

    star

    +
    +
    ϲϢѴﵽ5ǣ
    +
    +
    Ż
    +
    +
    +

    ޸ϺٴμǼ

    +
    +
    +
    +
    Υ޸Ľ
    +
    +
    +
    +
    +
    +
    + +
    + +
    +
    +
    +

    дϢ

    + 鿴ʷ +
    +
    + +
    +
    + +
    +
    + Ϣ⣺ +
    +
    +
    +
    0/30
    +
    +
    + + + +
    + + + + +
    + +
    +
    Ʒԣ
    +
    +
    ڼϢԺ..
    +
    +
    +
    +
    Ʒ
    +
    +
    +
    +
    +
    +
    ɶԣ
    +
    +
    +
    +
    + + + + + + + + + + + +
    + + + + + + + + + + +
    +
    +
    ƥͼƬ
    +
    +
    + Ԥ +
    +
    +
    +
      +
      +
      +
      +
      +
      +

      ƷϢ

      +
      +
      + + + + + + + + + +
      +
      Ϣ
      +
      +
      +
      +
      ϶
      +
      +
        +
      • + + 㷢 +
        • +
      • + +
        • +
      +
      + ǰĿݲ֧϶ +
      +
      +
      +
      ֵ֧տʽУ
      +
      + ֧տ +
      +
      +
      +
      Ҹ֧϶ңݲƷʵѡ֧߶
      +
      +
      +
      + +
      +
      +
      λ
      +
      + +

      + 1 + + = + + +

      +
      +
      +
      +
      +
      ۷ʽ
      +
      +
        +
      • + + + + + +
        • +
      • + + +
        • + +
      +
      +
      + +
      + +
      +
      +
      ۸䣺
      +
      +
      +
      + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
      Ʒ
      ϣ + / +
      + +
      +
      +
      ϣ/ + ɾ +
      ϣ/ + ɾ +
      Ӽ۸
      +
      +
      +
      Ԥ
      +
      ɸҲɹIJͬòͬ۸
      +
      + + + + + + + + + + + + + + + +
      +
      +
      +
      +
      +
      +
      +
      +
      񱨼ۣ
      +
      + +
      + +
      +

      ޷ʹøù

      +

      Ʒѡ,ʹøùܡ

      +
      +
      +
      +
      +
      +
      + +
      +
      +
      ۸
      +
      + + 0.00 + + / + + + (ͳһλ) +
      +
      +
      +
      +
      +
      +
      + + + ۼƶ + + + +
      +
      + 0 + + ۼƶ0 + 0 + + Ǹܺ +
      + +
      +
      +
      +
      +
      +
      С
      +
      + +
      +
      +
      +
      +
      ۼۣ
      +
      + + ˽Ʒг +
      +
      +
      + + +
      + + + + + + + + +
      region-offerweb-referPrice
      region-offerweb-samplePic
      +
      +

      ͼƬϸ˵

      + 鿴ʷ +
      +
      + + +
      +
      ƷͼƬ
      +
      +
      +
      +

      ϴƷͼƬ

      + +
      +
        +
      1. +
        +
        + ɾ +
        +
        2. +
      2. +
        +
        + ɾ +
        +
        3. +
      3. +
        +
        + ɾ +
        +
        4. +
      +
      + Ԥ +
      +
      +
      +
      +
      һͼΪĬͼͼƬߴ750*750ϣͼƬȫ֡
      +
      +
      + + + + + + +
      +
      + +
      +
      + ϸ˵ +
      +
      +
      + + ༭Ʒϸ +
      +
      +
      ڼϢԺ..
      +
      + +
      +
      +
      +
      +
      + + + +
      + + +
      + + + + + + + +
      +
      + +
      +
      ѡԶࣺ
      +
      +
      +
      + ѡ࡭ (ɶѡ) +
      +
        +
        +
        +
        +
          +
          +
          Զδãʾ
          + +
          +
          +
          + +
          +
          + +
          +
          +
          ϢЧڣ
          +
          +
          +
          +
          +
          + +
          + +
          +
          +

          ˷Ϣ

          +
          +
          ͰƼ˷ѵ8ۣ
          +
          + +
          +
          + ַ +
          +
          + + ˢ + ַ +
          +
          + + +
          +
          + +
          +
          ˷ã
          +
          +
            +
          • + + + + + 鿴˷ģ + + + + 鿴˷˵ + Ƽʹ˷ģ壬Աµ˳ + + + ˷ģ + +
            • +
          • +
            +
            +
            +
            +
            +
            +
            • +
          +
          +
          +
          +
          λ
          +
          + / ʹ˷ģҪдλ +
          +
          +
          +
           
          +
          +
          +
          + +
          +
          +
          + + + + + +
          +
          +
          +

          ɫ

          +
          +
          + +
          +
          +
          +
          ܵ
          +
          +
          +
          + +
          + + +
          + +
          +
          + +
          +
          +
          +
          + +
          +
          + +
          +
          ֽ׶θ
          +
          +
          + + + Լ֧׸+βʽн +
          +
          +
          +
            +
          • + + +
            • +
          +
          +
          д׶ηռܶı
          +
          + ׸ +
            +
          • %
            • +
          +
          +
          + β +
            +
          • %
            • +
          +
          +
          +
          +
          +
          +
          + + + +
          +
          +
          +
          +
          +
          +
            +
            • +
            • +
          +
          +
          +
          +
          +
          +
          +
          + +
          +
          +
          + + +
          +
          +
          + +
          +
          ˽Ʒ
          +
          +
            +
          • +
            + + + +
            +
            • +
          • +
            + + +
            +
            • +
          • +
            + + +
            +
            • +
          • + ˽Ʒ +
            • +
          +
          +
          + + + +
          +
          + +
          +
          ұϣ
          +
          +
          + + +
          + +
          +
          ˻
          +
          +
            +
          • + + +
            • +
          • +
            ѡIJƷչʾҳϽƷ֧˻Ӧзŵ粻ѡIJƷչʾҳϽƷɹҵóΪɲá˻˫Լij⣩
            +
            • +
          +
          +
          + + +
          +
          +
          + +
          +
          +
          + + + +
          +
          +
            +
          • + + +
            • + +
          • + + +
            • +
          +
          +
          +
          + + +
          +
          + +
          +
          +
          +

          δǩ𡶰ͰйվʳƷҳŵ顷ݲܷʳƷƷ

          +

          ڡʳƷϡʳƷĿ·Ʒǩ𡶰ͰйվʳƷҳŵ顷ڸĿ·κβƷ

          +
          +

          ͰйվʳƷҳŵ

          +

          һ. ŵ

          +

          1ҳŵ۹̭߹ڡʧЧʵʳƷ

          +

          2ҳŵ۲ӡ١Լٳ桢ԴγõʳƷԲϸʳƷðϸʳƷ

          +

          3ҳŵ۹вȱ

          +

          4ҳŵ޲ƷʳƷװϱעƣַʳƷƣڣڵݣũƷ⡣

          +

          5ҳŵʳƷʱ˵ǷΪڲƷڡָյƷʱѾڵ2/3ʱ䣩

          +

          Υŵʽ

          +

          1 ڱʵʳƷǩ֮Ϊ׼յʳƷΪڱʳƷ֧˻˿˷ѣͺ˻ҳеߣƽӦһذӦɷ洦

          +

          2 ΥκһŵҾӦ֧˻˿˷ѣͺ˻ҳеߣƽӦһذӦɷ洦

          +
          +
          + Ķϳŵ飬ǩ + ݲǩ +
          +
          +
          +
          + +
          +
          +
          + +
          +
          +
          +
          + ȷ + ȡ +
          +
          +
          + +
          +
          +
          ĶͰйվ
          +
          + ͬЭҪ + Ԥ + +
          +
          +
          +
          + offerweb010179210048.et2
          Server is OK +
          + + + + + + + + + + + \ No newline at end of file diff --git a/首图导出工具.vbp b/首图导出工具.vbp new file mode 100644 index 0000000..153ac8a --- /dev/null +++ b/首图导出工具.vbp @@ -0,0 +1,33 @@ +Type=Exe +Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWow64\stdole2.tlb#OLE Automation +Object={EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0; ieframe.dll +Reference=*\G{662901FC-6951-4854-9EB2-D9A2570F2B2E}#5.1#0#C:\Windows\system32\winhttp.dll#Microsoft WinHTTP Services, version 5.1 +Form=Frm_Main.frm +UserControl=..\VBûؼ\TzDownload.ctl +Startup="Frm_Main" +HelpFile="" +Command32="" +Name="Ʒͼ" +HelpContextID="0" +CompatibleMode="0" +MajorVer=1 +MinorVer=0 +RevisionVer=0 +AutoIncrementVer=0 +ServerSupportFiles=0 +VersionCompanyName="Microsoft" +CompilationType=0 +OptimizationType=0 +FavorPentiumPro(tm)=0 +CodeViewDebugInfo=0 +NoAliasing=0 +BoundsCheck=0 +OverflowCheck=0 +FlPointCheck=0 +FDIVCheck=0 +UnroundedFP=0 +StartMode=0 +Unattended=0 +Retained=0 +ThreadPerObject=0 +MaxNumberOfThreads=1 diff --git a/首图导出工具.vbw b/首图导出工具.vbw new file mode 100644 index 0000000..f774604 --- /dev/null +++ b/首图导出工具.vbw @@ -0,0 +1,2 @@ +Frm_Main = 422, 3, 1308, 452, , 50, 50, 1161, 739, C +TzDownload = 25, 25, 911, 474, C, 75, 75, 961, 524, C From 84aeb31b5ba12ee6d630e43a21f0bd4acb325217 Mon Sep 17 00:00:00 2001 From: j502647092 Date: Mon, 8 Jun 2015 20:06:30 +0800 Subject: [PATCH 2/7] update src... Signed-off-by: j502647092 --- Frm_Main.frm | 351 ++++++++++++++++++++++------------------------- 首图导出工具.exe | Bin 0 -> 57344 bytes 首图导出工具.vbp | 1 + 首图导出工具.vbw | 2 +- 4 files changed, 169 insertions(+), 185 deletions(-) create mode 100644 首图导出工具.exe diff --git a/Frm_Main.frm b/Frm_Main.frm index 2155880..9ddd37e 100644 --- a/Frm_Main.frm +++ b/Frm_Main.frm @@ -5,107 +5,86 @@ Begin VB.Form Frm_Main ClientHeight = 9390 ClientLeft = 120 ClientTop = 450 - ClientWidth = 15750 + ClientWidth = 17160 LinkTopic = "Form1" ScaleHeight = 9390 - ScaleWidth = 15750 + ScaleWidth = 17160 StartUpPosition = 3 'ȱʡ - Begin VB.CommandButton getitem - Caption = "Item" - Height = 375 - Left = 10440 - TabIndex = 12 - Top = 720 - Width = 1215 - End - Begin VB.CommandButton getmain - Caption = "Main" - Height = 375 - Left = 9000 - TabIndex = 11 - Top = 720 - Width = 1215 - End - Begin VB.TextBox mainurl - Height = 300 - Left = 1125 - TabIndex = 9 - Text = "I:\ռ\VBļ\Gitļ\ͼ\fp.html" - Top = 90 - Width = 7575 - End - Begin VB.TextBox itemurl - Height = 300 + Begin VB.TextBox urlT + Height = 270 + Index = 3 Left = 8760 - TabIndex = 8 - Text = "I:\ռ\VBļ\Gitļ\ͼ\fp.html" - Top = 90 - Width = 6975 + TabIndex = 13 + Text = "Text1" + Top = 405 + Width = 7710 End - Begin SHDocVwCtl.WebBrowser item - Height = 7650 - Left = 8175 - TabIndex = 7 - Top = 1695 - Width = 7530 - ExtentX = 13282 - ExtentY = 13494 - 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:///" + Begin VB.TextBox urlT + Height = 270 + Index = 2 + Left = 945 + TabIndex = 12 + Text = "Text1" + Top = 405 + Width = 7710 + End + Begin VB.TextBox urlT + Height = 270 + Index = 1 + Left = 8760 + TabIndex = 10 + Text = "Text1" + Top = 105 + Width = 7710 + End + Begin VB.TextBox urlT + Height = 270 + Index = 0 + Left = 945 + TabIndex = 9 + Text = "Text1" + Top = 105 + Width = 7710 + End + Begin Ʒͼ.TzDownload dl + Height = 195 + Index = 0 + Left = 30 + Top = 1185 + Width = 17070 + _ExtentX = 30110 + _ExtentY = 344 End Begin VB.TextBox folder Height = 300 - Left = 1125 - TabIndex = 5 - Text = "ͼ" - Top = 990 - Width = 7575 - End - Begin Ʒͼ.TzDownload dl - Height = 240 - Left = 120 - Top = 1395 - Width = 15555 - _ExtentX = 27437 - _ExtentY = 423 - ForeColor = 33023 - End - Begin VB.TextBox itempicurl - Height = 300 - Left = 1125 - TabIndex = 4 - Top = 690 - Width = 7575 + Left = 13500 + TabIndex = 6 + Top = 840 + Width = 3495 End Begin VB.TextBox itemname Height = 300 - Left = 1125 - TabIndex = 3 - Top = 390 - Width = 7575 + Left = 945 + TabIndex = 4 + Top = 840 + Width = 3345 End - Begin SHDocVwCtl.WebBrowser main - Height = 7995 + Begin VB.TextBox itempicurl + Height = 300 + Left = 5190 + TabIndex = 2 + Top = 840 + Width = 7230 + End + Begin SHDocVwCtl.WebBrowser web + Height = 7665 + Index = 0 Left = 45 - TabIndex = 10 + TabIndex = 3 Top = 1695 - Width = 8085 - ExtentX = 14261 - ExtentY = 14102 + Width = 8535 + ExtentX = 15055 + ExtentY = 13520 ViewMode = 0 Offline = 0 Silent = 0 @@ -123,36 +102,80 @@ Begin VB.Form Frm_Main ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}" Location = "http:///" End + Begin SHDocVwCtl.WebBrowser web + Height = 7665 + Index = 1 + Left = 8625 + TabIndex = 8 + Top = 1695 + Width = 8490 + ExtentX = 14975 + ExtentY = 13520 + ViewMode = 0 + Offline = 0 + Silent = 0 + RegisterAsBrowser= 1 + 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 Ʒͼ.TzDownload dl + Height = 195 + Index = 1 + Left = 30 + Top = 1440 + Width = 17070 + _ExtentX = 30110 + _ExtentY = 344 + End + Begin VB.Label Label5 + AutoSize = -1 'True + Caption = "ҳ:" + Height = 180 + Left = 120 + TabIndex = 11 + Top = 450 + Width = 810 + End Begin VB.Label Label4 AutoSize = -1 'True Caption = "ļ:" Height = 180 - Left = 120 - TabIndex = 6 - Top = 1080 + Left = 12465 + TabIndex = 7 + Top = 900 Width = 990 End - Begin VB.Label Label3 - AutoSize = -1 'True - Caption = "ͼ:" - Height = 180 - Left = 120 - TabIndex = 2 - Top = 765 - Width = 810 - End Begin VB.Label Label2 AutoSize = -1 'True Caption = "Ʒ:" Height = 180 Left = 120 + TabIndex = 5 + Top = 900 + Width = 810 + End + Begin VB.Label Label3 + AutoSize = -1 'True + Caption = "ͼ:" + Height = 180 + Left = 4365 TabIndex = 1 - Top = 465 + Top = 900 Width = 810 End Begin VB.Label Label1 AutoSize = -1 'True - Caption = "Ʒ:" + Caption = "ҳ:" Height = 180 Left = 120 TabIndex = 0 @@ -167,111 +190,45 @@ Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Dim strUrl As String -Private Sub dl_OnFinished(ByVal Result As Boolean) - If Result Then - - Else - - End If -End Sub - -Private Sub goto_Click() - main.Navigate2 mainurl.Text -End Sub Private Sub Form_Load() - main.Navigate2 "http://192.168.0.8:83/" + web(0).Navigate2 "http://192.168.0.8:83/" End Sub Private Sub Form_Resize() On Error Resume Next - main.Width = Me.Width - 50 - item.Width = Me.Width - 50 + web(0).Width = Me.Width - 50 + web(1).Width = Me.Width - 50 Dim lefthg - lefthg = Me.Height - main.Top + lefthg = Me.Height - web(0).Top - main.Height = lefthg / 2 - 350 - item.Height = lefthg / 2 - 350 + web(0).Height = lefthg / 2 - 350 + web(1).Height = lefthg / 2 - 350 - main.Top = 1700 - item.Top = 1700 + main.Height + 20 + web(0).Top = 1700 + web(1).Top = 1700 + web(0).Height + 20 - main.Left = 10 - item.Left = 10 + web(0).Left = 10 + web(1).Left = 10 - dl.Left = 10 - dl.Width = Me.Width - 20 + dl(0).Left = 10 + dl(0).Width = Me.Width - 20 + dl(1).Left = 10 + dl(1).Width = Me.Width - 20 End Sub -Private Sub getmain_Click() - Call getfp(main) -End Sub - -Private Sub getitem_Click() - Call getfp(item) -End Sub - -Private Sub getfp(web As WebBrowser) +Private Sub getfp(webb As WebBrowser) On Error Resume Next Dim i, j, vDoc - Set vDoc = web.Document + Set vDoc = webb.Document itemname = resetfilename(vDoc.getelementsbytagname("input")("subject").Value) itempicurl = vDoc.getelementsbytagname("input")("pictureUrl")(0).Value + If folder = "" Then folder = InputBox(" -ͼ-˾-ᵥ!", , "-ͼ-˾-ᵥ") dl.FileDownload itempicurl, App.Path & "\" & folder & "\" & itemname & ".jpg" End Sub -Private Sub item_DocumentComplete(ByVal pDisp As Object, URL As Variant) - If InStr(1, URL, "operator=edit") Then Call getfp(item) -End Sub - -Private Sub main_DocumentComplete(ByVal pDisp As Object, URL As Variant) - If InStr(1, URL, "operator=edit") Then Call getfp(main) -End Sub - -Private Sub item_NewWindow2(ppDisp As Object, Cancel As Boolean) - Set ppDisp = main.Object -End Sub - -Private Sub main_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) - If URL <> "http:///" And URL <> "" And URL <> "about:blank" Then mainurl = URL -End Sub - -Private Sub item_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) - If URL <> "http:///" And URL <> "" And URL <> "about:blank" Then itemurl = URL -End Sub - -Private Sub main_NewWindow2(ppDisp As Object, Cancel As Boolean) - Set ppDisp = item.Object - 'Cancel = True - 'item.Navigate strUrl -End Sub - -Private Sub main_DownloadBegin() - main.Silent = True -End Sub - -Private Sub main_DownloadComplete() - main.Silent = True -End Sub - -Private Sub item_DownloadBegin() - item.Silent = True -End Sub - -Private Sub item_DownloadComplete() - item.Silent = True -End Sub - -Private Sub itemurl_KeyPress(KeyAscii As Integer) - If KeyAscii = 13 Then item.Navigate2 itemurl.Text -End Sub - -Private Sub mainurl_KeyPress(KeyAscii As Integer) - If KeyAscii = 13 Then main.Navigate2 mainurl.Text -End Sub - Private Function resetfilename(ByVal name As String) As String name = clear(name, "/") name = clear(name, "\") @@ -286,3 +243,29 @@ Private Function clear(name As String, p As String) As String clear = Replace(name, p, "") End Function +Private Sub urlT_KeyPress(index As Integer, KeyAscii As Integer) + If KeyAscii = 13 Then web(index).Navigate2 urlT(index).Text +End Sub + +Private Sub web_BeforeNavigate2(index As Integer, ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) + If URL <> "http:///" And URL <> "" And URL <> "about:blank" Then urlT(index) = URL +End Sub + +Private Sub web_DocumentComplete(index As Integer, ByVal pDisp As Object, URL As Variant) + If InStr(1, URL, "operator=edit") Then Call getfp(web(index)) +End Sub + +Private Sub web_DownloadBegin(index As Integer) + web(index).Silent = True +End Sub + +Private Sub web_DownloadComplete(index As Integer) + web(index).Silent = True +End Sub + +Private Sub web_NewWindow2(index As Integer, ppDisp As Object, Cancel As Boolean) + Dim i + For i = 1 To web.UBound + If Not web(index).Busy Then Set ppDisp = web(1): Cancel = True + Next +End Sub diff --git a/首图导出工具.exe b/首图导出工具.exe new file mode 100644 index 0000000000000000000000000000000000000000..f4bc8b80a03599c220e774ea01fa987c63e4739b GIT binary patch literal 57344 zcmeIb4SZC^)jvL)1Xv-EMG2yU#EMESVt}XtQJ26%&@601Hi;S}fh=xfNaC`=(1OM$ z(cE5EgM!5tYk=5Bi#1iW(L#+SZDJeSSkfA6u+j3gq4HRs{w>mq?(cif+@dYVRBy}0$Q z-=;iOt3%pt4Yj|4yE1Q2?Q1aqRqz9LXB4jS5{}N1%OOOXC0acHPrqCD>lJa9F_w`+ zG{GlP`hGA8rVY?SZo9O@P5HF|$mHiZ-ta%)YY|cG0SEs1#ir)uFd@306Jk2qdxhw* zYM!6Nn2tmfC_d6^BE|-JX8Ju9euUNj5HI4ZNi$*SPl6D6GYj(l`S7rxgI5cHaLF`1 zcKFQnt@o{gALpSL7Q*WUm>xUG6#wzo8!1SCoGY?YvYb~Z&Rmq1ruz+>!x9*lz_0{{ zB`_?3VF?UNU|0gf5*U`iumpxB@PDra7VK#7{q3#>-+d47@%`(pJ-%y3?DoB1)Zh#F z8ho?74Zg3Qx7+7e8+@zbekp2???KoPKEBJB-MY)S0Qeh~7yh8+QA?Ti)QSxwFCd{?LH0}Z}wKzkl&%me>7 z7Vq}m27e3868PPWcu#%|8h_vAYq)BgFAg$oLtd|h|C^w{D}RsgjXmIbU4w4}@>hoR zw}9r;>vsEE9@^vk@0AU{M9}*0_jmgiAwP>A+2cEfco*&1?Hhl1x9`{;yM50hKcLV4-KHe_I!SuN7q8RWEKx(>O z#An#WJAkb#>|#NtT{HsLx$UA0aBY@d>;{x-G=!*MAS$~S36YvYG%4MT96MRX%`nLw zb+dGz1@ltyLC^ICcCl}b^shMEE=I%eZiLqWwgC<+uQAK(TsezArRliX9+ zN%y5N$^9qI{TI#sc!>=EK1>Q+?_kA!a{X_TLMJ!DHc|nzO{ae5;;vTSz zf56o9`PB#QVkBUOR{j*{#}C^%YQ+RQ`+g7MKLQ*8yb1Vyon6e^Dq%g$KL9?~;Espv z;u8(hK_^Fp`(SPdJO!YK^#0&Z-~xUHpr;S%#liggHoFJ_b^=Ciw~My{4?JQQN#C{$ z`wqLv1gv;e!oOht@;lI3&>(vH6NmiY_dUC40|Wr1SLfE-#X`V^0CG=x!Y-BqE+GIv zSNurEze+PJ;_c!B5d1yDdjRhNMtt8czN*1onAdAi26H#y1R(AQc5x%%VZaUzj>25m zXcxIp!UWVkWfu?r&@P_S;2V2U2eowdJfNmZhU^f!_E35M{2A$d73N4yKfm&0qzj;Y zv^*=r+ceWYk?@504#IZ)Aem-_`8X$?t9KvxVQi?32XyMQrcl zcN4!S@%tpdEBRf_@9B(hmp*JSV0$gw8`wUd?bG<3%sv%tkKuO?zo)bRF@DGJdq2M? z@VkZIb&Q$E_C~fh@Ov`*B=I|w-?{vr#_xUnKF;r*jK725JJ~0X?X7HI#P&^W7i@R2 zJ%R0hepmB*2m5ETy@KtD{I>CXGW&P1J(=xkZ1=Lgp6zLDxAD7?eKxUu62G^wPc6Sw z`E6x?!S)1x$Fh%~?YV5<%l2-5Z{v46zfbYIfN{$B?ZR6KuPwnY`rZ%Hen%?Yi2(Aa z=heko9Y1r8S+ce1vS&K4TGuLlLksfH?|<&Zs~x}m$*G{KHHLr{7&$B-_|B3ux zDQ`@BxwLB2ecwr07Wn;|{9B`w&I@+T663lokNh*?-)`qKm+V!xzVcvf)(`$sd(S1m zU;gB8p8U?+KYrn>^Oiq7=h3yl9siS9@s!9r^sp(tL9G);2(gGltzxln-705(VTl-P zu?i9ZXZ}2kND&u9h{0(i#Ntxlx>@3?3gG`7S-bB#A$~MXh{e%C%O&u$j1sqd{Dpqc zIuT=u5lh+9KD{&Q<(RuH<6}iIny{i6YaOLTSe#_c^oupDF~G_JR`e)ADCNFl5f$T! zxkY??$_&exYsAudxi2=n@!`wA-+v@GE9J$8=Q@7Vy8n~hC53*&PJ9#pFE;$_Pq}N$ zW_tbWipAMyX@p}&3F1%^PX5X*;)V-8A7Lv9kAXB|W0lFd*LsgnME`y2<0FfvygMasl(-@-Wh`&Nq#>{G&Jp5;Bv=M{2uFWNqk22D#rms$ zJN`$7R`Io&XRp@#YQnQjAiczv55L9Yd!>2WH_^)fPI#R zJqOrl398Jm>^pFXaX*f_oN%KI+|e5DY{n&BGU&c;VO)!WJ4VBuW#Afg9}$cz2sbJQ zJd6U^7SK3Ph*rBaH)&?FW`1yk^sm>Yk2j0Y?QzN&pI^A^t7C3 z7gUZ!FK~CwJ%7J_L8|)5qkps8SM}?cs0JSdY+Vr5uTMGve|qW{V_Xa~E9I(-uD*1` z>Z{jy*Uu~{E~c={>18~lMU398z^^I6E+!sNMCAwu$(z!O!rxJtWmE0q*jMaAfLH1n zY5)%b2I_yzO*0p*-cF0K#z1_41p2N5O+58ZyXeH2GWi^6Qj1+|z<5-^9Dar+V3t54 z^pJFO5_Bio6wnEKx8^<$lg2XSB>VpW&LU;T6FH8H9D_xU(avjrck6B6IOKdFqp|bf z-&*+S#Yca8VfNUUoe$jpMC}i6xN*%5M7I~PxH=dYEyUc}7hG2T=h_>e|EBoEKk`pJ zeBl$NmRGlqT3Yqj^KYK@PGbO=V)Z%M31p%Nl?J_Emq6sA03gM)Ho`at2&*~fZq(GH zc8#hS(K(1*Dz*F*DSGz6{S4q2nt%SkvT8>sb&h}X4$-pwjS;)+1JI`M8{p&CP=bYTBmwxY&1yz%N z`_{b`y=5b z%^nLBvG!bDE?Gz+X9FJ z!~jMDtN_x7(Eu9LjRM31#sbCx;sEa;{=0xb18i`Q2b>SM05BOa1#ltYD}V&RMSyK6 zxc~2CsdtDbrT~(kcrRuQ%nVO{!NwK-e7{E&de-7dm4{p8fya=h;iLs}(A&s{8|{W( z7hi1`lhHm>*OGRr9q-UXZm=V!U2kVkujVe(%wm|NUw)WV#k&?SBzp|@3BQ*3?QI)l zIpQF%B+y+1$OO=;kRNyjuqIoZ~3)`X>V*Q%`VrcUw_*X{YB~G`C1mM+a{&sP; zs07~Rxs(UuQa(Ar>s|Ol>?z=p|G2MW-32fma1|g0upE#JCp6!V50Uv`s`w_nTGo-O|fP73tI{95mLL9PiyH9h`*+YC)6R8NGcv za$~3sn2+{}#&Ptdp1qrzDdRZ?ouZ;{xyH_Zy88o7*N(%aK7-ux;wRibrCnhc`wvR| z_A4&7b|P*sz%C~7IN&(!BTVf@J@A{*UWjDrZx^%0e9$a|JJy6ZX{KGY0IyQ>w~O(h ziM|AGbNh1=c%8tD)!HS(TcqJdndoI+De)!%kNl}UO9dXaXJbrwO~9k}Y=-7ftL@NA zkp%Zx6P_*6E{+3lk>*eIpl?iXvbmK~Fv7h=7dKgl^4cqHc-6TN-FBRQ7=kNgQQPs1B!!kaN$;#B~T{E0uPF!N_M z;WYq{@=*;u@+W#;jowHTUd$XxZwv6qpUSrwcvQaQOn94sN9DT%c;rv?$~1b>CcNAv zNv|GwBnD?&gogG{*>wJ_+ON{_e)N<>r19Tm>f=h0qJf=8Gp-E&RMXRY3}(Z|G{|pGX1Av zO!aB{uAhB@eA1{C<9KoOx06f*(b?xoM>d5x&Nn%%7f8oK3iDrGRqWl#cWeZVv;Fj&ebNz$ZJfF7c~c`Q=DufFmm@ ze>4_1Kie>dJ1Yk3Ay(-d1%t|!#(#}-?PgT53Apj_*$EoNP*o+3+_CPBSsLN@F0iv( zf7JpXf)>X${OEdG1^LfEi@+B_rUrR135qrF!z38&sWgSv!M?-fHpi*g{EdB81e%uQ z!j|nQ9_<}05e^=kM{ey}r_^=co$X5f{>z)L{>nvpPe$%7JkW8;${+0*=M4Pm?|Jt% z#I?V>EPN|i+l&)4ulwlKzw5oWA0%TxZ_b_1FPxX_((dssE-dz}PncejeDzncv3j+$ zu%s||bzuqFXD&}mp*;hvk6{c=5Ak{yU=rMm0Lj|?i^9Cmct%F9>G7U0!s=do=2yGt zUb3|Mz~SYOJo5M(NI$!u8y;VJf$gUi z*xpW_|I=EH7g`6SX9wKPfcX);{3AjZ`W7`z-h}>RL^y9%p>{{E*J967ZeyXcGtL|# zBDdUWgPeHLcbLiK9YXkNTVUpGMY%kHUc4y+0!%Ud-0CTW2OV2pKdQmP`V|A2vJNJ0Ul%Cy+_4 za#qTMtM&Vnt5$7Toxj5GTUc7Q5kZ38S^2(&>&li%>4y9kloZJD<*SQ;V&KAl`?Aut zJ`W;r{G}zJNEn(srL?pd&Sm9tUypG>V}-}RprF9#q4jbqw=v5$KbV+p&psb*H=2BC zTP^z^UY>L7`y1S=$e-gb^V|iMXSv%^x7d&JkncBmT2x+U_&ZBCa8?Ywbz0bBu#9+V zh3iS=M%*;4d^?_JwOM6CAhz@LF`6FhQ7D(Q8I?`_iWzt9+@;B1a zk62GssSi~>8=U?~#`+zeCi49$8~vQZ0wF39XNyKR(@ZxvM3>GPnCVjgdxytY;whd( z)sy*NSX{c^lbT;rQ0x)i!0*#&=9y`FLp13OgPA6^3)w#OT9kX(iN*}O9kv)zY^LE4 z(V+7XW*Q{Fg+31|1`%1nG|Ds@6=oWhAsTeH!b~F$G*EwufUC5y#E*kSOlO})r`k+s zONb7g)iBc;3p%=twBm*j)^LHBsL7_zOlwDo7M=ev(^`?gfpg@__j`#(O8%NV7M2!s z1A+qe=ypd*{_0{+fk-L!;Q-VM|3*lXGNS7t#a&+JDRJXy8+3tnxuBR!PAo@Lp6@ST z&p2fF`Qf(+m;4uO$S*7=!f?xGYkA3HjM3J6k(8J$wjc`CeCq!!=*uiPixJH*34SZk zYi&S(w;25$_35mEo@=)ZlF>IaQl68VHC9C#>=`#mR? zU6Aqb+h*N-Nx*`>i2P>Uo|sMkm)#tfOZ^k|>rZ=LETg{cie)oFWhT4z@DF}|f5P8q ztXSIk!?kyP_x70W$KEZqv_E^&@$9v8|7%|PTLg6vO6)^RD z{A1h?3bGrtm&h90i5|0nfR7z=iNx}N?u>f$>7*oSV zMa@Xo>>0_S@xbCT@|N`6tBH`bFT*yz)`oIg8Ofla;Vmv(nuIv?aM;59^?q}o4(gff z{X8C&aq|n;dmI})$OyYZi3qTr$9|d}<1~Zj(xgy&Xh<=+LPsjIsME+ST~M;VP>UFXJ@tOel4$W^GOgn($kV#J( z%uE37lhRoZ@?Qkl0;mJz0g3??fNB8Mi|!?4MvEnmOmRFFbMU2hu?cb8VcKAhuskt} z)@A6y{+qV|_~z$AEN6`ruNpWwA>;K%;vk`s;za`o`&Ia@Wsx}G2R({`6OXj=B5{C$Gue0um)ZxMA&kHg(-XnZ^9CKt zS49NQh2RG|VbF5y@7%84K=#ZQvaV|u|X|?>`z=;#lc{?K0vL%AfD+Uhsm%Upe zaiT%T#1FN7%@H`1FROT+>2x9t`IfXD736aujGx*FoC_}| zoL?9?q(A;h9LUgSN(*E~O9YOvTE|e|LXW<7NcIb~GjK<4vXfI(!0bibNcr-}hYA^w zzE(+g%}Y$v;&0O8M#kR+T$1Jg%g+bMdoJ3AYP1uLfC;eAhnaLE+8fw&U`~R2uqV$H zb`1EHfPtP46CR!Y(6y{FqRe&w)MT7tz`F3xgE%JzJMGce!%qHm&Z0rH(;10I*y*8j z5PLO$I-Ag>+3B3wKG?fp(pj=**lEnJkJr&Xt}>6=$!#9DlUpCVGp=d;PImyD9>2E~ z{fRz8mu4paP#2xyqv;$C+%rr4`Nf*Uv9;-SQ>!qX41-mHIt^(x}GOLbRS7c=?o)6j_C!5CGh3c@X?N#qs6z8dFpSTpb zY{86}HpeMKMxaZz2Ggyo4v(J?tjHkP4>dAoPm@8X7H~3IJlDqccTkmc@ z+e=n&GYTx*6^y5gY*oi>s^gg2^`aFainB{`^eCfMXLpgsOXt6p8)MXQl$4T!4D>1~ zvB9m0l#u&~D?=s(LUao*;5fpm7exi*lZbHZ^nkM~7(W?y@ATz3!gp!Fc`O*;fD9mZ zz|oiC3gN~YxCala&f}|Yo6};JQw+&zi1L_Wlt;UikNV51UW?*5RrQxovXpYGIxd(V zgRF8c)vo3aNTA3vCrDZC;f!W+PL<7loY5nujP^xjw5oM7G8&Ah>w(JVQ{Fzx+i1fJ z{0~*)oD*5*oS#Vply`Fj%A)VOUj~Dmt-dzLv2Mzi!^)XDt~#w%?|h;-t!<7EfGJeB zRgHpYdeB8$hhh^jsH-dr2IKQk0B};PAJ|@iN}oacYDJ`s;MPj`zV)tBlL!B*1N0V~ zFZPnJw+T%GXC*-1&?-_Fr6v`Q_eQs|2{iF$4bkkrB>8OIEM8gvr{2b~aW(H^Z=%hy zgIe@v>Q?&7ei00+U8-Y;0!DX|tR3|vX=j6SW2_geN0p&W)RBU@0`88Gg4L1II6I`! zkr^T!;DlYsw>qBq3_er|-=Q)C38~vDGaxK8vq;MfnTR}aX5u3=v!@lAX;qy&6i9KW z;)+q7^-3!24T?+4Oi04hIWvw9R1>O}Fd{QE0tpuhZwv_`lo=@mXNOjuA&+LT-2xI- zt+xJouN^S&9y4#?UZH`)UA$B^5WXQyhkw5~@T6i@gb1~$UEWEk0vaO~9 zT!d8Uii0fm0Qo}j+c%L(vae*>SCi~Vk_r7T2UC7sPs zRaT!7NoWhYM82`ogA0HXg5V*_EBP?83@z>r32jF%gV#11%s%gWMXTPvhJ`JNp>rmZwGFf<^=`Xo|oE zO%b@DZ!{uYsYT#|Mg%TsiogX;5xAf!f-GovQ-&rNQ$YtvUXZv^(A!ClVI@DGL^*KD zbMa!P5ujpD57wQon58i z3EF7Wq>r&&#_lcJC_&amQX$DPrU|U5m?_jF<^BpvzEVMD4%O|Xpr9r>cWIoH2~4yW zdtKfwP!#Zwit}Oj1ugauyVoi;bwEIkiO5#m%K-|gc{Q$@+AFY6gU{2k-&QjL*^d!X z7!Sw7#)F!gX@=iq!!OD3n_>7ZGW10_Z&L+vOrcoO}HIvR{Gpbo8*#Z$}e3Cr44HmB370m~*0jFDE6 zNoCVt{AbK+(I{Qj5>Qq&BJSUuRH80X53Q-1yRLs*SdWN9shU*Dh_*0Q%MO`{4=t%v zw&%jp=BQ(L4LOt=KP247tsj+7)pc|t?E z&I;?;f_g$WDho1Q!HfyS`4-r#4$vEG14R?ObnZ)HVmeLUMh&sUK`D^QY&y0mHMMY1 z|DkRt8#NzfVy(hO#H(SiIzVqC?(%jMamIuw$=hf+=EFh6$zLjkCY!JuWvs@53+=Qb=D z?8M+;hb!Q$hn)rr4Y2P`r%Eda3kd;UAwWnaLaKpP3;PyV(FlEga#BEchuV10Gz;+F zQeYQHzlD4U9Ce6I>Cu|SPA$C#*c)YfRz1CGpC-Lnylk&N3MV5ebUz?*N=2{vWx00d+<0m03;B0k4W?k9PvXip#D%rbB?Up>Rz4lN3 z%hi!t!8)2e1e`~Vb?b>(Np@ugACi-uBcX-XH6FBI=Kxh31L~{G5RJARJM_|Pta-70 z==o1bKF$B@@}bG#r;<DQ{BB>y`34rMyykp4-Xix%qqE zh1#w>Z|8R+-dbf^X=}Dt3ZWhf1PB|;rPENU6bFWV)JW1WQ?Am>mG}7+SVL6w3WrwC z-I)%-ErQ@&M2Aw6p_tH7;%GTY+=LKtH<6ILbX>^^RbAi`Sv0I6+&Tj{7*F+hZB2{6 zSRIwEZ#wlFmG>kPc2=sRlp1Q|G~VQ1k(@oUKO)j7@7iDTo)lTb_N2Iq^FEQYSF8Tz zr@Z$TqS$Bm4+}W!0&esI4orBEL6!nF@^VFI(x+`562zeGWrRNT4eP_8`e5b8>OZ0n zTkrVa(ub;Jq4w|O8MS{A3uT|N{VV>G+rO$~q5V|rIcWR_UazG6R9gI2yQ zuzbQBs@&XTZDQPzd#Q38%(Rg@YaQ}+1{kwClm2u3|Ie4f|MV}2e;#GI&3oDX z*>frpN^PkhAIQkUFk+oIx#ws`-;pmL3q3(&4;wP zQozy6DTnsQa3rHs4y1_lQ{I*`hz#d4Pz$-gb@yWM9dRy0i*TCJ6;84YQ6EF{%=zr{ zqysMhL3#4H+kIy8wE6xs@=P@J(@XMn$Ew%SuWHYE3q`3P3F=i=_5|Nh9k!QpFjx#Y zdzDFWmRkev9!y_*c~i+nyGp6NjNb!vbqXydkUC%#hoKkg#7nf?K(05`kpX89W_3`i zzKnFt+_Z>rwmEu88_m)3WTJ?M30)5+%TTSpbeh-=8O>`%!=_gc_{_kFjyJ!Cj8vUjtQ#MR)o_&ZBzqT z%vO}g45e!fslaph@gXigfry-=yNVh_v_tR{8t*oNAE+JaQ>cU&+t37M@G-{%*{cyR z1!25|NjE{4Zm%xgK0~@%x7bg*p==DI8AI?Nl4tX$kf%2!Pj6Trz65!;oJO9-A$b;u z@e(G_}TkD`KEYf(Wg_m4mIq5IewNTTwgX*a~Jvrq0g^<2>4lUoU+rSNr zn0X^t7;j-xcBN=-!WXHvdTxfyPe^~eKZU$))J9R0zW%ztrShfZP3 z1K2d$QdVM#vk^JLiIF2{g8A&uNgBRn(`uoM`;BwdDb!bBt7{W-g=5%<-Ww^s&=1iN zt2-TovbsuLJmb7%W!a#gIm9yyN&^Eb)2bW#1ZR(GL&N`2Ep(U#J06nul8Yl}Ao81z zo~rBkXS>U--BDlTi>KYnC6_UUb8S2bs-DgS z_8HIhQe*s?c%ZKdX*`^!@$bh2?JR17U><06{^@xDIc$3*Km;`T!IXn$xv*l;&$E$G zmD9JGv^wd1?Os$#Y&mMv6oap@`O0APlp*S0sDGI>czyVPs(-ov;nVdm9$@Hg>Hk0a zm-P>wu761fhAxvz)Pc{{zcf^T{{Cg()=$;Hgx33}524?SZF8{Ch!X`p%I0<)E#UD> zhCZ9k(r2^izWiC_4uCUTj4ivthBcgL{Z9<(3#; zAnnEisfw`xR%pl5Yy;OLFb__*;%hrT(y7;=3w>U#*#=*7 zR%r0$Y^7A4N7RmHt?yEB_pC?u8P_N`$EXvP1?a1~DLqFIxRdiW3o%5zfFlI=Avl;Z zI4`*Vz`R(4JfmWE2A)x^Ro(4iX)TGVt6A$slqm2--N-c%i?%nzf&oWe+_PlSlnZzK zm?Io11xL8=H;8mF-jplJBqkGUG~EcX)^G9=&YIS@Fl%Vo2jol+{?C9j^%~NNQ}V8# z+lnzn9C>7Tp)ks-7`21MGLhGGy1mqsWMShE5&Sr=VMXjJ)LWPCZo< zMMMg|f%#1>`a+t2&=oG~RomsIFq{Z-H{<1K$7XyZA<(x4aY8G=tif}KE4__RBiQlN zKgwgoa4_CVLxX-@G~G6H;B1$(8Ee4pSWyif{`LMv#R;tkp+8|f+ORgI<(hcJ@cy&s zSJLAA;))tLz{G5z{5mMVPTWLtHxdHp*U=aVP|o1FBRxar_sDgp&94Ku>u|2j-Hg)= z?bwEi%tDW3$}ft8iUtUrUuR=r zJLMOiJ2G4{zsFCXU*`@I8m{1=jN4u5{qp+^xRH7aew^J?o*r%mJnf8VEB z;2*R-s5%zf-?5`Hh*(d@D()0oM8~jHKbY6ceP}n92i#Z)I1)Uh+?}V~J^v*-HWXNv zyH>foSh+h*x!a}OovGZNqugDf+-(Oo`m8ApsG#Y*Q?RyeaS6n9NbOV?dq4c+1;2BB z_(u*<-1`Z6KOJ%ZuzO529CQ|%PB_cp&cn6g*QR~v~WU#pjDGzY)sJwbl#Xc z$vaxTG{6rnB(@=mPGwZMYgw7B77_$LRl^y>jo0&^mQAvV@`O z+f=6gp6_}S9*|?Lep^8X^9R+dXqSNI7Jr~3`@_(4du$F3p)WZ`=i#Ex0~^yPNIUwS zNt5#(-h=APDhhgOXE0q!#Eghr={{@^SG8CaYJl8Lah1DJ%4kPhs3LXq9Rx=wUk-3I zS?#o;w1uKMTTHVn>>BbOqPr#F=#)Fj(}9G=3-7!KAroV_Oxs>WY#>E0M zaj_tkPdQKvfrvEBVYyHjU@jR=_)?-YguxM0<|^V&&xhT7sfRMmI8*~z$m@M77b0CzAWz)(m`pb#=*m#l0eaJgjLF{C zWTeKJ>FRd!1}SR56~2T-mlLKDE}l6pRR`$GkBHljUIJPq&yjY@Bb;Dq9FU51jTku3 zxSGcKJ^A#Y`OPs(0VJ^?NTMB22ImSEQ52=!J)*>{YD$@_FBkNr@yX?T0uvJFkua@Bpj>fM-{-_hniCOh0*_m{PyYyo#A6qoJ`(47RW(wGjS;zscV z%tDp%102`K?=x{T7P?K`A+Ne2XjcHj8T3e&}>$*50I6UUaS&0ECg1TVR{I|NR;%6IRicH~0f zq#a};A#@WRh9XdFN#sp*Cq&RC_keVBG`eIGUDeT{IBMG*O>krC(@3>UUOzciiM9bZ z;~VKW5%%(LA~f-DBJAUNe-GHDwn=r?q7KkxA!8clth#D*wb(qRXquOPkP@N5qx(HF zTXcJlvPC8(Z_XAsgr6~6E{!gkL|10ZyJH^2Pzw$9+Ah;08Tq9qgXofJ;x`o{^UjcR)1^Ay%;od}xukZ5sByCs!6mi)pOs5$fru`dAudq~ z6lW83g}Z1A>STtu7(7#(Fd5BHRZCP{Wd%ypg;fC;50dmCRBlXI_@`K?zouUgpr%*5 z8|}@ZoV#o3*LZLl%{5TYaScgzRHI>+`b3w1h(j`oL!)ss6wCbcDyS6H^jB@n5pfR? zKB_VGKJ;Tbp$fls@XAE%6;8UWE>lm|QYRB+z&jR4YQ43T4YVJrIl#1`F)(*adWX%w z*d#m5oxl%yqrsQn6=y7sB#j?3i683fag7MgYBx{KWcOw>WP|KeeTN&BRR0mAy1}!L z=1|2QFg^Q;T5@Dka@b;0oVDI=@a=6qW9I2P7ZoL$M9s`4^~Rr-%jp_jGKsF_5-pw_ z`8CqWPquiYH=)JDZ>lt6A+X8w{Te`ugpT;tP=Zn8#)Os3=Brnu|S{VEQs z+0k~Acl$tEQCYRQl6tOC55rnfX=ueHjWn5(#dakC$>K&SHWT?yBHbt@AMiRKyz&xU z)qx6%fI-uI$+5h>h>M``Hu#MgBvX4QcD{;FHD=$a?~bAOJ3_^7#JlD zS}n0EgqFw@-)OvW1X3G9(L7flnP83ic)zQQvD#Q@(E0AY$M!)~#*{ZP9!n%Al=4#` z%xBQ(T9&>~4tBINDWa!vBUVH5){>j)$@DgRHvYb@W>H;^$@1bVV@<{NI_x10g2u4dM=EWrMo19a}I6c|H9b2RUk!O+#7q-5nrGpd z^TRYU=4Gw3LxW^}X^HE1BjV6~MrS<=)2sWW50_ zYP7Z{hoO)wgyM+3q8&Mit1dzVQ`I*zuKG@k5Lf(;{pb_v@@PJejZrxaEUg|~)lP@X zVAm*^Aw@q9b0baq)aryu|H}~kOI$lo=|w;Va4wBFvtvm1*^oU%9iyy@{VdXksE;<0 zC>DEN5eq74uc+wNWnS8la#6dC1y^pvh!+|`s$FwhxSFG!JG63EZZQgZ@=-UF&Y|72 zZxOy(@dp#Q`$&d&+9D*3s)|MK8H_ikXa+YLQs3#AU;=o1YjMuu$EXSJ;otO-r|hmn zn!$KKg2At{7^vJ!Q%6c|hq^3BS(bLjoE(qjglZ_tLbf`gOAGJio-yemGD*ui1LguF z49F8d)3)LXG=tOVo{0NM==KCg{unu+IRs-#D7mUu?M8284>V9Kcyz>_q2mg2{d~an zlvD`1@3k`1dP*KOi=X@VRxu|zoHD;>ikN5@f9gHaYWGh=c4_saZ#hm=D*Wp?a#`vv zwj;^IIrD)-Q*)l^xkUMhqkR}&z*DX>#$wH)$P$bfqykt5OizpMjH^sR#jpA~R(R*a z0y2s#4KYSD8QccR2#b+PF>HE_QF@F_#Nf){w7#_B0&l?(oaPKYVi@h3HtO-AnLr4rS`EkA!E6%QN%vV=c&w)VaftHB$zm zc{OC|$(tW4;j1WTDB-J4!3?si@6~l?9XLRQNC#SB2A?Na-!Fh+WT*jI!CaNs#&|a0 zWL~K_4h>Nqoi1+^#1tB}VyTc@>`tl!ujIGHplXq%JH+hNy^_1ui4V~7k2%V-TjGjssLQi8K4Sk}9 zPHYkSG##C|W%L;m9or7kX62{$VWO5hEEk|w)X6i{?iQ#TjbfD=fvDd7C>pM%1?j3Q z4`HncqZJ{&lJ+Y%m$xIVIB__HiWAFesO!0?e){aBRS)1FE~MXvq7<=mmPxbfQ&6U= z1N5d@bta#tmOpWbX*hYKBFJ^DeQ?mMnoMK~JxwcAMb2hvvKls+ZZX!O&jo7VFL3T~ zfR-2){uXM9&jXJ9=`|uux6`a3-32k^Axl-8yM+HH97A4Pm24?b!7bf6zx!JH1V!e@ z(Iqo`p<18gE6=Y#ve_E>~*{Y%A_EhxQBwWWuCIGcoDb%5UV z+fRkssa zB+jhA$$fB-Q|rC{1_Tro#P{Z7I}zc{8hWSW3?}d5UD_|Fd1yfE)JDpz>Uec_9M3344Nm1nogUypG=(rA6Fi7 z&BZE?zIi)DVcvuqV*VI9-)Y6rX0RW}$u7e$241OMbu+KcmYZ5Haf$#Im z`w?`XcM{2S;PV^Wl-to)WRV-{S#rBV-r81AUi(Sh1NGoC;BLvr;R|H`XEf8rZxcD& z@smUttU#5iH4GiJ!$~1-#wVjVu*Z*)cahDdxFtHBG$0xF;s*sxd*W0Cy;KB?^%7VM z!DHTZ1cZ-M*Wm7}YO|E(WM}ZUzrJ;%o}6>yXb!Z%JLktzioJRPq9Y*=1~?Ma|5Fh7 z`i^$sgXKBkcs>zQ==-?9G@hRhv4)@bpcX1(e-z@U1-yulCU8?$mfpAY0bPTE$2*wV zHwsZPHeI@_Hg{wHFtl0$9JGqGNyLqiqxrp2IJSX=ASo<7V7* zQ*1uJC`ViP?m}!TG#Psz#okA;c}0~bg5ZaSDU43iu7)4h?|QUuoV#6_)vfyWtjKR4|oai3%Dx)t+4+NV1xZHFvr7;f==21 z34j@Zd4M#)EdVcI6X08bdca=53xHNYFQ6UqPr!_M5#ON%oCEhXn8|<}ETS?MW){E; z*Z` z&Qmb=0~WykE0})(6axQ!m?r^N{N(&3z*hjX0rLUN0J(s*fDHh8oGY?YvYb~ZhJ7nYx<{DPuYYs>ukCG66^G|ivaGrrds_U&TO#J}+^Y3*x$ z+Lw~eG=QZ=*_*y$b3qC<4fBHmT%QMiN;hTzlmu6j%4KbyB989Ul=OWh2A^X`|m(%jx5Kr%vCFv zF1u+JQj;IaX4*r2*ODZM?{RCqLUQ=hWaul8+SeHMd?Of`i;9aEmzS*Z7nYXLcdjX} zED?N_me^u!?Hk#eE2JT5s4Wr$Df6c?&3tEgiaq)3JwTB-`0N(jk>fk@>lPL+ht z^dW(;Z%zM-n86($wJS-8}!oeT5Bzp#qj z8!aJJdR;kdHI=l~T>0(xg-gwCsp;#nIuG*OvYeWyf>@JzAL#q;+V@=vXZRVGz_0{{ zB`_?3VF?UNU|0gf5*U`iumpxBFf4@FeMSOUWm7?!}W1coK>MN8oMfBM~$X0)J_ zXF1r%8VA!3leP}0!-OG1cou=fspN_O{{B1q`A3Uc<=B&h|7@7;Fz3K*>W60$F*t2; zl8E9lr$=rpC5k7~f6^fS(+BZShQI3_>{Vi89rxAv$^EksiLmMJEpStO-M#M!cJEF2 zJO2uNQ@Er;G-+QeORNy9@OFp{*p`arVj0{^@m>r&JqKd`{)u2If(SplDP6=?xDWPQ zI4Dcx3m@ndieljb%@VOzlyb;4L9sFsnh)Rg2+tRO;FZEfPmHxGrWiym;K>iHLipc4 z03|wkY=JbA0Z9xgESn@T0sad?Z=ERPG&Ukf`Ec<@jc|hE8qh68+NI!%_GuEuIK*+W zZ-FRBxIZk;BaeQPb?VlCr~lW=yV8lr8Dcc>_1tBFvJcckd6*?;f+m#|(I(t*+L1BB z@rf6bn4jsEfcIh(H<7&9#YEsQXGz`8(jt7FH;OHDZjLt-lq)oOkQAduLP8Ww$P-eX zRi2PwgFS|IX?D5ICS9aybIMWAc&k1ECgIT2!ta4zm9q9!Rtnev_#-d8T3TA*gM(Xi zb_)l%*ub04a^YA2JO_WQ$7!PtC(n-GRVLzqeY^~JJjjH%$*d$2ag}0RFImRDFAaW^ z$B>WY1H3$lx{d~?1-Wm*ncJ4Q0pK2-K4ZQ)E1U*?>p$bJtu?0?a#4|y>;3oj z@NgIThQj*0^jQB(rY^j2^Oa!ml(;8YDW;;I8U-Npo|D27{Pb``@MLr_c=Co|@S||z zVXkmJMLgp1y4-{-1AZJW28M4yb}EA)OEp+ v4!#mRIsXQjr{{No#NnmMtL4j=S4bMewqXejOJG<6!x9*lz_0{{lED7~xP#r4 literal 0 HcmV?d00001 diff --git a/首图导出工具.vbp b/首图导出工具.vbp index 153ac8a..8160dbf 100644 --- a/首图导出工具.vbp +++ b/首图导出工具.vbp @@ -6,6 +6,7 @@ Form=Frm_Main.frm UserControl=..\VBûؼ\TzDownload.ctl Startup="Frm_Main" HelpFile="" +ExeName32="ͼ.exe" Command32="" Name="Ʒͼ" HelpContextID="0" diff --git a/首图导出工具.vbw b/首图导出工具.vbw index f774604..cb5579f 100644 --- a/首图导出工具.vbw +++ b/首图导出工具.vbw @@ -1,2 +1,2 @@ -Frm_Main = 422, 3, 1308, 452, , 50, 50, 1161, 739, C +Frm_Main = 11, 158, 897, 607, Z, 50, 50, 1161, 739, C TzDownload = 25, 25, 911, 474, C, 75, 75, 961, 524, C From 2d4e4ada0324c24f524dda60fc46240e53e18424 Mon Sep 17 00:00:00 2001 From: 502647092 Date: Mon, 8 Jun 2015 23:25:10 +0800 Subject: [PATCH 3/7] new file README.md --- README.md | 44 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100644 README.md diff --git a/README.md b/README.md new file mode 100644 index 0000000..fb18c95 --- /dev/null +++ b/README.md @@ -0,0 +1,44 @@ +#LoadFirstPic +代码1： + +Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) +Dim frm As Form1 +Set frm = New Form1 +frm.Visible = True +Set ppDisp = frm.WebBrowser1.object +End Sub + +代码2： + +Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) +Cancel = True +WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href +End Sub + +代码3： + +Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) +On Error Resume Next +Dim frmWB As Form1 +Set frmWB = New Form1 +frmWB.WebBrowser1.RegisterAsBrowser = True +Set ppDisp = frmWB.WebBrowser1.object +frmWB.Visible = True +frmWB.Top = Form1.Top +frmWB.Left = Form1.Left +frmWB.Width = Form1.Width +frmWB.Height = Form1.Height +End Sub + +代码4：这个最好用了 + +Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1 + +PrivateSub Form_Load() + Set Web_V1 = WebBrowser1.Object +End Sub + +PrivateSub Web_V1_NewWindow(ByVal URL AsString, ByVal Flags AsLong, ByVal TargetFrameName AsString, PostData As Variant, ByVal Headers AsString, Processed AsBoolean) + Processed =True + WebBrowser1.Navigate URL +End Sub \ No newline at end of file From 9f08008b4c597072196c1606323cee8e054e1f9c Mon Sep 17 00:00:00 2001 From: j502647092 Date: Tue, 9 Jun 2015 18:30:04 +0800 Subject: [PATCH 4/7] add multasks... Signed-off-by: j502647092 --- Frm_Main.frm | 206 ++++++++++++++++++++++++++++++++++++++--------- README.md | 44 ---------- 首图导出工具.exe | Bin 57344 -> 0 bytes 首图导出工具.vbw | 4 +- 4 files changed, 168 insertions(+), 86 deletions(-) delete mode 100644 README.md delete mode 100644 首图导出工具.exe diff --git a/Frm_Main.frm b/Frm_Main.frm index 9ddd37e..2665fc0 100644 --- a/Frm_Main.frm +++ b/Frm_Main.frm @@ -10,14 +10,37 @@ Begin VB.Form Frm_Main ScaleHeight = 9390 ScaleWidth = 17160 StartUpPosition = 3 'ȱʡ - Begin VB.TextBox urlT - Height = 270 - Index = 3 - Left = 8760 - TabIndex = 13 - Text = "Text1" - Top = 405 - Width = 7710 + Begin VB.CommandButton alibaba + Caption = "1688" + Height = 300 + Left = 16530 + TabIndex = 19 + Top = 420 + Width = 600 + End + Begin VB.CommandButton oa + Caption = "OA" + Height = 300 + Left = 16530 + TabIndex = 18 + Top = 75 + Width = 600 + End + Begin VB.TextBox itempicurl + Height = 300 + Index = 2 + Left = 12810 + TabIndex = 15 + Top = 840 + Width = 4320 + End + Begin VB.TextBox itemname + Height = 300 + Index = 2 + Left = 9570 + TabIndex = 14 + Top = 840 + Width = 2370 End Begin VB.TextBox urlT Height = 270 @@ -48,33 +71,36 @@ Begin VB.Form Frm_Main End Begin Ʒͼ.TzDownload dl Height = 195 - Index = 0 + Index = 1 Left = 30 Top = 1185 Width = 17070 _ExtentX = 30110 _ExtentY = 344 + ForeColor = 33023 End Begin VB.TextBox folder Height = 300 - Left = 13500 + Left = 9795 TabIndex = 6 - Top = 840 - Width = 3495 + Top = 420 + Width = 6675 End Begin VB.TextBox itemname Height = 300 + Index = 1 Left = 945 TabIndex = 4 Top = 840 - Width = 3345 + Width = 2370 End Begin VB.TextBox itempicurl Height = 300 - Left = 5190 + Index = 1 + Left = 4200 TabIndex = 2 Top = 840 - Width = 7230 + Width = 4440 End Begin SHDocVwCtl.WebBrowser web Height = 7665 @@ -130,12 +156,57 @@ Begin VB.Form Frm_Main End Begin Ʒͼ.TzDownload dl Height = 195 - Index = 1 + Index = 2 Left = 30 Top = 1440 Width = 17070 _ExtentX = 30110 _ExtentY = 344 + ForeColor = 33023 + End + Begin SHDocVwCtl.WebBrowser web + Height = 7665 + Index = 2 + Left = 8625 + TabIndex = 13 + Top = 1710 + Width = 8490 + ExtentX = 14975 + ExtentY = 13520 + ViewMode = 0 + Offline = 0 + Silent = 0 + RegisterAsBrowser= 1 + 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.Label Label7 + AutoSize = -1 'True + Caption = "ͼ:" + Height = 180 + Left = 11985 + TabIndex = 17 + Top = 900 + Width = 810 + End + Begin VB.Label Label6 + AutoSize = -1 'True + Caption = "Ʒ:" + Height = 180 + Left = 8760 + TabIndex = 16 + Top = 900 + Width = 810 End Begin VB.Label Label5 AutoSize = -1 'True @@ -150,9 +221,9 @@ Begin VB.Form Frm_Main AutoSize = -1 'True Caption = "ļ:" Height = 180 - Left = 12465 + Left = 8760 TabIndex = 7 - Top = 900 + Top = 450 Width = 990 End Begin VB.Label Label2 @@ -168,7 +239,7 @@ Begin VB.Form Frm_Main AutoSize = -1 'True Caption = "ͼ:" Height = 180 - Left = 4365 + Left = 3375 TabIndex = 1 Top = 900 Width = 810 @@ -191,42 +262,67 @@ Attribute VB_Exposed = False Option Explicit Dim strUrl As String +Private Sub alibaba_Click() + web(0).Navigate2 "http://work.1688.com/home/page/index.htm#nav/home" +End Sub + +Private Sub dl_OnFinished(index As Integer, ByVal Result As Boolean) + dl(index).Tag = True +End Sub + +Private Sub dl_OnStart(index As Integer) + dl(index).Tag = False +End Sub + Private Sub Form_Load() - web(0).Navigate2 "http://192.168.0.8:83/" + web(0).Navigate2 "http://192.168.0.8:83/" End Sub Private Sub Form_Resize() On Error Resume Next - web(0).Width = Me.Width - 50 - web(1).Width = Me.Width - 50 - + Dim lefthg lefthg = Me.Height - web(0).Top - web(0).Height = lefthg / 2 - 350 - web(1).Height = lefthg / 2 - 350 - + web(0).Width = Me.Width - 50 + web(0).Height = lefthg / 3 * 2 - 350 web(0).Top = 1700 - web(1).Top = 1700 + web(0).Height + 20 - web(0).Left = 10 + + web(1).Width = Me.Width - 50 + web(1).Top = 1700 + web(0).Height + 20 + web(1).Height = lefthg / 3 - 350 web(1).Left = 10 - dl(0).Left = 10 - dl(0).Width = Me.Width - 20 + web(2).Width = Me.Width - 50 + web(2).Top = 1700 + web(0).Height + 20 + web(2).Height = lefthg / 3 - 350 + web(2).Left = 10 dl(1).Left = 10 dl(1).Width = Me.Width - 20 + + dl(2).Left = 10 + dl(2).Width = Me.Width - 20 End Sub Private Sub getfp(webb As WebBrowser) On Error Resume Next Dim i, j, vDoc + Dim ix As Long + ix = webb.index Set vDoc = webb.Document - itemname = resetfilename(vDoc.getelementsbytagname("input")("subject").Value) - itempicurl = vDoc.getelementsbytagname("input")("pictureUrl")(0).Value - If folder = "" Then folder = InputBox(" -ͼ-˾-ᵥ!", , "-ͼ-˾-ᵥ") - dl.FileDownload itempicurl, App.Path & "\" & folder & "\" & itemname & ".jpg" + itemname(ix) = resetfilename(vDoc.getelementsbytagname("input")("subject").Value) + ERR.clear + itempicurl(ix) = vDoc.getelementsbytagname("input")("pictureUrl").Value + If ERR <> 0 Then + itempicurl(ix) = vDoc.getelementsbytagname("input")("pictureUrl")(0).Value + End If + + If folder = "" Then folder = InputBox(" -ͼ-˾-ᵥ!", , Format(Now, "m.d") & "-ͼ-˾-ᵥ") + For i = dl.LBound To dl.UBound + If dl(i).Tag Then dl(i).FileDownload itempicurl(ix), App.Path & "\" & folder.Text & "\" & itemname(ix).Text & ".jpg": dl(i).Tag = False: Exit For + Next End Sub Private Function resetfilename(ByVal name As String) As String @@ -243,29 +339,59 @@ Private Function clear(name As String, p As String) As String clear = Replace(name, p, "") End Function +Private Sub Label1_Click() + Dim i + For i = web.LBound To web.UBound + web(i).Stop + Next +End Sub + +Private Sub oa_Click() + web(0).Navigate2 "http://192.168.0.8:83/" +End Sub + +Private Sub urlT_Click(index As Integer) + urlT(index).SelStart = 0 + urlT(index).SelLength = Len(urlT(index).Text) +End Sub + Private Sub urlT_KeyPress(index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then web(index).Navigate2 urlT(index).Text End Sub -Private Sub web_BeforeNavigate2(index As Integer, ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) - If URL <> "http:///" And URL <> "" And URL <> "about:blank" Then urlT(index) = URL +Private Sub web_BeforeNavigate2(index As Integer, ByVal pDisp As Object, url As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) + If url <> "http:///" And url <> "" And url <> "about:blank" Then urlT(index) = url End Sub -Private Sub web_DocumentComplete(index As Integer, ByVal pDisp As Object, URL As Variant) - If InStr(1, URL, "operator=edit") Then Call getfp(web(index)) +Private Sub web_DocumentComplete(index As Integer, ByVal pDisp As Object, url As Variant) + If InStr(1, url, "operator=edit") Then Call getfp(web(index)) End Sub Private Sub web_DownloadBegin(index As Integer) - web(index).Silent = True + web(index).Tag = False End Sub +'Private Sub web_DownloadBegin(index As Integer) +' web(index).Silent = True +'End Sub + Private Sub web_DownloadComplete(index As Integer) web(index).Silent = True + web(index).Tag = True + showweb (index) End Sub Private Sub web_NewWindow2(index As Integer, ppDisp As Object, Cancel As Boolean) Dim i For i = 1 To web.UBound - If Not web(index).Busy Then Set ppDisp = web(1): Cancel = True + If web(i).Tag Then Set ppDisp = web(i).Object: showweb (i): Exit For Next End Sub + +Private Sub showweb(index As Long) + Dim i As Long + For i = 1 To web.UBound + web(i).Visible = False + Next + web(index).Visible = True +End Sub diff --git a/README.md b/README.md deleted file mode 100644 index fb18c95..0000000 --- a/README.md +++ /dev/null @@ -1,44 +0,0 @@ -#LoadFirstPic -代码1： - -Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) -Dim frm As Form1 -Set frm = New Form1 -frm.Visible = True -Set ppDisp = frm.WebBrowser1.object -End Sub - -代码2： - -Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) -Cancel = True -WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href -End Sub - -代码3： - -Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) -On Error Resume Next -Dim frmWB As Form1 -Set frmWB = New Form1 -frmWB.WebBrowser1.RegisterAsBrowser = True -Set ppDisp = frmWB.WebBrowser1.object -frmWB.Visible = True -frmWB.Top = Form1.Top -frmWB.Left = Form1.Left -frmWB.Width = Form1.Width -frmWB.Height = Form1.Height -End Sub - -代码4：这个最好用了 - -Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1 - -PrivateSub Form_Load() - Set Web_V1 = WebBrowser1.Object -End Sub - -PrivateSub Web_V1_NewWindow(ByVal URL AsString, ByVal Flags AsLong, ByVal TargetFrameName AsString, PostData As Variant, ByVal Headers AsString, Processed AsBoolean) - Processed =True - WebBrowser1.Navigate URL -End Sub \ No newline at end of file diff --git a/首图导出工具.exe b/首图导出工具.exe deleted file mode 100644 index f4bc8b80a03599c220e774ea01fa987c63e4739b..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 57344 zcmeIb4SZC^)jvL)1Xv-EMG2yU#EMESVt}XtQJ26%&@601Hi;S}fh=xfNaC`=(1OM$ z(cE5EgM!5tYk=5Bi#1iW(L#+SZDJeSSkfA6u+j3gq4HRs{w>mq?(cif+@dYVRBy}0$Q z-=;iOt3%pt4Yj|4yE1Q2?Q1aqRqz9LXB4jS5{}N1%OOOXC0acHPrqCD>lJa9F_w`+ zG{GlP`hGA8rVY?SZo9O@P5HF|$mHiZ-ta%)YY|cG0SEs1#ir)uFd@306Jk2qdxhw* zYM!6Nn2tmfC_d6^BE|-JX8Ju9euUNj5HI4ZNi$*SPl6D6GYj(l`S7rxgI5cHaLF`1 zcKFQnt@o{gALpSL7Q*WUm>xUG6#wzo8!1SCoGY?YvYb~Z&Rmq1ruz+>!x9*lz_0{{ zB`_?3VF?UNU|0gf5*U`iumpxB@PDra7VK#7{q3#>-+d47@%`(pJ-%y3?DoB1)Zh#F z8ho?74Zg3Qx7+7e8+@zbekp2???KoPKEBJB-MY)S0Qeh~7yh8+QA?Ti)QSxwFCd{?LH0}Z}wKzkl&%me>7 z7Vq}m27e3868PPWcu#%|8h_vAYq)BgFAg$oLtd|h|C^w{D}RsgjXmIbU4w4}@>hoR zw}9r;>vsEE9@^vk@0AU{M9}*0_jmgiAwP>A+2cEfco*&1?Hhl1x9`{;yM50hKcLV4-KHe_I!SuN7q8RWEKx(>O z#An#WJAkb#>|#NtT{HsLx$UA0aBY@d>;{x-G=!*MAS$~S36YvYG%4MT96MRX%`nLw zb+dGz1@ltyLC^ICcCl}b^shMEE=I%eZiLqWwgC<+uQAK(TsezArRliX9+ zN%y5N$^9qI{TI#sc!>=EK1>Q+?_kA!a{X_TLMJ!DHc|nzO{ae5;;vTSz zf56o9`PB#QVkBUOR{j*{#}C^%YQ+RQ`+g7MKLQ*8yb1Vyon6e^Dq%g$KL9?~;Espv z;u8(hK_^Fp`(SPdJO!YK^#0&Z-~xUHpr;S%#liggHoFJ_b^=Ciw~My{4?JQQN#C{$ z`wqLv1gv;e!oOht@;lI3&>(vH6NmiY_dUC40|Wr1SLfE-#X`V^0CG=x!Y-BqE+GIv zSNurEze+PJ;_c!B5d1yDdjRhNMtt8czN*1onAdAi26H#y1R(AQc5x%%VZaUzj>25m zXcxIp!UWVkWfu?r&@P_S;2V2U2eowdJfNmZhU^f!_E35M{2A$d73N4yKfm&0qzj;Y zv^*=r+ceWYk?@504#IZ)Aem-_`8X$?t9KvxVQi?32XyMQrcl zcN4!S@%tpdEBRf_@9B(hmp*JSV0$gw8`wUd?bG<3%sv%tkKuO?zo)bRF@DGJdq2M? z@VkZIb&Q$E_C~fh@Ov`*B=I|w-?{vr#_xUnKF;r*jK725JJ~0X?X7HI#P&^W7i@R2 zJ%R0hepmB*2m5ETy@KtD{I>CXGW&P1J(=xkZ1=Lgp6zLDxAD7?eKxUu62G^wPc6Sw z`E6x?!S)1x$Fh%~?YV5<%l2-5Z{v46zfbYIfN{$B?ZR6KuPwnY`rZ%Hen%?Yi2(Aa z=heko9Y1r8S+ce1vS&K4TGuLlLksfH?|<&Zs~x}m$*G{KHHLr{7&$B-_|B3ux zDQ`@BxwLB2ecwr07Wn;|{9B`w&I@+T663lokNh*?-)`qKm+V!xzVcvf)(`$sd(S1m zU;gB8p8U?+KYrn>^Oiq7=h3yl9siS9@s!9r^sp(tL9G);2(gGltzxln-705(VTl-P zu?i9ZXZ}2kND&u9h{0(i#Ntxlx>@3?3gG`7S-bB#A$~MXh{e%C%O&u$j1sqd{Dpqc zIuT=u5lh+9KD{&Q<(RuH<6}iIny{i6YaOLTSe#_c^oupDF~G_JR`e)ADCNFl5f$T! zxkY??$_&exYsAudxi2=n@!`wA-+v@GE9J$8=Q@7Vy8n~hC53*&PJ9#pFE;$_Pq}N$ zW_tbWipAMyX@p}&3F1%^PX5X*;)V-8A7Lv9kAXB|W0lFd*LsgnME`y2<0FfvygMasl(-@-Wh`&Nq#>{G&Jp5;Bv=M{2uFWNqk22D#rms$ zJN`$7R`Io&XRp@#YQnQjAiczv55L9Yd!>2WH_^)fPI#R zJqOrl398Jm>^pFXaX*f_oN%KI+|e5DY{n&BGU&c;VO)!WJ4VBuW#Afg9}$cz2sbJQ zJd6U^7SK3Ph*rBaH)&?FW`1yk^sm>Yk2j0Y?QzN&pI^A^t7C3 z7gUZ!FK~CwJ%7J_L8|)5qkps8SM}?cs0JSdY+Vr5uTMGve|qW{V_Xa~E9I(-uD*1` z>Z{jy*Uu~{E~c={>18~lMU398z^^I6E+!sNMCAwu$(z!O!rxJtWmE0q*jMaAfLH1n zY5)%b2I_yzO*0p*-cF0K#z1_41p2N5O+58ZyXeH2GWi^6Qj1+|z<5-^9Dar+V3t54 z^pJFO5_Bio6wnEKx8^<$lg2XSB>VpW&LU;T6FH8H9D_xU(avjrck6B6IOKdFqp|bf z-&*+S#Yca8VfNUUoe$jpMC}i6xN*%5M7I~PxH=dYEyUc}7hG2T=h_>e|EBoEKk`pJ zeBl$NmRGlqT3Yqj^KYK@PGbO=V)Z%M31p%Nl?J_Emq6sA03gM)Ho`at2&*~fZq(GH zc8#hS(K(1*Dz*F*DSGz6{S4q2nt%SkvT8>sb&h}X4$-pwjS;)+1JI`M8{p&CP=bYTBmwxY&1yz%N z`_{b`y=5b z%^nLBvG!bDE?Gz+X9FJ z!~jMDtN_x7(Eu9LjRM31#sbCx;sEa;{=0xb18i`Q2b>SM05BOa1#ltYD}V&RMSyK6 zxc~2CsdtDbrT~(kcrRuQ%nVO{!NwK-e7{E&de-7dm4{p8fya=h;iLs}(A&s{8|{W( z7hi1`lhHm>*OGRr9q-UXZm=V!U2kVkujVe(%wm|NUw)WV#k&?SBzp|@3BQ*3?QI)l zIpQF%B+y+1$OO=;kRNyjuqIoZ~3)`X>V*Q%`VrcUw_*X{YB~G`C1mM+a{&sP; zs07~Rxs(UuQa(Ar>s|Ol>?z=p|G2MW-32fma1|g0upE#JCp6!V50Uv`s`w_nTGo-O|fP73tI{95mLL9PiyH9h`*+YC)6R8NGcv za$~3sn2+{}#&Ptdp1qrzDdRZ?ouZ;{xyH_Zy88o7*N(%aK7-ux;wRibrCnhc`wvR| z_A4&7b|P*sz%C~7IN&(!BTVf@J@A{*UWjDrZx^%0e9$a|JJy6ZX{KGY0IyQ>w~O(h ziM|AGbNh1=c%8tD)!HS(TcqJdndoI+De)!%kNl}UO9dXaXJbrwO~9k}Y=-7ftL@NA zkp%Zx6P_*6E{+3lk>*eIpl?iXvbmK~Fv7h=7dKgl^4cqHc-6TN-FBRQ7=kNgQQPs1B!!kaN$;#B~T{E0uPF!N_M z;WYq{@=*;u@+W#;jowHTUd$XxZwv6qpUSrwcvQaQOn94sN9DT%c;rv?$~1b>CcNAv zNv|GwBnD?&gogG{*>wJ_+ON{_e)N<>r19Tm>f=h0qJf=8Gp-E&RMXRY3}(Z|G{|pGX1Av zO!aB{uAhB@eA1{C<9KoOx06f*(b?xoM>d5x&Nn%%7f8oK3iDrGRqWl#cWeZVv;Fj&ebNz$ZJfF7c~c`Q=DufFmm@ ze>4_1Kie>dJ1Yk3Ay(-d1%t|!#(#}-?PgT53Apj_*$EoNP*o+3+_CPBSsLN@F0iv( zf7JpXf)>X${OEdG1^LfEi@+B_rUrR135qrF!z38&sWgSv!M?-fHpi*g{EdB81e%uQ z!j|nQ9_<}05e^=kM{ey}r_^=co$X5f{>z)L{>nvpPe$%7JkW8;${+0*=M4Pm?|Jt% z#I?V>EPN|i+l&)4ulwlKzw5oWA0%TxZ_b_1FPxX_((dssE-dz}PncejeDzncv3j+$ zu%s||bzuqFXD&}mp*;hvk6{c=5Ak{yU=rMm0Lj|?i^9Cmct%F9>G7U0!s=do=2yGt zUb3|Mz~SYOJo5M(NI$!u8y;VJf$gUi z*xpW_|I=EH7g`6SX9wKPfcX);{3AjZ`W7`z-h}>RL^y9%p>{{E*J967ZeyXcGtL|# zBDdUWgPeHLcbLiK9YXkNTVUpGMY%kHUc4y+0!%Ud-0CTW2OV2pKdQmP`V|A2vJNJ0Ul%Cy+_4 za#qTMtM&Vnt5$7Toxj5GTUc7Q5kZ38S^2(&>&li%>4y9kloZJD<*SQ;V&KAl`?Aut zJ`W;r{G}zJNEn(srL?pd&Sm9tUypG>V}-}RprF9#q4jbqw=v5$KbV+p&psb*H=2BC zTP^z^UY>L7`y1S=$e-gb^V|iMXSv%^x7d&JkncBmT2x+U_&ZBCa8?Ywbz0bBu#9+V zh3iS=M%*;4d^?_JwOM6CAhz@LF`6FhQ7D(Q8I?`_iWzt9+@;B1a zk62GssSi~>8=U?~#`+zeCi49$8~vQZ0wF39XNyKR(@ZxvM3>GPnCVjgdxytY;whd( z)sy*NSX{c^lbT;rQ0x)i!0*#&=9y`FLp13OgPA6^3)w#OT9kX(iN*}O9kv)zY^LE4 z(V+7XW*Q{Fg+31|1`%1nG|Ds@6=oWhAsTeH!b~F$G*EwufUC5y#E*kSOlO})r`k+s zONb7g)iBc;3p%=twBm*j)^LHBsL7_zOlwDo7M=ev(^`?gfpg@__j`#(O8%NV7M2!s z1A+qe=ypd*{_0{+fk-L!;Q-VM|3*lXGNS7t#a&+JDRJXy8+3tnxuBR!PAo@Lp6@ST z&p2fF`Qf(+m;4uO$S*7=!f?xGYkA3HjM3J6k(8J$wjc`CeCq!!=*uiPixJH*34SZk zYi&S(w;25$_35mEo@=)ZlF>IaQl68VHC9C#>=`#mR? zU6Aqb+h*N-Nx*`>i2P>Uo|sMkm)#tfOZ^k|>rZ=LETg{cie)oFWhT4z@DF}|f5P8q ztXSIk!?kyP_x70W$KEZqv_E^&@$9v8|7%|PTLg6vO6)^RD z{A1h?3bGrtm&h90i5|0nfR7z=iNx}N?u>f$>7*oSV zMa@Xo>>0_S@xbCT@|N`6tBH`bFT*yz)`oIg8Ofla;Vmv(nuIv?aM;59^?q}o4(gff z{X8C&aq|n;dmI})$OyYZi3qTr$9|d}<1~Zj(xgy&Xh<=+LPsjIsME+ST~M;VP>UFXJ@tOel4$W^GOgn($kV#J( z%uE37lhRoZ@?Qkl0;mJz0g3??fNB8Mi|!?4MvEnmOmRFFbMU2hu?cb8VcKAhuskt} z)@A6y{+qV|_~z$AEN6`ruNpWwA>;K%;vk`s;za`o`&Ia@Wsx}G2R({`6OXj=B5{C$Gue0um)ZxMA&kHg(-XnZ^9CKt zS49NQh2RG|VbF5y@7%84K=#ZQvaV|u|X|?>`z=;#lc{?K0vL%AfD+Uhsm%Upe zaiT%T#1FN7%@H`1FROT+>2x9t`IfXD736aujGx*FoC_}| zoL?9?q(A;h9LUgSN(*E~O9YOvTE|e|LXW<7NcIb~GjK<4vXfI(!0bibNcr-}hYA^w zzE(+g%}Y$v;&0O8M#kR+T$1Jg%g+bMdoJ3AYP1uLfC;eAhnaLE+8fw&U`~R2uqV$H zb`1EHfPtP46CR!Y(6y{FqRe&w)MT7tz`F3xgE%JzJMGce!%qHm&Z0rH(;10I*y*8j z5PLO$I-Ag>+3B3wKG?fp(pj=**lEnJkJr&Xt}>6=$!#9DlUpCVGp=d;PImyD9>2E~ z{fRz8mu4paP#2xyqv;$C+%rr4`Nf*Uv9;-SQ>!qX41-mHIt^(x}GOLbRS7c=?o)6j_C!5CGh3c@X?N#qs6z8dFpSTpb zY{86}HpeMKMxaZz2Ggyo4v(J?tjHkP4>dAoPm@8X7H~3IJlDqccTkmc@ z+e=n&GYTx*6^y5gY*oi>s^gg2^`aFainB{`^eCfMXLpgsOXt6p8)MXQl$4T!4D>1~ zvB9m0l#u&~D?=s(LUao*;5fpm7exi*lZbHZ^nkM~7(W?y@ATz3!gp!Fc`O*;fD9mZ zz|oiC3gN~YxCala&f}|Yo6};JQw+&zi1L_Wlt;UikNV51UW?*5RrQxovXpYGIxd(V zgRF8c)vo3aNTA3vCrDZC;f!W+PL<7loY5nujP^xjw5oM7G8&Ah>w(JVQ{Fzx+i1fJ z{0~*)oD*5*oS#Vply`Fj%A)VOUj~Dmt-dzLv2Mzi!^)XDt~#w%?|h;-t!<7EfGJeB zRgHpYdeB8$hhh^jsH-dr2IKQk0B};PAJ|@iN}oacYDJ`s;MPj`zV)tBlL!B*1N0V~ zFZPnJw+T%GXC*-1&?-_Fr6v`Q_eQs|2{iF$4bkkrB>8OIEM8gvr{2b~aW(H^Z=%hy zgIe@v>Q?&7ei00+U8-Y;0!DX|tR3|vX=j6SW2_geN0p&W)RBU@0`88Gg4L1II6I`! zkr^T!;DlYsw>qBq3_er|-=Q)C38~vDGaxK8vq;MfnTR}aX5u3=v!@lAX;qy&6i9KW z;)+q7^-3!24T?+4Oi04hIWvw9R1>O}Fd{QE0tpuhZwv_`lo=@mXNOjuA&+LT-2xI- zt+xJouN^S&9y4#?UZH`)UA$B^5WXQyhkw5~@T6i@gb1~$UEWEk0vaO~9 zT!d8Uii0fm0Qo}j+c%L(vae*>SCi~Vk_r7T2UC7sPs zRaT!7NoWhYM82`ogA0HXg5V*_EBP?83@z>r32jF%gV#11%s%gWMXTPvhJ`JNp>rmZwGFf<^=`Xo|oE zO%b@DZ!{uYsYT#|Mg%TsiogX;5xAf!f-GovQ-&rNQ$YtvUXZv^(A!ClVI@DGL^*KD zbMa!P5ujpD57wQon58i z3EF7Wq>r&&#_lcJC_&amQX$DPrU|U5m?_jF<^BpvzEVMD4%O|Xpr9r>cWIoH2~4yW zdtKfwP!#Zwit}Oj1ugauyVoi;bwEIkiO5#m%K-|gc{Q$@+AFY6gU{2k-&QjL*^d!X z7!Sw7#)F!gX@=iq!!OD3n_>7ZGW10_Z&L+vOrcoO}HIvR{Gpbo8*#Z$}e3Cr44HmB370m~*0jFDE6 zNoCVt{AbK+(I{Qj5>Qq&BJSUuRH80X53Q-1yRLs*SdWN9shU*Dh_*0Q%MO`{4=t%v zw&%jp=BQ(L4LOt=KP247tsj+7)pc|t?E z&I;?;f_g$WDho1Q!HfyS`4-r#4$vEG14R?ObnZ)HVmeLUMh&sUK`D^QY&y0mHMMY1 z|DkRt8#NzfVy(hO#H(SiIzVqC?(%jMamIuw$=hf+=EFh6$zLjkCY!JuWvs@53+=Qb=D z?8M+;hb!Q$hn)rr4Y2P`r%Eda3kd;UAwWnaLaKpP3;PyV(FlEga#BEchuV10Gz;+F zQeYQHzlD4U9Ce6I>Cu|SPA$C#*c)YfRz1CGpC-Lnylk&N3MV5ebUz?*N=2{vWx00d+<0m03;B0k4W?k9PvXip#D%rbB?Up>Rz4lN3 z%hi!t!8)2e1e`~Vb?b>(Np@ugACi-uBcX-XH6FBI=Kxh31L~{G5RJARJM_|Pta-70 z==o1bKF$B@@}bG#r;<DQ{BB>y`34rMyykp4-Xix%qqE zh1#w>Z|8R+-dbf^X=}Dt3ZWhf1PB|;rPENU6bFWV)JW1WQ?Am>mG}7+SVL6w3WrwC z-I)%-ErQ@&M2Aw6p_tH7;%GTY+=LKtH<6ILbX>^^RbAi`Sv0I6+&Tj{7*F+hZB2{6 zSRIwEZ#wlFmG>kPc2=sRlp1Q|G~VQ1k(@oUKO)j7@7iDTo)lTb_N2Iq^FEQYSF8Tz zr@Z$TqS$Bm4+}W!0&esI4orBEL6!nF@^VFI(x+`562zeGWrRNT4eP_8`e5b8>OZ0n zTkrVa(ub;Jq4w|O8MS{A3uT|N{VV>G+rO$~q5V|rIcWR_UazG6R9gI2yQ zuzbQBs@&XTZDQPzd#Q38%(Rg@YaQ}+1{kwClm2u3|Ie4f|MV}2e;#GI&3oDX z*>frpN^PkhAIQkUFk+oIx#ws`-;pmL3q3(&4;wP zQozy6DTnsQa3rHs4y1_lQ{I*`hz#d4Pz$-gb@yWM9dRy0i*TCJ6;84YQ6EF{%=zr{ zqysMhL3#4H+kIy8wE6xs@=P@J(@XMn$Ew%SuWHYE3q`3P3F=i=_5|Nh9k!QpFjx#Y zdzDFWmRkev9!y_*c~i+nyGp6NjNb!vbqXydkUC%#hoKkg#7nf?K(05`kpX89W_3`i zzKnFt+_Z>rwmEu88_m)3WTJ?M30)5+%TTSpbeh-=8O>`%!=_gc_{_kFjyJ!Cj8vUjtQ#MR)o_&ZBzqT z%vO}g45e!fslaph@gXigfry-=yNVh_v_tR{8t*oNAE+JaQ>cU&+t37M@G-{%*{cyR z1!25|NjE{4Zm%xgK0~@%x7bg*p==DI8AI?Nl4tX$kf%2!Pj6Trz65!;oJO9-A$b;u z@e(G_}TkD`KEYf(Wg_m4mIq5IewNTTwgX*a~Jvrq0g^<2>4lUoU+rSNr zn0X^t7;j-xcBN=-!WXHvdTxfyPe^~eKZU$))J9R0zW%ztrShfZP3 z1K2d$QdVM#vk^JLiIF2{g8A&uNgBRn(`uoM`;BwdDb!bBt7{W-g=5%<-Ww^s&=1iN zt2-TovbsuLJmb7%W!a#gIm9yyN&^Eb)2bW#1ZR(GL&N`2Ep(U#J06nul8Yl}Ao81z zo~rBkXS>U--BDlTi>KYnC6_UUb8S2bs-DgS z_8HIhQe*s?c%ZKdX*`^!@$bh2?JR17U><06{^@xDIc$3*Km;`T!IXn$xv*l;&$E$G zmD9JGv^wd1?Os$#Y&mMv6oap@`O0APlp*S0sDGI>czyVPs(-ov;nVdm9$@Hg>Hk0a zm-P>wu761fhAxvz)Pc{{zcf^T{{Cg()=$;Hgx33}524?SZF8{Ch!X`p%I0<)E#UD> zhCZ9k(r2^izWiC_4uCUTj4ivthBcgL{Z9<(3#; zAnnEisfw`xR%pl5Yy;OLFb__*;%hrT(y7;=3w>U#*#=*7 zR%r0$Y^7A4N7RmHt?yEB_pC?u8P_N`$EXvP1?a1~DLqFIxRdiW3o%5zfFlI=Avl;Z zI4`*Vz`R(4JfmWE2A)x^Ro(4iX)TGVt6A$slqm2--N-c%i?%nzf&oWe+_PlSlnZzK zm?Io11xL8=H;8mF-jplJBqkGUG~EcX)^G9=&YIS@Fl%Vo2jol+{?C9j^%~NNQ}V8# z+lnzn9C>7Tp)ks-7`21MGLhGGy1mqsWMShE5&Sr=VMXjJ)LWPCZo< zMMMg|f%#1>`a+t2&=oG~RomsIFq{Z-H{<1K$7XyZA<(x4aY8G=tif}KE4__RBiQlN zKgwgoa4_CVLxX-@G~G6H;B1$(8Ee4pSWyif{`LMv#R;tkp+8|f+ORgI<(hcJ@cy&s zSJLAA;))tLz{G5z{5mMVPTWLtHxdHp*U=aVP|o1FBRxar_sDgp&94Ku>u|2j-Hg)= z?bwEi%tDW3$}ft8iUtUrUuR=r zJLMOiJ2G4{zsFCXU*`@I8m{1=jN4u5{qp+^xRH7aew^J?o*r%mJnf8VEB z;2*R-s5%zf-?5`Hh*(d@D()0oM8~jHKbY6ceP}n92i#Z)I1)Uh+?}V~J^v*-HWXNv zyH>foSh+h*x!a}OovGZNqugDf+-(Oo`m8ApsG#Y*Q?RyeaS6n9NbOV?dq4c+1;2BB z_(u*<-1`Z6KOJ%ZuzO529CQ|%PB_cp&cn6g*QR~v~WU#pjDGzY)sJwbl#Xc z$vaxTG{6rnB(@=mPGwZMYgw7B77_$LRl^y>jo0&^mQAvV@`O z+f=6gp6_}S9*|?Lep^8X^9R+dXqSNI7Jr~3`@_(4du$F3p)WZ`=i#Ex0~^yPNIUwS zNt5#(-h=APDhhgOXE0q!#Eghr={{@^SG8CaYJl8Lah1DJ%4kPhs3LXq9Rx=wUk-3I zS?#o;w1uKMTTHVn>>BbOqPr#F=#)Fj(}9G=3-7!KAroV_Oxs>WY#>E0M zaj_tkPdQKvfrvEBVYyHjU@jR=_)?-YguxM0<|^V&&xhT7sfRMmI8*~z$m@M77b0CzAWz)(m`pb#=*m#l0eaJgjLF{C zWTeKJ>FRd!1}SR56~2T-mlLKDE}l6pRR`$GkBHljUIJPq&yjY@Bb;Dq9FU51jTku3 zxSGcKJ^A#Y`OPs(0VJ^?NTMB22ImSEQ52=!J)*>{YD$@_FBkNr@yX?T0uvJFkua@Bpj>fM-{-_hniCOh0*_m{PyYyo#A6qoJ`(47RW(wGjS;zscV z%tDp%102`K?=x{T7P?K`A+Ne2XjcHj8T3e&}>$*50I6UUaS&0ECg1TVR{I|NR;%6IRicH~0f zq#a};A#@WRh9XdFN#sp*Cq&RC_keVBG`eIGUDeT{IBMG*O>krC(@3>UUOzciiM9bZ z;~VKW5%%(LA~f-DBJAUNe-GHDwn=r?q7KkxA!8clth#D*wb(qRXquOPkP@N5qx(HF zTXcJlvPC8(Z_XAsgr6~6E{!gkL|10ZyJH^2Pzw$9+Ah;08Tq9qgXofJ;x`o{^UjcR)1^Ay%;od}xukZ5sByCs!6mi)pOs5$fru`dAudq~ z6lW83g}Z1A>STtu7(7#(Fd5BHRZCP{Wd%ypg;fC;50dmCRBlXI_@`K?zouUgpr%*5 z8|}@ZoV#o3*LZLl%{5TYaScgzRHI>+`b3w1h(j`oL!)ss6wCbcDyS6H^jB@n5pfR? zKB_VGKJ;Tbp$fls@XAE%6;8UWE>lm|QYRB+z&jR4YQ43T4YVJrIl#1`F)(*adWX%w z*d#m5oxl%yqrsQn6=y7sB#j?3i683fag7MgYBx{KWcOw>WP|KeeTN&BRR0mAy1}!L z=1|2QFg^Q;T5@Dka@b;0oVDI=@a=6qW9I2P7ZoL$M9s`4^~Rr-%jp_jGKsF_5-pw_ z`8CqWPquiYH=)JDZ>lt6A+X8w{Te`ugpT;tP=Zn8#)Os3=Brnu|S{VEQs z+0k~Acl$tEQCYRQl6tOC55rnfX=ueHjWn5(#dakC$>K&SHWT?yBHbt@AMiRKyz&xU z)qx6%fI-uI$+5h>h>M``Hu#MgBvX4QcD{;FHD=$a?~bAOJ3_^7#JlD zS}n0EgqFw@-)OvW1X3G9(L7flnP83ic)zQQvD#Q@(E0AY$M!)~#*{ZP9!n%Al=4#` z%xBQ(T9&>~4tBINDWa!vBUVH5){>j)$@DgRHvYb@W>H;^$@1bVV@<{NI_x10g2u4dM=EWrMo19a}I6c|H9b2RUk!O+#7q-5nrGpd z^TRYU=4Gw3LxW^}X^HE1BjV6~MrS<=)2sWW50_ zYP7Z{hoO)wgyM+3q8&Mit1dzVQ`I*zuKG@k5Lf(;{pb_v@@PJejZrxaEUg|~)lP@X zVAm*^Aw@q9b0baq)aryu|H}~kOI$lo=|w;Va4wBFvtvm1*^oU%9iyy@{VdXksE;<0 zC>DEN5eq74uc+wNWnS8la#6dC1y^pvh!+|`s$FwhxSFG!JG63EZZQgZ@=-UF&Y|72 zZxOy(@dp#Q`$&d&+9D*3s)|MK8H_ikXa+YLQs3#AU;=o1YjMuu$EXSJ;otO-r|hmn zn!$KKg2At{7^vJ!Q%6c|hq^3BS(bLjoE(qjglZ_tLbf`gOAGJio-yemGD*ui1LguF z49F8d)3)LXG=tOVo{0NM==KCg{unu+IRs-#D7mUu?M8284>V9Kcyz>_q2mg2{d~an zlvD`1@3k`1dP*KOi=X@VRxu|zoHD;>ikN5@f9gHaYWGh=c4_saZ#hm=D*Wp?a#`vv zwj;^IIrD)-Q*)l^xkUMhqkR}&z*DX>#$wH)$P$bfqykt5OizpMjH^sR#jpA~R(R*a z0y2s#4KYSD8QccR2#b+PF>HE_QF@F_#Nf){w7#_B0&l?(oaPKYVi@h3HtO-AnLr4rS`EkA!E6%QN%vV=c&w)VaftHB$zm zc{OC|$(tW4;j1WTDB-J4!3?si@6~l?9XLRQNC#SB2A?Na-!Fh+WT*jI!CaNs#&|a0 zWL~K_4h>Nqoi1+^#1tB}VyTc@>`tl!ujIGHplXq%JH+hNy^_1ui4V~7k2%V-TjGjssLQi8K4Sk}9 zPHYkSG##C|W%L;m9or7kX62{$VWO5hEEk|w)X6i{?iQ#TjbfD=fvDd7C>pM%1?j3Q z4`HncqZJ{&lJ+Y%m$xIVIB__HiWAFesO!0?e){aBRS)1FE~MXvq7<=mmPxbfQ&6U= z1N5d@bta#tmOpWbX*hYKBFJ^DeQ?mMnoMK~JxwcAMb2hvvKls+ZZX!O&jo7VFL3T~ zfR-2){uXM9&jXJ9=`|uux6`a3-32k^Axl-8yM+HH97A4Pm24?b!7bf6zx!JH1V!e@ z(Iqo`p<18gE6=Y#ve_E>~*{Y%A_EhxQBwWWuCIGcoDb%5UV z+fRkssa zB+jhA$$fB-Q|rC{1_Tro#P{Z7I}zc{8hWSW3?}d5UD_|Fd1yfE)JDpz>Uec_9M3344Nm1nogUypG=(rA6Fi7 z&BZE?zIi)DVcvuqV*VI9-)Y6rX0RW}$u7e$241OMbu+KcmYZ5Haf$#Im z`w?`XcM{2S;PV^Wl-to)WRV-{S#rBV-r81AUi(Sh1NGoC;BLvr;R|H`XEf8rZxcD& z@smUttU#5iH4GiJ!$~1-#wVjVu*Z*)cahDdxFtHBG$0xF;s*sxd*W0Cy;KB?^%7VM z!DHTZ1cZ-M*Wm7}YO|E(WM}ZUzrJ;%o}6>yXb!Z%JLktzioJRPq9Y*=1~?Ma|5Fh7 z`i^$sgXKBkcs>zQ==-?9G@hRhv4)@bpcX1(e-z@U1-yulCU8?$mfpAY0bPTE$2*wV zHwsZPHeI@_Hg{wHFtl0$9JGqGNyLqiqxrp2IJSX=ASo<7V7* zQ*1uJC`ViP?m}!TG#Psz#okA;c}0~bg5ZaSDU43iu7)4h?|QUuoV#6_)vfyWtjKR4|oai3%Dx)t+4+NV1xZHFvr7;f==21 z34j@Zd4M#)EdVcI6X08bdca=53xHNYFQ6UqPr!_M5#ON%oCEhXn8|<}ETS?MW){E; z*Z` z&Qmb=0~WykE0})(6axQ!m?r^N{N(&3z*hjX0rLUN0J(s*fDHh8oGY?YvYb~ZhJ7nYx<{DPuYYs>ukCG66^G|ivaGrrds_U&TO#J}+^Y3*x$ z+Lw~eG=QZ=*_*y$b3qC<4fBHmT%QMiN;hTzlmu6j%4KbyB989Ul=OWh2A^X`|m(%jx5Kr%vCFv zF1u+JQj;IaX4*r2*ODZM?{RCqLUQ=hWaul8+SeHMd?Of`i;9aEmzS*Z7nYXLcdjX} zED?N_me^u!?Hk#eE2JT5s4Wr$Df6c?&3tEgiaq)3JwTB-`0N(jk>fk@>lPL+ht z^dW(;Z%zM-n86($wJS-8}!oeT5Bzp#qj z8!aJJdR;kdHI=l~T>0(xg-gwCsp;#nIuG*OvYeWyf>@JzAL#q;+V@=vXZRVGz_0{{ zB`_?3VF?UNU|0gf5*U`iumpxBFf4@FeMSOUWm7?!}W1coK>MN8oMfBM~$X0)J_ zXF1r%8VA!3leP}0!-OG1cou=fspN_O{{B1q`A3Uc<=B&h|7@7;Fz3K*>W60$F*t2; zl8E9lr$=rpC5k7~f6^fS(+BZShQI3_>{Vi89rxAv$^EksiLmMJEpStO-M#M!cJEF2 zJO2uNQ@Er;G-+QeORNy9@OFp{*p`arVj0{^@m>r&JqKd`{)u2If(SplDP6=?xDWPQ zI4Dcx3m@ndieljb%@VOzlyb;4L9sFsnh)Rg2+tRO;FZEfPmHxGrWiym;K>iHLipc4 z03|wkY=JbA0Z9xgESn@T0sad?Z=ERPG&Ukf`Ec<@jc|hE8qh68+NI!%_GuEuIK*+W zZ-FRBxIZk;BaeQPb?VlCr~lW=yV8lr8Dcc>_1tBFvJcckd6*?;f+m#|(I(t*+L1BB z@rf6bn4jsEfcIh(H<7&9#YEsQXGz`8(jt7FH;OHDZjLt-lq)oOkQAduLP8Ww$P-eX zRi2PwgFS|IX?D5ICS9aybIMWAc&k1ECgIT2!ta4zm9q9!Rtnev_#-d8T3TA*gM(Xi zb_)l%*ub04a^YA2JO_WQ$7!PtC(n-GRVLzqeY^~JJjjH%$*d$2ag}0RFImRDFAaW^ z$B>WY1H3$lx{d~?1-Wm*ncJ4Q0pK2-K4ZQ)E1U*?>p$bJtu?0?a#4|y>;3oj z@NgIThQj*0^jQB(rY^j2^Oa!ml(;8YDW;;I8U-Npo|D27{Pb``@MLr_c=Co|@S||z zVXkmJMLgp1y4-{-1AZJW28M4yb}EA)OEp+ v4!#mRIsXQjr{{No#NnmMtL4j=S4bMewqXejOJG<6!x9*lz_0{{lED7~xP#r4 diff --git a/首图导出工具.vbw b/首图导出工具.vbw index cb5579f..f268658 100644 --- a/首图导出工具.vbw +++ b/首图导出工具.vbw @@ -1,2 +1,2 @@ -Frm_Main = 11, 158, 897, 607, Z, 50, 50, 1161, 739, C -TzDownload = 25, 25, 911, 474, C, 75, 75, 961, 524, C +Frm_Main = 30, 95, 916, 544, , 50, 50, 1161, 739, C +TzDownload = 25, 25, 911, 474, , 75, 75, 961, 524, C From ef86f828a90a4b2c2dd65147895a0276594ea043 Mon Sep 17 00:00:00 2001 From: j502647092 Date: Wed, 10 Jun 2015 20:35:29 +0800 Subject: [PATCH 5/7] update project... Signed-off-by: j502647092 --- Frm_Main.frm | 496 ++++++++++++++------- fp.html | 1084 ---------------------------------------------- 首图导出工具.vbp | 1 + 首图导出工具.vbw | 5 +- 4 files changed, 355 insertions(+), 1231 deletions(-) delete mode 100644 fp.html diff --git a/Frm_Main.frm b/Frm_Main.frm index 2665fc0..542b5ab 100644 --- a/Frm_Main.frm +++ b/Frm_Main.frm @@ -5,59 +5,159 @@ Begin VB.Form Frm_Main ClientHeight = 9390 ClientLeft = 120 ClientTop = 450 - ClientWidth = 17160 + ClientWidth = 19035 LinkTopic = "Form1" ScaleHeight = 9390 - ScaleWidth = 17160 + ScaleWidth = 19035 StartUpPosition = 3 'ȱʡ - Begin VB.CommandButton alibaba - Caption = "1688" - Height = 300 - Left = 16530 - TabIndex = 19 - Top = 420 - Width = 600 + Begin Ʒͼ.TzListBox UName + Height = 1170 + Left = 8835 + TabIndex = 28 + Top = 4440 + Width = 3795 + _ExtentX = 6694 + _ExtentY = 2064 + End + Begin Ʒͼ.TzListBox SName + Height = 1335 + Left = 8835 + TabIndex = 27 + Top = 3135 + Width = 3810 + _ExtentX = 6720 + _ExtentY = 2355 + End + Begin SHDocVwCtl.WebBrowser web + Height = 915 + Index = 1 + Left = 8580 + TabIndex = 8 + Top = 1335 + Width = 1155 + ExtentX = 2037 + ExtentY = 1614 + ViewMode = 0 + Offline = 0 + Silent = 0 + RegisterAsBrowser= 1 + 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 SHDocVwCtl.WebBrowser web + Height = 915 + Index = 2 + Left = 9750 + TabIndex = 26 + Top = 1350 + Width = 1155 + ExtentX = 2037 + ExtentY = 1614 + ViewMode = 0 + Offline = 0 + Silent = 0 + RegisterAsBrowser= 1 + 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.CommandButton oa Caption = "OA" Height = 300 - Left = 16530 - TabIndex = 18 - Top = 75 + Left = 16425 + TabIndex = 23 + Top = 60 Width = 600 End + Begin VB.CommandButton alibaba + Caption = "1688" + Height = 300 + Left = 16425 + TabIndex = 22 + Top = 360 + Width = 600 + End + Begin VB.CommandButton manager + Caption = "Ʒ" + Height = 300 + Left = 16425 + TabIndex = 21 + Top = 660 + Width = 600 + End + Begin VB.CommandButton pic + Caption = "ͼƬ" + Height = 300 + Left = 16425 + TabIndex = 20 + Top = 960 + Width = 600 + End + Begin VB.ListBox List1 + Height = 7620 + Left = 16830 + TabIndex = 18 + Top = 1695 + Width = 1035 + End + Begin VB.ListBox List2 + Height = 780 + Left = 45 + TabIndex = 17 + Top = 9315 + Width = 17145 + End Begin VB.TextBox itempicurl Height = 300 Index = 2 Left = 12810 - TabIndex = 15 - Top = 840 - Width = 4320 + TabIndex = 14 + Top = 960 + Width = 3600 End Begin VB.TextBox itemname Height = 300 Index = 2 Left = 9570 - TabIndex = 14 - Top = 840 + TabIndex = 13 + Top = 960 Width = 2370 End Begin VB.TextBox urlT Height = 270 Index = 2 - Left = 945 + Left = 8700 TabIndex = 12 - Text = "Text1" - Top = 405 + Text = "2" + Top = 420 Width = 7710 End Begin VB.TextBox urlT Height = 270 Index = 1 - Left = 8760 + Left = 945 TabIndex = 10 - Text = "Text1" - Top = 105 + Text = "1" + Top = 420 Width = 7710 End Begin VB.TextBox urlT @@ -72,42 +172,52 @@ Begin VB.Form Frm_Main Begin Ʒͼ.TzDownload dl Height = 195 Index = 1 - Left = 30 - Top = 1185 - Width = 17070 - _ExtentX = 30110 + Left = 930 + Top = 713 + Width = 7710 + _ExtentX = 13600 _ExtentY = 344 ForeColor = 33023 End Begin VB.TextBox folder Height = 300 - Left = 9795 + Left = 9735 TabIndex = 6 - Top = 420 + Top = 90 Width = 6675 End Begin VB.TextBox itemname Height = 300 Index = 1 - Left = 945 + Left = 1815 TabIndex = 4 - Top = 840 + Top = 960 Width = 2370 End Begin VB.TextBox itempicurl Height = 300 Index = 1 - Left = 4200 + Left = 5070 TabIndex = 2 - Top = 840 - Width = 4440 + Top = 960 + Width = 3600 + End + Begin Ʒͼ.TzDownload dl + Height = 195 + Index = 2 + Left = 8700 + Top = 713 + Width = 7710 + _ExtentX = 13600 + _ExtentY = 344 + ForeColor = 33023 End Begin SHDocVwCtl.WebBrowser web Height = 7665 Index = 0 Left = 45 TabIndex = 3 - Top = 1695 + Top = 1335 Width = 8535 ExtentX = 15055 ExtentY = 13520 @@ -128,75 +238,40 @@ Begin VB.Form Frm_Main ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}" Location = "http:///" End - Begin SHDocVwCtl.WebBrowser web - Height = 7665 - Index = 1 - Left = 8625 - TabIndex = 8 - Top = 1695 - Width = 8490 - ExtentX = 14975 - ExtentY = 13520 - ViewMode = 0 - Offline = 0 - Silent = 0 - RegisterAsBrowser= 1 - 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:///" + Begin VB.Label Label9 + AutoSize = -1 'True + Caption = "ͼϢ:" + Height = 180 + Left = 120 + TabIndex = 25 + Top = 1020 + Width = 810 End - Begin Ʒͼ.TzDownload dl - Height = 195 - Index = 2 - Left = 30 - Top = 1440 - Width = 17070 - _ExtentX = 30110 - _ExtentY = 344 - ForeColor = 33023 + Begin VB.Label Label8 + AutoSize = -1 'True + Caption = "״̬:" + Height = 180 + Left = 120 + TabIndex = 24 + Top = 720 + Width = 810 End - Begin SHDocVwCtl.WebBrowser web - Height = 7665 - Index = 2 - Left = 8625 - TabIndex = 13 - Top = 1710 - Width = 8490 - ExtentX = 14975 - ExtentY = 13520 - ViewMode = 0 - Offline = 0 - Silent = 0 - RegisterAsBrowser= 1 - 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:///" + Begin VB.Label pages + AutoSize = -1 'True + Caption = "ҳ" + Height = 180 + Left = 17310 + TabIndex = 19 + Top = 885 + Width = 360 End Begin VB.Label Label7 AutoSize = -1 'True Caption = "ͼ:" Height = 180 Left = 11985 - TabIndex = 17 - Top = 900 + TabIndex = 16 + Top = 1020 Width = 810 End Begin VB.Label Label6 @@ -204,8 +279,8 @@ Begin VB.Form Frm_Main Caption = "Ʒ:" Height = 180 Left = 8760 - TabIndex = 16 - Top = 900 + TabIndex = 15 + Top = 1020 Width = 810 End Begin VB.Label Label5 @@ -214,39 +289,39 @@ Begin VB.Form Frm_Main Height = 180 Left = 120 TabIndex = 11 - Top = 450 + Top = 465 Width = 810 End Begin VB.Label Label4 AutoSize = -1 'True Caption = "ļ:" Height = 180 - Left = 8760 + Left = 8700 TabIndex = 7 - Top = 450 + Top = 150 Width = 990 End Begin VB.Label Label2 AutoSize = -1 'True Caption = "Ʒ:" Height = 180 - Left = 120 + Left = 990 TabIndex = 5 - Top = 900 + Top = 1020 Width = 810 End Begin VB.Label Label3 AutoSize = -1 'True Caption = "ͼ:" Height = 180 - Left = 3375 + Left = 4245 TabIndex = 1 - Top = 900 + Top = 1020 Width = 810 End Begin VB.Label Label1 AutoSize = -1 'True - Caption = "ҳ:" + Caption = "ҳ:" Height = 180 Left = 120 TabIndex = 0 @@ -266,14 +341,6 @@ Private Sub alibaba_Click() web(0).Navigate2 "http://work.1688.com/home/page/index.htm#nav/home" End Sub -Private Sub dl_OnFinished(index As Integer, ByVal Result As Boolean) - dl(index).Tag = True -End Sub - -Private Sub dl_OnStart(index As Integer) - dl(index).Tag = False -End Sub - Private Sub Form_Load() web(0).Navigate2 "http://192.168.0.8:83/" End Sub @@ -282,75 +349,136 @@ Private Sub Form_Resize() On Error Resume Next Dim lefthg + web(0).Top = 1300 lefthg = Me.Height - web(0).Top web(0).Width = Me.Width - 50 - web(0).Height = lefthg / 3 * 2 - 350 - web(0).Top = 1700 + 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 + Next +' web(1).Width = Me.Width / 3 * 2 - 50 +' web(1).Top = web(0).Top + lefthg / 2 +' web(1).Height = lefthg / 2 +' web(1).Left = 10 +' +' web(2).Width = Me.Width / 3 * 2 - 50 +' web(2).Top = web(0).Top + lefthg / 2 +' web(2).Height = lefthg / 2 +' web(2).Left = 10 - web(1).Width = Me.Width - 50 - web(1).Top = 1700 + web(0).Height + 20 - web(1).Height = lefthg / 3 - 350 - web(1).Left = 10 + SName.Width = web(0).Width / 2 + SName.Top = web(0).Top + lefthg / 2 + SName.Height = lefthg / 3 * 2 + SName.Left = 10 - web(2).Width = Me.Width - 50 - web(2).Top = 1700 + web(0).Height + 20 - web(2).Height = lefthg / 3 - 350 - web(2).Left = 10 + UName.Width = web(0).Width / 2 + UName.Top = web(0).Top + lefthg / 2 + UName.Height = lefthg / 3 * 2 + UName.Left = 10 + SName.Width - dl(1).Left = 10 - dl(1).Width = Me.Width - 20 - dl(2).Left = 10 - dl(2).Width = Me.Width - 20 + List1.Left = Me.Width - List1.Width - 350 + List1.Height = lefthg - 350 + List1.Top = web(0).Top End Sub Private Sub getfp(webb As WebBrowser) On Error Resume Next - Dim i, j, vDoc + Dim i, J, vDoc Dim ix As Long ix = webb.index Set vDoc = webb.Document itemname(ix) = resetfilename(vDoc.getelementsbytagname("input")("subject").Value) - ERR.clear + ERR.Clear itempicurl(ix) = vDoc.getelementsbytagname("input")("pictureUrl").Value If ERR <> 0 Then itempicurl(ix) = vDoc.getelementsbytagname("input")("pictureUrl")(0).Value End If - If folder = "" Then folder = InputBox(" -ͼ-˾-ᵥ!", , Format(Now, "m.d") & "-ͼ-˾-ᵥ") + If folder = "" Then folder = InputBox(" -ͼ-˾-˺-ᵥ!", , Format(Now, "m.d") & "-ͼ-˾-˺-ᵥ") + If folder = "" Then folder = Format(Now, "m.d") & "-ͼ-˾-˺-ᵥ" + If Len(itemname(ix)) = 0 And Len(itempicurl(ix)) = 0 Then Exit Sub For i = dl.LBound To dl.UBound - If dl(i).Tag Then dl(i).FileDownload itempicurl(ix), App.Path & "\" & folder.Text & "\" & itemname(ix).Text & ".jpg": dl(i).Tag = False: Exit For + If dl(i).IsFree Then dl(i).FileDownload itempicurl(ix), App.Path & "\" & folder.Text & "\" & itemname(ix).Text & ".jpg": dl(i).Tag = False: Exit For Next + itemname(ix) = "" + itempicurl(ix) = "" End Sub Private Function resetfilename(ByVal name As String) As String - name = clear(name, "/") - name = clear(name, "\") - name = clear(name, "*") - name = clear(name, "?") - name = clear(name, "<") - name = clear(name, ">") + name = Clear(name, "/") + name = Clear(name, "\") + name = Clear(name, "*") + name = Clear(name, "?") + name = Clear(name, "<") + name = Clear(name, ">") resetfilename = name End Function -Private Function clear(name As String, p As String) As String - clear = Replace(name, p, "") +Private Function Clear(name As String, p As String) As String + Clear = Replace(name, p, "") End Function Private Sub Label1_Click() - Dim i - For i = web.LBound To web.UBound - web(i).Stop + 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 + List1.AddItem 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 "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 + For i = web.LBound To web.UBound + web(i).Stop + web(i).Tag = True + Next +End Sub + +Private Sub manager_Click() + web(0).Navigate2 "http://offer.1688.com/offer/manage.htm?show_type=valid&tracelog=work_1_m_orderManage" +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 Private Sub oa_Click() web(0).Navigate2 "http://192.168.0.8:83/" End Sub -Private Sub urlT_Click(index As Integer) +Private Sub pic_Click() + web(0).Navigate2 "http://picman.1688.com/album/album_list.htm?tracelog=work_1_m_albumManage" +End Sub + +Private Sub urlT_DblClick(index As Integer) urlT(index).SelStart = 0 urlT(index).SelLength = Len(urlT(index).Text) End Sub @@ -361,14 +489,18 @@ End Sub Private Sub web_BeforeNavigate2(index As Integer, ByVal pDisp As Object, url As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) If url <> "http:///" And url <> "" And url <> "about:blank" Then urlT(index) = url + 'List3.AddItem url End Sub Private Sub web_DocumentComplete(index As Integer, ByVal pDisp As Object, url As Variant) + On Error Resume Next If InStr(1, url, "operator=edit") Then Call getfp(web(index)) End Sub Private Sub web_DownloadBegin(index As Integer) web(index).Tag = False + urlT(index).Enabled = False + Me.Caption = "Loading..." End Sub 'Private Sub web_DownloadBegin(index As Integer) @@ -376,22 +508,96 @@ End Sub 'End Sub Private Sub web_DownloadComplete(index As Integer) + Dim target, title, class web(index).Silent = True web(index).Tag = True + urlT(index).Enabled = True + urlT(index).ForeColor = vbBlue + Me.Caption = "Load Complete" showweb (index) + List1.Clear + List2.Clear + Dim vDoc, vTag_2, vTag_1, vTag, vTag1, vTag2, vTXT + Dim i As Integer + Set vDoc = web(index).Document + 'On Error Resume Next + For i = 0 To vDoc.All.length - 1 + List1.AddItem vDoc.All(i).TagName + 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) + Case "TD" + Case "A" + Dim st + Dim en + If UCase(vTag_2.TagName) = "INPUT" And _ + UCase(vTag_1.TagName) = "TD" And _ + UCase(vTag1.TagName) = "IMG" And _ + UCase(vTag2.TagName) = "TD" Then + If vTag.target = "_blank" Then + If SName.AddItemNotSame(vTag.title) Then + st = InStr(1, vTag.innerhtml, "data-lazyload-src=""") + Len("data-lazyload-src=""") + en = InStr(st, vTag.innerhtml, """") + UName.AddItemNotSame Replace(Mid(vTag.innerhtml, st, en - st), ".64x64", "") + End If + End If + End If +' If UCase(vTag_2.TagName) = "DIV" And _ +' UCase(vTag_1.TagName) = "DIV" And _ +' UCase(vTag1.TagName) = "SPAN" And _ +' UCase(vTag2.TagName) = "UL" Then +' If vTag.class = "btn-edit" And vTag.target = "_blank" And vTag.title = "޸" Then List2.AddItem vTag.href +' End If + Case "B" + 'A SPANB B B + +' If UCase(vTag_2.TagName) = "A" And _ +' UCase(vTag_1.TagName) = "SPAN" And _ +' UCase(vTag1.TagName) = "B" And _ +' UCase(vTag2.TagName) = "B" Then +' Me.Caption = "ǰ" & vTag.innerhtml & "!" +' End If + + 'http://192.168.0.8:83/app1/TaskLadingCn/List.aspx?k=&RearchType=0&UId=0&KfId=4986&MgId=0&mgbm=0&bumen=0&followup=&FState=0&tdtype=-1&FSpeed=0&FMgSpeed=0&FKfSpeed=1&attr=0&AttrBus=0&selDate=0&strDate=&endDate= + 'TD A IMG TD P + Case "IMG" + If UCase(vTag_2.TagName) = "TD" And _ + UCase(vTag_1.TagName) = "A" And _ + UCase(vTag1.TagName) = "TD" And _ + UCase(vTag2.TagName) = "p" Then + 'List2.AddItem vTag_1.innerhtml + Debug.Print vTag_1.innerhtml + Debug.Print vTag.src + End If + Case "EM" + If UCase(vTag_2.TagName) = "A" And _ + UCase(vTag_1.TagName) = "LI" And _ + UCase(vTag1.TagName) = "INPUT" And _ + UCase(vTag2.TagName) = "LI" Then + pages = vTag.innerhtml + End If + End Select + Next End Sub Private Sub web_NewWindow2(index As Integer, ppDisp As Object, Cancel As Boolean) Dim i For i = 1 To web.UBound - If web(i).Tag Then Set ppDisp = web(i).Object: showweb (i): Exit For + If web(i).Tag Then Set ppDisp = web(i).Object: showweb (i): pages = "Ѽ...": Exit Sub Next + pages = "δ..." + Cancel = True End Sub Private Sub showweb(index As Long) Dim i As Long For i = 1 To web.UBound web(i).Visible = False + List2.Visible = False Next web(index).Visible = True End Sub diff --git a/fp.html b/fp.html deleted file mode 100644 index d9a9d67..0000000 --- a/fp.html +++ /dev/null @@ -1,1084 +0,0 @@ - - -ӭҵİ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
          -
          -

          ƷϢ

          -
          - -
          - - ѡĿ - - 롢> - Ʒ - > - U - - - ѡĿ -
          - - - - - - - - - - - - -
          -           - -
          -
          -
          - - -
          -
          - -
          -
          -
          - 𷢲 - -
          - -
          - ˵ - -
          -
          -
            -
          • дãarrow
            • -
          • - ͻIJƷʣʵӲƷҪԣ磺ͺšʵȣͻԻ⣬һЩϢ磺ŻݻۿϢʱⰸ -
            • -
          • дϸ˵arrow
            • -
          • - ϸ˵ƷϸܣƷϸͼƷܡϡͺš;װʹ˵ۺȷ棬ͼIJïͻƷƺص㡣ϸ˵ -
            • -
          • δ˷ģ壿arrow
            • -
          • - ڡҽ׹--˷ģ塱½˷ģ塰˷ģеݽƲ䣬ģơءͷʽȣдɺģ屣档δ -
            • -
          -
          -
          - ѯ -
          -
          -
          -
          - -
          -
          - бϢδд밴ʾ޸ġ -
            -
            -
            -
            -
            - -
            -
            -
            -

            ڵǼΪ

            -

            star

            -
            -
            ϲϢѴﵽ5ǣ
            -
            -
            Ż
            -
            -
            -

            ޸ϺٴμǼ

            -
            -
            -
            -
            Υ޸Ľ
            -
            -
            -
            -
            -
            -
            - -
            - -
            -
            -
            -

            дϢ

            - 鿴ʷ -
            -
            - -
            -
            - -
            -
            - Ϣ⣺ -
            -
            -
            -
            0/30
            -
            -
            - - - -
            - - - - -
            - -
            -
            Ʒԣ
            -
            -
            ڼϢԺ..
            -
            -
            -
            -
            Ʒ
            -
            -
            -
            -
            -
            -
            ɶԣ
            -
            -
            -
            -
            - - - - - - - - - - - -
            - - - - - - - - - - -
            -
            -
            ƥͼƬ
            -
            -
            - Ԥ -
            -
            -
            -
              -
              -
              -
              -
              -
              -

              ƷϢ

              -
              -
              - - - - - - - - - -
              -
              Ϣ
              -
              -
              -
              -
              ϶
              -
              -
                -
              • - - 㷢 -
                • -
              • - -
                • -
              -
              - ǰĿݲ֧϶ -
              -
              -
              -
              ֵ֧տʽУ
              -
              - ֧տ -
              -
              -
              -
              Ҹ֧϶ңݲƷʵѡ֧߶
              -
              -
              -
              - -
              -
              -
              λ
              -
              - -

              - 1 - - = - - -

              -
              -
              -
              -
              -
              ۷ʽ
              -
              -
                -
              • - - - - - -
                • -
              • - - -
                • - -
              -
              -
              - -
              - -
              -
              -
              ۸䣺
              -
              -
              -
              - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
              Ʒ
              ϣ - / -
              - -
              -
              -
              ϣ/ - ɾ -
              ϣ/ - ɾ -
              Ӽ۸
              -
              -
              -
              Ԥ
              -
              ɸҲɹIJͬòͬ۸
              -
              - - - - - - - - - - - - - - - -
              -
              -
              -
              -
              -
              -
              -
              -
              񱨼ۣ
              -
              - -
              - -
              -

              ޷ʹøù

              -

              Ʒѡ,ʹøùܡ

              -
              -
              -
              -
              -
              -
              - -
              -
              -
              ۸
              -
              - - 0.00 - - / - - - (ͳһλ) -
              -
              -
              -
              -
              -
              -
              - - - ۼƶ - - - -
              -
              - 0 - - ۼƶ0 - 0 - - Ǹܺ -
              - -
              -
              -
              -
              -
              -
              С
              -
              - -
              -
              -
              -
              -
              ۼۣ
              -
              - - ˽Ʒг -
              -
              -
              - - -
              - - - - - - - - -
              region-offerweb-referPrice
              region-offerweb-samplePic
              -
              -

              ͼƬϸ˵

              - 鿴ʷ -
              -
              - - -
              -
              ƷͼƬ
              -
              -
              -
              -

              ϴƷͼƬ

              - -
              -
                -
              1. -
                -
                - ɾ -
                -
                2. -
              2. -
                -
                - ɾ -
                -
                3. -
              3. -
                -
                - ɾ -
                -
                4. -
              -
              - Ԥ -
              -
              -
              -
              -
              һͼΪĬͼͼƬߴ750*750ϣͼƬȫ֡
              -
              -
              - - - - - - -
              -
              - -
              -
              - ϸ˵ -
              -
              -
              - - ༭Ʒϸ -
              -
              -
              ڼϢԺ..
              -
              - -
              -
              -
              -
              -
              - - - -
              - - -
              - - - - - - - -
              -
              - -
              -
              ѡԶࣺ
              -
              -
              -
              - ѡ࡭ (ɶѡ) -
              -
                -
                -
                -
                -
                  -
                  -
                  Զδãʾ
                  - -
                  -
                  -
                  - -
                  -
                  - -
                  -
                  -
                  ϢЧڣ
                  -
                  -
                  -
                  -
                  -
                  - -
                  - -
                  -
                  -

                  ˷Ϣ

                  -
                  -
                  ͰƼ˷ѵ8ۣ
                  -
                  - -
                  -
                  - ַ -
                  -
                  - - ˢ - ַ -
                  -
                  - - -
                  -
                  - -
                  -
                  ˷ã
                  -
                  -
                    -
                  • - - - - - 鿴˷ģ - - - - 鿴˷˵ - Ƽʹ˷ģ壬Աµ˳ - - - ˷ģ - -
                    • -
                  • -
                    -
                    -
                    -
                    -
                    -
                    -
                    • -
                  -
                  -
                  -
                  -
                  λ
                  -
                  - / ʹ˷ģҪдλ -
                  -
                  -
                  -
                   
                  -
                  -
                  -
                  - -
                  -
                  -
                  - - - - - -
                  -
                  -
                  -

                  ɫ

                  -
                  -
                  - -
                  -
                  -
                  -
                  ܵ
                  -
                  -
                  -
                  - -
                  - - -
                  - -
                  -
                  - -
                  -
                  -
                  -
                  - -
                  -
                  - -
                  -
                  ֽ׶θ
                  -
                  -
                  - - - Լ֧׸+βʽн -
                  -
                  -
                  -
                    -
                  • - - -
                    • -
                  -
                  -
                  д׶ηռܶı
                  -
                  - ׸ -
                    -
                  • %
                    • -
                  -
                  -
                  - β -
                    -
                  • %
                    • -
                  -
                  -
                  -
                  -
                  -
                  -
                  - - - -
                  -
                  -
                  -
                  -
                  -
                  -
                    -
                    • -
                    • -
                  -
                  -
                  -
                  -
                  -
                  -
                  -
                  - -
                  -
                  -
                  - - -
                  -
                  -
                  - -
                  -
                  ˽Ʒ
                  -
                  -
                    -
                  • -
                    - - - -
                    -
                    • -
                  • -
                    - - -
                    -
                    • -
                  • -
                    - - -
                    -
                    • -
                  • - ˽Ʒ -
                    • -
                  -
                  -
                  - - - -
                  -
                  - -
                  -
                  ұϣ
                  -
                  -
                  - - -
                  - -
                  -
                  ˻
                  -
                  -
                    -
                  • - - -
                    • -
                  • -
                    ѡIJƷչʾҳϽƷ֧˻Ӧзŵ粻ѡIJƷչʾҳϽƷɹҵóΪɲá˻˫Լij⣩
                    -
                    • -
                  -
                  -
                  - - -
                  -
                  -
                  - -
                  -
                  -
                  - - - -
                  -
                  -
                    -
                  • - - -
                    • - -
                  • - - -
                    • -
                  -
                  -
                  -
                  - - -
                  -
                  - -
                  -
                  -
                  -

                  δǩ𡶰ͰйվʳƷҳŵ顷ݲܷʳƷƷ

                  -

                  ڡʳƷϡʳƷĿ·Ʒǩ𡶰ͰйվʳƷҳŵ顷ڸĿ·κβƷ

                  -
                  -

                  ͰйվʳƷҳŵ

                  -

                  һ. ŵ

                  -

                  1ҳŵ۹̭߹ڡʧЧʵʳƷ

                  -

                  2ҳŵ۲ӡ١Լٳ桢ԴγõʳƷԲϸʳƷðϸʳƷ

                  -

                  3ҳŵ۹вȱ

                  -

                  4ҳŵ޲ƷʳƷװϱעƣַʳƷƣڣڵݣũƷ⡣

                  -

                  5ҳŵʳƷʱ˵ǷΪڲƷڡָյƷʱѾڵ2/3ʱ䣩

                  -

                  Υŵʽ

                  -

                  1 ڱʵʳƷǩ֮Ϊ׼յʳƷΪڱʳƷ֧˻˿˷ѣͺ˻ҳеߣƽӦһذӦɷ洦

                  -

                  2 ΥκһŵҾӦ֧˻˿˷ѣͺ˻ҳеߣƽӦһذӦɷ洦

                  -
                  -
                  - Ķϳŵ飬ǩ - ݲǩ -
                  -
                  -
                  -
                  - -
                  -
                  -
                  - -
                  -
                  -
                  -
                  - ȷ - ȡ -
                  -
                  -
                  - -
                  -
                  -
                  ĶͰйվ
                  -
                  - ͬЭҪ - Ԥ - -
                  -
                  -
                  -
                  - offerweb010179210048.et2
                  Server is OK -
                  - - - - - - - - - - - \ No newline at end of file diff --git a/首图导出工具.vbp b/首图导出工具.vbp index 8160dbf..9850281 100644 --- a/首图导出工具.vbp +++ b/首图导出工具.vbp @@ -4,6 +4,7 @@ Object={EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0; ieframe.dll Reference=*\G{662901FC-6951-4854-9EB2-D9A2570F2B2E}#5.1#0#C:\Windows\system32\winhttp.dll#Microsoft WinHTTP Services, version 5.1 Form=Frm_Main.frm UserControl=..\VBûؼ\TzDownload.ctl +UserControl=..\VBûؼ\TzListBox.ctl Startup="Frm_Main" HelpFile="" ExeName32="ͼ.exe" diff --git a/首图导出工具.vbw b/首图导出工具.vbw index f268658..2425aab 100644 --- a/首图导出工具.vbw +++ b/首图导出工具.vbw @@ -1,2 +1,3 @@ -Frm_Main = 30, 95, 916, 544, , 50, 50, 1161, 739, C -TzDownload = 25, 25, 911, 474, , 75, 75, 961, 524, C +Frm_Main = 22, 22, 940, 557, , 0, 0, 918, 535, C +TzDownload = 22, 22, 1073, 396, C, 75, 75, 961, 524, C +TzListBox = 107, 171, 1025, 706, C, 22, 22, 940, 557, C From 1acdc202c350daad30bc465fa809d59f9c1ab886 Mon Sep 17 00:00:00 2001 From: j502647092 Date: Thu, 11 Jun 2015 20:23:20 +0800 Subject: [PATCH 6/7] add form Frm_Download... Signed-off-by: j502647092 --- Frm_Download.frm | 165 ++++++++++++++++ Frm_Main.frm | 475 +++++++++++++++++++---------------------------- 首图导出工具.vbp | 2 + 3 files changed, 358 insertions(+), 284 deletions(-) create mode 100644 Frm_Download.frm diff --git a/Frm_Download.frm b/Frm_Download.frm new file mode 100644 index 0000000..a00e06f --- /dev/null +++ b/Frm_Download.frm @@ -0,0 +1,165 @@ +VERSION 5.00 +Begin VB.Form Frm_Download + Caption = "ͼ" + ClientHeight = 4800 + ClientLeft = 60 + ClientTop = 345 + ClientWidth = 11565 + LinkTopic = "Form1" + ScaleHeight = 4800 + ScaleWidth = 11565 + StartUpPosition = 3 'ȱʡ + Begin VB.CommandButton clear + Caption = "" + Height = 300 + Left = 0 + TabIndex = 3 + Top = 285 + Width = 1020 + End + Begin Ʒͼ.TzProgressBar pb + Height = 255 + Left = 1080 + Top = 330 + Width = 10440 + _ExtentX = 18415 + _ExtentY = 450 + BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} + Name = "" + Size = 9 + Charset = 134 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Caption = "ܽ" + BackColor = 8438015 + StartColor = 8438015 + End + Begin Ʒͼ.TzDownload dl + Height = 250 + Left = 1065 + Top = 60 + Width = 10440 + _ExtentX = 18415 + _ExtentY = 450 + ForeColor = 16777088 + End + Begin VB.CommandButton dlc + Caption = "" + Height = 300 + Left = 0 + TabIndex = 2 + Top = 0 + Width = 1020 + End + Begin Ʒͼ.TzListBox UName + Height = 1170 + Left = 0 + TabIndex = 0 + Top = 2055 + Width = 3795 + _ExtentX = 6694 + _ExtentY = 2064 + End + Begin Ʒͼ.TzListBox SName + Height = 1335 + Left = -15 + TabIndex = 1 + Top = 720 + Width = 3810 + _ExtentX = 6720 + _ExtentY = 2355 + End +End +Attribute VB_Name = "Frm_Download" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Option Explicit +'=================================Sleep======================================== +Private Declare Function timeGetTime Lib "winmm.dll" () As Long +Private Savetime As Double +Private sd As Boolean + +Private Sub clear_Click() + SName.clear + UName.clear +End Sub + +Private Sub dl_OnFinished(ByVal Result As Boolean) + sd = Result +End Sub + +Private Sub dlc_Click() + Dim i + Dim folder As String + Dim usetime As Double + If folder = "" Then folder = InputBox(" -ͼ-˾-˺-ᵥ!", , Format(Now, "m.d") & "-ͼ-˾-˺-ᵥ") + If folder = "" Then folder = Format(Now, "m.d") & "-ͼ-˾-˺-ᵥ" + usetime = timeGetTime + For i = 0 To UName.ListCount - 1 +red: + pb.Change i, " : " & i & "/" & pb.BarMax + UName.ListIndex = i + SName.ListIndex = i + dl.FileDownload UName.List(i), App.Path & "\" & folder & "\" & Trim(SName.List(i)) ' & ".jpg" + Do + Sleep 50 + Loop Until dl.IsFree + If Not sd Then GoTo red + 'Debug.Print Replace(Trim(SName.List(i)), " ", "") + Next + usetime = Format((timeGetTime - usetime) / 1000, "0.00") + pb.Change pb.BarMax, " " & pb.BarMax & "Ʒͼ ʱ" & usetime & "!", &H80FF80 +End Sub + +Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) + Me.Hide + Cancel = True +End Sub + +'itempicurl (ix), App.Path & "\" & folder.Text & "\" & itemname(ix).Text & ".jpg" +Private Sub Form_Resize() + On Error Resume Next + + SName.Left = 5 + SName.Top = 600 + SName.Height = Me.Height - 600 + SName.Width = Me.Width / 2 - 10 + + UName.Left = Me.Width / 2 + 10 + UName.Top = 600 + UName.Height = Me.Height - 600 + UName.Width = Me.Width / 2 - 10 + + dl.Left = dlc.Left + dlc.Width + 10 + dl.Width = Me.Width - dl.Left - 20 + dl.Top = 25 + + pb.Left = dlc.Left + dlc.Width + 10 + pb.Width = Me.Width - dl.Left - 20 + pb.Top = dl.Top + dl.Height + 50 +End Sub + +Public Sub Sleep(n As Long) + Savetime = timeGetTime + While timeGetTime < Savetime + n + DoEvents + Wend +End Sub + +Private Sub SName_dblClick() + InputBox "", , SName.List(SName.ListIndex) +End Sub + +Private Sub UName_AddItem() + pb.BarMax = UName.ListCount + pb.Change pb.BarMax, "ɨ赽ƷϢ" & UName.ListCount & "" +End Sub + +Private Sub UName_dblClick() + InputBox "", , UName.List(UName.ListIndex) +End Sub diff --git a/Frm_Main.frm b/Frm_Main.frm index 542b5ab..0c9060e 100644 --- a/Frm_Main.frm +++ b/Frm_Main.frm @@ -10,55 +10,51 @@ Begin VB.Form Frm_Main ScaleHeight = 9390 ScaleWidth = 19035 StartUpPosition = 3 'ȱʡ - Begin Ʒͼ.TzListBox UName - Height = 1170 - Left = 8835 - TabIndex = 28 - Top = 4440 - Width = 3795 - _ExtentX = 6694 - _ExtentY = 2064 + Begin VB.CommandButton pic + Caption = "ͼƬ" + Height = 300 + Left = 11400 + TabIndex = 15 + Top = 90 + Width = 600 End - Begin Ʒͼ.TzListBox SName - Height = 1335 - Left = 8835 - TabIndex = 27 - Top = 3135 - Width = 3810 - _ExtentX = 6720 - _ExtentY = 2355 + Begin VB.CommandButton manager + Caption = "Ʒ" + Height = 300 + Left = 10500 + TabIndex = 14 + Top = 90 + Width = 600 End - Begin SHDocVwCtl.WebBrowser web - Height = 915 - Index = 1 - Left = 8580 - TabIndex = 8 - Top = 1335 - Width = 1155 - ExtentX = 2037 - ExtentY = 1614 - ViewMode = 0 - Offline = 0 - Silent = 0 - RegisterAsBrowser= 1 - 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:///" + Begin VB.CommandButton alibaba + Caption = "1688" + Height = 300 + Left = 9600 + TabIndex = 13 + Top = 90 + Width = 600 + End + Begin VB.CommandButton oa + Caption = "OA" + Height = 300 + Left = 8700 + TabIndex = 12 + Top = 90 + Width = 600 + End + Begin VB.CommandButton lookitem + Caption = "鿴Ʒ" + Height = 300 + Left = 12300 + TabIndex = 11 + Top = 90 + Width = 945 End Begin SHDocVwCtl.WebBrowser web Height = 915 Index = 2 Left = 9750 - TabIndex = 26 + TabIndex = 10 Top = 1350 Width = 1155 ExtentX = 2037 @@ -80,143 +76,78 @@ Begin VB.Form Frm_Main ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}" Location = "http:///" End - Begin VB.CommandButton oa - Caption = "OA" - Height = 300 - Left = 16425 - TabIndex = 23 - Top = 60 - Width = 600 - End - Begin VB.CommandButton alibaba - Caption = "1688" - Height = 300 - Left = 16425 - TabIndex = 22 - Top = 360 - Width = 600 - End - Begin VB.CommandButton manager - Caption = "Ʒ" - Height = 300 - Left = 16425 - TabIndex = 21 - Top = 660 - Width = 600 - End - Begin VB.CommandButton pic - Caption = "ͼƬ" - Height = 300 - Left = 16425 - TabIndex = 20 - Top = 960 - Width = 600 + Begin SHDocVwCtl.WebBrowser web + Height = 915 + Index = 1 + Left = 8580 + TabIndex = 2 + Top = 1335 + Width = 1155 + ExtentX = 2037 + ExtentY = 1614 + ViewMode = 0 + Offline = 0 + Silent = 0 + RegisterAsBrowser= 1 + 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.ListBox List1 Height = 7620 Left = 16830 - TabIndex = 18 + TabIndex = 8 Top = 1695 Width = 1035 End Begin VB.ListBox List2 Height = 780 Left = 45 - TabIndex = 17 + TabIndex = 7 Top = 9315 Width = 17145 End - Begin VB.TextBox itempicurl - Height = 300 - Index = 2 - Left = 12810 - TabIndex = 14 - Top = 960 - Width = 3600 - End - Begin VB.TextBox itemname - Height = 300 - Index = 2 - Left = 9570 - TabIndex = 13 - Top = 960 - Width = 2370 - End Begin VB.TextBox urlT Height = 270 Index = 2 Left = 8700 - TabIndex = 12 + TabIndex = 6 Text = "2" - Top = 420 + Top = 480 Width = 7710 End Begin VB.TextBox urlT Height = 270 Index = 1 Left = 945 - TabIndex = 10 + TabIndex = 4 Text = "1" - Top = 420 + Top = 480 Width = 7710 End Begin VB.TextBox urlT Height = 270 Index = 0 Left = 945 - TabIndex = 9 + TabIndex = 3 Text = "Text1" Top = 105 Width = 7710 End - Begin Ʒͼ.TzDownload dl - Height = 195 - Index = 1 - Left = 930 - Top = 713 - Width = 7710 - _ExtentX = 13600 - _ExtentY = 344 - ForeColor = 33023 - End - Begin VB.TextBox folder - Height = 300 - Left = 9735 - TabIndex = 6 - Top = 90 - Width = 6675 - End - Begin VB.TextBox itemname - Height = 300 - Index = 1 - Left = 1815 - TabIndex = 4 - Top = 960 - Width = 2370 - End - Begin VB.TextBox itempicurl - Height = 300 - Index = 1 - Left = 5070 - TabIndex = 2 - Top = 960 - Width = 3600 - End - Begin Ʒͼ.TzDownload dl - Height = 195 - Index = 2 - Left = 8700 - Top = 713 - Width = 7710 - _ExtentX = 13600 - _ExtentY = 344 - ForeColor = 33023 - End Begin SHDocVwCtl.WebBrowser web Height = 7665 Index = 0 Left = 45 - TabIndex = 3 + TabIndex = 1 Top = 1335 Width = 8535 ExtentX = 15055 @@ -238,85 +169,22 @@ Begin VB.Form Frm_Main ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}" Location = "http:///" End - Begin VB.Label Label9 - AutoSize = -1 'True - Caption = "ͼϢ:" - Height = 180 - Left = 120 - TabIndex = 25 - Top = 1020 - Width = 810 - End - Begin VB.Label Label8 - AutoSize = -1 'True - Caption = "״̬:" - Height = 180 - Left = 120 - TabIndex = 24 - Top = 720 - Width = 810 - End Begin VB.Label pages AutoSize = -1 'True Caption = "ҳ" Height = 180 - Left = 17310 - TabIndex = 19 - Top = 885 + Left = 13350 + TabIndex = 9 + Top = 150 Width = 360 End - Begin VB.Label Label7 - AutoSize = -1 'True - Caption = "ͼ:" - Height = 180 - Left = 11985 - TabIndex = 16 - Top = 1020 - Width = 810 - End - Begin VB.Label Label6 - AutoSize = -1 'True - Caption = "Ʒ:" - Height = 180 - Left = 8760 - TabIndex = 15 - Top = 1020 - Width = 810 - End Begin VB.Label Label5 AutoSize = -1 'True Caption = "ҳ:" Height = 180 Left = 120 - TabIndex = 11 - Top = 465 - Width = 810 - End - Begin VB.Label Label4 - AutoSize = -1 'True - Caption = "ļ:" - Height = 180 - Left = 8700 - TabIndex = 7 - Top = 150 - Width = 990 - End - Begin VB.Label Label2 - AutoSize = -1 'True - Caption = "Ʒ:" - Height = 180 - Left = 990 TabIndex = 5 - Top = 1020 - Width = 810 - End - Begin VB.Label Label3 - AutoSize = -1 'True - Caption = "ͼ:" - Height = 180 - Left = 4245 - TabIndex = 1 - Top = 1020 + Top = 525 Width = 810 End Begin VB.Label Label1 @@ -349,7 +217,7 @@ Private Sub Form_Resize() On Error Resume Next Dim lefthg - web(0).Top = 1300 + web(0).Top = 900 lefthg = Me.Height - web(0).Top web(0).Width = Me.Width - 50 @@ -371,18 +239,7 @@ Private Sub Form_Resize() ' web(2).Top = web(0).Top + lefthg / 2 ' web(2).Height = lefthg / 2 ' web(2).Left = 10 - - SName.Width = web(0).Width / 2 - SName.Top = web(0).Top + lefthg / 2 - SName.Height = lefthg / 3 * 2 - SName.Left = 10 - - UName.Width = web(0).Width / 2 - UName.Top = web(0).Top + lefthg / 2 - UName.Height = lefthg / 3 * 2 - UName.Left = 10 + SName.Width - - + List1.Left = Me.Width - List1.Width - 350 List1.Height = lefthg - 350 List1.Top = web(0).Top @@ -392,39 +249,44 @@ Private Sub getfp(webb As WebBrowser) On Error Resume Next Dim i, J, vDoc Dim ix As Long + Dim itemname, itemurl ix = webb.index Set vDoc = webb.Document - itemname(ix) = resetfilename(vDoc.getelementsbytagname("input")("subject").Value) - ERR.Clear - itempicurl(ix) = vDoc.getelementsbytagname("input")("pictureUrl").Value + itemname = resetfilename(vDoc.getelementsbytagname("input")("subject").Value) + ERR.clear + itemurl = vDoc.getelementsbytagname("input")("pictureUrl").Value If ERR <> 0 Then - itempicurl(ix) = vDoc.getelementsbytagname("input")("pictureUrl")(0).Value + itempicurl = vDoc.getelementsbytagname("input")("pictureUrl")(0).Value End If - If folder = "" Then folder = InputBox(" -ͼ-˾-˺-ᵥ!", , Format(Now, "m.d") & "-ͼ-˾-˺-ᵥ") - If folder = "" Then folder = Format(Now, "m.d") & "-ͼ-˾-˺-ᵥ" - If Len(itemname(ix)) = 0 And Len(itempicurl(ix)) = 0 Then Exit Sub - For i = dl.LBound To dl.UBound - If dl(i).IsFree Then dl(i).FileDownload itempicurl(ix), App.Path & "\" & folder.Text & "\" & itemname(ix).Text & ".jpg": dl(i).Tag = False: Exit For - Next - itemname(ix) = "" - itempicurl(ix) = "" + 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") + End If + End If + End If + End Sub Private Function resetfilename(ByVal name As String) As String - name = Clear(name, "/") - name = Clear(name, "\") - name = Clear(name, "*") - name = Clear(name, "?") - name = Clear(name, "<") - name = Clear(name, ">") + name = clear(name, "/") + name = clear(name, "\") + name = clear(name, "*") + name = clear(name, "?") + name = clear(name, "<") + name = clear(name, ">") resetfilename = name End Function -Private Function Clear(name As String, p As String) As String - Clear = Replace(name, p, "") +Private Function clear(name As String, P As String) As String + clear = Replace(name, P, "") End Function +Private Sub Form_Unload(Cancel As Integer) + Unload Frm_Download +End Sub + Private Sub Label1_Click() web(0).Visible = Not web(0).Visible showweb (0) @@ -449,7 +311,7 @@ Private Sub Label2_Click() UCase(vTag_1.TagName) = "A" And _ UCase(vTag1.TagName) = "DIV" And _ UCase(vTag2.TagName) = "DIV" Then - If vTag.class = "next" Then vTag.Click + If vTag.Class = "next" Then vTag.Click End If End Select Next @@ -464,6 +326,10 @@ Private Sub Label5_Click() Next End Sub +Private Sub lookitem_Click() + Frm_Download.Show +End Sub + Private Sub manager_Click() web(0).Navigate2 "http://offer.1688.com/offer/manage.htm?show_type=valid&tracelog=work_1_m_orderManage" End Sub @@ -508,15 +374,17 @@ End Sub 'End Sub Private Sub web_DownloadComplete(index As Integer) - Dim target, title, class + Dim target, Title, Class + Dim itemurl As String + Dim itemname As String web(index).Silent = True web(index).Tag = True urlT(index).Enabled = True urlT(index).ForeColor = vbBlue Me.Caption = "Load Complete" showweb (index) - List1.Clear - List2.Clear + List1.clear + List2.clear Dim vDoc, vTag_2, vTag_1, vTag, vTag1, vTag2, vTXT Dim i As Integer Set vDoc = web(index).Document @@ -532,59 +400,84 @@ Private Sub web_DownloadComplete(index As Integer) Select Case UCase(vDoc.All(i).TagName) Case "TD" Case "A" - Dim st - Dim en + 'ƷбȡϢ + Dim st As Long + Dim en As Long If UCase(vTag_2.TagName) = "INPUT" And _ UCase(vTag_1.TagName) = "TD" And _ UCase(vTag1.TagName) = "IMG" And _ UCase(vTag2.TagName) = "TD" Then - If vTag.target = "_blank" Then - If SName.AddItemNotSame(vTag.title) Then - st = InStr(1, vTag.innerhtml, "data-lazyload-src=""") + Len("data-lazyload-src=""") - en = InStr(st, vTag.innerhtml, """") - UName.AddItemNotSame Replace(Mid(vTag.innerhtml, st, en - st), ".64x64", "") + st = InStr(1, vTag.innerhtml, "data-lazyload-src=""") + Len("data-lazyload-src=""") 'data-lazyload-src="http:// + st = InStr(st + 1, vTag.innerhtml, "/") + Len("/") + en = InStr(st, vTag.innerhtml, "jpg") + 3 + itemurl = Mid(vTag.innerhtml, st, en - st) + itemurl = urlreset(itemurl) + 'Debug.Print itemurl + 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(vTag.Title) & ".jpg"))) Then + Frm_Download.SName.AddItemNotSame resetfilename((Trim(vTag.Title) & i) & ".jpg") + End If + End If + End If + End If + Case "META" + 'ƷչʾֱӻȡͼϢ + If vTag.property = "og:image" And vTag1.property = "og:title" Then + itemurl = urlreset(vTag.content) + itemname = vTag1.content + 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") + End If End If End If End If -' If UCase(vTag_2.TagName) = "DIV" And _ -' UCase(vTag_1.TagName) = "DIV" And _ -' UCase(vTag1.TagName) = "SPAN" And _ -' UCase(vTag2.TagName) = "UL" Then -' If vTag.class = "btn-edit" And vTag.target = "_blank" And vTag.title = "޸" Then List2.AddItem vTag.href -' End If - Case "B" - 'A SPANB B B - -' If UCase(vTag_2.TagName) = "A" And _ -' UCase(vTag_1.TagName) = "SPAN" And _ -' UCase(vTag1.TagName) = "B" And _ -' UCase(vTag2.TagName) = "B" Then -' Me.Caption = "ǰ" & vTag.innerhtml & "!" -' End If - 'http://192.168.0.8:83/app1/TaskLadingCn/List.aspx?k=&RearchType=0&UId=0&KfId=4986&MgId=0&mgbm=0&bumen=0&followup=&FState=0&tdtype=-1&FSpeed=0&FMgSpeed=0&FKfSpeed=1&attr=0&AttrBus=0&selDate=0&strDate=&endDate= - 'TD A IMG TD P - Case "IMG" - If UCase(vTag_2.TagName) = "TD" And _ - UCase(vTag_1.TagName) = "A" And _ - UCase(vTag1.TagName) = "TD" And _ - UCase(vTag2.TagName) = "p" Then - 'List2.AddItem vTag_1.innerhtml - Debug.Print vTag_1.innerhtml - Debug.Print vTag.src - End If - Case "EM" - If UCase(vTag_2.TagName) = "A" And _ - UCase(vTag_1.TagName) = "LI" And _ - UCase(vTag1.TagName) = "INPUT" And _ - UCase(vTag2.TagName) = "LI" Then - pages = vTag.innerhtml - End If + ' + ' + + ' ' If UCase(vTag_2.TagName) = "DIV" And _ + ' ' UCase(vTag_1.TagName) = "DIV" And _ + ' ' UCase(vTag1.TagName) = "SPAN" And _ + ' ' UCase(vTag2.TagName) = "UL" Then + ' ' If vTag.class = "btn-edit" And vTag.target = "_blank" And vTag.title = "޸" Then List2.AddItem vTag.href + ' ' End If + ' Case "B" + ' 'A SPANB B B + ' + ' ' If UCase(vTag_2.TagName) = "A" And _ + ' ' UCase(vTag_1.TagName) = "SPAN" And _ + ' ' UCase(vTag1.TagName) = "B" And _ + ' ' UCase(vTag2.TagName) = "B" Then + ' ' Me.Caption = "ǰ" & vTag.innerhtml & "!" + ' ' End If + ' + ' 'http://192.168.0.8:83/app1/TaskLadingCn/List.aspx?k=&RearchType=0&UId=0&KfId=4986&MgId=0&mgbm=0&bumen=0&followup=&FState=0&tdtype=-1&FSpeed=0&FMgSpeed=0&FKfSpeed=1&attr=0&AttrBus=0&selDate=0&strDate=&endDate= + ' 'TD A IMG TD P + ' Case "IMG" + ' If UCase(vTag_2.TagName) = "TD" And _ + ' UCase(vTag_1.TagName) = "A" And _ + ' UCase(vTag1.TagName) = "TD" And _ + ' UCase(vTag2.TagName) = "p" Then + ' 'List2.AddItem vTag_1.innerhtml + ' Debug.Print vTag_1.innerhtml + ' Debug.Print vTag.src + ' End If + ' Case "EM" + ' If UCase(vTag_2.TagName) = "A" And _ + ' UCase(vTag_1.TagName) = "LI" And _ + ' UCase(vTag1.TagName) = "INPUT" And _ + ' UCase(vTag2.TagName) = "LI" Then + ' pages = vTag.innerhtml + ' End If End Select Next 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 @@ -593,6 +486,20 @@ Private Sub web_NewWindow2(index As Integer, ppDisp As Object, Cancel As Boolean Cancel = True End Sub +Public Function urlreset(ByVal url As String) As String +Dim st, en + 'Debug.Print url + st = InStr(1, url, "http://") + Len("http://") + st = InStr(st + 1, url, "/") + Len("/") + en = InStr(st, url, "jpg") + 3 + url = Mid(url, st, en - st) + url = Replace(url, ".310x310", "") + url = Replace(url, ".64x64", "") + url = "http://i01.c.aliimg.com/" & url + urlreset = url + 'Debug.Print url +End Function + Private Sub showweb(index As Long) Dim i As Long For i = 1 To web.UBound diff --git a/首图导出工具.vbp b/首图导出工具.vbp index 9850281..737072b 100644 --- a/首图导出工具.vbp +++ b/首图导出工具.vbp @@ -5,6 +5,8 @@ Reference=*\G{662901FC-6951-4854-9EB2-D9A2570F2B2E}#5.1#0#C:\Windows\system32\wi Form=Frm_Main.frm UserControl=..\VBûؼ\TzDownload.ctl UserControl=..\VBûؼ\TzListBox.ctl +Form=Frm_Download.frm +UserControl=..\VBûؼ\TzProgressBar.ctl Startup="Frm_Main" HelpFile="" ExeName32="ͼ.exe" From 36c46723e3fb7b8510694aefd46f05d47fd7945e Mon Sep 17 00:00:00 2001 From: j502647092 Date: Thu, 11 Jun 2015 20:29:42 +0800 Subject: [PATCH 7/7] update file... Signed-off-by: j502647092 --- Frm_Main.frm | 1 + 首图导出工具.vbw | 8 +++++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/Frm_Main.frm b/Frm_Main.frm index 0c9060e..1ff83ef 100644 --- a/Frm_Main.frm +++ b/Frm_Main.frm @@ -276,6 +276,7 @@ Private Function resetfilename(ByVal name As String) As String name = clear(name, "?") name = clear(name, "<") name = clear(name, ">") + name = clear(name, ":") resetfilename = name End Function diff --git a/首图导出工具.vbw b/首图导出工具.vbw index 2425aab..d4589a4 100644 --- a/首图导出工具.vbw +++ b/首图导出工具.vbw @@ -1,3 +1,5 @@ -Frm_Main = 22, 22, 940, 557, , 0, 0, 918, 535, C -TzDownload = 22, 22, 1073, 396, C, 75, 75, 961, 524, C -TzListBox = 107, 171, 1025, 706, C, 22, 22, 940, 557, C +Frm_Main = 0, 0, 984, 374, Z, 0, 0, 918, 535, C +TzDownload = 22, 22, 1006, 396, , 75, 75, 961, 524, C +TzListBox = 88, 88, 1072, 462, C, 22, 22, 940, 557, C +Frm_Download = 174, 51, 1224, 550, , 44, 44, 1028, 418, C +TzProgressBar = 88, 88, 1139, 462, , 0, 0, 0, 0, C