ÊÖ»úÕ¾
ÍøÍ¨·ÖÕ¾
µçÐÅÖ÷Õ¾
ÃÜ¡¡Âë:
Óû§Ãû£º
µ±Ç°Î»Öà : Ö÷Ò³>³ÌÐòÉè¼Æ>VB>Áбí

ÓÃVisual BasicÇáËɵØÉè¼ÆBrowser¼°Ftp³ÌÐò

À´Ô´£º»¥ÁªÍø ×÷Õߣºwest263.com ʱ¼ä£º2008-02-23
Î÷²¿ÊýÂë-È«¹úÐéÄâÖ÷»ú10Ç¿£¡40ÓàÏîÐéÄâÖ÷»ú¹ÜÀí¹¦ÄÜ,È«¹úÁìÏÈ!Ë«Ïß¶àÏßÐéÄâÖ÷»úÄϱ±·ÃÎʳ©Í¨ÎÞ×è!Ãâ·ÑÔùËÍÆóÒµÓʾÖ,.CNÓòÃû,×ÔÖú½¨Õ¾480ÔªÆð,Ãâ·ÑÊÔÓÃ7Ìì,ÂúÒâÔÙ¸¶¿î! P4Ö÷»ú×âÓÃ799Ôª/ÔÂ.Ô¸¶Ãâѹ½ð!
×Ô´Ó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»¿É·Ö¸îµÄÒ»²¿·Ö,Èç¹ûÄúÒª×ªÔØ±¾ÎÄÕÂ,Çë±£ÁôÒÔÉÏÐÅÏ¢£¬Ð»Ð»!