Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 mcisendstring ·½·¨


×ö¸ömp3²¥·ÅÆ÷£¬ÓÃrealplayºÍWMP×ö³öÀ´µÄ³ÌÐòÄÚ´æÕ¼ÓÃÌ«´ó¡£
Èç¹ûÄã½ö½öÊDz¥·ÅMP3£¬½¨ÒéʹÓÃAPIº¯ÊýmciSendString¡£
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal
lpstrReturnString As String, ByVal uReturnLength As Lo ......

VBÓëWindows API ¼äµÄºô½Ð¼¼ÇÉ

 Ò»°ã»áʹÓÃWINDOW APIµÄÇé¿ö£¬ÊµÔÚÊÇÒòΪVB±¾Éí²»ÌṩijЩ¹¦ÄÜ£¬µ«ÊÇ£¬³ÌʽËù
ÐèÓÖ²»µÃ²»È»£¬ÀýÈ磺¶ÁÈ¡RegistryÄÚµÄ×Ê
ÁÏ£¬VBÖ»ÌṩSaveSetting¡¢Getsetting µÈ
ϵÁеÄÖ¸Áµ«ÊÇËüÖ»ÄܶÁÈ¡Ìض¨µØÇøµÄÖµ£¬Òª¶Á¡¢É¾¡¢¸ü¶¯ÆäËûÇøÓòµÄֵʱ£¬¾ÍÎÞ
·¨
ʹÓá£ÔÙÈ磺×Ðϸ¿´Ò»¿´Combo BoxµÄEvents£¬ÆäÖÐ ......

ìÓë¶Ü:ÓÃVB´òÔìÇý¶¯¼¶¼üÅ̼ǼÆ÷,ÄܹýQQÃÜÂë¿ò(Ô´Âë)

¡¡¡¡ÐÅÏ¢¼à¿ØÓëÒþ˽±£»¤ÓÀÔ¶ÊÇÒ»¶Ôì¶Ü¡£
       ÔÚ¶Ô¸¶¸÷ÖÖÐÅÏ¢ÇÔÈ¡Èí¼þÉÏ¡£
       Ð¼¼Êõ×ÜÊDzã³ö²»Çî¡£±¾ÎĽéÉÜÒ»ÖÖ¹ÅÀϵļüÅ̼ǼÆ÷¼¼Êõ£¬È·ÊµºÜ¹ÅÀÏ¡£
       DOSʱ´úÈËÃǾÍÔÚÓÃÁË¡£
       µ«ÊÇÏÖÔÚËüÈÔÈ»ºÜÓÐЧ£¬ÔÚ¼üÅ̹ýÂËÇ ......

£¨×ª£©VBÇ¿ÖÆÀàÐÍת»»º¯Êý

ת×Ô£ºhttp://tieba.baidu.com/f?kz=139765011
ÿ¸öº¯Êý¶¼¿ÉÒÔÇ¿Öƽ«Ò»¸ö±í´ïʽת»»³ÉijÖÖÌض¨Êý¾ÝÀàÐÍ¡£
Óï·¨
CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression) ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ