易语言Go模块

wan942182718

seven7c 发表于 2022-7-24 22:28
能将这个 GO 代码 写个例子吗？https://bbs.125.la/thread-14738530-1-2.html

配合WOW64Ext  模块使用

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
modtalib	长整数型
m_Z_Initialize	长整数型
m_Z_Acos	长整数型
m_Z_Max	长整数型

子程序名	返回值类型	公开	备 注
TalibX64_Init	逻辑型
参数名	类 型	参考	可空	数组	备 注
path	文本型

modtalib ＝ LoadLibraryEx64 (0, path, )
如果真 (modtalib ≤ 0)
返回 (假)
m_Z_Initialize ＝ GetProcAddress64 (modtalib, “Z_Initialize”)
m_Z_Shutdown ＝ GetProcAddress64 (modtalib, “Z_Shutdown”)
m_Z_Acos ＝ GetProcAddress64 (modtalib, “Z_Acos”)
m_Z_Max ＝ GetProcAddress64 (modtalib, “Z_Max”)

子程序名	返回值类型	公开	备 注
talibX64_Free	逻辑型

返回 (FreeLibrary64 (0, modtalib))

子程序名	返回值类型	公开	备 注
ta_Initialize	整数型

变量名	类 型	静态	数组	备 注
retCode	长整数型

retCode ＝ X64Call (m_Z_Initialize, , , , , , , , , , )
返回 (retCode)

子程序名	返回值类型	公开	备 注
ta_Acos	整数型
参数名	类 型	参考	可空	数组	备 注
startIdx	整数型
endIdx	整数型
inReal	双精度小数型
outBegIdx	整数型
outNBElement	整数型
outReal	双精度小数型

变量名	类 型	静态	数组	备 注
retCode	长整数型

retCode ＝ X64Call (m_Z_Acos, startIdx, endIdx, 取变量数据地址 (inReal), 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , , )
返回 (retCode)

子程序名	返回值类型	公开	备 注
ta_Max	整数型
参数名	类 型	参考	可空	数组	备 注
startIdx	整数型
endIdx	整数型
inReal	双精度小数型				*float64
optInTimePeriod	整数型
outBegIdx	整数型				*int
outNBElement	整数型				*int
outReal	双精度小数型				*float64

变量名	类 型	静态	数组	备 注
ret	长整数型

' syscall.Syscall9(procZ_Max.Addr(), 7, uintptr(startIdx), uintptr(endIdx), uintptr(unsafe.Pointer(inReal)), uintptr(optInTimePeriod), uintptr(unsafe.Pointer(outBegIdx)), uintptr(unsafe.Pointer(outNBElement)), uintptr(unsafe.Pointer(outReal)), 0, 0)
ret ＝ X64Call (m_Z_Max, startIdx, endIdx, 取变量数据地址 (inReal), optInTimePeriod, 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , )
返回 (ret)

子程序名	返回值类型	公开	备 注
子程序_test

变量名	类 型	静态	数组	备 注
retCode	整数型
inReal	双精度小数型		0
n	整数型
outBegIdx	整数型
outNBElement	整数型
outReal	双精度小数型		0

调试输出 (ta_Initialize ())
inReal ＝ { 0.5, 0.6, 0.7 }
n ＝ 取数组成员数 (inReal)
重定义数组 (outReal, 假, n)
' outReal=[1.0471975511965979 0.9272952180016123 0.7953988301841436]
retCode ＝ ta_Acos (0, n － 1, inReal, outBegIdx, outNBElement, outReal)
调试输出 (retCode, outBegIdx, outNBElement, outReal)
inReal ＝ { 1, 2, 3, 4, 5, 3, 43.2, 3.2, 3.13 }
n ＝ 取数组成员数 (inReal)
重定义数组 (outReal, 假, n)
' out=[0 0 0 0 5 5 43.2 43.2 43.2]
retCode ＝ ta_Max (0, n － 1, inReal, 5, outBegIdx, outNBElement, outReal)
调试输出 (retCode, outBegIdx, outNBElement, outReal)

.版本 2<br /> <br /> .程序集 程序集1<br /> .程序集变量 modtalib, 长整数型<br /> .程序集变量 m_Z_Initialize, 长整数型<br /> .程序集变量 m_Z_Acos, 长整数型<br /> .程序集变量 m_Z_Max, 长整数型<br /> <br /> .子程序 TalibX64_Init, 逻辑型<br /> .参数 path, 文本型<br /> modtalib ＝ LoadLibraryEx64 (0, path, )<br /> .如果真 (modtalib ≤ 0)<br />     返回 (假)<br /> .如果真结束<br /> m_Z_Initialize ＝ GetProcAddress64 (modtalib, “Z_Initialize”)<br /> m_Z_Shutdown ＝ GetProcAddress64 (modtalib, “Z_Shutdown”)<br /> m_Z_Acos ＝ GetProcAddress64 (modtalib, “Z_Acos”)<br /> m_Z_Max ＝ GetProcAddress64 (modtalib, “Z_Max”)<br /> <br /> .子程序 talibX64_Free, 逻辑型<br /> 返回 (FreeLibrary64 (0, modtalib))<br /> <br /> .子程序 ta_Initialize, 整数型<br /> .局部变量 retCode, 长整数型<br /> <br /> retCode ＝ X64Call (m_Z_Initialize, , , , , , , , , , )<br /> 返回 (retCode)<br /> <br /> .子程序 ta_Acos, 整数型<br /> .参数 startIdx, 整数型<br /> .参数 endIdx, 整数型<br /> .参数 inReal, 双精度小数型, 数组<br /> .参数 outBegIdx, 整数型, 参考<br /> .参数 outNBElement, 整数型, 参考<br /> .参数 outReal, 双精度小数型, 参考 数组<br /> .局部变量 retCode, 长整数型<br /> <br /> retCode ＝ X64Call (m_Z_Acos, startIdx, endIdx, 取变量数据地址 (inReal), 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , , )<br /> 返回 (retCode)<br /> <br /> .子程序 ta_Max, 整数型<br /> .参数 startIdx, 整数型<br /> .参数 endIdx, 整数型<br /> .参数 inReal, 双精度小数型, 数组, *float64<br /> .参数 optInTimePeriod, 整数型<br /> .参数 outBegIdx, 整数型, 参考, *int<br /> .参数 outNBElement, 整数型, 参考, *int<br /> .参数 outReal, 双精度小数型, 参考 数组, *float64<br /> .局部变量 ret, 长整数型<br /> <br /> ' syscall.Syscall9(procZ_Max.Addr(), 7, uintptr(startIdx), uintptr(endIdx), uintptr(unsafe.Pointer(inReal)), uintptr(optInTimePeriod), uintptr(unsafe.Pointer(outBegIdx)), uintptr(unsafe.Pointer(outNBElement)), uintptr(unsafe.Pointer(outReal)), 0, 0)<br /> ret ＝ X64Call (m_Z_Max, startIdx, endIdx, 取变量数据地址 (inReal), optInTimePeriod, 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , )<br /> 返回 (ret)<br /> <br /> .子程序 子程序_test<br /> .局部变量 retCode, 整数型<br /> .局部变量 inReal, 双精度小数型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 outBegIdx, 整数型<br /> .局部变量 outNBElement, 整数型<br /> .局部变量 outReal, 双精度小数型, , "0"<br /> <br /> 调试输出 (ta_Initialize ())<br /> <br /> inReal ＝ { 0.5, 0.6, 0.7 }<br /> n ＝ 取数组成员数 (inReal)<br /> 重定义数组 (outReal, 假, n)<br /> ' outReal=[1.0471975511965979 0.9272952180016123 0.7953988301841436]<br /> retCode ＝ ta_Acos (0, n － 1, inReal, outBegIdx, outNBElement, outReal)<br /> 调试输出 (retCode, outBegIdx, outNBElement, outReal)<br /> <br /> <br /> inReal ＝ { 1, 2, 3, 4, 5, 3, 43.2, 3.2, 3.13 }<br /> n ＝ 取数组成员数 (inReal)<br /> 重定义数组 (outReal, 假, n)<br /> ' out=[0 0 0 0 5 5 43.2 43.2 43.2]<br /> retCode ＝ ta_Max (0, n － 1, inReal, 5, outBegIdx, outNBElement, outReal)<br /> 调试输出 (retCode, outBegIdx, outNBElement, outReal)

wan942182718

seven7c 发表于 2022-7-24 22:28
能将这个 GO 代码 写个例子吗？https://bbs.125.la/thread-14738530-1-2.html

配合WOW64Ext  模块使用

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
modtalib	长整数型
m_Z_Initialize	长整数型
m_Z_Acos	长整数型
m_Z_Max	长整数型

子程序名	返回值类型	公开	备 注
TalibX64_Init	逻辑型
参数名	类 型	参考	可空	数组	备 注
path	文本型

modtalib ＝ LoadLibraryEx64 (0, path, )
如果真 (modtalib ≤ 0)
返回 (假)
m_Z_Initialize ＝ GetProcAddress64 (modtalib, “Z_Initialize”)
m_Z_Shutdown ＝ GetProcAddress64 (modtalib, “Z_Shutdown”)
m_Z_Acos ＝ GetProcAddress64 (modtalib, “Z_Acos”)
m_Z_Max ＝ GetProcAddress64 (modtalib, “Z_Max”)

子程序名	返回值类型	公开	备 注
talibX64_Free	逻辑型

返回 (FreeLibrary64 (0, modtalib))

子程序名	返回值类型	公开	备 注
ta_Initialize	整数型

变量名	类 型	静态	数组	备 注
retCode	长整数型

retCode ＝ X64Call (m_Z_Initialize, , , , , , , , , , )
返回 (retCode)

子程序名	返回值类型	公开	备 注
ta_Acos	整数型
参数名	类 型	参考	可空	数组	备 注
startIdx	整数型
endIdx	整数型
inReal	双精度小数型
outBegIdx	整数型
outNBElement	整数型
outReal	双精度小数型

变量名	类 型	静态	数组	备 注
retCode	长整数型

retCode ＝ X64Call (m_Z_Acos, startIdx, endIdx, 取变量数据地址 (inReal), 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , , )
返回 (retCode)

子程序名	返回值类型	公开	备 注
ta_Max	整数型
参数名	类 型	参考	可空	数组	备 注
startIdx	整数型
endIdx	整数型
inReal	双精度小数型				*float64
optInTimePeriod	整数型
outBegIdx	整数型				*int
outNBElement	整数型				*int
outReal	双精度小数型				*float64

变量名	类 型	静态	数组	备 注
ret	长整数型

' syscall.Syscall9(procZ_Max.Addr(), 7, uintptr(startIdx), uintptr(endIdx), uintptr(unsafe.Pointer(inReal)), uintptr(optInTimePeriod), uintptr(unsafe.Pointer(outBegIdx)), uintptr(unsafe.Pointer(outNBElement)), uintptr(unsafe.Pointer(outReal)), 0, 0)
ret ＝ X64Call (m_Z_Max, startIdx, endIdx, 取变量数据地址 (inReal), optInTimePeriod, 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , )
返回 (ret)

子程序名	返回值类型	公开	备 注
子程序_test

变量名	类 型	静态	数组	备 注
retCode	整数型
inReal	双精度小数型		0
n	整数型
outBegIdx	整数型
outNBElement	整数型
outReal	双精度小数型		0

调试输出 (ta_Initialize ())
inReal ＝ { 0.5, 0.6, 0.7 }
n ＝ 取数组成员数 (inReal)
重定义数组 (outReal, 假, n)
' outReal=[1.0471975511965979 0.9272952180016123 0.7953988301841436]
retCode ＝ ta_Acos (0, n － 1, inReal, outBegIdx, outNBElement, outReal)
调试输出 (retCode, outBegIdx, outNBElement, outReal)
inReal ＝ { 1, 2, 3, 4, 5, 3, 43.2, 3.2, 3.13 }
n ＝ 取数组成员数 (inReal)
重定义数组 (outReal, 假, n)
' out=[0 0 0 0 5 5 43.2 43.2 43.2]
retCode ＝ ta_Max (0, n － 1, inReal, 5, outBegIdx, outNBElement, outReal)
调试输出 (retCode, outBegIdx, outNBElement, outReal)

.版本 2<br /> <br /> .程序集 程序集1<br /> .程序集变量 modtalib, 长整数型<br /> .程序集变量 m_Z_Initialize, 长整数型<br /> .程序集变量 m_Z_Acos, 长整数型<br /> .程序集变量 m_Z_Max, 长整数型<br /> <br /> .子程序 TalibX64_Init, 逻辑型<br /> .参数 path, 文本型<br /> modtalib ＝ LoadLibraryEx64 (0, path, )<br /> .如果真 (modtalib ≤ 0)<br />     返回 (假)<br /> .如果真结束<br /> m_Z_Initialize ＝ GetProcAddress64 (modtalib, “Z_Initialize”)<br /> m_Z_Shutdown ＝ GetProcAddress64 (modtalib, “Z_Shutdown”)<br /> m_Z_Acos ＝ GetProcAddress64 (modtalib, “Z_Acos”)<br /> m_Z_Max ＝ GetProcAddress64 (modtalib, “Z_Max”)<br /> <br /> .子程序 talibX64_Free, 逻辑型<br /> 返回 (FreeLibrary64 (0, modtalib))<br /> <br /> .子程序 ta_Initialize, 整数型<br /> .局部变量 retCode, 长整数型<br /> <br /> retCode ＝ X64Call (m_Z_Initialize, , , , , , , , , , )<br /> 返回 (retCode)<br /> <br /> .子程序 ta_Acos, 整数型<br /> .参数 startIdx, 整数型<br /> .参数 endIdx, 整数型<br /> .参数 inReal, 双精度小数型, 数组<br /> .参数 outBegIdx, 整数型, 参考<br /> .参数 outNBElement, 整数型, 参考<br /> .参数 outReal, 双精度小数型, 参考 数组<br /> .局部变量 retCode, 长整数型<br /> <br /> retCode ＝ X64Call (m_Z_Acos, startIdx, endIdx, 取变量数据地址 (inReal), 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , , )<br /> 返回 (retCode)<br /> <br /> .子程序 ta_Max, 整数型<br /> .参数 startIdx, 整数型<br /> .参数 endIdx, 整数型<br /> .参数 inReal, 双精度小数型, 数组, *float64<br /> .参数 optInTimePeriod, 整数型<br /> .参数 outBegIdx, 整数型, 参考, *int<br /> .参数 outNBElement, 整数型, 参考, *int<br /> .参数 outReal, 双精度小数型, 参考 数组, *float64<br /> .局部变量 ret, 长整数型<br /> <br /> ' syscall.Syscall9(procZ_Max.Addr(), 7, uintptr(startIdx), uintptr(endIdx), uintptr(unsafe.Pointer(inReal)), uintptr(optInTimePeriod), uintptr(unsafe.Pointer(outBegIdx)), uintptr(unsafe.Pointer(outNBElement)), uintptr(unsafe.Pointer(outReal)), 0, 0)<br /> ret ＝ X64Call (m_Z_Max, startIdx, endIdx, 取变量数据地址 (inReal), optInTimePeriod, 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , )<br /> 返回 (ret)<br /> <br /> .子程序 子程序_test<br /> .局部变量 retCode, 整数型<br /> .局部变量 inReal, 双精度小数型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 outBegIdx, 整数型<br /> .局部变量 outNBElement, 整数型<br /> .局部变量 outReal, 双精度小数型, , "0"<br /> <br /> 调试输出 (ta_Initialize ())<br /> <br /> inReal ＝ { 0.5, 0.6, 0.7 }<br /> n ＝ 取数组成员数 (inReal)<br /> 重定义数组 (outReal, 假, n)<br /> ' outReal=[1.0471975511965979 0.9272952180016123 0.7953988301841436]<br /> retCode ＝ ta_Acos (0, n － 1, inReal, outBegIdx, outNBElement, outReal)<br /> 调试输出 (retCode, outBegIdx, outNBElement, outReal)<br /> <br /> <br /> inReal ＝ { 1, 2, 3, 4, 5, 3, 43.2, 3.2, 3.13 }<br /> n ＝ 取数组成员数 (inReal)<br /> 重定义数组 (outReal, 假, n)<br /> ' out=[0 0 0 0 5 5 43.2 43.2 43.2]<br /> retCode ＝ ta_Max (0, n － 1, inReal, 5, outBegIdx, outNBElement, outReal)<br /> 调试输出 (retCode, outBegIdx, outNBElement, outReal)

wan942182718

seven7c 发表于 2022-7-24 22:28
能将这个 GO 代码 写个例子吗？https://bbs.125.la/thread-14738530-1-2.html

配合WOW64Ext  模块使用

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
modtalib	长整数型
m_Z_Initialize	长整数型
m_Z_Acos	长整数型
m_Z_Max	长整数型

子程序名	返回值类型	公开	备 注
TalibX64_Init	逻辑型
参数名	类 型	参考	可空	数组	备 注
path	文本型

modtalib ＝ LoadLibraryEx64 (0, path, )
如果真 (modtalib ≤ 0)
返回 (假)
m_Z_Initialize ＝ GetProcAddress64 (modtalib, “Z_Initialize”)
m_Z_Shutdown ＝ GetProcAddress64 (modtalib, “Z_Shutdown”)
m_Z_Acos ＝ GetProcAddress64 (modtalib, “Z_Acos”)
m_Z_Max ＝ GetProcAddress64 (modtalib, “Z_Max”)

子程序名	返回值类型	公开	备 注
talibX64_Free	逻辑型

返回 (FreeLibrary64 (0, modtalib))

子程序名	返回值类型	公开	备 注
ta_Initialize	整数型

变量名	类 型	静态	数组	备 注
retCode	长整数型

retCode ＝ X64Call (m_Z_Initialize, , , , , , , , , , )
返回 (retCode)

子程序名	返回值类型	公开	备 注
ta_Acos	整数型
参数名	类 型	参考	可空	数组	备 注
startIdx	整数型
endIdx	整数型
inReal	双精度小数型
outBegIdx	整数型
outNBElement	整数型
outReal	双精度小数型

变量名	类 型	静态	数组	备 注
retCode	长整数型

retCode ＝ X64Call (m_Z_Acos, startIdx, endIdx, 取变量数据地址 (inReal), 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , , )
返回 (retCode)

子程序名	返回值类型	公开	备 注
ta_Max	整数型
参数名	类 型	参考	可空	数组	备 注
startIdx	整数型
endIdx	整数型
inReal	双精度小数型				*float64
optInTimePeriod	整数型
outBegIdx	整数型				*int
outNBElement	整数型				*int
outReal	双精度小数型				*float64

变量名	类 型	静态	数组	备 注
ret	长整数型

' syscall.Syscall9(procZ_Max.Addr(), 7, uintptr(startIdx), uintptr(endIdx), uintptr(unsafe.Pointer(inReal)), uintptr(optInTimePeriod), uintptr(unsafe.Pointer(outBegIdx)), uintptr(unsafe.Pointer(outNBElement)), uintptr(unsafe.Pointer(outReal)), 0, 0)
ret ＝ X64Call (m_Z_Max, startIdx, endIdx, 取变量数据地址 (inReal), optInTimePeriod, 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , )
返回 (ret)

子程序名	返回值类型	公开	备 注
子程序_test

变量名	类 型	静态	数组	备 注
retCode	整数型
inReal	双精度小数型		0
n	整数型
outBegIdx	整数型
outNBElement	整数型
outReal	双精度小数型		0

调试输出 (ta_Initialize ())
inReal ＝ { 0.5, 0.6, 0.7 }
n ＝ 取数组成员数 (inReal)
重定义数组 (outReal, 假, n)
' outReal=[1.0471975511965979 0.9272952180016123 0.7953988301841436]
retCode ＝ ta_Acos (0, n － 1, inReal, outBegIdx, outNBElement, outReal)
调试输出 (retCode, outBegIdx, outNBElement, outReal)
inReal ＝ { 1, 2, 3, 4, 5, 3, 43.2, 3.2, 3.13 }
n ＝ 取数组成员数 (inReal)
重定义数组 (outReal, 假, n)
' out=[0 0 0 0 5 5 43.2 43.2 43.2]
retCode ＝ ta_Max (0, n － 1, inReal, 5, outBegIdx, outNBElement, outReal)
调试输出 (retCode, outBegIdx, outNBElement, outReal)

.版本 2<br /> <br /> .程序集 程序集1<br /> .程序集变量 modtalib, 长整数型<br /> .程序集变量 m_Z_Initialize, 长整数型<br /> .程序集变量 m_Z_Acos, 长整数型<br /> .程序集变量 m_Z_Max, 长整数型<br /> <br /> .子程序 TalibX64_Init, 逻辑型<br /> .参数 path, 文本型<br /> modtalib ＝ LoadLibraryEx64 (0, path, )<br /> .如果真 (modtalib ≤ 0)<br />     返回 (假)<br /> .如果真结束<br /> m_Z_Initialize ＝ GetProcAddress64 (modtalib, “Z_Initialize”)<br /> m_Z_Shutdown ＝ GetProcAddress64 (modtalib, “Z_Shutdown”)<br /> m_Z_Acos ＝ GetProcAddress64 (modtalib, “Z_Acos”)<br /> m_Z_Max ＝ GetProcAddress64 (modtalib, “Z_Max”)<br /> <br /> .子程序 talibX64_Free, 逻辑型<br /> 返回 (FreeLibrary64 (0, modtalib))<br /> <br /> .子程序 ta_Initialize, 整数型<br /> .局部变量 retCode, 长整数型<br /> <br /> retCode ＝ X64Call (m_Z_Initialize, , , , , , , , , , )<br /> 返回 (retCode)<br /> <br /> .子程序 ta_Acos, 整数型<br /> .参数 startIdx, 整数型<br /> .参数 endIdx, 整数型<br /> .参数 inReal, 双精度小数型, 数组<br /> .参数 outBegIdx, 整数型, 参考<br /> .参数 outNBElement, 整数型, 参考<br /> .参数 outReal, 双精度小数型, 参考 数组<br /> .局部变量 retCode, 长整数型<br /> <br /> retCode ＝ X64Call (m_Z_Acos, startIdx, endIdx, 取变量数据地址 (inReal), 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , , )<br /> 返回 (retCode)<br /> <br /> .子程序 ta_Max, 整数型<br /> .参数 startIdx, 整数型<br /> .参数 endIdx, 整数型<br /> .参数 inReal, 双精度小数型, 数组, *float64<br /> .参数 optInTimePeriod, 整数型<br /> .参数 outBegIdx, 整数型, 参考, *int<br /> .参数 outNBElement, 整数型, 参考, *int<br /> .参数 outReal, 双精度小数型, 参考 数组, *float64<br /> .局部变量 ret, 长整数型<br /> <br /> ' syscall.Syscall9(procZ_Max.Addr(), 7, uintptr(startIdx), uintptr(endIdx), uintptr(unsafe.Pointer(inReal)), uintptr(optInTimePeriod), uintptr(unsafe.Pointer(outBegIdx)), uintptr(unsafe.Pointer(outNBElement)), uintptr(unsafe.Pointer(outReal)), 0, 0)<br /> ret ＝ X64Call (m_Z_Max, startIdx, endIdx, 取变量数据地址 (inReal), optInTimePeriod, 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , )<br /> 返回 (ret)<br /> <br /> .子程序 子程序_test<br /> .局部变量 retCode, 整数型<br /> .局部变量 inReal, 双精度小数型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 outBegIdx, 整数型<br /> .局部变量 outNBElement, 整数型<br /> .局部变量 outReal, 双精度小数型, , "0"<br /> <br /> 调试输出 (ta_Initialize ())<br /> <br /> inReal ＝ { 0.5, 0.6, 0.7 }<br /> n ＝ 取数组成员数 (inReal)<br /> 重定义数组 (outReal, 假, n)<br /> ' outReal=[1.0471975511965979 0.9272952180016123 0.7953988301841436]<br /> retCode ＝ ta_Acos (0, n － 1, inReal, outBegIdx, outNBElement, outReal)<br /> 调试输出 (retCode, outBegIdx, outNBElement, outReal)<br /> <br /> <br /> inReal ＝ { 1, 2, 3, 4, 5, 3, 43.2, 3.2, 3.13 }<br /> n ＝ 取数组成员数 (inReal)<br /> 重定义数组 (outReal, 假, n)<br /> ' out=[0 0 0 0 5 5 43.2 43.2 43.2]<br /> retCode ＝ ta_Max (0, n － 1, inReal, 5, outBegIdx, outNBElement, outReal)<br /> 调试输出 (retCode, outBegIdx, outNBElement, outReal)

wan942182718

seven7c 发表于 2022-7-24 22:28
能将这个 GO 代码 写个例子吗？https://bbs.125.la/thread-14738530-1-2.html

配合WOW64Ext  模块使用

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
modtalib	长整数型
m_Z_Initialize	长整数型
m_Z_Acos	长整数型
m_Z_Max	长整数型

子程序名	返回值类型	公开	备 注
TalibX64_Init	逻辑型
参数名	类 型	参考	可空	数组	备 注
path	文本型

modtalib ＝ LoadLibraryEx64 (0, path, )
如果真 (modtalib ≤ 0)
返回 (假)
m_Z_Initialize ＝ GetProcAddress64 (modtalib, “Z_Initialize”)
m_Z_Shutdown ＝ GetProcAddress64 (modtalib, “Z_Shutdown”)
m_Z_Acos ＝ GetProcAddress64 (modtalib, “Z_Acos”)
m_Z_Max ＝ GetProcAddress64 (modtalib, “Z_Max”)

子程序名	返回值类型	公开	备 注
talibX64_Free	逻辑型

返回 (FreeLibrary64 (0, modtalib))

子程序名	返回值类型	公开	备 注
ta_Initialize	整数型

变量名	类 型	静态	数组	备 注
retCode	长整数型

retCode ＝ X64Call (m_Z_Initialize, , , , , , , , , , )
返回 (retCode)

子程序名	返回值类型	公开	备 注
ta_Acos	整数型
参数名	类 型	参考	可空	数组	备 注
startIdx	整数型
endIdx	整数型
inReal	双精度小数型
outBegIdx	整数型
outNBElement	整数型
outReal	双精度小数型

变量名	类 型	静态	数组	备 注
retCode	长整数型

retCode ＝ X64Call (m_Z_Acos, startIdx, endIdx, 取变量数据地址 (inReal), 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , , )
返回 (retCode)

子程序名	返回值类型	公开	备 注
ta_Max	整数型
参数名	类 型	参考	可空	数组	备 注
startIdx	整数型
endIdx	整数型
inReal	双精度小数型				*float64
optInTimePeriod	整数型
outBegIdx	整数型				*int
outNBElement	整数型				*int
outReal	双精度小数型				*float64

变量名	类 型	静态	数组	备 注
ret	长整数型

' syscall.Syscall9(procZ_Max.Addr(), 7, uintptr(startIdx), uintptr(endIdx), uintptr(unsafe.Pointer(inReal)), uintptr(optInTimePeriod), uintptr(unsafe.Pointer(outBegIdx)), uintptr(unsafe.Pointer(outNBElement)), uintptr(unsafe.Pointer(outReal)), 0, 0)
ret ＝ X64Call (m_Z_Max, startIdx, endIdx, 取变量数据地址 (inReal), optInTimePeriod, 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , )
返回 (ret)

子程序名	返回值类型	公开	备 注
子程序_test

变量名	类 型	静态	数组	备 注
retCode	整数型
inReal	双精度小数型		0
n	整数型
outBegIdx	整数型
outNBElement	整数型
outReal	双精度小数型		0

调试输出 (ta_Initialize ())
inReal ＝ { 0.5, 0.6, 0.7 }
n ＝ 取数组成员数 (inReal)
重定义数组 (outReal, 假, n)
' outReal=[1.0471975511965979 0.9272952180016123 0.7953988301841436]
retCode ＝ ta_Acos (0, n － 1, inReal, outBegIdx, outNBElement, outReal)
调试输出 (retCode, outBegIdx, outNBElement, outReal)
inReal ＝ { 1, 2, 3, 4, 5, 3, 43.2, 3.2, 3.13 }
n ＝ 取数组成员数 (inReal)
重定义数组 (outReal, 假, n)
' out=[0 0 0 0 5 5 43.2 43.2 43.2]
retCode ＝ ta_Max (0, n － 1, inReal, 5, outBegIdx, outNBElement, outReal)
调试输出 (retCode, outBegIdx, outNBElement, outReal)

.版本 2<br /> <br /> .程序集 程序集1<br /> .程序集变量 modtalib, 长整数型<br /> .程序集变量 m_Z_Initialize, 长整数型<br /> .程序集变量 m_Z_Acos, 长整数型<br /> .程序集变量 m_Z_Max, 长整数型<br /> <br /> .子程序 TalibX64_Init, 逻辑型<br /> .参数 path, 文本型<br /> modtalib ＝ LoadLibraryEx64 (0, path, )<br /> .如果真 (modtalib ≤ 0)<br />     返回 (假)<br /> .如果真结束<br /> m_Z_Initialize ＝ GetProcAddress64 (modtalib, “Z_Initialize”)<br /> m_Z_Shutdown ＝ GetProcAddress64 (modtalib, “Z_Shutdown”)<br /> m_Z_Acos ＝ GetProcAddress64 (modtalib, “Z_Acos”)<br /> m_Z_Max ＝ GetProcAddress64 (modtalib, “Z_Max”)<br /> <br /> .子程序 talibX64_Free, 逻辑型<br /> 返回 (FreeLibrary64 (0, modtalib))<br /> <br /> .子程序 ta_Initialize, 整数型<br /> .局部变量 retCode, 长整数型<br /> <br /> retCode ＝ X64Call (m_Z_Initialize, , , , , , , , , , )<br /> 返回 (retCode)<br /> <br /> .子程序 ta_Acos, 整数型<br /> .参数 startIdx, 整数型<br /> .参数 endIdx, 整数型<br /> .参数 inReal, 双精度小数型, 数组<br /> .参数 outBegIdx, 整数型, 参考<br /> .参数 outNBElement, 整数型, 参考<br /> .参数 outReal, 双精度小数型, 参考 数组<br /> .局部变量 retCode, 长整数型<br /> <br /> retCode ＝ X64Call (m_Z_Acos, startIdx, endIdx, 取变量数据地址 (inReal), 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , , )<br /> 返回 (retCode)<br /> <br /> .子程序 ta_Max, 整数型<br /> .参数 startIdx, 整数型<br /> .参数 endIdx, 整数型<br /> .参数 inReal, 双精度小数型, 数组, *float64<br /> .参数 optInTimePeriod, 整数型<br /> .参数 outBegIdx, 整数型, 参考, *int<br /> .参数 outNBElement, 整数型, 参考, *int<br /> .参数 outReal, 双精度小数型, 参考 数组, *float64<br /> .局部变量 ret, 长整数型<br /> <br /> ' syscall.Syscall9(procZ_Max.Addr(), 7, uintptr(startIdx), uintptr(endIdx), uintptr(unsafe.Pointer(inReal)), uintptr(optInTimePeriod), uintptr(unsafe.Pointer(outBegIdx)), uintptr(unsafe.Pointer(outNBElement)), uintptr(unsafe.Pointer(outReal)), 0, 0)<br /> ret ＝ X64Call (m_Z_Max, startIdx, endIdx, 取变量数据地址 (inReal), optInTimePeriod, 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , )<br /> 返回 (ret)<br /> <br /> .子程序 子程序_test<br /> .局部变量 retCode, 整数型<br /> .局部变量 inReal, 双精度小数型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 outBegIdx, 整数型<br /> .局部变量 outNBElement, 整数型<br /> .局部变量 outReal, 双精度小数型, , "0"<br /> <br /> 调试输出 (ta_Initialize ())<br /> <br /> inReal ＝ { 0.5, 0.6, 0.7 }<br /> n ＝ 取数组成员数 (inReal)<br /> 重定义数组 (outReal, 假, n)<br /> ' outReal=[1.0471975511965979 0.9272952180016123 0.7953988301841436]<br /> retCode ＝ ta_Acos (0, n － 1, inReal, outBegIdx, outNBElement, outReal)<br /> 调试输出 (retCode, outBegIdx, outNBElement, outReal)<br /> <br /> <br /> inReal ＝ { 1, 2, 3, 4, 5, 3, 43.2, 3.2, 3.13 }<br /> n ＝ 取数组成员数 (inReal)<br /> 重定义数组 (outReal, 假, n)<br /> ' out=[0 0 0 0 5 5 43.2 43.2 43.2]<br /> retCode ＝ ta_Max (0, n － 1, inReal, 5, outBegIdx, outNBElement, outReal)<br /> 调试输出 (retCode, outBegIdx, outNBElement, outReal)

wan942182718

seven7c 发表于 2022-7-24 22:28
能将这个 GO 代码 写个例子吗？https://bbs.125.la/thread-14738530-1-2.html

配合WOW64Ext  模块使用

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
modtalib	长整数型
m_Z_Initialize	长整数型
m_Z_Acos	长整数型
m_Z_Max	长整数型

子程序名	返回值类型	公开	备 注
TalibX64_Init	逻辑型
参数名	类 型	参考	可空	数组	备 注
path	文本型

modtalib ＝ LoadLibraryEx64 (0, path, )
如果真 (modtalib ≤ 0)
返回 (假)
m_Z_Initialize ＝ GetProcAddress64 (modtalib, “Z_Initialize”)
m_Z_Shutdown ＝ GetProcAddress64 (modtalib, “Z_Shutdown”)
m_Z_Acos ＝ GetProcAddress64 (modtalib, “Z_Acos”)
m_Z_Max ＝ GetProcAddress64 (modtalib, “Z_Max”)

子程序名	返回值类型	公开	备 注
talibX64_Free	逻辑型

返回 (FreeLibrary64 (0, modtalib))

子程序名	返回值类型	公开	备 注
ta_Initialize	整数型

变量名	类 型	静态	数组	备 注
retCode	长整数型

retCode ＝ X64Call (m_Z_Initialize, , , , , , , , , , )
返回 (retCode)

子程序名	返回值类型	公开	备 注
ta_Acos	整数型
参数名	类 型	参考	可空	数组	备 注
startIdx	整数型
endIdx	整数型
inReal	双精度小数型
outBegIdx	整数型
outNBElement	整数型
outReal	双精度小数型

变量名	类 型	静态	数组	备 注
retCode	长整数型

retCode ＝ X64Call (m_Z_Acos, startIdx, endIdx, 取变量数据地址 (inReal), 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , , )
返回 (retCode)

子程序名	返回值类型	公开	备 注
ta_Max	整数型
参数名	类 型	参考	可空	数组	备 注
startIdx	整数型
endIdx	整数型
inReal	双精度小数型				*float64
optInTimePeriod	整数型
outBegIdx	整数型				*int
outNBElement	整数型				*int
outReal	双精度小数型				*float64

变量名	类 型	静态	数组	备 注
ret	长整数型

' syscall.Syscall9(procZ_Max.Addr(), 7, uintptr(startIdx), uintptr(endIdx), uintptr(unsafe.Pointer(inReal)), uintptr(optInTimePeriod), uintptr(unsafe.Pointer(outBegIdx)), uintptr(unsafe.Pointer(outNBElement)), uintptr(unsafe.Pointer(outReal)), 0, 0)
ret ＝ X64Call (m_Z_Max, startIdx, endIdx, 取变量数据地址 (inReal), optInTimePeriod, 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , )
返回 (ret)

子程序名	返回值类型	公开	备 注
子程序_test

变量名	类 型	静态	数组	备 注
retCode	整数型
inReal	双精度小数型		0
n	整数型
outBegIdx	整数型
outNBElement	整数型
outReal	双精度小数型		0

调试输出 (ta_Initialize ())
inReal ＝ { 0.5, 0.6, 0.7 }
n ＝ 取数组成员数 (inReal)
重定义数组 (outReal, 假, n)
' outReal=[1.0471975511965979 0.9272952180016123 0.7953988301841436]
retCode ＝ ta_Acos (0, n － 1, inReal, outBegIdx, outNBElement, outReal)
调试输出 (retCode, outBegIdx, outNBElement, outReal)
inReal ＝ { 1, 2, 3, 4, 5, 3, 43.2, 3.2, 3.13 }
n ＝ 取数组成员数 (inReal)
重定义数组 (outReal, 假, n)
' out=[0 0 0 0 5 5 43.2 43.2 43.2]
retCode ＝ ta_Max (0, n － 1, inReal, 5, outBegIdx, outNBElement, outReal)
调试输出 (retCode, outBegIdx, outNBElement, outReal)

.版本 2<br /> <br /> .程序集 程序集1<br /> .程序集变量 modtalib, 长整数型<br /> .程序集变量 m_Z_Initialize, 长整数型<br /> .程序集变量 m_Z_Acos, 长整数型<br /> .程序集变量 m_Z_Max, 长整数型<br /> <br /> .子程序 TalibX64_Init, 逻辑型<br /> .参数 path, 文本型<br /> modtalib ＝ LoadLibraryEx64 (0, path, )<br /> .如果真 (modtalib ≤ 0)<br />     返回 (假)<br /> .如果真结束<br /> m_Z_Initialize ＝ GetProcAddress64 (modtalib, “Z_Initialize”)<br /> m_Z_Shutdown ＝ GetProcAddress64 (modtalib, “Z_Shutdown”)<br /> m_Z_Acos ＝ GetProcAddress64 (modtalib, “Z_Acos”)<br /> m_Z_Max ＝ GetProcAddress64 (modtalib, “Z_Max”)<br /> <br /> .子程序 talibX64_Free, 逻辑型<br /> 返回 (FreeLibrary64 (0, modtalib))<br /> <br /> .子程序 ta_Initialize, 整数型<br /> .局部变量 retCode, 长整数型<br /> <br /> retCode ＝ X64Call (m_Z_Initialize, , , , , , , , , , )<br /> 返回 (retCode)<br /> <br /> .子程序 ta_Acos, 整数型<br /> .参数 startIdx, 整数型<br /> .参数 endIdx, 整数型<br /> .参数 inReal, 双精度小数型, 数组<br /> .参数 outBegIdx, 整数型, 参考<br /> .参数 outNBElement, 整数型, 参考<br /> .参数 outReal, 双精度小数型, 参考 数组<br /> .局部变量 retCode, 长整数型<br /> <br /> retCode ＝ X64Call (m_Z_Acos, startIdx, endIdx, 取变量数据地址 (inReal), 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , , )<br /> 返回 (retCode)<br /> <br /> .子程序 ta_Max, 整数型<br /> .参数 startIdx, 整数型<br /> .参数 endIdx, 整数型<br /> .参数 inReal, 双精度小数型, 数组, *float64<br /> .参数 optInTimePeriod, 整数型<br /> .参数 outBegIdx, 整数型, 参考, *int<br /> .参数 outNBElement, 整数型, 参考, *int<br /> .参数 outReal, 双精度小数型, 参考 数组, *float64<br /> .局部变量 ret, 长整数型<br /> <br /> ' syscall.Syscall9(procZ_Max.Addr(), 7, uintptr(startIdx), uintptr(endIdx), uintptr(unsafe.Pointer(inReal)), uintptr(optInTimePeriod), uintptr(unsafe.Pointer(outBegIdx)), uintptr(unsafe.Pointer(outNBElement)), uintptr(unsafe.Pointer(outReal)), 0, 0)<br /> ret ＝ X64Call (m_Z_Max, startIdx, endIdx, 取变量数据地址 (inReal), optInTimePeriod, 取变量数据地址 (outBegIdx), 取变量数据地址 (outNBElement), 取变量数据地址 (outReal), , , )<br /> 返回 (ret)<br /> <br /> .子程序 子程序_test<br /> .局部变量 retCode, 整数型<br /> .局部变量 inReal, 双精度小数型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 outBegIdx, 整数型<br /> .局部变量 outNBElement, 整数型<br /> .局部变量 outReal, 双精度小数型, , "0"<br /> <br /> 调试输出 (ta_Initialize ())<br /> <br /> inReal ＝ { 0.5, 0.6, 0.7 }<br /> n ＝ 取数组成员数 (inReal)<br /> 重定义数组 (outReal, 假, n)<br /> ' outReal=[1.0471975511965979 0.9272952180016123 0.7953988301841436]<br /> retCode ＝ ta_Acos (0, n － 1, inReal, outBegIdx, outNBElement, outReal)<br /> 调试输出 (retCode, outBegIdx, outNBElement, outReal)<br /> <br /> <br /> inReal ＝ { 1, 2, 3, 4, 5, 3, 43.2, 3.2, 3.13 }<br /> n ＝ 取数组成员数 (inReal)<br /> 重定义数组 (outReal, 假, n)<br /> ' out=[0 0 0 0 5 5 43.2 43.2 43.2]<br /> retCode ＝ ta_Max (0, n － 1, inReal, 5, outBegIdx, outNBElement, outReal)<br /> 调试输出 (retCode, outBegIdx, outNBElement, outReal)

迪克

看看啥内容

350246356

支持开源~！感谢分享

大彩笔

支持开源~！感谢分享

胖虎O

这么牛的吗

♂隐

现在都是这么优秀的么