Menú

Mostrar Mensajes

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ú

Mensajes - Danyfirex

#341
Cita de: MCKSys Argentina en 15 Enero 2013, 18:06 PM
Todos los ejecutables de windows comienzan con MZ (las libs tambien).  :P

Saludos!

Lo se  :P.

igual gracias por aclarar.
#343
A mi me funciona perfecto.

seguro pusiste el nombre por defecto de los controles?
#344
Cita de: EleKtro H@cker en 15 Enero 2013, 16:39 PM
Gracias, pero no :(

seguro ?

a mi me funciona:S

cambiaste el nombre a tu textbox correspondiente?

Código (vbnet) [Seleccionar]
  If eChar = Chr(44) And TextBox_Custom_Size.Text.Contains(",") Then Return True
#345

Creo que así funcionaria.

Código (vbnet) [Seleccionar]
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


saludos
#346
Si compilaste para x86 debería funcionar bien en x64.

lo mas probable es que no este netframework en la otra maquina.

recuerda que cuando se usa visual.net se depende de netframework. debe estas instalado para que funcione las aplicaciones.

http://msdn.microsoft.com/es-es/library/zw4w595w(v=vs.80).aspx


saludos
#347
Verificaste que exista la versión de NetFramework necesaria?
#348
algo podría ser así.

Código (vb) [Seleccionar]
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


el codigo cambia el MZ de un ejecutable por XD.

saludos
#349
claro que se puede. es siempre el mismo offset?
#350
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 ?



Es la operación por la cual dos caracteres se unen para formar una cadena de caracteres (o string). También se pueden concatenar dos cadenas de caracteres o un carácter con una cadena para formar una cadena de mayor tamaño. Algunos ejemplos:
'a' concatenado 'b' → "ab"
"ABCD" concatenado 'b' → "ABCDb"
'a' concatenado "XYZ" → "aXYZ"
"ABCD" concatenado "XYZ" → "ABCDXYZ"


saludos