From 84aeb31b5ba12ee6d630e43a21f0bd4acb325217 Mon Sep 17 00:00:00 2001 From: j502647092 Date: Mon, 8 Jun 2015 20:06:30 +0800 Subject: [PATCH] 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