windows.bas

来自「一款基于标准IC卡考勤数据读写操作示例的开发源程序。主要给需要开发IC卡和考勤系」· BAS 代码 · 共 41 行

Attribute VB_Name = "Windows"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/03/08
'描    述：标准太平洋IC考勤机开发读写数据示例
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Option Explicit

Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)

Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Function EnumWindowsProc(ByVal hwnd As Long, ByVal parma As Long) As Long
  Dim astr As String * 256
  Dim bstr As String
  Dim x As Integer
  GetClassName hwnd, astr, Len(astr)
  If InStr(astr, "CabinetWClass") Then
       GetWindowText hwnd, astr, Len(astr)
        x = InStr(astr, Chr(0))
       bstr = Left$(astr, x)
      Form1.List1.AddItem bstr
  End If
  EnumWindowsProc = True
End Function