#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;
}
解决方案 »
- VB打开文件的代码存在Bug
- vb 如何改变excel(i, j)的单元格背景颜色,急啊!!!!!!!!!
- 过了今天就24啦!小左,生日快乐!(散分)
- 怎么提高向Excel中写数据的速度????
- 求教一个小问题 实在不知道怎么办了
- 请教picture1.Circle的图被遮挡后消失的预防办发!
- 高手请进:怎样像WINAMP一样读取MP3的播放时间
- 如何在两个 ListView 中进行拖放编程?
- 怎么用winsock控件进行局域网内的广播?
- VB中想用EXCEL做数据源,但引用和加载时都出错,详见图片!
- 使dataGrid支持鼠标中键滚动
- 写出三种windows2000中的值数据类型?通道的数据类型包括?
我的一个朋友他要调用这个DLL里的三个函数叫我帮忙 我就写了这些代码
只有GetVerifyCode是有参数的
第一个参数是一个字符数组(在C里就是一个指针,在VB里就不知道了)
第二个参数是用来返回结果(在C里就是一个指针,在VB里就不知道了)不知道怎么正确的给它传参数
Option ExplicitPrivate 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没钱拿点分也好