Arkadaşlar USB Macro yazmayı duşunuyorum fakat mcHID.dll modul olarak nasıl kullanacağım hakkında bir bilgim yok.Bilen arkadaşlar yardımcı olursa sevinirim.Modul Upload ediyorum.

DLL Linki

Hotfile.com: Hébergement de fichiers par un clic: HIDVB6.rar


Module Source

Kod:
' this is the interface to the HID controller DLL - you should not ' normally need to change anything in this file. ' ' WinProc() calls your main form 'event' procedures - these are currently ' set to.. ' ' MainForm.OnPlugged(ByVal pHandle as long) ' MainForm.OnUnplugged(ByVal pHandle as long) ' MainForm.OnChanged() ' MainForm.OnRead(ByVal pHandle as long) Option Explicit ' HID interface API declarations... Declare Function hidConnect Lib "mcHID.dll" Alias "Connect" (ByVal pHostWin As Long) As Boolean Declare Function hidDisconnect Lib "mcHID.dll" Alias "Disconnect" () As Boolean Declare Function hidGetItem Lib "mcHID.dll" Alias "GetItem" (ByVal pIndex As Long) As Long Declare Function hidGetItemCount Lib "mcHID.dll" Alias "GetItemCount" () As Long Declare Function hidRead Lib "mcHID.dll" Alias "Read" (ByVal pHandle As Long, ByRef pData As Byte) As Boolean Declare Function hidWrite Lib "mcHID.dll" Alias "Write" (ByVal pHandle As Long, ByRef pData As Byte) As Boolean Declare Function hidReadEx Lib "mcHID.dll" Alias "ReadEx" (ByVal pVendorID As Long, ByVal pProductID As Long, ByRef pData As Byte) As Boolean Declare Function hidWriteEx Lib "mcHID.dll" Alias "WriteEx" (ByVal pVendorID As Long, ByVal pProductID As Long, ByRef pData As Byte) As Boolean Declare Function hidGetHandle Lib "mcHID.dll" Alias "GetHandle" (ByVal pVendoID As Long, ByVal pProductID As Long) As Long Declare Function hidGetVendorID Lib "mcHID.dll" Alias "GetVendorID" (ByVal pHandle As Long) As Long Declare Function hidGetProductID Lib "mcHID.dll" Alias "GetProductID" (ByVal pHandle As Long) As Long Declare Function hidGetVersion Lib "mcHID.dll" Alias "GetVersion" (ByVal pHandle As Long) As Long Declare Function hidGetVendorName Lib "mcHID.dll" Alias "GetVendorName" (ByVal pHandle As Long, ByVal pText As String, ByVal pLen As Long) As Long Declare Function hidGetProductName Lib "mcHID.dll" Alias "GetProductName" (ByVal pHandle As Long, ByVal pText As String, ByVal pLen As Long) As Long Declare Function hidGetSerialNumber Lib "mcHID.dll" Alias "GetSerialNumber" (ByVal pHandle As Long, ByVal pText As String, ByVal pLen As Long) As Long Declare Function hidGetInputReportLength Lib "mcHID.dll" Alias "GetInputReportLength" (ByVal pHandle As Long) As Long Declare Function hidGetOutputReportLength Lib "mcHID.dll" Alias "GetOutputReportLength" (ByVal pHandle As Long) As Long Declare Sub hidSetReadNotify Lib "mcHID.dll" Alias "SetReadNotify" (ByVal pHandle As Long, ByVal pValue As Boolean) Declare Function hidIsReadNotifyEnabled Lib "mcHID.dll" Alias "IsReadNotifyEnabled" (ByVal pHandle As Long) As Boolean Declare Function hidIsAvailable Lib "mcHID.dll" Alias "IsAvailable" (ByVal pVendorID As Long, ByVal pProductID As Long) As Boolean ' windows API declarations - used to set up messaging... Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long ' windows API Constants Private Const WM_APP = 32768 Private Const GWL_WNDPROC = -4 ' HID message constants Private Const WM_HID_EVENT = WM_APP + 200 Private Const NOTIFY_PLUGGED = 1 Private Const NOTIFY_UNPLUGGED = 2 Private Const NOTIFY_CHANGED = 3 Private Const NOTIFY_READ = 4 ' local variables Private FPrevWinProc As Long ' Handle to previous window procedure Private FWinHandle As Long ' Handle to message window ' Set up a windows hook to receive notification ' messages from the HID controller DLL - then connect ' to the controller Public Function ConnectToHID(ByVal pHostWin As Long) As Boolean FWinHandle = pHostWin ConnectToHID = hidConnect(FWinHandle) FPrevWinProc = SetWindowLong(FWinHandle, GWL_WNDPROC, AddressOf WinProc) End Function ' Unhook from the HID controller and disconnect... Public Function DisconnectFromHID() As Boolean DisconnectFromHID = hidDisconnect SetWindowLong FWinHandle, GWL_WNDPROC, FPrevWinProc End Function ' This is the procedure that intercepts the HID controller messages... Private Function WinProc(ByVal pHWnd As Long, ByVal pMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If pMsg = WM_HID_EVENT Then Select Case wParam ' HID device has been plugged message... Case Is = NOTIFY_PLUGGED MainForm.OnPlugged (lParam) ' HID device has been unplugged Case Is = NOTIFY_UNPLUGGED MainForm.OnUnplugged (lParam) ' controller has changed... Case Is = NOTIFY_CHANGED MainForm.OnChanged ' read event... Case Is = NOTIFY_READ MainForm.OnRead (lParam) End Select End If ' next... WinProc = CallWindowProc(FPrevWinProc, pHWnd, pMsg, wParam, lParam) End Function

__________________