May 12, 2003

Implement Secure .NET Web Services with WS-Security

Web Services Enhancements 1.0 for Microsoft .NET (WSE) provides the functionality for Microsoft .NET Framework developers to support the latest Web services capabilities. WSE is the cornerstone of the GXA (Global XML Web-Services Architecture), an architecture of proposed Web services standards that Microsoft, IBM, and other companies have written. (Table

PlayAVIVideoOFF – Playing the audio track of an AVI file

Shared Function _ GetShortPathName(ByVal lpszLongPath As String, _ ByVal lpszShortPath As System.Text.StringBuilder, _ ByVal cchBuffer As Integer) As IntegerEnd Function’ Play the audio track of an AVI file.’ fileName is a string containing the full path of the file.” Notes: requires the ExecuteMCICommand routineSub PlayAVIVideoOFF(ByVal fileName As String) Dim commandString

ExecuteMCICommand – Executing a MCI command

Shared Function _ mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As _ String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As _ IntegerEnd Function’ helper routine; executes a MCI command ‘ commandString is the command to execute’ deviceAlreadyOpened must be set to true if the caller has already opened the

PlayAVIPictureBox – Playing an AVI file in a PictureBox synchronously

Shared Function _ GetShortPathName(ByVal lpszLongPath As String, _ ByVal lpszShortPath As System.Text.StringBuilder, _ ByVal cchBuffer As Integer) As IntegerEnd Function’ Play an AVI file in a PictureBox synchronously.” fileName is a string containing the full path of the file.’ window is the PictureBox in which you want that the movie’

GetMCIErrorString – Retrieving the description of a MCI error

Shared Function _ mciGetErrorString(ByVal dwError As Integer, _ ByVal lpstrBuffer As System.Text.StringBuilder, ByVal uLength As Integer) _ As IntegerEnd Function’ Get the description of a MCI error.” ErrorCode is the code of the error’ Return a string with the description of the error.Function GetMCIErrorString(ByVal errorCode As Integer) As String Dim

PlayWAV – Playing a WAV file

Const SND_ASYNC = &H1 Shared Function _ PlaySound(ByVal lpszName As String, ByVal hModule As Integer, _ ByVal dwFlags As Integer) As IntegerEnd Function’ Play a WAV file.” fileName is a string containing the full path of the file.’ If synchronousMode is true, the sound is played synchronously’ Returns true if

Opening and closing the CD door

Shared Function _ mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As _ String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As _ IntegerEnd FunctionSub OpenCDDoor() mciSendString(“Set CDAudio Door Open Wait”, vbNullString, 0, 0)End SubSub CloseCDDoor() mciSendString(“Set CDAudio Door Closed Wait”, vbNullString, 0, 0)End Sub

PlayAVIAudioOFF – Playing an AVI file synchronously without the audio track

Shared Function _ GetShortPathName(ByVal lpszLongPath As String, _ ByVal lpszShortPath As System.Text.StringBuilder, _ ByVal cchBuffer As Integer) As IntegerEnd Function’ Play an AVI file synchronously without the audio track.” fileName is a string containing the full path of the file.” Notes: requires the ExecuteMCICommand routineSub PlayAVIAudioOFF(ByVal fileName As String) Dim