论坛帮助 |
社区圈子 |
日历事件 |
2022-05-12, 13:57 | 只看该作者 #49 | ||
|
|||
中级会员
等级: 六袋长老
|
|
||
2022-05-15, 21:42 | 只看该作者 #52 | ||
|
|||
中级会员
等级: 六袋长老
|
|
||
2022-05-15, 21:58 | 只看该作者 #53 | ||
|
|||
中级会员
等级: 六袋长老
|
'Private Declare Function rStones3cdr13 Lib "c:\eCut\rStones3\DLL\rStones13r3.dll" Alias "rStones3" (ByVal f As Integer) As Integer 'Private Declare Function rStones3cdr14 Lib "c:\eCut\rStones3\DLL\rStones14r3.dll" Alias "rStones3" (ByVal f As Integer) As Integer 'Private Declare Function rStones3cdr15 Lib "c:\eCut\rStones3\DLL\rStones15r3.dll" Alias "rStones3" (ByVal f As Integer) As Integer Private Declare PtrSafe Function rStones3cdr16 Lib "c:\eCut\rStones3\DLL\rStones16r3.dll" Alias "rStones3" (ByVal f As Integer) As Integer Private Declare PtrSafe Function rStones3cdr17 Lib "c:\eCut\rStones3\DLL\rStones17r3.dll" Alias "rStones3" (ByVal f As Integer) As Integer Private Declare PtrSafe Function rStones3cdr16x64 Lib "c:\eCut\rStones3\DLL\rStones16r3x64.dll" Alias "rStones3" (ByVal f As Integer) As Integer Private Declare PtrSafe Function rStones3cdr17x64 Lib "c:\eCut\rStones3\DLL\rStones17r3x64.dll" Alias "rStones3" (ByVal f As Integer) As Integer Public Sub rStones3_launcher() Index = 0 On Error GoTo LaunchModuleEnd 'If VersionMajor = 13 Then rStones3cdr13 Index 'If VersionMajor = 14 Then rStones3cdr14 Index 'If VersionMajor = 15 Then rStones3cdr15 Index If VersionMajor = 16 Then On Error GoTo Skip16x32 rStones3cdr16 Index GoTo Skip16x64 Skip16x32: On Error GoTo Skip16x64 rStones3cdr16x64 Index Skip16x64: End If If VersionMajor = 17 Then On Error GoTo Skip17x32 rStones3cdr17 Index GoTo Skip17x64 Skip17x32: On Error GoTo Skip17x64 rStones3cdr17x64 Index Skip17x64: End If LaunchModuleEnd: End Sub |
||