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

½Ó×ÅÍâ¹Ò½Ì³Ì VB ´ÓÁ㿪ʼ±àÍâ¹Ò


½Ó×ÅÍâ¹Ò½Ì³Ì VB ´ÓÁ㿪ʼ±àÍâ¹Ò
ÐèÒªVBAPIº¯Êý£º
FindWindow←ѰÕÒ´°¿ÚÁбíÖеÚÒ»¸ö·ûºÏÖ¸¶¨Ìõ¼þµÄ¶¥¼¶´°¿Ú
GetWindowThreadProcessId←»ñÈ¡ÓëÖ¸¶¨´°¿Ú¹ØÁªÔÚÒ»ÆðµÄÒ»¸ö½ø³ÌºÍÏ̱߳êʶ·û
--------------------------------------------------------------------------------------------------------------------------------------------------------
Ïà¹ØAPIÉùÃ÷£º
FindWindow

PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong
GetWindowThreadProcessId

PrivateDeclareFunctionGetWindowThreadProcessIdLib"user32"(ByValhwndAsLong,lpdwProcessIdAsLong)
AsLong
--------------------------------------------------------------------------------------------------------------------------------------------------------
ÐèÒªµÄ¿Ø¼þ£ºLabel¡¢Timer
--------------------------------------------------------------------------------------------------------------------------------------------------------×Ô¶¨Ò庯Êý£º
DimhwndAsLong
--------------------------------------------------------------------------------------------------------------------------------------------------------Ô´´úÂ룺
PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong
PrivateDeclareFunctionGetWindowThreadProcessIdLib"user32"(ByValhwndAsLong,lpdwProcessIdAsLong)AsLong
PrivateSubTimer1_Timer()
DimhwndAsLong''´¢´æFindWindowº¯Êý·µ»ØµÄ¾ä±ú
hwnd=FindWindow(vbNullString,"WindowsMediaPlayer")''È¡µÃ½ø³Ì±êʶ·û
''Ö»Òª°ÑWindowsMediaPlayer»»³ÉÓÎÏ·µÄÃû³Æ¾Í¿ÉÁË£¡
Ifhwnd=0Then
Label1.Caption="ÓÎϷδÔËÐÐ"
Else
Label1.Caption="ÓÎÏ·ÒÑÔËÐÐ"
EndIf
EndSub
ÏàÐÅ´ó¼Ò£¬ÔÚÖÆ×÷ÓÎÏ·Íâ¹ÒµÄʱºò£¬¶¼»áÓõ½FPE¡¢½ðɽÓÎÏÀ¡¢GEÐÞ¸ÄÆ÷¡¢GameMaster8.0µÈµÈÕâЩÈí¼þ£¬µ«ÊÇÈç½ñµÄÍøÂçÓÎÏ·»ù±¾É϶¼¼ÓÁËNP£¬ÏÂÃæÀ´Á˽âÒ»ÏÂNP¡£Öª¼ºÖª±Ë£¬°ÙÕ½²»´ùÂ
ʲôÊÇnProtect£¿
nProtectÊÇÉè¼ÆÓÃÓÚ±£»¤¸öÈ˵çÄÔÖն˲»±»²¡¶¾ºÍºÚ¿Í³ÌÐò¸ÐȾµÄиÅÄîµÄ»ùÓÚÍøÂçµÄ·´ºÚ¿ÍºÍ·´²¡¶¾µÄ¹¤¾ß¡£Ëû°ïÖúÈ·±£ËùÓÐÊäÈë¸öÈ˵çÄÔÖն˵ÄÐÅÏ¢ÔÚÍøÂçÉϲ»ÂäÈëº


Ïà¹ØÎĵµ£º

VB ÃæÏò¶ÔÏó

Õ⼸ÌìÒ»Ö±ÔÚ×öÒ»¸öСµÄ¹¤³Ì,×öÒ»¸öÎı¾ÔĶÁÆ÷,ÏÖÔÚ×öµÄÒѾ­ÓÐÈý·ÖÖ®¶þÁË,´ÓÖÐѧϰµ½Á˺ܶà,¶ÔÎÒÃÇÒÔǰѧϰµÄ³É¹ûÓÐÁ˸üÉî¿ÌµÄÀí½â.
VBÊÇÒ»ÃÅÃæÏò¶ÔÏóµÄ³ÌÐòÉè¼Æ,ÎҾʹÓÃæÐÔ¶ÔÏóµÄ½Ç¶È¶ÔËû×öÒ»´Î×ܽá
°ÑVBÖÐËùÓеÄÊý¾Ý,±äÁ¿,¿Ø¼þ¶¼¿´×öÒ»¸ö¶ÔÏó
ÎÒÃÇËùÓеIJÙ×÷¶¼ÊǶԶÔÏóµÄ²Ù×÷,ÈöÔÏóÈ¥Ö´ÐÐijһ¸ö¹¦ÄÜ
´ó¼ÒÏÈ¿´Ò»¸öÀý× ......

ASP VB.NET ÏÂÔØ·þÎñÆ÷Îļþµ½¿Í»§¶Ë


      Try
            Dim Path As String = Server.MapPath("~/Download/") 'Îļþ·¾¶
            Path = Path & "file.txt" 'ÎļþµÄÃû³Æ
     ......

Asp.netÁ¬½ÓÊý¾Ý¿â½Ì³Ì£¨vb.net£©

Asp.netÁ¬½ÓSQL Server2000Êý¾Ý¿âÀý³ÌÏê½â: 
<%@ Import Namespace="System.Data" %> 
<%@ Import NameSpace="System.Data.SqlClient" %> 
<script laguage="VB" runat="server"> 
sub page_load(sender as Object ......

VB Winsock StateÊôÐÔÖµ

VB  Winsock  StateÊôÐÔÖµ
'winsock ״̬³£Êý
'sckClosed 0 ¹Ø±Õ״̬
'sckOpen 1 ´ò¿ª×´Ì¬
'sckListening 2 ÕìÌý״̬
'sckConnectionPending 3 Á¬½Ó¹ÒÆð
'sckResolvingHost 4 ½âÎöÓòÃû
'sckHostResolved 5 ÒÑʶ±ðÖ÷»ú
'sckConnecting 6 ÕýÔÚÁ¬½Ó
'sckConnected 7 ÒÑÁ¬½Ó
'sckClosing 8 ͬ¼¶ÈË ......

VB½Ø»ñWindowsÏûÏ¢µÄ¹³×Ó

±¾ÎÄÒý×Ô¡£¸Ðлԭ´´£¡http://useway.blog.51cto.com/736087/176913
VBÎÞËù²»ÄÜÖ®Èý£ºVB½Ø»ñWindowsÏûÏ¢µÄ¹³×Ó
——×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://useway.blog.51cto.com
 
    VBÒ»Ö±±»ÈÏΪÊÇÒ»¸ö¿ÉÒÔͨ¹ý¼òµ¥µÄ·½·¨£¬Íê³ÉWindows½çÃæÓ¦ÓóÌÐòµÄÒ»¸öÓïÑÔ¡£¶ÔWindowsϵͳ·½ÃæµÄ±à³ÌËÆºõÊ× ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ