extern "C" __declspec(dllexport) void * __cdecl CreateSocket(const GUID & Guid, DWORD dwInterfaceVer)
{
    //建立对象
    CClientSocket * pClientSocket=NULL;
    try
    {
        pClientSocket=new CClientSocket();
        if (pClientSocket==NULL) throw TEXT("失败");
        void * pObject=pClientSocket->QueryInterface(Guid,dwInterfaceVer);
        if (pObject==NULL) throw TEXT("失败");
        return pObject;
    }
    catch (...) {}
    //清理
    SafeDelete(pClientSocket);
    return NULL;
}

输出函数是CreateSocket
用vb该如何调用啊???

Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type
Private Declare Function CreateSocket Lib "gdi32" Alias "CreateSocket" (tGuid as GUID,byval dwInterfaceVer&) As long

学习一下!

回复 楼主 ICIChaha

没在VB中调过用VC写的DLL，，你把DLL文件引到VB里试试可否。。