vb写字节集请教

kangqi

请教下vb怎么实现易语言的 内存写字节集功能，测试了一下一下代码。。前面都可以，就是写字节集总是失败，但是易语言就可以呢。。。



dim pid,tid,jcjb,bool
tid = GetWindowThreadProcessId(Hwnd, Pid)
If Tid = 0 Then Exit Function

Dim aa() As Byte
aa = Array(132, 4, 1)

        jcjb = OpenProcess(&H1F0FFF, False, pid) '取进程句柄
        MsgBox jcjb       ‘返回值正常，可正常返回进程句柄

        bool = 内存写字节集(jcjb, &H1ADFBA0, aa, 3, 0)    ‘16进制内存1ADFBA0 写入字节集 {132,4,1}

邓学彬

你搞错数组声明了吧？
VB的数组声明、赋值可不是你写的这样。
Dim aa(2) As Byte
aa(0) = 132
aa(1) = 4
aa(2) = 1

另外，不知道你在VB调用的“内存写字节集”到底是个什么东西

kangqi

邓学彬 发表于 2020-4-22 14:24
你搞错数组声明了吧？
VB的数组声明、赋值可不是你写的这样。
Dim aa(2) As Byte

前辈。感谢回复。。。

那个内存写字节集声明的了
Public Declare Function 内存写字节集 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hprocess As Integer, ByVal pbaseaddress As Integer, ByRef lpbuffer() As Byte, ByVal nsize As Integer, ByVal ip As Integer) As Integer

就是易语言可以直接写，例如

内存写字节集（pid，十六到十（1abcdef），{132, 4, 1}）

特向前辈请教。。。