From db5844eb2c26f521c68ec452e333f8fa54e95852 Mon Sep 17 00:00:00 2001 From: j502647092 Date: Fri, 12 Jun 2015 11:02:43 +0800 Subject: [PATCH] add Control out IE... Signed-off-by: j502647092 --- Frm_Main.frm | 28 ++++++++++++++--- VB控制IE.txt | 81 ++++++++++++++++++++++++++++++++++++++++++++++++ 首图导出工具.vbw | 4 +-- 3 files changed, 107 insertions(+), 6 deletions(-) create mode 100644 VB控制IE.txt diff --git a/Frm_Main.frm b/Frm_Main.frm index 38818bd..25c0baf 100644 --- a/Frm_Main.frm +++ b/Frm_Main.frm @@ -10,6 +10,13 @@ Begin VB.Form Frm_Main ScaleHeight = 9390 ScaleWidth = 19035 StartUpPosition = 3 '´°¿Úȱʡ + Begin VB.ListBox lurl + Height = 5100 + Left = 45 + TabIndex = 16 + Top = 1350 + Width = 11670 + End Begin VB.CommandButton pic Caption = "ͼƬ" Height = 300 @@ -204,14 +211,27 @@ Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Dim strUrl As String +Dim dWinFolder As New ShellWindows +Dim WithEvents eventIE As WebBrowser_V1 +Attribute eventIE.VB_VarHelpID = -1 + +Private Sub Form_Load() + Dim objIE As Object + For Each objIE In dWinFolder + lurl.AddItem objIE.FullName + If InStr(1, objIE.FullName, "iexplore.exe") <> 0 Then + lurl.AddItem objIE.LocationURL + End If + Next +End Sub Private Sub alibaba_Click() web(0).Navigate2 "http://work.1688.com/home/page/index.htm#nav/home" End Sub - -Private Sub Form_Load() - web(0).Navigate2 "http://192.168.0.8:83/" -End Sub +' +'Private Sub Form_Load() +' web(0).Navigate2 "http://192.168.0.8:83/" +'End Sub Private Sub Form_Resize() On Error Resume Next diff --git a/VB控制IE.txt b/VB控制IE.txt new file mode 100644 index 0000000..c4a98b1 --- /dev/null +++ b/VB控制IE.txt @@ -0,0 +1,81 @@ +IEä¯ÀÀÆ÷ÍêÈ«¿ØÖÆ ,ÏàÐÅÏÖÔÚ¾ø´ó¶àÊý¼ÆËã»úÉÏʹÓõÄÊÇIEä¯ÀÀÆ÷¡£ÈçºÎͨ¹ý±à³Ì¿ØÖÆIEµÄ²Ù×÷ÄØ£¬±¾ÎĽ«Ò»²½²½½éÉÜÈçºÎͨ¹ýVB µ÷ÓÃIEµÄ¶ÔÏó¿âÀ´¶ÔIE½øÐпØÖÆ¡£ +±¾ÎÄʹÓõıà³Ì¹¤¾ßÊÇVB6Ó¢ÎÄÆóÒµ°æ£¬ä¯ÀÀÆ÷ÊÇIE5£¬ÒÔϵĴúÂëÖ»ÄÜÔÚIE4¼°ÒÔÉÏ°æ±¾ÏÂÔËÐС£ÁíÍâΪÁËÄÜÉî +ÈëÁ˽â³ÌÐò´úÂ룬×îºÃÄÜ°²×°MSDN¡£ÎÄÖеÄËùÓжÔÏ󡢺¯Êý¡¢Ê¼þÔÚÆäÖж¼¿ÉÒԲ鵽¡£ + +Ò»¡¢ÈçºÎ»ñµÃWindowsÖÐËùÓдò¿ªµÄä¯ÀÀÆ÷´°¿Ú +Ê×ÏÈ´ò¿ªVB£¬½¨Á¢Ò»¸öй¤³Ì£¬µã»÷²Ëµ¥ Projects | References ÏÔÚAvailable References ÁбíÖÐÑ¡Ôñ +Microsoft Internet ControlsÏInternet¶ÔÏóÒýÓýéÈëµ½¹¤³ÌÖС£Ìí¼ÓÒ»¸öListBoxµ½Form1£¬È»ºóÔÚForm1ÖÐÌí +¼ÓÈçÏ´úÂ룺 +Dim dWinFolder As New ShellWindows + +Private Sub Form_Load() +Dim objIE As Object + +For Each objIE In dWinFolder +If InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then +List1.AddItem objIE.LocationURL +End If +Next +End Sub +´ò¿ª¼¸¸öä¯ÀÀÆ÷´°¿Ú£¬È»ºóÔËÐгÌÐò£¬¿ÉÒÔ¿´µ½ËùÓÐä¯ÀÀ´°¿ÚÖеÄURLµØÖ·¶¼ÔÚList1ÖÐÁÐÁ˳öÀ´¡£ +ÉÏÃæ³ÌÐòÖеÄShellWindows¶ÔÏóÊÇÃèÊöµ±Ç°ËùÓдò¿ªµÄ¡°ä¯ÀÀ´°¿Ú¡±¶ÔÏ󼯺ϵĶÔÏó£¬ÀûÓÃFor...EachÓï¾ä¿ÉÒÔ +»ñµÃÆäÖÐËùÓеÄä¯ÀÀ´°¿Ú¶ÔÏó¡£ÕâÊÇÒ»¸öWebBrowser¶ÔÏó£¬ÔÚMSDNË÷ÒýÖÐͨ¹ý¡°WebBrowser Object¡±ÖпÉÒÔÕÒµ½¸Ã +¶ÔÏóµÄÏêϸ½éÉÜ +ÔÚShellWindowsÖеÄä¯ÀÀ´°¿Ú¶ÔÏó²»½ö°üº¬IE£¬»¹°üº¬Explore´°¿Ú£¨Ïò×ÊÔ´¹ÜÀíÆ÷»òÕß¡°ÎҵĵçÄÔ¡±´°¿Ú¾ÍÊÇ +Explore£©¡£Ö»²»¹ýËüÃǵÄËÞÖ÷³ÌÐòÒ»¸öÊÇIEXPLORE.EXE£¬Ò»¸öÊÇEXPLORE.EXE¡£ËùÒÔ¶Ôÿһ¸ö¶ÔÏóÊ×Ïȸù¾ÝÆäFulName +ÊôÐÔÀ´Åжϴ°¿ÚÊÇIEä¯ÀÀÆ÷£¬Èç¹ûÊÇ£¬Ôò½«¸Ã´°¿ÚµÄURLµØÖ·ÁгöÀ´¡£ +ͨ¹ýWebBrowser¶ÔÏó¿ÉÒÔ»ñµÃºÍÉèÖÃä¯ÀÀÆ÷´°¿ÚÖеĺܶàÊôÐÔ£¬ÀýÈç´°¿Ú´óС¡¢¹¤¾ßÀ¸¡¢×´Ì¬À¸×´Ì¬ÒÔ¼°¿ØÖÆ +´°¿ÚµÄä¯ÀÀµÈ£¬´ó¼Òͨ¹ýMSDN¶¼¿ÉÒԲ鵽¡£ + +¶þ¡¢ÈçºÎµÃµ½Ã¿Ò»¸öä¯ÀÀ´°¿ÚµÄÄÚÈÝ +ÔÚÉÏÃæ³ÌÐòµÄForm1ÖÐÔÙÌí¼ÓÒ»¸öTextBox¿Ø¼þ£¬½«MultiLineÊôÐÔÉèÖÃΪTrue£¬È»ºóÔÚList1µÄClickʼþÖÐÌí¼ÓÈç +Ï´úÂ룺 +Dim objDoc As Object +Dim objIE As Object + +For Each objIE In dWinFolder +If objIE.LocationURL = List1.List(List1.ListIndex) Then +Set objDoc = objIE.Document + +For i = 1 To objDoc.All.length - 1 +If objDoc.All(i).tagname = "BODY" Then +Text1.Text = objDoc.All(i).innerText +End If +Next +Exit For +End If +Next +ÔËÐгÌÐò£¬µã»÷ListBoxÖеÄÒ»¸öÁÐ±í£¬Ëù¶ÔÓ¦µÄä¯ÀÀÆ÷´°¿ÚÖеÄÎı¾ÄÚÈݾͻáÏÔʾÔÚTextBoxÖС£ +ÔÚÉÏÃæµÄ³ÌÐòÖУ¬Ê×Ïȸù¾ÝListBoxÖÐÑ¡ÔñµÄURL»ñµÃWebrowser¶ÔÏó£¬È»ºó¸ù¾ÝDocumentÊôÐÔ»ñµÃÎĵµ¶ÔÏó¡£ÎÒÃÇÖªµÀ +Ò»¸öÒ³ÃæÖаüÀ¨HEAD¡¢TITLE¡¢BODY²¿·Ö£¬Ò³ÃæÖл¹¿ÉÄÜ°üÀ¨Applet¡¢Script¡¢Á¬½Ó¡¢±íµ¥µÈ£¬ÕâЩÔÚÎĵµÖж¼ÊÇÒ»¸ö¶ÔÏó +ÔÚ³ÌÐòÖоÍÊÇÑ­»·Îĵµ¶ÔÏóϵÄËùÓжÔÏó£¬Èç¹û¶ÔÏóµÄÃû³ÆÊÇ¡°BODY¡±£¬ËµÃ÷¶ÔÏó´ú±íHTMLÎĵµµÄÕýÎIJ¿·Ö£¬ÄÇô·ÃÎʶÔÏó +µÄinnerTextÊôÐÔ»ñµÃÎĵµÕýÎÄ¡£¹ØÓÚDocument¶ÔÏó¸üÏêϸµÄÐÅÏ¢£¬´ó¼Ò¿ÉÒԲο¼MSDNÖÐWebbrowser object°ïÖúÖÐµÄ +DocumentÊôÐÔÁ¬½Ó¡£ + + +Èý¡¢ÏìÓ¦IEʼþ +ÉÏÃæµÄ²¿·ÖÖ»ÊǽéÉÜÁËÈçºÎ·ÃÎÊWebbrowser¶ÔÏóµÄÊôÐÔ£¬ÏÂÃæ½éÉÜÈçºÎ¼à¿ØIEʼþ¡£ +ÔÚForm1ÖÐÔÙÌí¼ÓÒ»¸öCommandButton¡£ÔÚ´úÂë´°¿ÚµÄ [Gengeral]-[Declaration]Ìí¼ÓÏÂÃæµÄ¶¨Ò壺 +Dim WithEvents eventIE As WebBrowser_V1 +ÕâÑù¾ÍÔÚForm1ÖÐÐÂÌí¼ÓÁËÒ»¸ö¶ÔÏó£¬È»ºóÔÚCommand1µÄClickʼþÖÐÌí¼ÓÈçÏ´úÂ룺 +Dim objIE As Object + +For Each objIE In dWinFolder +If objIE.LocationURL = List1.List(List1.ListIndex) Then +Set eventIE = objIE +Command1.Enabled = False +Text1.Text = "" +Exit For +End If +Next +ÔÚeventIEµÄNavigateCompleteʼþÖÐÌí¼ÓÈçÏ´úÂ룺 +Text1.Text = Text1.Text + Chr(13) + Chr(10) + URL +ÔÚFormµÄUnLoadʼþÖÐÌí¼ÓÏÂÃæÒ»¾ä´úÂ룺 +Set dWinFolder = Nothing +ÔËÐгÌÐò£¬ÔÚListBoxÖÐÑ¡ÔñÒ»¸öURLºóµã»÷Command1£¬È»ºóתµ½ÓëËùÑ¡ÏîÏò¶ÔÓ¦µÄä¯ÀÀ´°¿ÚÊäÈëÍøÕ¾µØÖ·½øÐÐä¯ÀÀ£¬¿ÉÒÔ +¿´µ½Ëùä¯ÀÀ¹ýµÄÕ¾µãµØÖ·ÔÚTextBoxÖÐÒ»Ò»Áгö¡£ +ÉÏÃæµÄ³ÌÐòʵÏÖÆðÀ´Ò²ºÜ¼òµ¥¡£Ê×Ïȶ¨ÒåÒ»¸ö¿ÉÏìӦʼþµÄWebbrowser¶ÔÏó£¬È»ºó½«ËüÓëÔÚListBoxÖÐÑ¡ÔñµÄWebbrowser¶Ô +ÏóÁªÏµÆðÀ´£¬µ±ä¯ÀÀÆ÷·¢Éú±ä»¯Ê±£¬eventIE¶ÔÏó¾ÍÄÜÏìÓ¦ÏàÓ¦µÄʼþ¡£ +¸ù¾ÝIE°æ±¾µÄ²»Í¬£¬Webbrowser¶ÔÏóÒ²²»Í¬£¬×÷ÕßµÄä¯ÀÀÆ÷ÊÇIE5.0£¬ÔÚÉÏÃ潫eventIE¶¨ÒåΪWebBrowser_V1ÔËÐÐͨ¹ý£¬Èç +¹ûÄãµÄä¯ÀÀÆ÷°æ±¾Îª4.0µÄ»°£¬¿ÉÄÜÔÚÖ´ÐÐ Set eventIE = objIE ʱ£¬¿ÉÄܲúÉú Type mistake ´íÎó£¬ÕâʱÄã¿ÉÒÔ³¢ÊÔ½« +eventIE¶¨ÒåΪ:Dim WithEvents eventIE As WebBrowser \ No newline at end of file diff --git a/首图导出工具.vbw b/首图导出工具.vbw index 6cddf97..850b36a 100644 --- a/首图导出工具.vbw +++ b/首图导出工具.vbw @@ -1,5 +1,5 @@ -Frm_Main = 0, 0, 984, 374, , 0, 0, 918, 535, C +Frm_Main = 0, 0, 984, 374, , 0, 0, 1070, 535, C TzDownload = 0, 0, 0, 0, C, 0, 0, 0, 0, C TzListBox = 0, 0, 0, 0, C, 0, 0, 0, 0, C -Frm_Download = 0, 0, 0, 0, C, 0, 0, 0, 0, C +Frm_Download = 44, 44, 1095, 418, , 110, 110, 1094, 484, C TzProgressBar = 0, 0, 0, 0, C, 0, 0, 0, 0, C