home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / desaware / spyworks / coop.bas next >
Encoding:
BASIC Source File  |  1995-12-16  |  2.1 KB  |  36 lines
  1. Attribute VB_Name = "COOP"
  2.  
  3. Option Explicit
  4.  
  5. 'When passing a user Type as a pointer to memory, you need to
  6. 'align the elements. Otherwise, the data may not be copied to the
  7. 'correct elements in Visual Basic. Refer to the "Visual Basic
  8. 'Programmer's Guide to the Win32 API" or some other Win32 reference
  9. 'book for further explanation on how Visual Basic handles Type alignments.
  10. Type CoopStructure
  11.     CompanyName(1 To 24) As Byte
  12.     count As Integer
  13.     dummy As Integer    'dummy integer to pad the structure, try removing
  14.                         'this to see what happens
  15.     Amount As Single
  16.     Total As Long
  17. End Type
  18.  
  19. Global Const COOP_MESSAGE = "Coop_Private_Message"
  20. Global Const THUNDERRTMAIN = "ThunderRTMain"
  21.  
  22. Public Declare Sub dwCopyDataBynum Lib "dwspy32.dll" Alias "dwCopyData" (ByVal source&, ByVal dest&, ByVal nCount&)
  23. Public Declare Function dwGetAddressForObject& Lib "dwspy32.dll" (object As Any)
  24. Public Declare Sub dwCopyDataByString Lib "dwspy32.dll" Alias "dwCopyData" (ByVal source As String, ByVal dest As Long, ByVal nCount&)
  25. Public Declare Function dwXCopyDataBynumFrom& Lib "dwspy32.dll" Alias "dwXCopyDataFrom" (ByVal mybuf As Long, ByVal foreignbuf As Long, ByVal size As Integer, ByVal foreignPID As Long)
  26. Public Declare Function dwGetWndInstance& Lib "dwspy32.dll" (ByVal hwnd&)
  27.  
  28. Public Declare Function RegisterWindowMessage& Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpstring As String)
  29. Public Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)
  30. Public Declare Function EnumWindows& Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long)
  31. Public Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
  32. Public Declare Function GetWindowThreadProcessId& Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long)
  33. Public Declare Function GetClassName& Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long)
  34.  
  35.  
  36.