冰舞冬季的博客 Option Explicit Public PortMemory As String Public AllBlueMemory As String Public BlueMemory As String ...Private Type COMSTAT fBitFields As Long COMSTAT cbInQue As Long cbOutQue As L...
冰舞冬季的博客注意XP环境与win7环境下的调用...!! '返回接口地址返回结果字符串 Public Function GetResponse(sURL As String, Optional Method As String, Optional sBody As String) As String Dim aHttpRequest As Obj...