CF全屏准星

crossdiy · 发表于 2023-7-10 16:24:31

谢谢分享

chengwei5714869 · 发表于 2023-7-10 12:33:49

窗口程序集名	保留	保留	备注
窗口程序集_窗口2

子程序名	返回值类型	公开	备注
_窗口2_创建完毕

变量名	类型	静态	数组	备注
ws	整数型

底色＝ #品红
窗口2.左边＝ 0
窗口2.顶边＝ 0
窗口2.宽度＝取屏幕宽度 ()
窗口2.高度＝取屏幕高度 ()
透明标签1.可视＝假
标签1.可视＝假
标签2.可视＝假
透明标签1.顶边＝ (窗口2.高度－透明标签1.高度) ÷ 2
透明标签1.左边＝ (窗口2.宽度－透明标签1.宽度) ÷ 2
标签1.高度＝ 1
标签1.宽度＝取屏幕宽度 ()
标签1.顶边＝ (窗口2.高度－标签1.高度) ÷ 2
标签2.宽度＝ 1
标签2.高度＝取屏幕高度 ()
标签2.左边＝ (窗口2.宽度－标签2.宽度) ÷ 2
取进程ID (“crossfire.exe”)
进程取ID (“crossfire.exe”)
进程PID ＝取进程ID (“crossfire.exe”)
取句柄 (“crossfire.exe”)
监视热键 (&狙击准星, #Home键 )
监视热键 (&全屏准星, #Ins键 )
监视热键 (&关闭准心, #End键 )
监视热键 (&窗口2左, #左光标键 )
监视热键 (&窗口2上, #上光标键 )
监视热键 (&窗口2右, #右光标键 )
监视热键 (&窗口2下, #下光标键 )
监视热键 (&狙击准星大, #PageUp键 )
监视热键 (&狙击准星小, #PageDown键 )
监视热键 (&狙击准星样式, 107)
设置窗口 (取窗口句柄 (), -20, 位或 (取窗口风格 (取窗口句柄 (), -20), 524288))
设置透明 (取窗口句柄 (), #品红, 200, 1)
ws ＝ GetWindowLong (取窗口句柄 (), #GWL_EXSTYLE )
ws ＝位或 (ws, #WS_EX_TRANSPARENT )
ws ＝位或 (ws, #WS_EX_LAYERED )
SetWindowLong (取窗口句柄 (), #GWL_EXSTYLE, ws)

子程序名	返回值类型	公开	备注
狙击准星

透明标签1.可视＝真
标签1.可视＝假
标签2.可视＝假
透明标签1.标题＝准心样式
透明标签1.文本颜色＝颜色样式
透明标签1.字体.字体大小＝ 12

子程序名	返回值类型	公开	备注
全屏准星

标签1.可视＝真
标签2.可视＝真
透明标签1.可视＝假
标签1.背景颜色＝颜色样式
标签2.背景颜色＝颜色样式

子程序名	返回值类型	公开	备注
狙击准星大

透明标签1.字体.字体大小＝透明标签1.字体.字体大小＋ 1

子程序名	返回值类型	公开	备注
狙击准星小

透明标签1.字体.字体大小＝透明标签1.字体.字体大小－ 1

子程序名	返回值类型	公开	备注
狙击准星样式

数＝数＋ 1

如果真 (数＝ 1)

准心样式＝ “+”

如果真 (数＝ 2)

准心样式＝ “·”

如果真 (数＝ 3)

准心样式＝ “。”

如果真 (数＝ 4)

准心样式＝ “⊙”

如果真 (数＝ 5)

准心样式＝ “¤”

如果真 (数＝ 6)

准心样式＝ “-”

数＝ 0

狙击准星 ()

子程序名	返回值类型	公开	备注
关闭准心

如果真 (透明标签1.可视＝真)

透明标签1.可视＝假

如果真 (标签1.可视＝真)

标签1.可视＝假

如果真 (标签2.可视＝真)

标签2.可视＝假

子程序名	返回值类型	公开	备注
窗口2左

如果真 (标签2.可视＝真)

标签2.左边＝标签2.左边－ 1

如果真 (透明标签1.可视＝真)

透明标签1.左边＝透明标签1.左边－ 1

子程序名	返回值类型	公开	备注
窗口2上

如果真 (标签1.可视＝真)

标签1.顶边＝标签1.顶边－ 1

如果真 (透明标签1.可视＝真)

透明标签1.顶边＝透明标签1.顶边－ 1

子程序名	返回值类型	公开	备注
窗口2右

如果真 (标签2.可视＝真)

标签2.左边＝标签2.左边＋ 1

如果真 (透明标签1.可视＝真)

透明标签1.左边＝透明标签1.左边＋ 1

子程序名	返回值类型	公开	备注
窗口2下

如果真 (标签1.可视＝真)

标签1.顶边＝标签1.顶边＋ 1

如果真 (透明标签1.可视＝真)

透明标签1.顶边＝透明标签1.顶边＋ 1

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br />
.支持库 iext<br />
<br />
.程序集 窗口程序集_窗口2<br />
<br />
.子程序 _窗口2_创建完毕<br />
.局部变量 ws, 整数型<br />
<br />
<br />
底色 ＝ #品红<br />
窗口2.左边 ＝ 0<br />
窗口2.顶边 ＝ 0<br />
窗口2.宽度 ＝ 取屏幕宽度 ()<br />
窗口2.高度 ＝ 取屏幕高度 ()<br />
<br />
<br />
透明标签1.可视 ＝ 假<br />
标签1.可视 ＝ 假<br />
标签2.可视 ＝ 假<br />
<br />
透明标签1.顶边 ＝ (窗口2.高度 － 透明标签1.高度) ÷ 2<br />
透明标签1.左边 ＝ (窗口2.宽度 － 透明标签1.宽度) ÷ 2<br />
<br />
标签1.高度 ＝ 1<br />
标签1.宽度 ＝ 取屏幕宽度 ()<br />
标签1.顶边 ＝ (窗口2.高度 － 标签1.高度) ÷ 2<br />
<br />
标签2.宽度 ＝ 1<br />
标签2.高度 ＝ 取屏幕高度 ()<br />
标签2.左边 ＝ (窗口2.宽度 － 标签2.宽度) ÷ 2<br />
<br />
取进程ID (“crossfire.exe”)<br />
进程取ID (“crossfire.exe”)<br />
进程PID ＝ 取进程ID (“crossfire.exe”)<br />
取句柄 (“crossfire.exe”)<br />
<br />
监视热键 (&狙击准星, #Home键)<br />
监视热键 (&全屏准星, #Ins键)<br />
<br />
监视热键 (&关闭准心, #End键)<br />
<br />
监视热键 (&窗口2左, #左光标键)<br />
监视热键 (&窗口2上, #上光标键)<br />
监视热键 (&窗口2右, #右光标键)<br />
监视热键 (&窗口2下, #下光标键)<br />
<br />
监视热键 (&狙击准星大, #PageUp键)<br />
监视热键 (&狙击准星小, #PageDown键)<br />
监视热键 (&狙击准星样式, 107)<br />
<br />
设置窗口 (取窗口句柄 (), -20, 位或 (取窗口风格 (取窗口句柄 (), -20), 524288))<br />
设置透明 (取窗口句柄 (), #品红, 200, 1)<br />
ws ＝ GetWindowLong (取窗口句柄 (), #GWL_EXSTYLE)<br />
ws ＝ 位或 (ws, #WS_EX_TRANSPARENT)<br />
ws ＝ 位或 (ws, #WS_EX_LAYERED)<br />
SetWindowLong (取窗口句柄 (), #GWL_EXSTYLE, ws)<br />
<br />
<br />
.子程序 狙击准星<br />
<br />
透明标签1.可视 ＝ 真<br />
标签1.可视 ＝ 假<br />
标签2.可视 ＝ 假<br />
透明标签1.标题 ＝ 准心样式<br />
透明标签1.文本颜色 ＝ 颜色样式<br />
透明标签1.字体.字体大小 ＝ 12<br />
<br />
.子程序 全屏准星<br />
<br />
标签1.可视 ＝ 真<br />
标签2.可视 ＝ 真<br />
透明标签1.可视 ＝ 假<br />
标签1.背景颜色 ＝ 颜色样式<br />
标签2.背景颜色 ＝ 颜色样式<br />
<br />
.子程序 狙击准星大<br />
<br />
透明标签1.字体.字体大小 ＝ 透明标签1.字体.字体大小 ＋ 1<br />
<br />
.子程序 狙击准星小<br />
<br />
透明标签1.字体.字体大小 ＝ 透明标签1.字体.字体大小 － 1<br />
<br />
.子程序 狙击准星样式<br />
<br />
数 ＝ 数 ＋ 1<br />
.如果真 (数 ＝ 1)<br />
    准心样式 ＝ “+”<br />
.如果真结束<br />
.如果真 (数 ＝ 2)<br />
    准心样式 ＝ “·”<br />
.如果真结束<br />
.如果真 (数 ＝ 3)<br />
    准心样式 ＝ “。”<br />
.如果真结束<br />
.如果真 (数 ＝ 4)<br />
    准心样式 ＝ “⊙”<br />
.如果真结束<br />
.如果真 (数 ＝ 5)<br />
    准心样式 ＝ “¤”<br />
.如果真结束<br />
.如果真 (数 ＝ 6)<br />
    准心样式 ＝ “-”<br />
    数 ＝ 0<br />
.如果真结束<br />
<br />
狙击准星 ()<br />
<br />
<br />
.子程序 关闭准心<br />
<br />
.如果真 (透明标签1.可视 ＝ 真)<br />
    透明标签1.可视 ＝ 假<br />
.如果真结束<br />
.如果真 (标签1.可视 ＝ 真)<br />
    标签1.可视 ＝ 假<br />
.如果真结束<br />
.如果真 (标签2.可视 ＝ 真)<br />
    标签2.可视 ＝ 假<br />
.如果真结束<br />
<br />
<br />
.子程序 窗口2左<br />
<br />
.如果真 (标签2.可视 ＝ 真)<br />
    标签2.左边 ＝ 标签2.左边 － 1<br />
.如果真结束<br />
.如果真 (透明标签1.可视 ＝ 真)<br />
    透明标签1.左边 ＝ 透明标签1.左边 － 1<br />
.如果真结束<br />
<br />
<br />
.子程序 窗口2上<br />
<br />
.如果真 (标签1.可视 ＝ 真)<br />
    标签1.顶边 ＝ 标签1.顶边 － 1<br />
.如果真结束<br />
.如果真 (透明标签1.可视 ＝ 真)<br />
    透明标签1.顶边 ＝ 透明标签1.顶边 － 1<br />
.如果真结束<br />
<br />
<br />
.子程序 窗口2右<br />
<br />
.如果真 (标签2.可视 ＝ 真)<br />
    标签2.左边 ＝ 标签2.左边 ＋ 1<br />
.如果真结束<br />
.如果真 (透明标签1.可视 ＝ 真)<br />
    透明标签1.左边 ＝ 透明标签1.左边 ＋ 1<br />
.如果真结束<br />
<br />
<br />
.子程序 窗口2下<br />
<br />
.如果真 (标签1.可视 ＝ 真)<br />
    标签1.顶边 ＝ 标签1.顶边 ＋ 1<br />
.如果真结束<br />
.如果真 (透明标签1.可视 ＝ 真)<br />
    透明标签1.顶边 ＝ 透明标签1.顶边 ＋ 1<br />
.如果真结束

DLL命令名	返回值类型	公开	备注
设置透明	整数型
DLL库文件名:

在DLL库中对应命令名:
SetLayeredWindowAttributes
参数名	类型	传址	数组	备注
hwnd	整数型
crkey	整数型
alpha	字节型
dwflags	整数型

DLL命令名	返回值类型	公开	备注
取窗口风格	整数型
DLL库文件名:

在DLL库中对应命令名:
GetWindowLongA
参数名	类型	传址	数组	备注
hwnd	整数型
nindex	整数型

DLL命令名	返回值类型	公开	备注
设置窗口	整数型
DLL库文件名:

在DLL库中对应命令名:
SetWindowLongA
参数名	类型	传址	数组	备注
hwnd	整数型
nindex	整数型
dwnewlong	整数型

DLL命令名	返回值类型	公开	备注
GetWindowLong	整数型
DLL库文件名:
user32
在DLL库中对应命令名:
GetWindowLongA
参数名	类型	传址	数组	备注
hwnd	整数型
nIndex	整数型

DLL命令名	返回值类型	公开	备注
SetWindowLong	整数型
DLL库文件名:
user32
在DLL库中对应命令名:
SetWindowLongA
参数名	类型	传址	数组	备注
hwnd	整数型
nIndex	整数型
dwNewLong	整数型