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

Visual BasicÇáËɸ㶨Browser¼°Ftp

À´Ô´£º»¥ÁªÍø ×÷ÕߣºÎ÷²¿ÊýÂë ʱ¼ä£º2008-04-09
Î÷²¿ÊýÂë-È«¹úÐéÄâÖ÷»ú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¡£

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