python调用vb dll_Python嵌入vb

PrivateDeclareFunctionPy_InitializeLib"python25"()AsLongPrivateDeclareFunctionPy_IsInitializedLib"python25"()AsLongPrivateDeclareFunctionPy_FinalizeLib"python25"()AsLongP...

Private Declare Function Py_Initialize Lib "python25" () As Long

Private Declare Function Py_IsInitialized Lib "python25" () As Long

Private Declare Function Py_Finalize Lib "python25" () As Long

Private Declare Function Py_GetPath Lib "python25" () As Long

Private Declare Function Py_GetVersion Lib "python25" () As Long

Private Declare Function PyRun_SimpleString Lib "python25" (command As Any) As Long

Sub Main()

Py_Initialize

init = Py_IsInitialized

MsgBox init

MsgBox Py_GetPath

ver = PyGetVersion

MsgBox ver

PyRun_SimpleString "import sys"

PyRun_SimpleString "1+1"

PyRun_SimpleString "print 'Hello'*5" + Chr$(13)

Py_Finalize

End Sub

这是VB6中的代码，运行时提示“Dll调用约定错误” 在“PyRun_SimpleString "import sys"”这一行

请高手解答，并留下QQ或邮箱

展开