writeprocessmemory写入不成功问题

[xionw]

dim a1 as long
dim b1 as long
a1 = &H65f010
b1 = &H65f00c
请教一下writeprocessmemory hprocess,byval a1,"100",2,0能写入成功，为什么writeprocessmemory hprocess,byval a1,b1,2,0(b1 = 100)又不能写入呢？

[kmlxk0]

Private Declare Function WriteProcessMemory Lib "kernel32.dll" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

对于api函数声明 As Any 的参数,调用时要按数值传递,增加byval

writeprocessmemory hprocess,byval a1,byval b1,2,0(b1 = 100)

[Tiger_Zhao]

writeprocessmemory hprocess,byval a1,"100",2,0 <-这里写入字符串 "100"
writeprocessmemory hprocess,byval a1,b1,2,0 <-这里写入整数 100

[xionw]

一楼的朋友，我试过用byval，但是结果也是不能写入，好象程序就是直接无视这句话一样
二楼的朋友，事实上我就是需要写入100这个整数，而不是"100"这个字符串，问题是语句2不被执行
从几次的调试结果来看，能写入常量，也就是""这种形式，但是对于已赋值的变量怎么也无法写入，所以很疑惑，先谢谢两位热心的朋友了