Basic information
As you might have read elsewhere in this guide, wodTunnelCom can employ a fast notification interface instead of firing events. This means that each time wodTunnel needs to fire an event, it will call your implementation of the event instead. Notifications can be 30 times faster than events - meaning it is advisable to use notifications if performance is a priority in your applications.
The wodTunnel ActiveX Control and wodTunnel ActiveX EXE DO NOT support notifications - they are only available in the wodTunnelCom component (the in-process ActiveX DLL)!
You must declare ALL notification methods if you want to implement IwodTunnelNotify, no matter whether you need them or not. For example, many users don't need the Hostfingerprint event, but at least the empty body for this event MUST exist when notifications are used.
Read the following steps to learn how to implement your own IwodTunnelNotify interface. As an example, we will put it on the main form. You can also put it into separate VB class, in which case, instead of the 'Me' keyword, you will use name of your class.
The steps needed to implement IwodTunnelNotify
1. Add a Reference to the wodTunnelCom COM Object to your application.
2. Instead of declaring wodTunnel like this:
Dim WithEvents Tunnel1 as wodTunnelCom
you should do this:
Dim Tunnel1 as wodTunnelCom
Implements IwodTunnelNotify
3. In Form_Load, create a new instance for Tunnel1 and pass a reference of our IwodTunnelNotify to it:
Set Tunnel1 = new wodTunnelCom
Set Tunnel1.Notification = Me
4. Implement ALL methods or at least declare their empty bodies. You can do it automatically if you locate the 'IwodTunnelNotify' object in the list of all objects that exist on your form (combo box in upper left corner of your code view) or you can just do it by hand.
5. All done. Now put breakpoints to your methods. You will see that instead of event being fired, your methods will be called instead.
Method declarations
Private Sub IwodTunnelNotify_ChannelStart(ByVal Owner As wodSSHTunnelCOMLib.IwodTunnelCom, ByVal Chan As wodSSHTunnelCOMLib.IChannel)
End Sub
Private Sub IwodTunnelNotify_ChannelStop(ByVal Owner As wodSSHTunnelCOMLib.IwodTunnelCom, ByVal Chan As wodSSHTunnelCOMLib.IChannel, ByVal ErrorCode As Integer, ByVal ErrorText As String)
End Sub
Private Sub IwodTunnelNotify_Connected(ByVal Owner As wodSSHTunnelCOMLib.IwodTunnelCom)
End Sub
Private Sub IwodTunnelNotify_CryptoInformation(ByVal Owner As wodSSHTunnelCOMLib.IwodTunnelCom, ByVal Protocol As String, ByVal RemoteName As String, ByVal SCcipher As String, ByVal CScipher As String, ByVal Keys As String, Accept As Boolean)
End Sub
Private Sub IwodTunnelNotify_Disconnected(ByVal Owner As wodSSHTunnelCOMLib.IwodTunnelCom, ByVal ErrorCode As Integer, ByVal ErrorText As String)
End Sub
Private Sub IwodTunnelNotify_HostFingerprint(ByVal Owner As wodSSHTunnelCOMLib.IwodTunnelCom, ByVal Fingerprint As String, Accept As Boolean)
End Sub
Private Sub IwodTunnelNotify_LoginChallenge(ByVal Owner As wodSSHTunnelCOMLib.IwodTunnelCom, ByVal Challenge As String, Response As String)
End Sub
Private Sub IwodTunnelNotify_SocksBind(ByVal Owner As wodSSHTunnelCOMLib.IwodTunnelCom, ByVal Chan As wodSSHTunnelCOMLib.IChannel, ByVal User As wodSSHTunnelCOMLib.IUser, RemoteAddress As String, RemotePort As Long, ByVal Login As String, ByVal Password As String, Allow As Boolean)
End Sub
Private Sub IwodTunnelNotify_SocksConnect(ByVal Owner As wodSSHTunnelCOMLib.IwodTunnelCom, ByVal Chan As wodSSHTunnelCOMLib.IChannel, ByVal User As wodSSHTunnelCOMLib.IUser, ByVal RemoteAddress As String, ByVal RemotePort As Long, ByVal Login As String, ByVal Password As String, Allow As Boolean)
End Sub
Private Sub IwodTunnelNotify_StateChange(ByVal Owner As wodSSHTunnelCOMLib.IwodTunnelCom, ByVal OldState As wodSSHTunnelCOMLib.StatesEnum)
End Sub
Private Sub IwodTunnelNotify_UserConnected(ByVal Owner As wodSSHTunnelCOMLib.IwodTunnelCom, ByVal Chan As wodSSHTunnelCOMLib.IChannel, ByVal User As wodSSHTunnelCOMLib.IUser, ByVal ErrorCode As Integer, ByVal ErrorText As String)
End Sub
Private Sub IwodTunnelNotify_UserConnecting(ByVal Owner As wodSSHTunnelCOMLib.IwodTunnelCom, ByVal Chan As wodSSHTunnelCOMLib.IChannel, ByVal Hostname As String, ByVal Port As Long, Allow As Boolean)
End Sub
Private Sub IwodTunnelNotify_UserDisconnected(ByVal Owner As wodSSHTunnelCOMLib.IwodTunnelCom, ByVal Chan As wodSSHTunnelCOMLib.IChannel, ByVal User As wodSSHTunnelCOMLib.IUser, ByVal ErrorCode As Integer, ByVal ErrorText As String)
End Sub
Private Sub IwodTunnelNotify_UserStateChange(ByVal Owner As wodSSHTunnelCOMLib.IwodTunnelCom, ByVal Chan As wodSSHTunnelCOMLib.IChannel, ByVal User As wodSSHTunnelCOMLib.IUser, ByVal OldState As wodSSHTunnelCOMLib.StatesEnum)
End Sub
Back to product page