核心内容摘要
OpenClaw终于有了图形界面，一键安装使用你的24小时AI 研究助手！
跟我学VBA我这里专注VBA, 授人以渔。
我98年开始从源码接触VBA已经20余年了随着年龄的增长越来越觉得有必要把这项技能传递给需要这项技术的职场人员。
希望职场和数据打交道的朋友都来学习VBA,利用VBA,起码可以提高自己的工作效率可以有时间多陪陪父母多陪陪家人何乐而不为呢我的教程一共九套从入门开始一直讲到程序的分发是学习利用VBA的实用教程。
这份API资料是随高级教程赠送的.这讲我们继续学习VBA 64位API声明语句第017讲这些内容是MS的权威资料看似枯燥但对于想学习API函数的朋友是非常有用的。
【分享成果随喜正能量】34每个人在自己的时区都有自己的步程。
不用嫉妒或嘲笑他人。
他们都在自己的时区里你也是等待正确的行动时机放轻松。
你虽然没有领先但也没有落后。
在命运为你安排的属于自己的时区里一切都准时。
当学员学习到高级阶段如果引用API这个资料可以直接查到64位写法。
大多数情况下我们是将低版本的程序文件升级到高版本这时您就不必为如下的错误提示所困扰了 COMM declarationsDeclare PtrSafe Function SetCommState Lib kernel32 Alias SetCommState (ByVal hCommDev As LongPtr, lpDCB As DCB) As LongDeclare PtrSafe Function SetCommTimeouts Lib kernel32 Alias SetCommTimeouts (ByVal hFile As LongPtr, lpCommTimeouts As COMMTIMEOUTS) As LongDeclare PtrSafe Function GetCommState Lib kernel32 Alias GetCommState (ByVal nCid As LongPtr, lpDCB As DCB) As LongDeclare PtrSafe Function GetCommTimeouts Lib kernel32 Alias GetCommTimeouts (ByVal hFile As LongPtr, lpCommTimeouts As COMMTIMEOUTS) As LongDeclare PtrSafe Function PurgeComm Lib kernel32 Alias PurgeComm (ByVal hFile As LongPtr, ByVal dwFlags As Long) As LongDeclare PtrSafe Function BuildCommDCB Lib kernel32 Alias BuildCommDCBA (ByVal lpDef As String, lpDCB As DCB) As LongDeclare PtrSafe Function BuildCommDCBAndTimeouts Lib kernel32 Alias BuildCommDCBAndTimeoutsA (ByVal lpDef As String, lpDCB As DCB, lpCommTimeouts As COMMTIMEOUTS) As LongDeclare PtrSafe Function TransmitCommChar Lib kernel32 Alias TransmitCommChar (ByVal nCid As LongPtr, ByVal cChar As Byte) As LongDeclare PtrSafe Function SetCommBreak Lib kernel32 Alias SetCommBreak (ByVal nCid As LongPtr) As LongDeclare PtrSafe Function SetCommMask Lib kernel32 Alias SetCommMask (ByVal hFile As LongPtr, ByVal dwEvtMask As Long) As LongDeclare PtrSafe Function ClearCommBreak Lib kernel32 Alias ClearCommBreak (ByVal nCid As LongPtr) As LongDeclare PtrSafe Function ClearCommError Lib kernel32 Alias ClearCommError (ByVal hFile As LongPtr, lpErrors As Long, lpStat As COMSTAT) As LongDeclare PtrSafe Function SetupComm Lib kernel32 Alias SetupComm (ByVal hFile As Long, ByVal dwInQueue As Long, ByVal dwOutQueue As Long) As LongDeclare PtrSafe Function EscapeCommFunction Lib kernel32 Alias EscapeCommFunction (ByVal nCid As LongPtr, ByVal nFunc As Long) As LongDeclare PtrSafe Function GetCommMask Lib kernel32 Alias GetCommMask (ByVal hFile As LongPtr, lpEvtMask As Long) As LongDeclare PtrSafe Function GetCommProperties Lib kernel32 Alias GetCommProperties (ByVal hFile As LongPtr, lpCommProp As COMMPROP) As LongDeclare PtrSafe Function GetCommModemStatus Lib kernel32 Alias GetCommModemStatus (ByVal hFile As LongPtr, lpModemStat As Long) As LongDeclare PtrSafe Function WaitCommEvent Lib kernel32 Alias WaitCommEvent (ByVal hFile As LongPtr, lpEvtMask As Long, lpOverlapped As OVERLAPPED) As LongDeclare PtrSafe Function SetTapePosition Lib kernel32 Alias SetTapePosition (ByVal hDevice As LongPtr, ByVal dwPositionMethod As Long, ByVal dwPartition As Long, ByVal dwOffsetLow As Long, ByVal dwOffsetHigh As Long, ByVal bimmediate As Long) As LongDeclare PtrSafe Function GetTapePosition Lib kernel32 Alias GetTapePosition (ByVal hDevice As LongPtr, ByVal dwPositionType As Long, lpdwPartition As Long, lpdwOffsetLow As Long, lpdwOffsetHigh As Long) As LongDeclare PtrSafe Function PrepareTape Lib kernel32 Alias PrepareTape (ByVal hDevice As LongPtr, ByVal dwOperation As Long, ByVal bimmediate As Long) As LongDeclare PtrSafe Function EraseTape Lib kernel32 Alias EraseTape (ByVal hDevice As LongPtr, ByVal dwEraseType As Long, ByVal bimmediate As Long) As LongDeclare PtrSafe Function CreateTapePartition Lib kernel32 Alias CreateTapePartition (ByVal hDevice As LongPtr, ByVal dwPartitionMethod As Long, ByVal dwCount As Long, ByVal dwSize As Long) As LongDeclare PtrSafe Function WriteTapemark Lib kernel32 Alias WriteTapemark (ByVal hDevice As LongPtr, ByVal dwTapemarkType As Long, ByVal dwTapemarkCount As Long, ByVal bimmediate As Long) As LongDeclare PtrSafe Function GetTapeStatus Lib kernel32 Alias GetTapeStatus (ByVal hDevice As LongPtr) As LongDeclare PtrSafe Function GetTapeParameters Lib kernel32 Alias GetTapeParameters (ByVal hDevice As LongPtr, ByVal dwOperation As Long, lpdwSize As Long, lpTapeInformation As Any) As LongConst GET_TAPE_MEDIA_INFORMATION 0Const GET_TAPE_DRIVE_INFORMATION 1Declare PtrSafe Function SetTapeParameters Lib kernel32 Alias SetTapeParameters (ByVal hDevice As LongPtr, ByVal dwOperation As Long, lpTapeInformation As Any) As LongConst SET_TAPE_MEDIA_INFORMATION 0Const SET_TAPE_DRIVE_INFORMATION 1Declare PtrSafe Function Beep Lib kernel32 Alias Beep (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongDeclare PtrSafe Function MulDiv Lib kernel32 Alias MulDiv (ByVal nNumber As Long, ByVal nNumerator As Long, ByVal nDenominator As Long) As LongDeclare PtrSafe Sub GetSystemTime Lib kernel32 Alias GetSystemTime (lpSystemTime As SYSTEMTIME)Declare PtrSafe Function SetSystemTime Lib kernel32 Alias SetSystemTime (lpSystemTime As SYSTEMTIME) As LongDeclare PtrSafe Sub GetLocalTime Lib kernel32 Alias GetLocalTime (lpSystemTime As SYSTEMTIME)Declare PtrSafe Function SetLocalTime Lib kernel32 Alias SetLocalTime (lpSystemTime As SYSTEMTIME) As LongDeclare PtrSafe Sub GetSystemInfo Lib kernel32 Alias GetSystemInfo (lpSystemInfo As SYSTEM_INFO)Type TIME_ZONE_INFORMATIONBias As LongStandardName(0 To