Public Function LoWord(DWord As Long) As Integer
LoWord = (DWord And &H7FFF) Or (((DWord And &H8000&) <> 0) And &H8000)
End FunctionPublic Function HiWord(DWord As Long) As Integer
HiWord = (DWord And &H7FFF0000) \ &H10000 Or (((DWord And &H80000000) <> 0) And &H8000)
End FunctionPublic Function MakeDWord(HiWord As Integer, LoWord As Integer) As Long
MakeDWord = ((HiWord And &H7FFF) * &H10000 Or (((HiWord And &H8000) <> 0) And &H80000000)) _
Or ((LoWord And &H7FFF) Or (((LoWord And &H8000) <> 0) And &H8000&))
End Function
LoWord = (DWord And &H7FFF) Or (((DWord And &H8000&) <> 0) And &H8000)
End FunctionPublic Function HiWord(DWord As Long) As Integer
HiWord = (DWord And &H7FFF0000) \ &H10000 Or (((DWord And &H80000000) <> 0) And &H8000)
End FunctionPublic Function MakeDWord(HiWord As Integer, LoWord As Integer) As Long
MakeDWord = ((HiWord And &H7FFF) * &H10000 Or (((HiWord And &H8000) <> 0) And &H80000000)) _
Or ((LoWord And &H7FFF) Or (((LoWord And &H8000) <> 0) And &H8000&))
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货