×Ô´ÓInternetÊ¢ÐÐÒÔÀ´£¬ÈËÃǶÔÓÚÎĵµÏÂÔØ¡¢ÊµÊ±ÐÅÏ¢»ñÈ¡¡¢µç×ÓÓʼþ´«ËͱäµÃ·½±ãÐí¶à¡£ InternetÄܹ»ËµÊÇ21ÊÀ¼ÍÈËÀà¿Æ¼¼µÄÒ»´ó´´Ð¡£ÓÉÓÚÕâ¸öÖØ´ó¸Ä±ä£¬ÈËÃǵÄÉú»î·½Ê½Ò²Êܵ½ºÜ´óµÄÓ°Ï죻µç×Ó¹ºÎï¡¢ÍøÉÏÐÅÏ¢¿â¡¢ÍøÉϹÉÊÐʵʱ½»Ò×ÈçÓêºó´ºËñ°ãµÄ³öÏÖ¡£ÒÔÍù£¬Visual Basic 4.0²¢Ã»ÓÐÌṩһ¸öÍêÕûµÄsolution¹©Visual BasicµÄ°®ºÃÕßÉè¼ÆInternet³Ìʽ¡£ »¹ºÃ£¬VisualBasic 5.0 ÌṩÁËһЩ¿Ø¼þ£¬¹©ÎÒÃÇÉè¼ÆInternetµÄÏà¹Ø³Ìʽ¡£ÔÚ±¾ÎÄÖУ¬±ÊÕß½«»áÓà Internet Transfer controlÅäºÏWeb Browser control £¬À´¸æËß¶ÁÕßÈçºÎÓÃVisual Basic 5.0ÇáËɵØÉè¼ÆBrowser¼°FTP³Ìʽ¡£

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¡£

Step 3£º²âÊÔ³Ìʽ
Ö´ÐиÕÉè¼ÆÍêµÄWeb Browser£¬²¢ÔÚweb nameÕâ¸öTextBoxÖÐÌîÈëËùҪȥµÄÍøÖ·¡£ÕâÀïÎÒÃǽ«ËûÅäÖÃΪhttp://www.Microsoft.com¡£½Ó×Ű´ÏÂGo Button£¬½«»á¿´µ½ÔÚweb1 controlµÄ·½¿éÇøÓòÄÚÏÔʾÁËMicrosoftµÄHomePage¡£

°´ÏÂShowDoc Button£¬½«Äܹ»ÔÚhtmlshowÕâ¸öTextBoxÖп´µ½Microsoft HomePageµÄHTML ³Ìʽ´úÂë¡£

½ÓÏÂÀ´ÈÃÎÒÃÇÊÔÊÔCGIËÑѰ¹¦ÄÜ¡£ÔÚCGIserch TextBoxÖмÓÈëcommunication£¬½á¹ûÎÒÃÇ·¢¾õ²éѯµÄ½á¹ûÏÔʾÔÚweb1·½ÐÎÇøÓòÖС£

ͬÑùµÄ£¬ÎÒÃÇÒ²Äܹ»°´ÏÂShowDoc Button£¬½«Äܹ»ÔÚhtmlshowÕâ¸öTextBoxÖУ¬¿´µ½²éѯ½á¹ûËù´«»ØµÄHTML³Ìʽ´úÂë¡£

ÎÄÕÂÕûÀí£ºÎ÷²¿ÊýÂë--רҵÌṩÓòÃû×¢²á¡¢ÐéÄâÖ÷»ú·þÎñ
http://www.west263.com
ÒÔÉÏÐÅÏ¢ÓëÎÄÕÂÕýÎÄÊDz»¿É·Ö¸îµÄÒ»²¿·Ö,Èç¹ûÄúÒª×ªÔØ±¾ÎÄÕÂ,Çë±£ÁôÒÔÉÏÐÅÏ¢£¬Ð»Ð»!