Visual Basic

Private Sub btnOpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenFile.Click

       Dim FileName As String = ""

       With dlgOpenFile
           .InitialDirectory = "C:\Stuff\Office2K3.SP2"
           .Filter = "All Files|*.*"
       End With

       If (dlgOpenFile.ShowDialog = Windows.Forms.DialogResult.OK) Then

           FileName = dlgOpenFile.FileName
           'Dim sr As System.IO.StreamReader = Nothing
           'sr = New System.IO.StreamReader(FileName)
           'CurrentFileContents = sr.ReadToEnd

           Dim fs As System.IO.FileStream = New System.IO.FileStream(FileName, IO.FileMode.Open, IO.FileAccess.Read)
           Dim strLength As Integer = Convert.ToInt32(fs.Length)
           Dim fileData As Byte() = New Byte(strLength) {}

           fs.Read(fileData, 0, strLength)
           fs.Flush()
           fs.Close()

           For Each x As Byte In fileData
               txtOut.Text &= Convert.ToChar(x) & Chr(&H0)

           Next x

           'For Each x As Char In CurrentFileContents
           'txtOut.Text &= x & vbNullChar

           'Next x

           'sr.Close()

       End If

   End Sub

   Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

       If (CurrentFileContents = "") Then
           btnOpenFile_Click(sender, e)
       End If

       Dim null As String = vbNullChar
       Dim newFile As String = ""
       For Each x As Char In CurrentFileContents
           newFile &= x & CStr(vbNullChar)
       Next x
       txtOut.Text = newFile


   End Sub

Private Sub cmdRun_Click()
{
    Dim wsh as New IWshRuntimeLibrary.WshShell
    
    wsh.Run App.path + "\Process1.exe", 1, True
    wsh.Run App.path + "\Process2.exe", 1, True
}

While (true) { Human.isLearnable = true; }

Source: "D:\myproject\distribusion\xxxhook.dll"; DestDir: "{sys}"; Flags: ignoreversion