atomic32/TEST_VirtualQuery.bb at master · VitHub/atomic32 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75

 Include "HexTable.bb"
;; Include "Memman.bb"

 Const SizeOf_MBI = 28

 Graphics 700,400,32,2

  m# = 3.0
  n# = 4.0

  ;; Create a 28 byte bank for "memory basic information"
  mbi = CreateBank( SizeOf_MBI )


 CS1 = getCS()

 Eip1 = getEIP()

    m = m*n

 Eip2 = getEIP()

 CPH = atGetCurrentProcess() ;; Get Current Process Handle

 ;;result = mmVirtualQueryEx(CPH, Eip1, mbi, SizeOf_MBI )

 result = mmVirtualQuery(Eip1, mbi, SizeOf_MBI )   ;; Uses the "VirtualQuery" Function


 Print
 Print " VirtualQuery tester... "
 Print

 ;Show_MBI(mbi)

 ;we()


 For z=0 To 7
        v = PeekInt(mbi,z)
        Print" offset "+z+" : "+Hex$(v)+" : "+LSet(v,10)+" : "+Bin$(v)
 Next

 Print
 Print" Eip1 = "+Hex$(eip1)+" : "+eip1+" : "+Bin$(eip1)
 Print" CS   = "+Hex$(cs1)+" : "+cs1 +" : "+Bin$(cs1)


 Print
 Print" Result = "+result

 ;;info$ = GetMemoryBasicInfo$(mbi)

 Print" INfo$ = "+info


 we()


Function we()
       WaitKey(): End
End Function


Function Show_MBI(b%)


End Function