All pastes #264299 Raw Edit

Gangz

public text v1 · immutable
·published 2006-12-02 06:58 UTC
rendered paste body
Private Sub wBNLS_DataArrival(ByVal bytesTotal As Long)
AddChat vbGreen, "BNLS data received"
Dim temp As String
wBNLS.GetData temp
Dim success As Integer
Dim Version As Long, CheckSum As Long, exeinfo As Long
success = Connection.GetWORD(Mid(temp, 4, 2))
Version = Connection.GetDWORD(Mid(temp, 6, 4))
CheckSum = Connection.GetDWORD(Mid(temp, 10, 4))
exeinfo = Connection.GetDWORD(Mid(temp, 9))
Connection.SendPacket51