Click here to Skip to main content
12,457,770 members (56,726 online)
Click here to Skip to main content
Add your own
alternative version


14 bookmarked

IBM Messenger in VB.NET

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


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 = _
      '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


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.

You may also be interested in...


Comments and Discussions

Generalcomplete source code for a new messenger like yahoo messenger Pin
akhand858-Sep-09 21:11
memberakhand858-Sep-09 21:11 
GeneralInstant Messenger Pin
chse72026-Apr-07 9:53
memberchse72026-Apr-07 9:53 
GeneralRe: Instant Messenger Pin
vabsthegreat3-Aug-08 22:53
membervabsthegreat3-Aug-08 22:53 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    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 | Terms of Use | Mobile
Web02 | 2.8.160826.1 | Last Updated 28 Oct 2004
Article Copyright 2004 by Kourosh K Tari
Everything else Copyright © CodeProject, 1999-2016
Layout: fixed | fluid