Mensajes

Creo que te referis a los archivos .h no?
si es asi que mejor que wikipedia:
http://es.wikipedia.org/wiki/Archivo_de_cabecera

NO SE PUEDE!
osea como un programa puede funcionar con el ordenador apagado
no SixToex.

PD: lo que sea que querras hacer tendras que hacer algo "externo"

yo estos meses dedico unas 14-18horas al dia :3
paso leyendo o programando :3

si asi es, se comporta casi igual que la copymem...
pero a mi se me vino a la idea por la funcion de vb por eso le puse asi
por eso no le puse alternativa aunque indirectamente si lo es pero bueno

justo! gracias Ferno

buenas alguien conoce algun codigo que se pueda usar para medir la velocidad de un codigo?
o algun metodo o alternativa

[Karcrack Cobein]

Como prometi aqui hice codigo muy util que utiliza la tecnica
Agradecimientos a:
   Karcrack
   Cobein
Si no hubiera sido por ayudarme a entender como funciona no hubiera podido lograrlo
la funcion es un putmem x bytes, lo que hace es insertar X bytes a una posicion de memoria indicada, esta funcion que hice
es identica a las funciones:

Declare Sub PutMem1 Lib "msvbvm60" (Ptr As Any, ByVal NewVal As Byte)
Declare Sub PutMem2 Lib "msvbvm60" (Ptr As Any, ByVal NewVal As Integer)
Declare Sub PutMem4 Lib "msvbvm60" (Ptr As Any, ByVal NewVal As Long)
Declare Sub PutMem8 Lib "msvbvm60" (Ptr As Any, ByVal NewVal As Currency)

salvo que esta se pueden insertar cualquier cantidad de bytes, que es el tercer parametro el numero de bytes que uno debe
de indicar a insertar, tambien hay que tomar en cuenta como estan almacenados los bytes en la memoria eso es si es microprocesador de uno es little o big...

Código (VB) [Seleccionar] Expandir

Option Explicit
Private Declare Function CallWindowProc Lib "USER32" Alias "CallWindowProcW" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long


Private Sub Form_Load()
   ' By RHL no quitar texto
   Dim test As String: test = "Test de XXXXXX en inline asm!"
   Dim newp As String:         newp = "PUTMEM"
   
   Dim A As Long:A = &H101010
   Dim B As Byte:B = &H20
   
   Call vASM_PUTMEMx(VarPtr(A), VarPtr(B), 1)
   MsgBox A

   Call vASM_PUTMEMx(StrPtr(test) + 16, StrPtr(newp), 12)
   MsgBox test
   
End Sub

'Declare Sub PutMemx Lib "msvbvm60" (ptr As Any, ByVal newval As Byte)
Private Sub vASM_PUTMEMx(ByVal ptr As Long, ByVal newval As Long, ByVal nB As Long)
   Dim Acode(25)   As Byte: Acode(25) = &HC3
   
   Acode(17) = &H8A: Acode(18) = &H10: Acode(19) = &H88: Acode(20) = &H17
   Acode(21) = &H40: Acode(22) = &H47: Acode(23) = &HE2: Acode(24) = &HF8

   Dim i           As Long
   
   '       MOV EAX,OFFSET newval
   '       MOV EDI,OFFSET ptr
   '       XOR ECX,ECX
   '       MOV ECX,nB
   'INI:   MOV DL,[EAX]
   '       MOV [EDI], DL
   '       INC EAX
   '       INC EDI
   '       LOOP INI
   

   Acode(0) = &HB8
   i = LongToByte(newval, Acode(), i + 1)
 
   Acode(5) = &HBF
     
   i = LongToByte(ptr, Acode(), i + 1)
   Acode(10) = &H33: Acode(11) = &HC9
   
   Acode(12) = &HB9
   i = LongToByte(nB, Acode(), i + 3)

   Call CallWindowProc(ByVal VarPtr(Acode(0)), 0&, 0&, 0&, 0&)
End Sub

'by BlackZeroX
Private Function LongToByte(ByVal lLong As Long, ByRef bReturn() As Byte, Optional i As Integer = 0) As Long
   bReturn(i) = lLong And &HFF
   bReturn(i + 1) = (lLong And &HFF00&) \ &H100
   bReturn(i + 2) = (lLong And &HFF0000) \ &H10000
   bReturn(i + 3) = (lLong And &HFF000000) \ &H1000000
   LongToByte = i + 4
End Function
' By RHL no quitar texto


en vb los caracteres estan en unicode osea dos bytes por caracteres

Hola!
bueno frustrado sabiendo que en 32bits no se pueden usar las interrupciones del dos
como puedo sustituir tales funciones, sin usar APIs claro
funciones comunes del dos como escribir caracteres, leer , copiar archivo, eliminar , etc algun otro centro de recursos donde se
pueda sustituir

eso!
cual es la diferencia, no e encontrado mucho que se diga
aparte que ahora fue un dia frustrante, no sabia que con el modelo Small no podia hacer simplemente eso:

.data
var BYTE 10h
.code
mov eax,var ; error

encambio con el flat si!
y que a saber otras cosas que no se mejor quisiera estudiar los modelos y que se puede y que no se puede en cada uno o
como funcionan tambien e visto que hay otros

otra cosa
porque algunos programas se declaran de esa forma osea con .model ...
y e visto que otros son asi:

STACK SEGMENT STACK  , DATA SEGMENT   .... y asi
creo que hay otras dos formas porque hay varias

Hola!
bueno quien ah probado y recomienda que sea un excelente traductor me basta que sea
ingles > español
español > ingles
ruso > español

o por lo menos ingles > español solamente pero que tenga buena traduccion si conoceis un programa que use el motor del
traductor de google ya que para mi es el mejor, hace una traduccion casi perfecta para mi gusto pero sin conectarse a internet
por favor decidmelo lo necesito ya que me quedare un buen tiempo sin
internet T_T y me apoyo mucho en el traductor no puedo ingles tanto