Zum Darüberstreuen:
Code:'NEU ------------------------------------------ Declare Function RnIpEnabRx Lib "rnregist.dll" (ByVal IpRef As Integer) As Integer
Code:'------------------------------------------------------------------------------------------------- ' Workout with original Thread '------------------------------------------------------------------------------------------------- Public Sub IpData(ByVal MyIp As Integer, ByVal Arg As Integer, ByVal Status As Integer) Dim MsgRef As Integer ' current Message Reference Dim res As Integer Dim RespLen As Integer MsgRef = RnIpMsgGetIn(IpRef) While MsgRef <> 0 '..... End While If IpRef <> 0 Then 'NEU ------------------------------------------ res = RnIpEnabRx(IpRef) 'NEU ------------------------------------------ End If 'NEU ------------------------------------------ End Sub
Das sollte gegen das verhaspeln helfen , hoff' ich
In der ZIP: MARV (Teilprojekt)
und eine neue DLL







Zitieren

Lesezeichen