情迁QQ机器人安装包开源

<pre name="code" class="plain">; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！
#define MyAppName "情迁ＱＱ机器人"
;应用名称
#define AppVerName "情迁ＱＱ机器人"
;文件名称 卸载时候可以显示
#define MyAppURL "http://51bwn.com/"
;相关链接    显示 不了
#define MyAppExeName "51bwn_qqrobot.exe"
;安装后主程序名
#define MyAppPublisher "情随事迁"
;公司名称
#define LicenseFile "许可文件.txt"
;开始安装的许可文件
#define InfoAfterFile "安装后显示.txt"
;安装后显示文件
#define SetupIconFile " qq.ico"
;安装包程序图标
#define OutputDir "C:\Users\yan\Desktop"
;#define OutputDir "C:\Documents and Settings\chuanzhiboke\桌面"
;编译后安装包位置
#define AppVersion "1.6.20150619"
;产品版本
#define VersionInfoVersion "1.6"
;信息版本->无法查看
#define VersionInfoTextVersion "20150619"
;文件版本
#define AppCopyright "版权所有 (C) 情随事迁1.5-51bwn.com"
;版权->windows7显示
#define DefaultDirName "D:\qqrobot"
;文件默认安装路径
;#define  ""#define OutputBaseFilename "情迁ＱＱ机器人_20150619_setup"
[Setup]
; 注: AppId的值为单独标识该应用程序。
; 不要为其他安装程序使用相同的AppId值。
; (生成新的GUID，点击 工具|在IDE中生成GUID。)
AppId={{9F70F01C-6E6E-4334-8E39-E4A277CAEAF6}
AppName={#MyAppName}
;产品名称
AppVerName={#AppVerName}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={#DefaultDirName}
DefaultGroupName={#MyAppName}
AppVersion={#AppVersion}
VersionInfoVersion={#VersionInfoVersion}
VersionInfoTextVersion={#VersionInfoTextVersion}
; 产品版本
AppCopyright={#AppCopyright}
; 版权信息
; 文件版本
LicenseFile={#LicenseFile}
;InfoBeforeFile=F:\Mrphj_CF\帮助与说明.txt
InfoAfterFile={#InfoAfterFile}
;输出文件路径   {commondesktop}
;OutputDir={#outputdir}
;OutputDir={#OutputDir}
;在当前目录
OutputDir= {#OutputDir}
OutputBaseFilename={#OutputBaseFilename}
SetupIconFile={#SetupIconFile}
Compression=lzma2/ultra64
SolidCompression=yes
WizardImageFile=image.bmp
WizardSmallImageFile=image1.bmp
; 开启密码
;Password=6227003031200780828
UsePreviousTasks=yes
;Encryption=yes
[Languages]
; These files are stubs
; To achieve better results after recompilation, use the real language files
Name: "chs"; MessagesFile: "chs.isl"; [Tasks]
Name: desktopicon; Description: "创建桌面快捷方式(&D)"; GroupDescription: "添加快捷方式:";
Name: desktopicon\common; Description: "对于所有用户"; GroupDescription: "添加快捷方式:";
Name: desktopicon\user; Description: "仅对当前用户"; GroupDescription: "添加快捷方式";;Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"
; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked; OnlyBelowVersion: 0,6.1[CustomMessages]
chs.NameAndVersion=%1 v%2
chs.AdditionalIcons=附加图标:
chs.CreateDesktopIcon=创建桌面快捷图标(&D)
chs.CreateQuickLaunchIcon=创建任务栏快速启动图标(&Q)
chs.ProgramOnTheWeb=%1 网站
chs.UninstallProgram=卸载 %1
chs.LaunchProgram=运行 %1
chs.AssocFileExtension=将扩展名为 %2 的文件与 %1 建立关联(&A)
chs.AssocingFileExtension=正在将扩展名为 %2 的文件与 %1 建立关联...[Files]
Source: "F:\setup\qqrobot\使用简介.txt"; DestDir: "{app}"; Flags: isreadme
Source: "F:\setup\qqrobot\{#MyAppExeName}"; DestDir: "{app}"; Flags: ignoreversion
;Flags: isreadme
Source: "F:\setup\qqrobot\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "ISSkin.dll"; DestDir: {app}; Flags: dontcopy
Source: "Office2007.cjstyles"; DestDir: {tmp}; Flags: dontcopy; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”
[Icons]
Name: "{group}\启动{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{group}\情迁ＱＱ机器人数据管理工具"; Filename: "{app}\情迁ＱＱ机器人数据管理工具.exe"
Name: "{commondesktop}\情迁ＱＱ机器人数据管理工具"; Filename: "{app}\情迁ＱＱ机器人数据管理工具.exe"
Name: "{group}\情迁QQ机器人进程守护"; Filename: "{app}\情迁QQ机器人进程守护.exe"
Name: "{commondesktop}\情迁QQ机器人进程守护"; Filename: "{app}\情迁QQ机器人进程守护.exe"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
Name: "{group}\卸载{#MyAppName}"; Filename: "{app}\unins000.exe";
Name: "{group}\{#MyAppName}官网"; Filename: "http://51bwn.com/";
;Name: "{group}\黑界网络淘宝店铺"; Filename: "http://shop108156197.taobao.com/";
Name: "{group}\情迁软件官方体验群298081857"; Filename: "http://jq.qq.com/?_wv=1027&k=Y7hrEQ";
;Name: "{group}\黑界网络产品交流群106605356"; Filename: "http://qm.qq.com/cgi-bin/qm/qr?k=AKALBCQrTvinzSTvBjt0Mu6dFDCQAq8-/";[Registry]
;Root: HKCU; Subkey: "Software\Valve\Steam"; ValueType: string; ValueName: "Rate";
;Root: HKCU; Subkey: "Software\Valve\Steam"; ValueType: string; ValueName: "Skin";
;Root: HKCU; Subkey: "Software\Valve\Steam"; ValueType: string; ValueName: "51BWN.COM"; ValueData: "qq694886526"[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "运行{#MyAppName}"; Flags: nowait postinstall skipifsilent
Filename: "{app}\情迁QQ机器人进程守护.exe"; Description: "运行进程守护软件"; Flags: postinstall nowait skipifsilent unchecked
Filename: "{app}\情迁ＱＱ机器人数据管理工具.exe"; Description: "运行据管理工具"; Flags: postinstall nowait skipifsilent unchecked
Filename: "{app}\qqdebug.exe"; Description: "运行CMD调试工具"; Flags: postinstall nowait skipifsilent unchecked;Filename: "{app}\{#MyAppExeName}"; Description: "运行情迁火线启动器"; Flags: nowait postinstall skipifsilent
;Filename: "{app}\cstrike.exe"; Description: "运行情迁火线主程序"; Flags: postinstall nowait skipifsilent unchecked;Filename: "{app}\key.exe";
[Messages]
ClickNext=单击“下一步”继续，或单击“取消”退出安装程序。%n%n%n%n%n%n%n%n本程序由情随事迁制作%n%n欢迎网络爱好者共同讨论%n%n网址： http://www.51BWN.COM
[Code]
{ RedesignWizardFormBegin } // 不要删除这一行代码。
// 不要修改这一段代码，它是自动生成的。
procedure RedesignWizardForm;
beginwith WizardForm dobeginColor := clGreen;AutoScroll := False;ClientHeight := ScaleY(360);end;with WizardForm.InnerPage dobeginColor := clGreen;end;with WizardForm.GroupEdit dobeginText := '聊天应用\{#MyAppName}';end;with WizardForm.TasksList dobeginColor := clWhite;end;with WizardForm.ReadyMemo dobeginColor := clWhite;end;{ ReservationBegin }// 这一部分是提供给你的，你可以在这里输入一些补充代码。{ ReservationEnd }
end;
// 不要修改这一段代码，它是自动生成的。
{ RedesignWizardFormEnd } // 不要删除这一行代码。// Importing LoadSkin API from ISSkin.DLL
procedure LoadSkin(lpszPath: AnsiString; lpszIniFileName: AnsiString);
external 'LoadSkin@files:isskin.dll stdcall';// Importing UnloadSkin API from ISSkin.DLL
procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';// Importing ShowWindow Windows API from User32.DLL
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';function InitializeSetup(): Boolean;
beginExtractTemporaryFile('Office2007.cjstyles');LoadSkin(AnsiString(ExpandConstant('{tmp}\Office2007.cjstyles')), '');Result := True;
end;
procedure AboutButtonOnClick(Sender: TObject);
begin
MsgBox('上一安装包版本：1.5 当前版本：1.6'#13#13'更多请点击联系QQ 694886526 或加群298081857 网址http://51bwn.com'#13#13'支付宝：17099953960 财付通694886526 建设银行6227 0030 3120 0780 828', mbInformation, mb_Ok);
end;
procedure URLLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://www.51bwn.com', '', '', SW_SHOW, ewNoWait, ErrorCode)
end;
procedure InitializeWizard();
var
AboutButton: TButton;
URLLabel: TNewStaticText;
beginRedesignWizardForm;
AboutButton := TButton.Create(WizardForm);
AboutButton.Left := WizardForm.ClientWidth - WizardForm.CancelButton.Left - WizardForm.CancelButton.Width;
AboutButton.Top := WizardForm.CancelButton.Top;
AboutButton.Width := WizardForm.CancelButton.Width;
AboutButton.Height := WizardForm.CancelButton.Height;
AboutButton.Caption := '版本(&A)';
AboutButton.OnClick := @AboutButtonOnClick;
AboutButton.Parent := WizardForm;
URLLabel := TNewStaticText.Create(WizardForm);
URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
URLLabel.Left := AboutButton.Left + AboutButton.Width + 10;
URLLabel.Caption := 'www.51bwn.com';
URLLabel.Font.Style := [fsBold, fsUnderline];
URLLabel.Font.Color := clBlue;
URLLabel.Cursor := crHand;
URLLabel.OnClick := @URLLabelOnClick;
URLLabel.Font.Name := '宋体';
URLLabel.Font.Height := ScaleY(-13);
URLLabel.Parent := WizardForm;
URLLabel.Hint := '点击访问相关网站';
URLLabel.ShowHint := True;
end;[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030102C02000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F10105436F6C6F720707636C477265656E0D4578706C6963697457696474680301020E4578706C69636974486569676874038E010D506978656C73506572496E636802600A54657874486569676874020C00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E65725061676505436F6C6F720707636C477265656E0B506172656E74436F6C6F720800F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167651653656C65637450726F6772616D47726F75705061676500F108544E6577456469740947726F75704564697404546578741419000000E8818AE5A4A9E5BA94E794A85C7B234D794170704E616D657D000000F110544E65774E6F7465626F6F6B506167650F53656C6563745461736B735061676500F110544E6577436865636B4C697374426F78095461736B734C69737405436F6C6F720707636C5768697465000000F110544E65774E6F7465626F6F6B506167650952656164795061676500F108544E65774D656D6F0952656164794D656D6F05436F6C6F720707636C576869746500000000000000

情迁QQ机器人安装包开源相关推荐

情迁QQ机器人 Lua机器人插件开发教程
说明目前支持机器人lua插件在2018年11月17日发布了,各位记得先情迁下载QQ机器人哈本文章会慢慢补充,lua机器人插件能力将在情迁QQ机器人 1.8.8以及以上版本体现. 安装目录新建lu ...
情迁QQ机器人到底该怎么用？
还想用情迁qq内置(不需要root)得朋友关注https://www.jianshu.com/p/b2b635aebc91 初次体验如果你第一次打开本文章,我想对你说的是,这文章可能只供参考因为有些 ...
情迁QQ机器人的激活步骤[重新给大家捋一遍]
一般的激活步骤 1.使用xposed使q++激活. 2.打开qq->设置->q++设置->勾选监听聊天消息,勾选启用机器人. 3.打开情迁QQ机器人,进入设置确保启用群回复,启用私聊 ...
情迁QQ机器人sdk版本变更纪录以及兼容性适配
初次体验如果你第一次打开本文章,我想对你说的是,这文章可能只供参考因为有些设置又了很大的改动,以及方式也不一样了. 插件开发具体还请参考手机端编写LUA脚本插件https://www.jiansh ...
情迁qq机器人图文api调用
首先需要情迁QQ机器人2.0,老版本调用此方法无效果 q++需要的版本是1.2.0 这个例子表示每次初始化调用onCreate就会发送一个图片到情迁QQ机器人开发者群机器人qq不能随便填写,否则无 ...
情迁QQ机器人执行SQL以及变量技巧详解
触发命令配置SQL sql语句权限超级管理员其它人无权限执行此命令. 支持的变量执行sql得填写语句,支持变量如下:信息变量群号:$g QQ:$u 机器人自身QQ: $s QQ机器人自带数 ...
情迁QQ机器人已具备图片发送能力
如果要体验图片发送功能需要如下条件使用Q++插件1.0.2以及以上使用情迁QQ机器人1.7.0.2以及以上使用QQ....这个不好说.低版本应该也可以使用下载图片美女插件然后移动到存储目录 ...
情迁机器人Tim_情迁QQ机器人1.8.2更新说明
群昵称违规支持重复词检测为了实现检测重复必须把词组用()括起来举例比如这里应该输入的格式是情迁-深圳-红米Note4a-N 而用户输入了情迁-情迁-情迁-N 那么这种不按套路出牌的用户如何对付 ...
情迁机器人Tim_情迁QQ机器人1.8.0更新后的使用技巧(卡片消息福利)
1.增加卡片命令增加管理员命令配置卡片卡片消息xml 非管理员命令卡片这个命令可以进入群白名单管理里面勾选开启,否则非管理发送此命令不会有任何回复. 2.卡片消息参数支持传递变量 3.变量支 ...

情迁QQ机器人安装包开源

情迁QQ机器人安装包开源相关推荐

最新文章

热门文章