Sorry your browser is not supported!

sync on:sync rate 10
make memblock 1, 2
write memblock byte 1, 1, 7
do
set cursor 0, 0
print get memblock ptr(1)
print get memblock size(1)
print memblock byte(1, 0)
sync
loop

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim marshal As System.Runtime.InteropServices.Marshal
    Dim pointer As IntPtr

#Region " Vom Windows Form Designer generierter Code "

    Public Sub New()
        MyBase.New()

        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()

        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen

    End Sub

    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    ' Für Windows Form-Designer erforderlich
    Private components As System.ComponentModel.IContainer

    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
    'Sie kann mit dem Windows Form-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    Friend WithEvents Button1 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(88, 72)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(96, 128)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Button1"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 265)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim var As Byte
        rem remove the 578800 with the memblock ptr(1)
        REM marshal.WriteByte(578800, 5, 15)
        MessageBox.Show(marshal.ReadByte(578800, 2))
    End Sub
End Class

sync off
sync rate 30

MemmapHandle as dword
MemmapAddress as dword

InitKernel32()

MemmapHandle = OpenSharedMemory( 256, "BOB")

if MemmapHandle <> 0
   MemmapAddress = MapSharedMemory( MemmapHandle, 0, 256 )
   if MemmapAddress <> 0
      print "Address : "; hex$( MemmapAddress )
      wait key
      print "This was already there : "; PeekDword( MemmapAddress )
      print "Increasing it by 1"
      PokeDword( MemmapAddress, PeekDword(MemmapAddress)+1 )
      print "This is now what is there : "; PeekDword( MemmapAddress )
      print
      print "Press any key to close the mapping and exit"
      wait key
      UnmapSharedMemory( MemmapAddress )
   else
      print "Failed to map the memory"
      wait key
   endif
   CloseSharedMemory( MemmapHandle )
else
   print "Memory mapping failed"
   wait key
endif

ShutdownKernel32()

end

function PeekDword( Addr as dword )
   Value as dword
   Value = *Addr
endfunction Value

function PokeDword( Addr as dword, Value as dword )
   *Addr = Value
endfunction




function InitKernel32()
   load dll "kernel32.dll", 1
endfunction

function ShutdownKernel32()
   delete dll 1
endfunction

function OpenSharedMemory(Size as dword, Name as string)
   Handle as dword
   Handle = call dll(1, "CreateFileMappingA", -1, 0, 0x04, 0, Size, Name)
   if Handle = 0 then Handle = call dll(1, "OpenFileMappingA", 0x1F, 0, Name)
endfunction Handle

function CloseSharedMemory( Handle as dword )
   Result as dword
   Result = call dll(1, "CloseHandle", Handle )
endfunction Result

function MapSharedMemory( Handle as dword, Offset as dword, Size as dword )
   Addr as dword
   Addr = call dll(1, "MapViewOfFile", Handle, 0x1F, 0, Offset, Size)
endfunction Addr

function UnmapSharedMemory( Addr as dword )
   Result as dword
   Result = call dll(1, "UnmapViewOfFile", Addr)
endfunction Result