Shared Function _ FindExecutable(ByVal fileName As String, ByVal fileDir As String, _ ByVal buffer As System.Text.StringBuilder) As IntegerEnd Function’ Returns the name and path of the EXEcutable file that is

‘ Destroy a file associationSub DeleteFileAssociation(ByVal extension As String) Const SHCNE_ASSOCCHANGED = &H8000000 Const SHCNF_IDLIST = 0 ‘ ensure that there is a leading dot If extension.Substring(0, 1) “.” Then

Shared Function _ SHAddToRecentDocs(ByVal uFlags As Integer, ByVal filePath As String) As _ IntegerEnd Function’ Add a file to the list of recent documents’ If the parameter is an empty

Shared Sub _ SHChangeNotify(ByVal wEventId As Integer, ByVal uFlags As Integer, _ ByVal dwItem1 As Integer, ByVal dwItem2 As Integer)End Sub’ Create the new file association” Extension is the extension

Shared Function _ GetDesktopWindow() As IntegerEnd Function Shared Function GetDC _ (ByVal hWnd As Integer) As IntegerEnd Function Shared Function _ GetDeviceCaps(ByVal hDC As Integer, ByVal nIndex As Integer) As

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

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

Shared Function _ waveOutGetNumDevs() As IntegerEnd FunctionFunction IsSoundCardSupported() As Boolean Return waveOutGetNumDevs() >= 1End Function

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

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

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”,

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

SQL Server provides a mechanism for returning different values in a SELECT clause based on Boolean conditions: the CASE statement. This statement resembles Visual Basics Select Case statement. The SQL

Use OLE automation stored procedures to send email: DECLARE @SenderAddress varchar(100)DECLARE @RecipientAddress varchar(100)DECLARE @Subject varchar(200)DECLARE @Body varchar(8000)DECLARE @oMail int –Object referenceDECLARE @resultcode intSET @SenderAddress = ‘[email protected]’SET @RecipientAddress= ‘[email protected]’SELECT @Subject =

XMLwhen it is in ASCIIcan be stored as any other literal in one line, but it’s not very readable. Use the following macros to store XML (or any other string

A more elegant approach: use an associative array. If you have more addresses to block, put them together (in this example, using CGI and Perl): #!perlmy %block_ip=(‘172.56.260.71’=>’bad.org’,’172.56.260.72’=>’evil.org’,);my $remote = $ENV{REMOTE_ADDR}

Here’s an old trick from C, which carries over to Java. If you have two intsa and bwhose values you want to swap, the obvious way to do so is