You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
480 B
11 lines
480 B
Attribute VB_Name = "Module1"
|
|
Option Explicit
|
|
|
|
Declare Function BitBlt Lib "GDI32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As Long
|
|
|
|
Global Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
|
|
Global card As Integer
|
|
Global card_number As Integer
|
|
Global ai_type As Integer
|
|
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long _
|
|
)
|
|
|