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 0000000..f4bc8b8 Binary files /dev/null and b/棣栧浘瀵煎嚭宸ュ叿.exe differ 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