函数申明
Private Declare Function ReceiveAllMessage Lib "smspdu.dll" (ByRef sm_param_temp() As SM_PARAM) As IntegerSM_PARAM为自定义结构 Dim sms_param(30) As SM_PARAM
Dim nResult As Integer
nResult = ReceiveAllMessage(sms_param)
List1.AddItem (sms_param(0).TP_UD)//每次都越界,sms_param大小为0 到-1
因头次用VB,请高手指点!
Private Declare Function ReceiveAllMessage Lib "smspdu.dll" (ByRef sm_param_temp() As SM_PARAM) As IntegerSM_PARAM为自定义结构 Dim sms_param(30) As SM_PARAM
Dim nResult As Integer
nResult = ReceiveAllMessage(sms_param)
List1.AddItem (sms_param(0).TP_UD)//每次都越界,sms_param大小为0 到-1
因头次用VB,请高手指点!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货