Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Jun 17, 2000

PokeB, PokeI, PokeL - Write a byte, integer or long value into memory

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As _
    Any, source As Any, ByVal bytes As Long)

' write a byte into memory

Sub PokeB(ByVal address As Long, ByVal value As Byte)
    CopyMemory ByVal address, value, 1
End Sub

' write an integer into memory

Sub PokeI(ByVal address As Long, ByVal value As Integer)
    CopyMemory ByVal address, value, 2
End Sub

' write a Long value into memory

Sub PokeL(ByVal address As Long, ByVal value As Long)
    CopyMemory ByVal address, value, 4
End Sub

Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.