other balance portion to the read

1 view
Skip to first unread message

Nicholas Randall Forystek

unread,
May 8, 2016, 9:46:48 AM5/8/16
to
Private Function WndProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal
wParam As Long, ByVal lParam As Long) As Long
On Error GoTo notloaded

Static stacking As Long
stacking = stacking + 1
If stacking > uc.Count Then GoTo notloaded

On Error GoTo selectnone
Select Case uMsg
Case WM_WINSOCK

Dim objSocket As Socket
Set objSocket = PtrObj(uc("H" & hWnd))
WndProc = objSocket.EventRaised(WSAGetSelectEvent(lParam),
WSAGetAsyncError(lParam))

End Select

On Error GoTo 0
stacking = stacking - 1
Exit Function
selectnone:
If Err Then Err.Clear
On Error GoTo 0
stacking = stacking - 1
WndProc = 0
Exit Function
notloaded:
On Error GoTo 0
stacking = stacking - 1
WndProc = 0
End Function


Reply all
Reply to author
Forward
0 new messages