¼±!Õâ¸öAPIÓÃVBÔõôÉùÃ÷ºÍʹÓÃ?

BOOL SinoConnCICalcFunc(int nport, UCHAR* pVerfiyMsg, UCHAR* pCalcMsg,UCHAR* pResultMsg)

Õâ¸öAPI¸ÃÔõô¶¨Òå?»¹ÓÐÎÒ´«½øÈ¥µÄ²ÎÊý¸ÃÔõô¶¨Òå?
±ÈÈçpVerfiyMsgµÄ³¤¶ÈÊÇ10,ÎÒ¾ßÌå¸ÃÔõôÓÃ?

¼±!

---

Declare Function SinoConnCICalcFunc Lib "dllÎļþÃû" (ByVal nport As Long, ByRef pVerfiyMsg As String, ByRef pCalcMsg As String, ByRef pResultMsg As String) As Boolean

---

Private Declare Function SinoConnCICalcFunc Lib "dllÎļþÃû" (ByVal nport As Long, ByRef pVerfiyMsg As String, ByRef pCalcMsg As String, ByRef pResultMsg As String) As Boolean

»ò

Public Declare Function SinoConnCICalcFunc Lib "dllÎļþÃû" (ByVal nport As Long, ByRef pVerfiyMsg As String, ByRef pCalcMsg As String, ByRef pResultMsg As String) As Boolean

---

·µ»ØÀàÐÍÓ¦¸ÃÊÇ As Integer

---

µ÷ÓÃʱVB»á×Ô¶¯¹Ø±Õ¡£
×Ô¼ºÑо¿¿´ÁË×ÊÁÏʹÓÃbyteÊý×é
Public Declare Function SinoConnCICalcFunc Lib "dllÎļþÃû" (ByVal nport As Long, ByRef pVerfiyMsg As Any, ByRef pCalcMsg As Any, ByRef pResultMsg As Any) As Boolean

dim bytVerfiyMsg(9)
dim bytCalcMsg(19)
dim bytResultMSg(9)
dim strVerfiyMsg as string

call sinoconncicalcfunc(1,bytverfiymsg(0),bytcalcmsg(0),bytresultmsg(0))
ÕâÑùʹÓòŲ»»á±¨´í¡£

---

¶¨ÒåΪlong
´«µÝ²ÎÊýÀàÐÍÓÃbyteÊý×é

´«µÝÖ¸ÕëµÄÓÃvarptr(pOut)

×Ô¶¯Í˳ö˵Ã÷ÀàÐÍÆ¥Åä,Ö±½Ó