½Ó×ÅÍâ¹Ò½Ì³Ì 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ÊÇÉè¼ÆÓÃÓÚ±£»¤¸öÈ˵çÄÔÖն˲»±»²¡¶¾ºÍºÚ¿Í³ÌÐò¸ÐȾµÄиÅÄîµÄ»ùÓÚÍøÂçµÄ·´ºÚ¿ÍºÍ·´²¡¶¾µÄ¹¤¾ß¡£Ëû°ïÖúÈ·±£ËùÓÐÊäÈë¸öÈ˵çÄÔÖն˵ÄÐÅÏ¢ÔÚÍøÂçÉϲ»ÂäÈëº
Ïà¹ØÎĵµ£º
×ö¸ö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 ......
1. ÔÚVBµÄFormÉè¼ÆÊ±£¬¼ÓÈëÒ»¸öpicturebox¿Ø¼þ£¬Õâ¸ö¿Ø¼þ×÷ΪOLEÈÝÆ÷£¬MapInfoÖеĵØÍ¼½«ÔڸÿؼþÉÏÏÔʾ¡£
2. Ö´ÐÐVBµÄº¯ÊýCreateobject(“MapInfo.Application”),Æô¶¯MapInfo¡£ÕâʱMapInfoÔÚºǫ́Æô¶¯£¬¶ÔÓû§À´Ëµ²»¿É¼û£¬²»»áµ¯³ösp ......
³ÌÐòЧ¹û£º
µ±µã»÷×ó±ßµÄ²¿¼þͼʱ£¬»áµ¯³ö¶Ô»°¿òÌáʾÄãµã»÷ÁËÄÄÒ»¸öÇøÓò¡£
³ÌÐò˼·£º
ÓÃÒ»¸öÍ¼Æ¬ÇøÓòÂëͼ×÷Ϊµã»÷ÇøÓòµÄ²ÎÕÕ£¬¸ù¾ÝXYÈ¡µÃµÄÑÕɫʶ±ð³öÊôÓÚÄÄÒ»¸öÇøÓò
³ÌÐò½çÃæÈçÏ£º
Ïà¹Ø´úÂëÈçÏ£º
Visual Basic Code
Dim ColorArray ( ) As Long
Dim ColorCount As Long
Private Sub Form_Load ( ......
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ÊôÐÔÖµ
'winsock ״̬³£Êý
'sckClosed 0 ¹Ø±Õ״̬
'sckOpen 1 ´ò¿ª×´Ì¬
'sckListening 2 ÕìÌý״̬
'sckConnectionPending 3 Á¬½Ó¹ÒÆð
'sckResolvingHost 4 ½âÎöÓòÃû
'sckHostResolved 5 ÒÑʶ±ðÖ÷»ú
'sckConnecting 6 ÕýÔÚÁ¬½Ó
'sckConnected 7 ÒÑÁ¬½Ó
'sckClosing 8 ͬ¼¶ÈË ......