rnb/winapp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

4.0.7版

Browse Source
This commit is contained in:
alex_q
2026-06-23 21:59:23 +08:00
parent cb9997217a
commit 6cdbb4e84b
8 changed files with 156 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
.gitignore
+12
View File
@@ -0,0 +1,12 @@
#排除所有的编译目录
**/Win32/
#排除历史和恢复目录
__history/
__recovery/
#排除本地设置
*.~dsk
*.cbpr
*.local
*.rc
ActCodeFormUnit.cpp
+15 -3
View File
@@ -32,6 +32,8 @@ void __fastcall TActCodeForm::FormCreate(TObject *Sender)
m_lbTips->Caption = Format(String("有效期至：%.4d-%.2d-%.2d %.2d:%.2d"),
ARRAYOFCONST((dt->tm_year+1900, dt->tm_mon+1, dt->tm_mday, dt->tm_hour, dt->tm_min)));
}
m_btnReset->Enabled = true;
}
else
m_lbTips->Caption = "请输入授权码并验证";
@@ -39,8 +41,8 @@ void __fastcall TActCodeForm::FormCreate(TObject *Sender)
//---------------------------------------------------------------------------
void __fastcall TActCodeForm::OnCodeChange(TObject *Sender)
{
m_btnOk->Caption = "验证";
m_btnOk->Enabled = m_leActCode->Text.Length()>0;
m_btnOk->Caption = m_leActCode->Text.Length()>0 ? "验证" : "关闭";
m_btnReset->Enabled = m_leActCode->Text.Length()>0;
if(m_tExpire>0){
m_tExpire = 0;
@@ -55,7 +57,9 @@ void __fastcall TActCodeForm::OnCodeKeyPress(TObject *Sender, System::WideChar &
else if(Key<0x1E)
return;
if((Key>'9' || Key<'0') && (Key<'A' || Key>'F'))
if(Key>='a' && Key<='f')
Key -= 32;
else if((Key>'9' || Key<'0') && (Key<'A' || Key>'F'))
Key = 0;
}
//---------------------------------------------------------------------------
@@ -112,4 +116,12 @@ void __fastcall TActCodeForm::UMUserConfirm(TMessage &msg)
}
}
//---------------------------------------------------------------------------
void __fastcall TActCodeForm::OnResetClick(TObject *Sender)
{
m_leActCode->Text = "";
m_lbTips->Caption = "请输入授权码并验证";
PostMessage(Application->MainFormHandle, UM_USERCONFIRM, UR_RESET, 0 );
m_btnOk->Caption = "关闭";
}
//---------------------------------------------------------------------------
ActCodeFormUnit.dfm
+15 -5
View File
@@ -31,9 +31,9 @@ object ActCodeForm: TActCodeForm
ParentFont = False
end
object m_leActCode: TLabeledEdit
Left = 96
Left = 75
Top = 27
Width = 153
Width = 129
Height = 23
AutoSize = False
EditLabel.Width = 45
@@ -49,12 +49,22 @@ object ActCodeForm: TActCodeForm
OnKeyPress = OnCodeKeyPress
end
object m_btnOk: TButton
Left = 113
Top = 91
Left = 115
Top = 88
Width = 75
Height = 25
Caption = #39564#35777
Caption = #20851#38381
TabOrder = 1
OnClick = OnOkClick
end
object m_btnReset: TButton
Left = 212
Top = 26
Width = 63
Height = 25
Caption = #37325#32622
Enabled = False
TabOrder = 2
OnClick = OnResetClick
end
end
ActCodeFormUnit.h
+4 -1
View File
@@ -10,7 +10,8 @@
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Mask.hpp>
#define UR_VERIFY 0x00
#define UR_RESET 0x00
#define UR_VERIFY 0x01
//---------------------------------------------------------------------------
class TActCodeForm : public TForm
@@ -19,10 +20,12 @@ __published: // IDE-managed Components
TLabeledEdit *m_leActCode;
TButton *m_btnOk;
TLabel *m_lbTips;
TButton *m_btnReset;
void __fastcall FormCreate(TObject *Sender);
void __fastcall OnCodeChange(TObject *Sender);
void __fastcall OnCodeKeyPress(TObject *Sender, System::WideChar &Key);
void __fastcall OnOkClick(TObject *Sender);
void __fastcall OnResetClick(TObject *Sender);
private: // User declarations
int m_tExpire;
HookJS.cpp
+1 -1
View File
@@ -425,7 +425,7 @@ String enterJS_PA =
"const itemMap = VideoGameCore.RoomItemStore.storeVidMap;"
"if(roadMap && itemMap){"
"const rooms = VideoGameCore.RoomConfig.instance.getAllRoomInfoByFilter({gameType:'BAC'});"
"if(rooms.length>=45){"
"if(rooms.length>=15){"
"iRet = 1;"
"let info='1|';"
"for(const r of rooms){"
PNGButton.hpp
+100
View File
@@ -0,0 +1,100 @@
// CodeGear C++Builder
// Copyright (c) 1995, 2024 by Embarcadero Technologies, Inc.
// All rights reserved
// (DO NOT EDIT: machine generated header) 'PNGButton.pas' rev: 36.00 (Windows)
#ifndef PNGButtonHPP
#define PNGButtonHPP
#pragma delphiheader begin
#pragma option push
#if defined(__BORLANDC__) && !defined(__clang__)
#pragma option -w- // All warnings off
#pragma option -Vx // Zero-length empty class member
#endif
#pragma pack(push,8)
#include <System.hpp>
#include <SysInit.hpp>
#include <System.SysUtils.hpp>
#include <Winapi.Messages.hpp>
#include <System.Classes.hpp>
#include <System.Types.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Graphics.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.Imaging.pngimage.hpp>
#include <System.UITypes.hpp>
#include <Vcl.Menus.hpp>
//-- user supplied -----------------------------------------------------------
namespace Pngbutton
{
//-- forward type declarations -----------------------------------------------
class DELPHICLASS TPNGButton;
//-- type declarations -------------------------------------------------------
class PASCALIMPLEMENTATION TPNGButton : public Vcl::Controls::TGraphicControl
{
typedef Vcl::Controls::TGraphicControl inherited;
private:
System::Classes::TNotifyEvent FOnMouseEnter;
System::Classes::TNotifyEvent FOnMouseLeave;
System::Uitypes::TModalResult FModalResult;
protected:
int EtatBtn;
bool FDown;
int FStateCount;
Vcl::Imaging::Pngimage::TPngImage* FPngImg;
bool FVisible;
DYNAMIC void __fastcall MouseDown(System::Uitypes::TMouseButton Button, System::Classes::TShiftState Shift, int X, int Y);
DYNAMIC void __fastcall MouseUp(System::Uitypes::TMouseButton Button, System::Classes::TShiftState Shift, int X, int Y);
MESSAGE void __fastcall MouseEnter(Winapi::Messages::TMessage &Msg);
MESSAGE void __fastcall MouseLeave(Winapi::Messages::TMessage &Msg);
virtual void __fastcall SetEnabled(bool Value);
public:
__fastcall virtual TPNGButton(System::Classes::TComponent* AOwner);
__fastcall virtual ~TPNGButton();
void __fastcall SetStateCount(int value);
void __fastcall SetPngImg(Vcl::Imaging::Pngimage::TPngImage* value);
void __fastcall SetDown(bool value);
virtual void __fastcall Paint();
DYNAMIC void __fastcall Click();
__published:
__property Action;
__property Anchors = {default=3};
__property bool Down = {read=FDown, write=SetDown, default=0};
__property Enabled = {default=1};
__property int ImgStates = {read=FStateCount, write=SetStateCount, default=4};
__property System::Uitypes::TModalResult ModalResult = {read=FModalResult, write=FModalResult, default=0};
__property ParentShowHint = {default=1};
__property Vcl::Imaging::Pngimage::TPngImage* PngImg = {read=FPngImg, write=SetPngImg};
__property PopupMenu;
__property ShowHint;
__property Visible = {default=1};
__property OnClick;
__property OnContextPopup;
__property OnMouseDown;
__property OnMouseUp;
__property OnMouseMove;
__property System::Classes::TNotifyEvent OnMouseEnter = {read=FOnMouseEnter, write=FOnMouseEnter};
__property System::Classes::TNotifyEvent OnMouseLeave = {read=FOnMouseLeave, write=FOnMouseLeave};
};
//-- var, const, procedure ---------------------------------------------------
extern DELPHI_PACKAGE void __fastcall Register();
} /* namespace Pngbutton */
#if !defined(DELPHIHEADER_NO_IMPLICIT_NAMESPACE_USE) && !defined(NO_USING_NAMESPACE_PNGBUTTON)
using namespace Pngbutton;
#endif
#pragma pack(pop)
#pragma option pop
#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif // PNGButtonHPP
RBmaster.cbproj
+4 -4
View File
@@ -80,7 +80,7 @@
<Defines>_RBM_;$(Defines)</Defines>
<ILINK_DisableIncrementalLinking>true</ILINK_DisableIncrementalLinking>
<IncludePath>..\Global\;..\CEF4Delphi\$(Platform)\hpps;$(IncludePath)</IncludePath>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=4.0.5.0;InternalName=RBmaster;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=红蓝大师;ProductVersion=3.0;Comments=</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=4.0.7.0;InternalName=RBmaster;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=红蓝大师;ProductVersion=3.0;Comments=</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
<AllPackageLibs>rtl.lib;vcl.lib;fmx.lib;vclimg.lib;xmlrtl.lib;vclactnband.lib;vclx.lib;CEF4DelphiVCLRTL.lib;vclwinx.lib;bindengine.lib;TPNGButton.lib</AllPackageLibs>
@@ -102,7 +102,7 @@
<UWP_CppLogo150>$(BDS)\bin\Artwork\Windows\UWP\cppreg_UwpDefault_150.png</UWP_CppLogo150>
<VerInfo_MajorVer>4</VerInfo_MajorVer>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Release>5</VerInfo_Release>
<VerInfo_Release>7</VerInfo_Release>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<Debugger_CWD>..\Deploy\$(Platform)\$(Config)\</Debugger_CWD>
@@ -166,7 +166,7 @@
<ILINK_TranslatedLibraryPath>$(BDSLIB)\$(PLATFORM)\debug\$(LANGDIR);$(ILINK_TranslatedLibraryPath)</ILINK_TranslatedLibraryPath>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileVersion=4.0.5.0;InternalName=RBmaster;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=红蓝大师;ProductVersion=3.0;Comments=;ProgramID=;FileDescription=</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileVersion=4.0.7.0;InternalName=RBmaster;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=红蓝大师;ProductVersion=3.0;Comments=;ProgramID=;FileDescription=</VerInfo_Keys>
<LinkPackageStatics>rtl.lib;vcl.lib;fmx.lib;vclimg.lib;xmlrtl.lib;vclactnband.lib;vclx.lib;CEF4DelphiVCLRTL.lib;vclwinx.lib;bindengine.lib;TPNGButton.lib</LinkPackageStatics>
<AppExecutionLevel>requireAdministrator</AppExecutionLevel>
<BT_BuildType>Debug</BT_BuildType>
@@ -189,7 +189,7 @@
<TASM_Debugging>None</TASM_Debugging>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileVersion=4.0.5.0;InternalName=RBmaster;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=红蓝大师;ProductVersion=3.0;Comments=;ProgramID=;FileDescription=</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileVersion=4.0.7.0;InternalName=RBmaster;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=红蓝大师;ProductVersion=3.0;Comments=;ProgramID=;FileDescription=</VerInfo_Keys>
<LinkPackageStatics>rtl.lib;vcl.lib;fmx.lib;vclimg.lib;xmlrtl.lib;vclactnband.lib;vclx.lib;CEF4DelphiVCLRTL.lib;vclwinx.lib;bindengine.lib;TPNGButton.lib</LinkPackageStatics>
<AppExecutionLevel>requireAdministrator</AppExecutionLevel>
<Debugger_CWD>..\Deploy\$(Platform)\$(Config)\</Debugger_CWD>
RBmasterMain.cpp
+5
View File
@@ -2265,6 +2265,11 @@ void __fastcall TMainForm::UMUserConfirm(TMessage &msg)
ClearURThread();
int op = msg.WParam;
if(op==UR_RESET){
m_sActCode = "";
return;
}
bool bVerify = op<UR_LOGIN;
if(bVerify && !ActCodeForm)
return;