info
Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
other balance portion to the read
2 views
Skip to first unread message
Nicholas Randall Forystek
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
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
0 new messages