vb²Ù×÷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£©¡£Ö»²»¹ýËüÃǵÄ
Ïà¹ØÎĵµ£º
****ʲôÊǶþ´Î¿ª·¢?
Ò»°ãµÄÀ´Ëµ£¬Ò»Ð©´ó¹«Ë¾ÈçIBM¡¢MS¿ª·¢ÁËÒ»¸ö´óÐ͵ÄÈí¼þϵͳƽ̨£¬¸ù¾Ý²»Í¬µÄ¿Í»§µÄÐèÒª£¬Ò»Ð©ÆäËüµÄÖÐС¹«Ë¾Îª¿Í»§¸ù¾ÝÐèÇóÔÚ¸ÃÆ½Ì¨ÉϽøÐеڶþ´ÎÓÐÕë¶ÔÐԵĿª·¢£¬Õⱻͳ³ÆÎª¶þ´Î¿ª·¢¡£
¡¡ ¶þ´Î¿ª·¢Òª¿´Èí¼þÊÇ·ñÌṩÏàÓ¦µÄ½Ó¿Ú£¬ÓеãÈí¼þ¹«Ë¾Ö»ÌṩÈí¼þ£¬µ«Ò²ÓÐС¹«Ë¾Á¬´úÂëÒ»Æð³öÊÛ£¬È ......
±¾ÎÄÀ´×Ôqingye2008Ëù·¢µÄ´ËÌûµÄÌÖÂÛ£¬¸Ðл³Â»Ô¡¢ÂíÔÆ½£¡¢qingyeµÄÄÍÐÄÖ¸µãºÍ·ÖÏí¡£
1¡¢ÒýÑÔ
»°ËµqingyeͬѧµÃµ½ÁËÒ»¸öÓÃÓÚ¼Ó½âÃܵÄDll£¨¸Ã¶¯Ì¬¿âÔÚÕâÀïÏÂÔØ£©£¬Í¨¹ýDll Export Viewer¿´µ½dllÓÐ2¸öµ¼³öº¯Êý·Ö±ðÊÇDll_EncInºÍDll_EncOut£¬qingyeͬѧÏëÔÚVBÖÐʹÓÃÕâÁ½¸öº¯Êý¡£ÒòΪ¸ã²»µ½½Ó¿Ú˵Ã÷£¬Ö»ºÃͨ¹ý²é¿´»ã±à´úÂëÀ´²Â ......
Óо²Ì¬ºÍ¶¯Ì¬Á½ÖÖ£¬¾²Ì¬µÄÐèÒªlib¶ø¶¯Ì¬µÄÖ»ÐèÒªÒ»¸ödll¾Í¿ÉÒÔÁË£¨µ«ÊÇÒªÖªµÀº¯ÊýµÄ¶¨ÒåÒ»°ãÊÇÍ·ÎÄ
¼þ£©¶¯Ì¬Ïà¶Ô¸´ÔÓÒ»µã£¡µ«ÊÇÕÆÎÕÁËÒ²²»ÊǺÜÄÑ
//µÚÒ»²½ ¶¨Ò庯ÊýÖ¸Õë¾ÍÊÇÄãÒªµ÷Óõĺ¯Êý£¬²ÎÊý±ØÐëÒ»Ö£¬²»È»¾ÍÄÚ´æÐ¹Â¶
typedef HANDLE ......
´úÂ룺
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetW ......
ÉùÃ÷¹Ì¶¨´óСµÄÊý×é
ÓÐÈýÖÖ·½·¨ÉùÃ÷¹Ì¶¨´óСµÄÊý×飬ÓÃÄÄÒ»ÖÖ·½·¨È¡¾öÓÚÊý×éÓ¦ÓеÄÓÐЧ·¶Î§£º
½¨Á¢¹«ÓÃÊý×飬ÔÚÄ£¿éµÄÉùÃ÷¶ÎÓà Public Óï¾äÉùÃ÷Êý×é¡£
½¨Á¢Ä£¿é¼¶Êý×飬ÔÚÄ£¿éµÄÉùÃ÷¶ÎÓà Private Óï¾äÉùÃ÷Êý×é¡£
½¨ ......