求助，把一段代码转成VB（VB6下能用的）



#include "stdio.h"

#include "windows.h"

void *r;

int _tmain(int argc, _TCHAR* argv[])

{

	HMODULE hm = ::LoadLibrary("VerifyCode.dll");

	DWORD faddr1, faddr2, faddr3;

	char *p = "c:\\1.jpg";

	r = (void *)malloc(16);

	memset(r, 0, 16);

	faddr1 = (DWORD)::GetProcAddress(hm, "InitVerifyCodePick");

	faddr2 = (DWORD)::GetProcAddress(hm, "GetVerifyCode");

	faddr3 = (DWORD)::GetProcAddress(hm, "UnInitVerifyCodePick");

	_asm

	{

		call faddr1

		push r

		push p

		call faddr2

		call faddr3

	}

	MessageBox(NULL, (char *)r, "o", MB_OK);

	CloseHandle(hm);

	return 0;

}

--------------------编程问答-------------------- 我最近写了一个专业方面的小软件，就是查询方面遇到点困难，因为我只想检索数字，只要输入一个数字，和数据库里面的数据进行对比计算，只要误差在一个范围内就显示结果，请问这个代码怎么写啊。我是新手，望大侠能提供帮助，不胜感激！！！ --------------------编程问答-------------------- qq 576029369 --------------------编程问答-------------------- 不懂哦。还要好好学 --------------------编程问答-------------------- 围观一下………… --------------------编程问答-------------------- 这代码其实就是调用那三个函数，你在VB中声明即可。 --------------------编程问答-------------------- 我对VB不熟
我的一个朋友他要调用这个DLL里的三个函数

叫我帮忙我就写了这些代码
只有GetVerifyCode是有参数的
第一个参数是一个字符数组（在C里就是一个指针，在VB里就不知道了）
第二个参数是用来返回结果（在C里就是一个指针，在VB里就不知道了）

不知道怎么正确的给它传参数

--------------------编程问答--------------------



Option Explicit



Private Declare Sub InitVerifyCodePick Lib "VerifyCode.dll" ()

Private Declare Sub GetVerifyCode Lib "VerifyCode.dll" (ByVal lpszBuffer As Long, ByVal lpszImagePath As Long)

Private Declare Sub UnInitVerifyCodePick Lib "VerifyCode.dll" ()





Sub main()

    Dim strPath     As String

    Dim buff()      As Byte

    Dim lpData()    As Byte

    

    strPath = "c:\1.jpg" & Chr(0)

    lpData = StrConv(strPath, vbFromUnicode)

    ReDim buff(1024)

    

    InitVerifyCodePick

    GetVerifyCode VarPtr(lpData(0)), VarPtr(buff(0)) 

    UnInitVerifyCodePick

    

    MsgBox StrConv(buff, vbUnicode)

 

End Sub

没钱拿点分也好

补充：VB ,  基础类