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
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
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
Shared Function _ waveOutGetNumDevs() As IntegerEnd FunctionFunction IsSoundCardSupported() As Boolean Return waveOutGetNumDevs() >= 1End Function
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’
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
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
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
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