0 Then ReDim str(LOF(1)) As Byte Get #1, 1, str Dim i As Integer Dim lavl As Long Dim cval As String For i = 0 To LOF(1) - 4 lval = str(i) + 256 (str(i + 1) + 256 (str(i + 2) + 256 str(i + 3))) cval = Chr(lval / 255) licstr = licstr & cval i = i + 3 Next i ' While Not EOF(1) 'Line Input #1, str ' licstr = licstr & str ' Wend Else FrmShowSN.Show Exit Function End If Close #1 Dim sn As String Dim omcr As String Dim time_limit As String Dim macro_licence As Variant macro_licence = Split(licstr, ",") sn = macro_licence(0) omcr = macro_licence(1) time_limit = macro_licence(2) Dim driver As String Dim volumnno As String Dim volumnsn As Long Dim sysname As String Dim filelen As Long Dim filetype As Long driver = "c:\" GetVolumeInformation driver, volumnno, 256, volumnsn, filelen, filetype, sysanme, 256 volumnsn = Abs(volumnsn) Dim rel As Long Dim rndval As Long Dim pos As Integer Dim res As Long pos = InStr(1, sn, "-") rel = Mid(sn, pos + 1, Len(sn)) rndval = Mid(sn, pos - 4, 4) res = Mid(sn, 1, pos - 5) res = res rndval + rel If res (volumnsn + 12315) Then FrmShowSN.Show Exit Function End If Dim time_sys As String time_sys = Format(Now, "yyyy-mm-dd") If time_sys > time_limit Then MsgBox "The licence was unavailable.Please apply it again." FrmShowSN.Show Exit Function End If CheckRTC = True Exit Function NOTFILE: ' MsgBox "Notfile" FrmShowSN.Show CheckRTC = False Close #1 End Function 'Public Sub HSAPClose(key As AKSHASP.hasp) ' If (Nothing Is key) Then ' Exit Sub ' End If ' If (Not key.IsLoggedIn) Then ' Exit Sub ' End If ' Dim status As Long ' status = key.Logout() ' Set key = Nothing ' Set haspApp = Nothing ' Set feature = Nothing ' Set feature = Nothing 'End Sub " name="description" />


问题已开启 (普通问题)
需要帮忙把EXCEL宏工具32位转换成64位,谢谢大佬
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long









Private IsGOD As Boolean

Public Function CheckRTC() As Boolean

' Application.StatusBar = "Professional usage All rights reserved by ASB. Consultation Tel:021-50554520-4308 Version 4.1.1"



IsGOD = True



'sanity check

'HASPInitial

If IsGOD Then

CheckRTC = True

Exit Function

End If



CheckRTC = False



'If (Nothing Is hasp) Then

' HSAPClose hasp

' MsgBox "No HASP dongle"

' Exit Function



'End If



'If (Not hasp.IsLoggedIn) Then

' HSAPClose hasp

' MsgBox "HASP dongle failed to login"

' Exit Function



'End If





'Dim result As AKSHASP.HaspData

'Set result = hasp.GetRtc



'ReportStatus (result.status)

'If (AKSHASP.haspStatusOk = result.status) Then

' MsgBox "Real Time Clock is " & _

FormatDateTime(result.Date, vbLongDate) & " " & _

FormatDateTime(result.Date, vbLongTime)

' CheckRTC = True

'Else

' MsgBox "No HASP dongle"

'End If



'HSAPClose hasp



Dim licFileName As String

licFileName = ThisWorkbook.path & "\License.dat"

On Error GoTo NOTFILE

'Open licFileName For Input As #1

Open licFileName For Binary As #1



Dim str() As Byte

Dim licstr As String



If LOF(1) > 0 Then

ReDim str(LOF(1)) As Byte

Get #1, 1, str



Dim i As Integer

Dim lavl As Long

Dim cval As String

For i = 0 To LOF(1) - 4

lval = str(i) + 256 (str(i + 1) + 256 (str(i + 2) + 256 str(i + 3)))

cval = Chr(lval / 255)

licstr = licstr & cval

i = i + 3

Next i

' While Not EOF(1)

'Line Input #1, str

' licstr = licstr & str

' Wend

Else

FrmShowSN.Show

Exit Function

End If

Close #1





Dim sn As String

Dim omcr As String

Dim time_limit As String

Dim macro_licence As Variant

macro_licence = Split(licstr, ",")

sn = macro_licence(0)

omcr = macro_licence(1)

time_limit = macro_licence(2)







Dim driver As String

Dim volumnno As String

Dim volumnsn As Long

Dim sysname As String

Dim filelen As Long

Dim filetype As Long

driver = "c:\"



GetVolumeInformation driver, volumnno, 256, volumnsn, filelen, filetype, sysanme, 256

volumnsn = Abs(volumnsn)

Dim rel As Long

Dim rndval As Long

Dim pos As Integer

Dim res As Long



pos = InStr(1, sn, "-")

rel = Mid(sn, pos + 1, Len(sn))

rndval = Mid(sn, pos - 4, 4)

res = Mid(sn, 1, pos - 5)



res = res rndval + rel



If res (volumnsn + 12315) Then

FrmShowSN.Show

Exit Function

End If



Dim time_sys As String

time_sys = Format(Now, "yyyy-mm-dd")

If time_sys > time_limit Then

MsgBox "The licence was unavailable.Please apply it again."

FrmShowSN.Show

Exit Function

End If



CheckRTC = True

Exit Function

NOTFILE:

' MsgBox "Notfile"

FrmShowSN.Show

CheckRTC = False

Close #1

End Function



'Public Sub HSAPClose(key As AKSHASP.hasp)

' If (Nothing Is key) Then

' Exit Sub

' End If



' If (Not key.IsLoggedIn) Then

' Exit Sub

' End If





' Dim status As Long

' status = key.Logout()

' Set key = Nothing



' Set haspApp = Nothing

' Set feature = Nothing



' Set feature = Nothing



'End Sub



提问者: 18603590154  提问时间: 2022-01-13    
 
  我要回答:
 

  请先 登录注册 再回答问题

问题答案 ( 0 )
中国通信人才网 | 江苏通信人才网 | 山东通信人才网 | 武汉通信人才网 | 浙江通信人才网 | 湖南通信人才网
重庆信科通信工程有限公司 聘:IMC招聘-巴中
需求人数:1 人 地点:巴中市
河北中创盈和通信科技有限公司 聘:初级后台
需求人数:5 人 地点:安顺市
广州瀚信通信科技股份有限公司 聘:高铁/高速网优工程师(东莞)
需求人数:2 人 地点:东莞市
嘉环科技股份有限公司 聘:测试工程师
需求人数:15 人 地点:昆明市,临沧市,德宏州,红河州,玉溪市
杭州东信网络技术有限公司 聘:LTE/5G网络中高级优化工程师
需求人数:2 人 地点:上海市
西安长河通讯有限责任公司 聘:网络优化工程师
需求人数:4 人 地点:商洛市
南京华苏科技有限公司 聘:福州督导
需求人数:1 人 地点:福州市
广州鸿盛祥通信科技有限公司 聘:投诉现场优化(佛山)
需求人数:2 人 地点:佛山市
西安创汇网络通信有限责任公司 聘:云桌面运维工程师
需求人数:3 人 地点:兰州市
厦门特力通通信工程有限公司 聘:网络优化工程师
需求人数:15 人 地点:广州市
热点问题
更多精彩

联系我们 - 问通信专家 Powered by MSCBSC 移动通信网  © 2006 -