Software Passport Pro Integration

BlitzMax Forums/BlitzMax Programming/Software Passport Pro Integration

TartanTangerine (was Indiepath)

(Posted 2005) [#1]

Does anyone have any experience of integration of Software Passport (Armadillo) and BMAX? I need to be able to query the wrapper dll to find out how much time is left on the trial licence.

I have done this successfully with blitz3d and it was as simple as writing a .decls file BUT I suspect BMAx is going to be a little trickier.

TartanTangerine (was Indiepath)

(Posted 2005) [#2]

Actually All I need to do is to Execute the following command.

UpdateArmadillo() : "UpdateEnvironment"

TartanTangerine (was Indiepath)

(Posted 2005) [#3]

Anyone?

Chris C

(Posted 2005) [#4]

UpdateArmadillo() : "UpdateEnvironment"

is this a dll call? gizza clue...

TartanTangerine (was Indiepath)

(Posted 2005) [#5]

Have a Clue....

I need to be able to query the wrapper dll to find out how much time is left on the trial licence.

Chris C

(Posted 2005) [#6]

have one back :)

Global LibPtr=LoadLibraryA( "smomedllname" )
Global call_this_function_in_max()"win32"=getprocaddress(LibPtr,"the_exact_name_of_the_routine")

Yan	(Posted 2005) [#7]

Any use to ya?...
http://www.blitzbasic.com/Community/posts.php?topic=41803

Sarge

(Posted 2005) [#8]

Chris C,

Your saying something like this

Global Libary=LoadLibraryA( "ArmAccess.dll" )
Global CheckCode( Name:String, Code:String )"win32"=getprocaddress(Libary,"CheckCode")
Global VerifyKey( Name:String, Code:String )"win32"=getprocaddress(Libary,"VerifyKey")
Global InstallKey( Name:String, Code:String )"win32"=getprocaddress(Libary,"InstallKey")
Global InstallKeyLater( Name:String, Code:String )"win32"=getprocaddress(Libary,"InstallKeyLater")
Global UninstallKey()"win32"=getprocaddress(Libary,"UninstallKey")
Global SetDefaultKey()"win32"=getprocaddress(Libary,"SetDefaultKey")
Global UpdateEnvironment()"win32"=getprocaddress(Libary,"UpdateEnvironment")
Global IncrementCounter()"win32"=getprocaddress(Libary,"IncrementCounter")
Global CopiesRunning()"win32"=getprocaddress(Libary,"CopiesRunning")
Global ChangeHardwareLock()"win32"=getprocaddress(Libary,"ChangeHardwareLock")
Global GetShellProcessID()"win32"=getprocaddress(Libary,"GetShellProcessID")
Global FixClock( FixClockKey:String )"win32"=getprocaddress(Libary,"FixClock")
Global RawFingerprintInfo( Item:Int )"win32"=getprocaddress(Libary,"RawFingerprintInfo")
Global SetUserString( Which:Int, Str:String )"win32"=getprocaddress(Libary,"SetUserString")
Global VBGetUserString( Which:Int )"win32"=getprocaddress(Libary,"VBGetUserString")
Global WriteHardwareChangeLog( FileName:String )"win32"=getprocaddress(Libary,"WriteHardwareChangeLog")
Global ConnectedToServer()"win32"=getprocaddress(Libary,"ConnectedToServer")
Global CallBuyNowURL( ParentWindow:Int )"win32"=getprocaddress(Libary,"CallBuyNowURL")
Global CallCustomerServiceURL( ParentWindow:Int )"win32"=getprocaddress(Libary,"CallCustomerServiceURL")
Global ShowReminderMessage( ParentWindow:Int )"win32"=getprocaddress(Libary,"ShowReminderMessage")
Global ShowReminderMessage2( ParentWindow:Int )"win32"=getprocaddress(Libary,"ShowReminderMessage2")
Global ShowEnterKeyDialog( ParentWindow:Int )"win32"=getprocaddress(Libary,"ShowEnterKeyDialog")
Global ExpireCurrentKey()"win32"=getprocaddress(Libary,"ExpireCurrentKey")

'Example
Print ExpireCurrentKey()

because most of them dont seem to work, i think ;)

TartanTangerine (was Indiepath)

(Posted 2005) [#9]

Nice one, I thought I might have to make a lib and import that.

Thanks again.

Boris

(Posted 2005) [#10]

If you create some C code, you can even use secured sections and so on directly (mingw needs to be installed for this) in blitzmax.

TartanTangerine (was Indiepath)

(Posted 2005) [#11]

Do you have an example boris?