Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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Öи÷ÖÖÊý¾ÝÀàÐÍת»»º¯Êý

1. ¸÷ÖÖ½øÖÆ×ª»»º¯Êý Ò»°ãµÄÊý¾Ý½øÖưüÀ¨Ê®½øÖÆ,¶þ½øÖÆ,Ê®Áù½øÖÆ.Ê®½øÖƾÍÊÇÎÒÃÇÈÕ³£Éú»îÓõ½µÄÊý¾Ý½øÖÆ,Òò´ËÒ²ÊÇÎÒÃÇ×îÊìϤºÍÇå³þµÄ;¶þ½øÖÆÊǼÆËã»úµÄ»ù´¡½øÖÆ,Ö÷ÒªÊÇÒòΪ±ãÓÚÓÃÎïÀíÆ÷¼þʵÏÖ¶þ½øÖÆ;°Ë½øÖƺÍÊ®Áù½øÖÆÒòΪºÍ¶þ½øÖƵÄÌìÈ»µÄÇ×ÃܹØÏµ,²¢ÇÒ±íʾ±È¶þ½øÖƸü·½±ã,
¡¡¡¡1.
 ¸÷ÖÖ½øÖÆ×ª»»º¯Êý
¡¡¡ ......

ASP VB.NET ¿Í»§¶ËÉÏ´«Îļþµ½·þÎñÆ÷¶Ë

  Dim strPath As String = Server.MapPath("~\Îļþ¼Ð")
        'Åжϱ£´æÎļþ·¾¶ÊÇ·ñ´æÔÚ ²»´æÔÚÔò´´½¨
        If Not Directory.Exists(strPath) Then
            Directory ......

VBʵÏÖ¼òµ¥µÄͼÐÎÇøÓòÑ¡Ôñ

³ÌÐòЧ¹û£º
µ±µã»÷×ó±ßµÄ²¿¼þͼʱ£¬»áµ¯³ö¶Ô»°¿òÌáʾÄãµã»÷ÁËÄÄÒ»¸öÇøÓò¡£
³ÌÐò˼·£º
ÓÃÒ»¸öÍ¼Æ¬ÇøÓòÂëͼ×÷Ϊµã»÷ÇøÓòµÄ²ÎÕÕ£¬¸ù¾ÝXYÈ¡µÃµÄÑÕɫʶ±ð³öÊôÓÚÄÄÒ»¸öÇøÓò
³ÌÐò½çÃæÈçÏ£º
Ïà¹Ø´úÂëÈçÏ£º
Visual Basic Code
Dim ColorArray (   )   As Long
Dim ColorCount As Long
Private Sub Form_Load ( ......

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 ²éÕÒÓÎÏ·´°¿Ú¾ä±úµÄ·½·¨


VB ²éÕÒÓÎÏ·´°¿Ú¾ä±úµÄ·½·¨
ÐÅÏ¢À´Ô´£ººÚ¿Í´úÂë ±à¼­£ºroot ä¯ÀÀ´ÎÊý£º191 ¼ÓÈëʱ¼ä£º2010-3-20 1:40:47 ÆÀÂÛ(0)
[ÎÊÌâÒ»,²»ÄÜ»ñµÃ´°¿Ú¾ä±ú]
Ò»°ãѰÕÒ´°¿Ú¾ä±ú¶¼ÊÇÖ±½ÓFindWindow°É,ÕâÑùÊDz»ÐеÄ,QQÈý¹úÔÚÕâЩº¯ÊýÉÏ×öÁËһЩ´¦Àí.ÎÒÀ´¸ø´ó¼Ò˵¸öÍòÄܵķ½·¨°É,
¶ÔÓÚGetWindowText·½·¨ÓÎÏ·¾Í¹Ü²»µ½ÁË,¿ÉÒÔÅäºÏʹÓÃGetW ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ