¼±¼±£¡ÔÚÏߵȣ¡vb´ò¿ªµçÓ°Îļþ£¡
ÓÃVB´ò¿ªµçÓ°¸ñʽ£¬²¥·ÅµçÓ°µÄÈí¼þÊǶ¨ËÀµÄ£¨Storm.exe£©£¬ÊÔÁËÓÃ
ShellExecute Me.hWnd, "open", mvpath(i), "", "", SW_SHOWNORMAL£¨ÆäÖÐmvpath(i)£©ÊǵçӰ·¾¶¡£¡£
µ«´ò¿ª²»ÁË£¬Ö»»áÔÚ¡°ÈÎÎñ¹ÜÀíÆ÷¡±À¶øÃ»ÓÐÕæÕýµØ²¥·ÅµçÓ°Îļþ
×Ô¼º¶¥Ò»Ï£¡¼Ó·Ö£¡
µçÓ°¸ñʽµÄºó׺ÊÇʲô£¿ShellExecuteÖ»ÊÇÓÃĬÈϵĴò¿ªÁ¬½Ó´ò¿ªµçÓ°£¬Èç¹ûÄãûÓа²×°Äܹ»²¥·Å¸ÃµçÓ°µÄ²¥·ÅÆ÷£¬µ±È»´ò²»¿ª£¬ºÍÄãµÄ³ÌÐòÎÞ¹Ø.
½¨Òé°²×°Ò»¸öÓ°Òô·ç±©£¬ÔÙÔËÐÐÄãµÄ³ÌÐò
°ÑýÌåµÄĬÈϲ¥·ÅÆ÷ÉèÖóÉÄãËùÐèÒªµÄ²¥·ÅÆ÷£¬ÔÙʹÓÃShellExecute´ò¿ª¡£
VB code:
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Dim strFile As String
strFile = "E:\mp3\²»ÈÃÎÒµÄÑÛÀáÅãÎ
Ïà¹ØÎÊ´ð£º
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
×Ô¼º²ÉÓõÄÊÇSet objWMIService = GetObject("winmgmts:\\"&computername&"\root\cimv2")£¬ÆäÖÐcomputernameÊǾÖÓòÍøÒ»Ì¨µçÄÔµÄIP»ò¼ÆËã»úÃû£¬µ«Ê¹ÓÃÕâ¸öwmiÓï¾ä¶ÔÔ¶³Ì¼ÆËã»ú½øÐвÙ×÷ʱ ......