Liste der Anhänge anzeigen (Anzahl: 1)
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