Visual Basic (VB and VBA)
Copyright 1999-2001 Christopher Greaves. All rights reserved.
Home Page and email to [email protected]
If in doubt, record a macro and inspect the entrails!

 

 

Please read the DISCLAIMER.

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.



Public Function strSysInfo()
' Procedure :   strSysInfo
' Description:  Deliver useful System information strings
'               Typical use - generating a somewhat unique key for the system.
' Copyright: Chris Greaves Inc.
' Inputs:       None
' Returns:      An accumulated string.
' Assumes:      None.
' Side Effects: None
' Tested:       By the calls shown below.
    Dim intI As Integer
    Dim str As String
    ' Return all valid entries from the system info string
    For intI = 21 To 24
        On Error GoTo -1: On Error GoTo Next2:
        str = str + WordBasic.[GetSystemInfo$](intI)
Next2:
        On Error GoTo -1: On Error GoTo 0
    Next intI
    strSysInfo = str
'Sub TESTstrSysInfo()
'    MsgBox strSysInfo
'End Sub
End Function

We all knew nothing when we started …
Home Page and Contact Information
Send email to [email protected].
This page was last updated Thursday, November 15, 2001

 

 

Hosted by www.Geocities.ws

1

Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved.
Home Page and email to [email protected]
If in doubt, record a macro and inspect the entrails!

 

 

Please read the DISCLAIMER.

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function strSysInfo()
' Procedure :   strSysInfo
' Description:  Deliver useful System information strings
'               Typical use - generating a somewhat unique key for the system.
' Copyright: Chris Greaves Inc.
' Inputs:       None
' Returns:      An accumulated string.
' Assumes:      None.
' Side Effects: None
' Tested:       By the calls shown below.
    Dim intI As Integer
    Dim str As String
    ' Return all valid entries from the system info string
    For intI = 21 To 24
        On Error GoTo -1: On Error GoTo Next2:
        str = str + WordBasic.[GetSystemInfo$](intI)
Next2:
        On Error GoTo -1: On Error GoTo 0
    Next intI
    strSysInfo = str
'Sub TESTstrSysInfo()
'    MsgBox strSysInfo
'End Sub
End Function

We all knew nothing when we started …
Home Page and Contact Information
Send email to [email protected].
This page was last updated Thursday, November 15, 2001

 

 

Hosted by www.Geocities.ws

1