Dim a2 As Integer
Dim str1 As String
str1 = Space(1024 * 10)
a2 = icePub_machineGetInfo(1, str1)
MsgBox "mac:" + str1
a2 = icePub_machineGetInfo(2, str1)
MsgBox "cpu:" + str1
a2 = icePub_machineGetInfo(3, str1)
MsgBox "hard:" + str1
a2 = icePub_machineGetInfo(4, str1)
MsgBox "memery:" + str1
a2 = icePub_machineGetInfo(5, str1)
MsgBox "boarddate:" + str1
'或
Private Declare Function icePub_machineCode Lib "icePubDll.dll" (ByVal flag As Integer, ByVal strMachineCode As String) As Integer
Dim a2 As Integer
Dim str1 As String
str1 = Space(1024 * 10)
a2 = icePub_machineCode(1, str1)
MsgBox str1
Private Declare Function icePub_openUrl Lib "icePubDll.dll" (ByVal currentUrlString As String, ByVal strHtmlText As String, ByVal TextMaxLen As Integer, ByVal strProxy As String) As Integer
Dim str1 As String
Dim a2 As Integer
str1 = Space(1024 * 20 + 1)
a2=icePub_openUrl("/?param=10e2c4e861d5187cd6b4c102ea4bd22d",str1,1024*20,"")
iceEncryptText 文本加密解密(這是壹個vc6的加解密程序,都是調用下邊提到的2個函數)
/?param=進行手工加密(或用Private Declare Function icePub_encryptText2 Lib "icePubDll.dll" (ByVal strInput As String,ByVal strOutputHexstring As String, ByVal strKey As String) As Integer函數自己寫壹個加密工具),放到自己的程序裏用下邊的函數解密然後用上邊的函數進行聯機驗證param後邊的參數是否被授權(用壹個php+mysql空間小程序即可完成添加,刪除,驗證...)
Private Declare Function icePub_decryptText2 Lib "icePubDll.dll" (ByVal strInputHexstring As String, ByVal strOutput As String, ByVal strKey As String) As Integer
Dim len As Integer
Dim buff As String
Dim buff2 As String
Dim key As String
buff="52C8C3AE8173AEF1B877A6753E6D98E4384B53F3FDDFE2CE5FDA554463C84B4B"
key="yueguang"
buff2=Space(1024)
len= icePub_decryptText2(buff,buff2,key)
MsgBox buff2
'即可得到/?param=
有用沒用,僅參考吧...
/dev.php?f=icePubDll.rar 下載