qq_15578843的博客

'修改完善人：李荣慧 联系QQ：196110053Option ExplicitPrivate Const EM_GETLINECOUNT = &HBA'Public Const WM_USER = &H400'Public Const EM_SETREADONLY = (WM_USER + 31)Private Const EM_GETSEL = &HB0Pr...

注意XP环境与win7环境下的调用区分，XP下对接口https的调用会报错“接收格式异常”！！！'返回接口地址返回结果字符串Public Function GetResponse(sURL As String, Optional Method As String, Optional sBody As String) As String    Dim aHttpRequest As Obj...

Private Declare Function CreateWaitableTimer Lib "kernel32" Alias "CreateWaitableTimerA" (ByVal lpSemaphoreAttributes As Long, ByVal bManualReset As Long, ByVal lpName As String) As LongPrivate Decla...

 Option ExplicitPublic PortMemory As String Public AllBlueMemory As String Public BlueMemory As StringPrivate Type COMSTAT    fBitFields As Long   COMSTAT   cbInQue As Long   cbOutQue As L...