From 9f08008b4c597072196c1606323cee8e054e1f9c Mon Sep 17 00:00:00 2001 From: j502647092 Date: Tue, 9 Jun 2015 18:30:04 +0800 Subject: [PATCH] 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