论坛风格切换切换到宽版
  • 4262阅读
  • 6回复

【求助】虎版,一机一码的代码不能用,如何解决。 [复制链接]

上一主题 下一主题
离线noyo
 

发帖
4
金钱
40
威望
4
只看楼主 倒序阅读 0 发表于: 2015-06-24

function ScriptDlgPages(CurPage: Integer; BackClicked: Boolean): Boolean;
var
      ExpPath: String;

begin

    Result := True;

    if (CurPage = UserPage.ID) then
    begin
        ExtractTemporaryFile('sample1.iky');        { the public key file }

        ExpPath := ExpandConstant('{tmp}\sample1.iky');

        Result := False;

          UserValues[0] := UserPage.Values[0];
        UserValues[1] := UserPage.Values[1];
        UserValues[2] := UserPage.Values[2];
        UserValues[3] := UserPage.Values[3];
        //if (UserValues[0] = '1') or (UserValues[1] = '1') or (UserValues[2] = '1') or (UserValues[3] = '1') then
        if (UserValues[0] = '') or (UserValues[1] = '') or (UserValues[2] = '') or (UserValues[3] = '') then
            MsgBox('No fields can be blank !', mbError, MB_OK)
        else
        begin
            Result := ValidateSerialNumber(    ExpPath,
                                        UserValues[0],
                                        UserValues[1],
                                        '', '', '',
                                        UserValues[3],
                                        UserValues[2] );

            if (not Result) then
                MsgBox('Invalid Entry !', mbError, MB_OK);

        end
    end

end;
离线noyo

发帖
4
金钱
40
威望
4
只看该作者 1 发表于: 2015-06-24
不能沉下去。快来人了
离线spser

发帖
30
金钱
300
威望
30
只看该作者 2 发表于: 2015-06-25
什么叫一机一码?
离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 3 发表于: 2015-06-27
楼主:具体是什么问题?
离线noyo

发帖
4
金钱
40
威望
4
只看该作者 4 发表于: 2015-07-03
回 4楼(gnatix) 的帖子
第一张那个图,把空白填字之后就弹出这样的问题,怎么破的?
离线noyo

发帖
4
金钱
40
威望
4
只看该作者 5 发表于: 2015-07-03
回 6楼(shenyongran) 的帖子
shenyongran:这样打包没有一点安全性,安装一次,扫描一次,重新打包就完事了。 (2015-07-03 16:36) 

呃呃,我会想办法如何不让用户提取我的文件,请放心哦
离线jmlm1234

发帖
13
金钱
120
威望
12
只看该作者 6 发表于: 2015-07-11
这样安装的话还需要提供注册码才能安装吧