You can also din fun things like:
editbin /subsystem:console yourapp.exe

This makes the vb exe run as a console app... You can then use
WriteFileA (need to import it, it's a win32 API) to write to the console
window.  There are lots of examples on the web, or ping me offline, and
I will dig up some snippets that I have...

-tim

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
On Behalf Of Michael Harrington
Sent: Thursday, October 16, 2003 6:34 PM
To: [EMAIL PROTECTED]
Subject: [xmail] Off Topic Win32 Filter in VB5/6



Hello Everyone,

This is rather off topic, but for anyone who wants to write a filter in
VisualBasic 5/6 for the Win32 version of XMail, here is a little bit of
code to start you off  Create a blank VB project, remove the default
created Form, and add a new Module (i.e. Module1.bas)  Place the
following code in the Module and make sure to set your project's startup
to Sub Main():

Option Explicit

Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)

Public Sub Main()

    Dim sCLParams() As String
    Dim ExitCode As Long
    Dim index As Long
    Dim bScanFailed As Boolean

    'specify the exit code
    ExitCode = 4

    'Convert the command line parameters into an array of strings
    sCLParams = Split(Trim$(Command$), " ")

    For index = 0 To UBound(sCLParams)
        '... Process Each Command Line parameter
    Next index

    'Add Logic Here to Scan the Message

    If bScanFailed = False Then Exit Sub

    'Exit with the specified Return Code
    Call ExitProcess(ExitCode)

End Sub


ENJOY!

-Mike

-
To unsubscribe from this list: send the line "unsubscribe xmail" in the
body of a message to [EMAIL PROTECTED] For general help: send the
line "help" in the body of a message to [EMAIL PROTECTED]


-
To unsubscribe from this list: send the line "unsubscribe xmail" in
the body of a message to [EMAIL PROTECTED]
For general help: send the line "help" in the body of a message to
[EMAIL PROTECTED]

Reply via email to