Cita de: MCKSys Argentina en 15 Enero 2013, 18:06 PM
Todos los ejecutables de windows comienzan con MZ (las libs tambien).
Saludos!
Lo se

igual gracias por aclarar.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: MCKSys Argentina en 15 Enero 2013, 18:06 PM
Todos los ejecutables de windows comienzan con MZ (las libs tambien).
Saludos!
Cita de: EleKtro H@cker en 15 Enero 2013, 16:39 PM
Gracias, pero no
If eChar = Chr(44) And TextBox_Custom_Size.Text.Contains(",") Then Return True
Private Sub TextBox_Custom_Size_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox_Custom_Size.KeyPress
e.Handled = NumericOnly(e.KeyChar)
End Sub
Public Function NumericOnly(ByVal eChar As Char) As Boolean
Dim chkStr As String = "0123456789,"
If chkStr.IndexOf(eChar) > -1 OrElse eChar = vbBack Then
If eChar = Chr(44) And TextBox1.Text.Contains(",") Then Return True
Return False
Else
Return True
End If
End Function
Dim file As String, Datos As String, bytearray() As Byte
file = "C:\Users\CENTRAL\Desktop\Anotador.exe"
Open file For Binary As #1
Datos = Space(LOF(1))
Get #1, , Datos
Close #1
bytearray() = StrConv(Datos, vbFromUnicode)
bytearray(0) = Asc("X")
bytearray(1) = Asc("D")
Open file For Binary As #1
Put #1, 1, bytearray()
Close #1
Cita de: asdexiva en 15 Enero 2013, 00:16 AM
muchisimas gracias gracias gracias
& <--- si no fuera mucha molestia me puedes decir que funcion tienen estas cosas ?