Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

¼±¼±£¡ÔÚÏߵȣ¡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ÖÐ

vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......

vb.net ´´½¨accessÊý¾Ý±íʵÏÖÒ»Êý¾Ý¿â¶à¸öÊý¾Ý±í£¿

Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......

ΪʲôÓÃVB¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......

vbÖÐÈçºÎÐ޸ľÖÓòÍøµçÄÔµÄÍø¹Ø»òdns?

×Ô¼º²ÉÓõÄÊÇSet objWMIService = GetObject("winmgmts:\\"&computername&"\root\cimv2")£¬ÆäÖÐcomputernameÊǾÖÓòÍøÒ»Ì¨µçÄÔµÄIP»ò¼ÆËã»úÃû£¬µ«Ê¹ÓÃÕâ¸öwmiÓï¾ä¶ÔÔ¶³Ì¼ÆËã»ú½øÐвÙ×÷ʱ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ