| 'Create personalizer object and Session object |
| Dim pers As New PersonalizerRef.Personalizer()
|
| Dim sess As New SessionRef.Session()
|
| Dim SessionID As
String = "" |
| Try |
| SessionID = pers.CreateSession("LogonName", "Password") |
| 'Create ICQ notification |
| Dim objICQ As New ICQRef.ICQ()
|
| 'Create server notification object |
| Dim ICQNotifID As
String |
| ICQNotifID = sess.CreateICQNotification(SessionID) |
| objICQ.Logon(ICQNotifID, "012345", "Password") |
| objICQ.Send(ICQNotifID, "543210", "This is ICQ Notification Message") |
| objICQ.SendURL(ICQNotifID, "543210", "www.acrosscommunications.com", "Take a look at my site") |
| objICQ.Disconnect(ICQNotifID) |
| objICQ.Release(ICQNotifID) |
| sess.Release(SessionID) |
| Catch e As Exception |
| 'Print exception message e.Message |
| sess.Release(SessionID) |
| End Try |