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

ÀûÓÃVBÔ¶Ïß³Ì×¢Èë¼¼ÊõʵÏÖ¼üÅÌÀ¹½ØµÄÀý×Ó(ÎÞDLL)

´ÓÍøÉÏËѼ¯µ½µÄVB´úÂ룬ÓÃEXE·½Ê½ÊµÏÖÁËÔ¶³Ì×¢È룬²»¹ýÔÚ·´²¡¶¾Èí¼þµÄ±£»¤Ï£¬ÓпÉÄܵ¼ÖÂ×¢Èëʧ°Ü¡£×ªÌùÕâ¸ö´úÂ룬½ö¹©´ó¼ÒѧϰºÍ²Î¿¼¡£
Ò»¡¢´°¿Ú´úÂ룺
Option Explicit

Private Sub cmdLock_Click()
If LockKeyboard(True) Then
cmdLock.Enabled = False
cmdUnLock.Enabled = True
End If
End Sub
Private Sub cmdUnLock_Click()
If LockKeyboard(False) Then
cmdLock.Enabled = True
cmdUnLock.Enabled = False
End If
End Sub
Private Sub Form_Load()
Dim bIsLock As Boolean
bIsLock = GetKeyboardState
cmdLock.Enabled = Not bIsLock
cmdUnLock.Enabled = bIsLock
End Sub
Option Explicit
Private Sub cmdLock_Click()
If LockKeyboard(True) Then
cmdLock.Enabled = False
cmdUnLock.Enabled = True
End If
End Sub
Private Sub cmdUnLock_Click()
If LockKeyboard(False) Then
cmdLock.Enabled = True
cmdUnLock.Enabled = False
End If
End Sub
Private Sub Form_Load()
Dim bIsLock As Boolean
bIsLock = GetKeyboardState
cmdLock.Enabled = Not bIsLock
cmdUnLock.Enabled = bIsLock
End Sub    
¶þ¡¢Ä£¿é´úÂ룺
Option Explicit
'ÊÇ·ñ°üº¬´¦ÀíÆäËü¼üÅÌÏûÏ¢£¬True±íʾ´¦Àí.
#Const INC_OTHER_KEY = True
'×¢Ò⣬ÒÔÏÂËùÓÐË«°æ±¾µÄAPI¾ùÉùÃ÷³ÉÁË UNICODE °æ¡£ ²¢ÇÒÐí¶àµØ·½ÓëVBµÄAPIä¯ÀÀÆ÷Éú³ÉµÄ´úÂëÓÐËù²»Í¬¡£
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAd


Ïà¹ØÎĵµ£º

c# ÑéÖ¤Âë×é¼þ ¿Évb£¬asp£¬netµ÷ÓÃ

      ½ñÌ칫˾ҪÇóÓÃC#д¸öÑéÖ¤Âë×é¼þ£¬ÈÃasp¿ÉÒÔµ÷Óã¬ÔÚÍøÉÏÕÒÁËÒ»¶Ñ×ÊÁÏ£¬ÖÕÓÚ¸øÎÒ¸ø¸ã³öÀ´ÁË£¬ÒòΪ±¾È˵ÚÒ»´Îд×é¼þ£¬Ò²ÊǵÚÒ»´Î·¢±íÎÄÕ£¬ËùÓпÉÄÜ˵µÄ²»ÊǺܺ㬴ó¼ÒÇë¼ûÁ¡£
      csdnÉÏÓÐÕâôƪÎÄÕ£¬Ïëѧϰд×é¼þµÄ¿ÉÒÔÈ¥¿´¿´£ºhttp://blog.csdn.net/KimmKi ......

VB¸´ÖÆÎļþ¼ÐµÄ·½·¨(·ÇFSO)

http://www.webuc.net/ddf3/archive/2005/08/25/6142.aspx
²»ÓÃFSOµÄ¸´ÖÆÎļþ¼ÐµÃ·½·¨£¿
ÓÃAPIº¯Êý SHFileOperation
ÒÔÏÂÊÇʹÓÃSHFileOperationɾ³ý¸´ÖÆÒƶ¯ÎļþµÄÀý×Ó£¬¿ÉÒÔ¸´ÖÆÎļþ¼Ð
Private Type SHFILEOPSTRUCT
¡¡¡¡hwnd As Long
¡¡¡¡wFunc As Long
¡¡¡¡pfrom As String
¡¡¡¡pTo As String
¡¡¡¡fFlags As ......

VB¾ÖÓòÍøɨÃè

   ×î½üÓÉÓÚ¹¤×÷ÏîÄ¿Ô­Òò£¬ÁÙʱҪÇó×öÒ»¸ö¾ÖÓòÍøɨÃèÈí¼þ¡£¹¦ÄÜÒªÇó£¬É¨Ãè³öIPµØÖ·ÒÔ¼°¶ÔÓ¦µÄMACµØÖ·¡£¹¦ÄܱȽϼòµ¥¡£ÓÚÊǺܿì¾Í×öÁË¡£²ÉÓõĿª·¢¹¤¾ßÊÇ VB6.0
     ʹÓ÷½·¨ÊÇͨ¹ý·¢ËÍ ARP°ü£¬¹ã²¥ IPµØÖ·µÄ·½Ê½À´»ñµÃ ¶ÔÓ¦µÄ MACµØÖ·£¬SendARP£¨£©¡£
ÓÐһЩϸ½ÚҪעÒ⣬¾ÍÊÇ Êä³öMACµØÖ ......

vb ±£´æͼƬµ½Êý¾Ý¿â

'¶ÁÊý¾Ýµ½¶þ½øÖÆ×Ö¶Î
Public Sub ReadfromBLOB(filed As ADODB.Field, Filen As String)
Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer
'´«ËͿ鵥λ´óС
Const ChunkSize As Integer = 16384
Dim MediaTemp As String
Dim lngOffset As Long
Di ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ