Control¼ò½é
¡¡¡¡Internet Transfer control
¡¡¡¡Internet Transfer control ÊÇ΢ÈíΪ·½±ãʹÓÃÕßÉè¼ÆInternetÓ¦ÓóÌÐòËùÌṩµÄÒ»ÖÖcontrol¡£ËüÌṩÁ½ÖÖInternet protocol£ºHTTP¼°FTP¡£ÎÒÃÇÔÚʹÓÃʱ£¬±ØÐëÏÈÉèÖúÃËüµÄ´æÈ¡·½Ê½¡£´æÈ¡·½Ê½·ÖΪֱ½ÓÁ¬½Óµ½InternetÍøÂ磬»òͨ¹ýproxyÀ´Á¬½ÓInternetÍøÂçÁ½ÖÖ£¬ÍêÈ«ÒÀÎÒÃǵÄÍøÂçÐÔÖÊÀ´¶¨¡£µ±ÎÒÃÇÉèÖúÃÁËÏà¹Ø²ÎÊýÖ®ºó£¬Internet Transfer controlÌṩÁ½¸ömethod£ºOpenURL¼°Execute À´ÈÃÎÒÃÇÖ´ÐÐÍøÂçÏà¹Ø²Ù×÷£¬ÎÒÃÇ¿ÉÒÔÓÃÕâÁ½¸öÃüÁîÀ´Ö´ÐÐһЩInternet command¡£ÔÚÏÂÃæµÄÉè¼ÆÖУ¬±ÊÕß»á˵Ã÷ËüµÄÓ÷¨¡£
¡¡¡¡Web Browser control
¡¡¡¡Web Browser control×îÔçÊÇÓÉIE 3.0ËùÌṩ£¬ÔÚ°²×°IE 3.0ʱ¾Í»á×Ô¶¯ÔØÈ룻Visual Basic 5.0 ½«Ëü±ä³ÉÄÚ²¿¿Ø¼þ¡£ËüÌṩNavigate method£¬Ê¹ÎÒÃÇÄܹ»Á¬½Óµ½ÎÒÃÇÏëҪȥµÄWWW Server¡£
¡¡¡¡¸÷λ¶ÁÕßÒ»¶¨ºÜÆæ¹Ö£º¼ÈÈ»Internet Transfer controlÄܹ»Í¨¹ýHTTP¼°TP protocolÁ¬½Óµ½ Internet£¬ÎÒÃÇ»¹ÒªWeb Browser control¸ÉÉõô£¿Ö»ÒòΪInternet Transfer control²¢Ã»ÓÐÌṩͼÐÎģʽµÄ´æÈ¡·½Ê½£¬ËùµÃµ½µÄÎļþ½öÄÜÒÔÎı¾Ä£Ê½´«»Ø¡£Èç¹û´«»ØµÄÎļþ°üº¬Í¼Ðεϰ£¬»¹±ØÐ뽫ËùµÃµ½µÄHTMLÎļþÓóÌÐòÀ´×öÒ»¸öת»»¡£ËùÒÔ±ÊÕßÑ¡ÔñÁËWeb Browser controlÀ´°ïÎÒÃÇ×öÒ»¸öת»»¡£
¡¡¡¡ÒÔϾÍÈñÊÕßÀ´¸æËß¶ÁÕßÈçºÎÉè¼ÆWeb Browser¼°FTP client¡£
¡¡¡¡Web Browser³ÌÐòÉè¼Æ
¡¡¡¡Step 1£ºÉèÖúÃÍøÂç²ÎÊý
¡¡¡¡Ê×ÏÈÒªÖªµÀÎÒÃǵÄÍøÂçϵͳÊÇÖ±½ÓÁ¬µ½Internet£¬»¹ÊÇͨ¹ýproxyÁ¬½Óµ½Internet¡£ ÎÒÃÇ¿ÉÒÔͨ¹ýÒÔϵIJ½ÖèÀ´È·¶¨ÎÒÃǵÄϵͳÊÇÒÔÄÄÖÖ·½Ê½Á¬½ÓInternet£º
¡¡¡¡ÔÚ"ÎҵĵçÄÔ"Ñ¡Ïîdouble click½øÈë"¿ØÖÆÃæ°å"¡£ÔÚ"¿ØÖÆÃæ°å"Ñ¡ÏîÖÐdouble click ½øÈë"Internet" Ñ¡Ïî¡£ÔÚInternet Dialog BoxÖÐÑ¡Ôñconnection¡£ÓÉÆÁÄ»ÏÔʾµÄDialogBox¾Í¿ÉÒÔÖªµÀϵͳÊÇͨ¹ýproxy»¹ÊÇͨ¹ýdialingµÄ·½Ê½Á¬½Óµ½Internet¡£ÓÉÓÚ±ÊÕßµÄϵͳÊÇͨ¹ýproxyÁ¬½Óµ½Internet£¬ÎÒÃDZØÐëÒªÕÒ³öproxy ServerµÄaddress¼°port£¬ÒÔÀûÓÚ³ÌÐòÉèÖá£
¡¡¡¡½Ó×Åclick"setting"Ñ¡ÏîÀ´²é¿´ËüµÄaddress¼°port¡£ÆÁÄ»½Ó×Å»áÏÔʾһ¸öDialog Box£¬ÀïÃæ¼Ç×Å"address of proxy to use ": 172.18.16.65£¬"port" : 8080¡£½«Ëü¼Ç¼ÏÂÀ´£¬µÈ»á¶ù¾Í»áÓõ½ÕâЩ²ÎÊý¡£
¡¡¡¡Step 2£º¿ªÊ¼Éè¼Æ³ÌÐò
¡¡¡¡ÔÚFileÑ¡ÏîÖÐÑ¡ÔñNew Project½¨Á¢Ò»¸öÐµĹ¤³Ì£¬ÔÚÆÁÄ»Éϻῴµ½Ðí¶àÑ¡ÏÈçActiveX Document.EXE¡¢ActiveX Document.DLL¡¢ActiveX.EXE¡¢ActiveX ControlµÈ£¬ÕâʱҪѡStandard.EXE¡£
¡¡¡¡½Ó×ÅÔÚProjectÏ£¬Ñ¡ÔñPropertyÊôÐÔÑ¡ÏÔÚgeneralÑ¡ÏîϽ«Project Name¸ÄΪWeb browser¡£ÔÚÆÁÄ»µÄFormÉϼÓÈëÒ»¸öWeb browser control£¬È¡ÃûΪweb1£»½Ó׿ÓÈëÒ»¸öInternet Transfer control£¬È¡ÃûΪInet1¡£
¡¡¡¡¼ÓÈëÈý¸öTextBox control£¬·Ö±ðÈ¡ÃûΪCGISearch¡¢webnameºÍhtmlshow£¬²¢ÔÚCGISearch TextBoxǰ¼ÓÈëÒ»¸öLabel£¬½«ÆäCaption¸ÄΪSearch¡£
¡¡¡¡¼ÓÈëÈý¸öButton control£¬·Ö±ðÈ¡ÃûΪSearch¡¢GoºÍShowDoc¡£½«Caption·Ö±ð¸ÄΪSe
arch¡¢¡¡ Go toºÍshow document ¡¡¡£
¡¡¡¡Îª·½±ã¶ÁÕßÁË½â¹ØÏµ£¬ÒÔÏÂÒÔ±í¸ñ½âÊÍÒ»±é£º
(TextBox)
Name
-------------------------------------------------
CGISearch(ÊäÈëCGIÃüÁî)
webname(ÊäÈëҪǰÍùµÄweb address)
htmlshow(ÏÔʾhtmlÎÄ×Ö½á¹û)
(Button)
Name Caption
------------------------------------------------------------
Search(Ö´ÐÐCGIÃüÁî) search
Go(Ö´ÐÐǰÍùweb addressµÄ¶¯×÷) Go to
ShowDoc(ÏÔʾhtmlÎÄ×Ö½á¹û) show document
¡¡¡¡½Ó׎«Inet1µÄ¸÷ÏîÊôÐÔÉèÖÃÈçÏ£º
Accesstype=2-icnamedproxy
protocol=4-icHTTP
proxy=172.18.16.65:8080
¡¡¡¡ÔÚGo_Click()ÖмÓÈëÒÔϳÌÐò´úÂ룬 Õâ¸ö¶¯×÷ÊÇÁ¬½Óµ½ËùÏëҪȥµÄweb Server£¬²¢½«ÆÁÄ»ÏÔʾÔÚweb1µÄ·½¿éÇøÓòÄÚ£º
Private Sub Go_Click()
web1.Navigate webname.Text
End Sub
¡¡¡¡ÒÔÉϳÌÐòÊÇÔËÓÃweb1µÄNavigate£¬Õâ¸ömethod½«ÆÁÄ»Á¬½Óµ½web name TextBoxÖÐËùÖ¸¶¨µÄÍøÂçÕ¾µã¡£
¡¡¡¡ÔÚhtmlshow _Click()¼ÓÈëÒÔϵijÌÐò´úÂ룺
Private Sub htmlshow _Click()
a$ = web1.LocationURL
ShowDoc.Text = Inet1.OpenURL(a$)
End Sub
¡¡¡¡ÒÔÉϳÌÐò£¬ÊÇÏȽ«web1ËùÁ¬½Óµ½µÄURL address£¬Í¨¹ýLocationURLÕâ¸öproperty¶Á³ö£¬²¢½«ËüÔÝ´æÓÚ×Ö·û´®a¡£½Ó×ÅʹÓÃOpenURL()ÃüÁîÀ´½«Ëù½ÓÊÕµ½µÄHTML³ÌÐò´úÂ룬ÏÔʾÔÚShowDocÕâ¸öTextBoxÖС£
¡¡¡¡ÔÚCGIserch _Click()ÖмÓÈëÒÔϳÌÐò´úÂ룺
Private Sub CGIserch _Click()
Web1.Navigate "http://search.yahoo.com/bin/Search ? p=" CGI.
Text
End Sub
¡¡¡¡Õâ¸ö¶¯×÷ÊÇÓÃCGIÃüÁîÀ´²éѯÎļþ¡£ÔÚÕâÀïÎÒÃǽ«²éѯÃüÁîÖ¸¶¨´«Ë͵½Yahoo Õâ¸öÍøÂçËÑѰվ¡£
¡¡¡¡ÕâÑùÎÒÃǾÍÍê³ÉÁËÒ»¸öСÐ͵ÄWeb Browser¡£
ÎÄÕÂÕûÀí£ºÎ÷²¿ÊýÂë--רҵÌṩÓòÃû×¢²á¡¢ÐéÄâÖ÷»ú·þÎñ
http://www.west263.com
ÒÔÉÏÐÅÏ¢ÓëÎÄÕÂÕýÎÄÊDz»¿É·Ö¸îµÄÒ»²¿·Ö,Èç¹ûÄúÒª×ªÔØ±¾ÎÄÕÂ,Çë±£ÁôÒÔÉÏÐÅÏ¢£¬Ð»Ð»!




