Click here to Skip to main content
Click here to Skip to main content

IBM Messenger in VB.NET

, 27 Oct 2004
Rate this:
Please Sign up or sign in to vote.
IBM Messenger in VB.NET.

Introduction

Imagine if you could send a message to an AS400 (or I5) machine, by using a neat and small program that gives you a lot of power on messaging.

How it works

This program uses a “Stored Procedure” in AS400 (or I5) to send a message to another user, or all the users. All you need to do is to type the message, choose the recipients, and hit the “SEND” button. You are allowed to save the message, or retrieve a message to be sent. Adding new recipient is as easy as filling in an input box! All together, this program is very easy to use and straightforward.

Something about the code

  1. Here is the main trick that uses the Stored Procedure (SNDMSG):
    "CALL QSYS.QCMDEXC('" & StrCom & "'," & ParameterL & ")"

    CALL QSYS.QCMDEXC() is a function that lets you run a procedure in AS400 (or I5). This function accepts two parameters:

    1. Procedure name
    2. Procedure length

    The following is the made up procedure:

    "SNDMSG MSG('" & Messagetxt & "') TOUSR(" & Recepient & ")"

    The variable ParameterL keeps the length of the procedure and its parameters. Once you make up the procedure, then the CALL QSYS.QCMDEXC() would execute it. However, setting up a procedure and an accurate length for the procedure and its parameters are crucial.

  2. The second trick in the program is an “embedded .wav file”. Once you click on the “SEND” button, it sends the message and runs an embedded .wav file.

    'Play Sound
    Private Declare Function PlaySound Lib "winmm.dll" (ByVal data() As Byte, _
          ByVal hMod As IntPtr, ByVal hwFlags As Integer) As Integer
     Private Const SND_ASYNC As Integer = &H1        'Play asynchronously
     Private Const SND_MEMORY As Integer = &H4       'Play wav in memory
    
     'The .wav will be stored in this byte array
     Private Shared ClickSound As Byte()
    
     Shared Sub New()
      'Get running assembly name
      Dim NameSpc As String = _
       Reflection.Assembly.GetExecutingAssembly().GetName().Name.ToString()
      'Look for the button click sound in the resource stream.
      Dim SoundFile As String
      Dim WavStrm As IO.Stream = _
       Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream( _
       NameSpc + "." + "DRIVEBY.WAV")
      'ReDim the byte array to be the size of the embedded .wav
      ReDim ClickSound(CType(WavStrm.Length, Integer))
      'Load the .wav from the stream into the byte array
      WavStrm.Read(ClickSound, 0, Int(CType(WavStrm.Length, Integer)))
     End Sub
    
     'Override the OnClick event to play the sound
     '  Protected Overrides Sub OnClick(ByVal ea As EventArgs)
     '  Call PlayWav(ClickSound)
     '  MyBase.OnClick(ea)
     ' End Sub
    
     'Play embedded .wav resource
     Public Sub PlayWav(ByVal WavResource As Byte())
      PlaySound(WavResource, IntPtr.Zero, SND_ASYNC Or SND_MEMORY)
     End Sub

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

About the Author

Kourosh K Tari
Software Developer (Senior) Marsoft LLC
United States United States
I started Marsoft in 2008 in Albuquerque, New Mexico.
Dozens of great software products and hundreds of web development projects are fruits of all these years.
Follow on   Twitter

Comments and Discussions

 
Generalcomplete source code for a new messenger like yahoo messenger Pinmemberakhand858-Sep-09 21:11 
Generalfull source code for developing a new messenger PinmemberShah Nidhi K5-Aug-08 20:20 
GeneralInstant Messenger Pinmemberchse72026-Apr-07 9:53 
GeneralRe: Instant Messenger Pinmembervabsthegreat3-Aug-08 22:53 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Mobile
Web03 | 2.8.140718.1 | Last Updated 28 Oct 2004
Article Copyright 2004 by Kourosh K Tari
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid