文章
文章用户小块地帮助动态论坛导航

ahk与男人的痛点梦幻联动

大家都懂我指的是什么,其实是用来搞笑,当然你也可以像我一样正经使用,底层源码来自僵尸老哥的记事本工具,修改了之后变成jielu工具

首先会统计各项数据,存储在配置文件中,可以根据数据获得相应称号,有正向的也有反向的

左侧是日记功能,后续添加一些模板,记录一下jielu过程中的日记,然后每天根据有没有破戒点击相应的按钮即可

ahk与男人的痛点梦幻联动

#NoEnv                  ;~;不检查空变量为环境变量
#Persistent             ;~;让脚本持久运行
#WinActivateForce       ;~;强制激活窗口
#SingleInstance,Force   ;~;运行替换旧实例
ListLines,Off           ;~;不显示最近执行的脚本行
AutoTrim,On             ;~;自动去除变量中前导和尾随空格制表符
SendMode,Input          ;~;使用更速度和可靠方式发送键鼠点击
SetBatchLines,-1        ;~;脚本全速执行
SetWorkingDir,%A_ScriptDir%                  ;~;脚本当前工作目录
global INI
INI=%A_ScriptDir%\BlueHonour.ini
global BlueHonour_update_version:="0.0.1"        ;~;版本号
global BlueHonour_update_time:="2022.04.06"      ;~;更新日期

;配置文件不存在则初始化INI配置文件,防止错误删除ini文件
	IfNotExist,%INI%
	{
		FileAppend,
		(
		[启用日期]
		启用日期=%A_YYYY%年%A_MM%月%A_DD%日
		[使用天数]
		使用天数=0
		[贤者次数]
		贤者次数=0
		[连击次数]
		连击次数=0
		[Blue天数]
		Blue天数=0
		[Blue币]
		Blue币=0
		),%ini%
		
	}

for k,v in ["启用日期","使用天数","贤者次数","连击次数","Blue天数","Blue币"]
IniRead,%v%,%ini%,%v%,%v%

天数称号:=天数称号(使用天数)
天数称号(使用天数){
天数称号:=(使用天数<=1)?"Blue农民"
        :(使用天数<=30)?"Blue步兵"
        :(使用天数<=90)?"Blue骑兵"
        :(使用天数<=300)?"Blue老怪"
        :(使用天数<=600)?"Blue大仙"
        :"飞升"
Return 天数称号
}


贤者称号:=贤者称号(贤者次数)
贤者称号(贤者次数){
贤者称号:=(贤者次数<=1)?"小贤者"
        :(贤者次数<=30)?"中贤者"
        :(贤者次数<=90)?"大贤者"
        :(贤者次数<=300)?"魔王"
        :(贤者次数<=600)?"大魔王"
        :"无fuck可说"
Return 贤者称号
}

连击称号:=连击称号(连击次数)
连击称号(连击次数){
连击称号:=(连击次数<=1)?"一键三连"
        :(连击次数<=30)?"可以"
        :(连击次数<=90)?"厉害"
        :(连击次数<=300)?"真假的"
        :(连击次数<=600)?"禁欲"
        :"和尚"
Return 连击称号
}







BHMain:
Menu, Tray, NoStandard
Menu, Tray, DeleteAll
Menu, Tray, Add, Blue荣耀BlueHonour, ShowOrHide
Menu, Tray, Add, 重启, 重启
Menu, Tray, Add, 退出, 退出
Menu, Tray, Default, Blue荣耀BlueHonour
Menu, Tray, Tip, 男人的自我提升平台
Menu, Tray, Click, 2
Gui, +HwndBlueH  +LastFound
Gui, Font, s16
Gui, Add, Edit, h30 w480 Section vDaily,%A_YYYY%年%A_MM%月%A_DD%日戒撸日记
Gui, Add, text,h200 w280 xs+500 ys vBlue显示, 
GuiControl,,Blue显示,
(
启用日期: %启用日期%
使用天数: %使用天数%
贤者次数: %贤者次数%
连击次数: %连击次数%
Blue天数: %Blue天数%
Blue币: %Blue币%
天数称号: %天数称号%
连击称号: %连击称号%
贤者称号: %贤者称号%

)
Gui, Add, Button, h30 xs+500 ys+260 gBlue成功,Blue成功 
Gui, Add, Button, h30 xs+600 ys+260 gBlue失败,Blue失败 

; Gui, Add, Button, h30 xs+500 ys+160 g称号系统介绍,称号系统介绍 


; Gui, Add, Button, h30 xs+500 ys+160 gBlue商城, Blue商城

; Gui, Add, text,xs+500 ys+200 ,领养你的Blue兽 
; Gui, Add, Picture,h300 w300 xs+500 ys+230 ,Blue.jpeg
Gui, Add, Button, h30 xs ys+35 g新建, 添加
Gui, Add, Button, h30 x+5 g插入, 插入
Gui, Add, Button, h30 x+5 g删除, 删除
Gui, Add, Text, h30 x+5 yp+4, |
Gui, Add, Button, h30 x+5 yp-4 g向上, 向上
Gui, Add, Button, h30 x+5 g向下, 向下
Gui, Add, Edit, h30 w64 x+5
Gui, Add, UpDown, h30 x+5 v目标行号 Range1-300
Gui, Add, Button, h30 x+5 g移动, 移动
Gui, Add, ListView, R10 -Multi Grid Count10 -Hdr xs y+5 gLv_Mouse AltSubmit, 内容|扩展
Gui, Add, Edit, xs y+5 w480 h150 Disabled1 vShowNR
	LV_ModifyCol(1,420)
	LV_ModifyCol(2,50)
Loadind()
初始化热键()
gosub ShowOrHide
Return
重启:
Reload
Return
退出:
ExitApp
Return
GuiClose:
ShowOrHide:
Gui, show, , Blue荣耀`,戒撸神器`,男人的自我提升平台

Return
移动:
Gui, Submit, NoHide
HNumber := LV_GetNext()
If (HNumber != 0) {
	LV_GetText(danhang, HNumber,1)
	LV_GetText(danhang2, HNumber,2)
	LV_Delete(HNumber)
	LV_Insert(目标行号, "Focus Select",danhang, danhang2)
}
Settimer, 更新记录, -300
Return
向上:
HNumber := LV_GetNext()
If (HNumber > 1) {
	LV_GetText(danhang, HNumber,1)
	LV_GetText(danhang2, HNumber,2)
	LV_Insert(HNumber-1, "Focus Select",danhang, danhang2)
	LV_Delete(HNumber+1)
}
Settimer, 更新记录, -300
Return
向下:
HNumber := LV_GetNext()
If (HNumber < LV_GetCount() && HNumber > 0) {
	LV_GetText(danhang, HNumber,1)
	LV_GetText(danhang2, HNumber,2)
	LV_Insert(HNumber+2, "Focus Select",danhang, danhang2)
	LV_Delete(HNumber)
}
Settimer, 更新记录, -300
Return
插入:
Gui, Submit, NoHide
If(Daily) {
	HNumber := LV_GetNext()
	LV_Insert(HNumber := (HNumber = 0) ? 1 : HNumber, ,Daily)
	GuiControl, Text, Daily
	IniWrite, Blue感言=, % A_WorkingDir "\BlueNotes.ini", % Daily
}
Settimer, 更新记录, -300
Return
新建:
Gui, Submit, NoHide
If(Daily) {
	LV_Add(, Daily)
	GuiControl, Text, Daily
	IniWrite, Blue感言=, % A_WorkingDir "\BlueNotes.ini", % Daily
}
Settimer, 更新记录, -300
Return
删除:
HNumber := LV_GetNext()
LV_GetText(HText, HNumber)
If (HNumber != 0) {
	IniDelete, % A_WorkingDir "\BlueNotes.ini", % HText
	LV_Delete(HNumber)
}
Settimer, 更新记录, -300
Return
Lv_Mouse:
HNumber := LV_GetNext()
Switch A_GuiEvent
{
	Case "R":
		If (HNumber = 0)
			Return
		GuiControl, Enable, ShowNR
		LV_GetText(HText, HNumber)
		IniRead, ShowYl, % A_WorkingDir "\BlueNotes.ini", % HText, Blue感言
		If (ShowYl) {
			ShowYl := RegExReplace(ShowYl,"\\n","`n")
			GuiControl, Text, ShowNR, % ShowYl
		}
		Else {
			GuiControl, Text, ShowNR
		}
		OldHh := LV_GetNext()
		LV_GetText(OldText, OldHh)
	Case "RightClick":
		GuiControl, Text, ShowNR
	Case "Normal":
		If (OldHh) {
			Gui, Submit, NoHide
			ShowNR := RegExReplace(ShowNR,"[\n\r]+","\n")
			IniWrite, % ShowNR, % A_WorkingDir "\BlueNotes.ini", % OldText, Blue感言
			LV_Modify(OldHh, ,OldText, kv := (ShowNR) ? ">>>" : "")
		}
		GuiControl, Disabled, ShowNR
		Switch HNumber
		{
			Case 0:
				GuiControl, Text, ShowNR
			Default:
				LV_GetText(HText, HNumber)
				IniRead, ShowYl, % A_WorkingDir "\BlueNotes.ini", % HText, Blue感言
				If (ShowYl) {
					ShowYl := RegExReplace(ShowYl,"\\n","`n")
					GuiControl, Text, ShowNR, % ShowYl
				}
				Else
					GuiControl, Text, ShowNR
		}
		OldHh := "", OldText := ""
}
Return
初始化热键(){
	If (FileExist(A_WorkingDir "\Set.ini")){
		IniRead, GuiHotkey, % A_WorkingDir "\Set.ini", GuiHotkey, SHkey
		If (GuiHotkey)
			Hotkey, % GuiHotkey, ShowOrHide
	} Else {
		IniWrite, ^F12, % A_WorkingDir "\Set.ini", GuiHotkey, SHkey
		Hotkey, ^F12, ShowOrHide
	}
}
Return
Loadind(){
cl := []
IniRead, paixu, % A_WorkingDir "\Set.ini", paixu
cl := StrSplit(paixu,"`n")
	For k,v in cl
		TxtCl .= v ","
	If (paixu) {
		Loop, Parse, paixu, `n, `r
		{
			IniRead, jishi, % A_WorkingDir "\BlueNotes.ini", % A_LoopField, Blue感言
			If (jishi="ERROR") {
				IniWrite, Blue感言=, % A_WorkingDir "\BlueNotes.ini", % A_LoopField
				LV_Add(, A_LoopField)
			}
			Else
				LV_Add(, A_LoopField, kv := (jishi) ? ">>>" : "")
		}
	}
IniRead, paixu, % A_WorkingDir "\BlueNotes.ini"
	If (paixu) {
	; IniWrite, % paixu, % A_WorkingDir "\Set.ini", paixu
		Loop, Parse, paixu, `n, `r
		{
			If A_LoopField in %TxtCl%
				continue
			IniRead, jishi, % A_WorkingDir "\BlueNotes.ini", % A_LoopField, Blue感言
			If (jishi="ERROR") {
				IniWrite, Blue感言=, % A_WorkingDir "\BlueNotes.ini", % A_LoopField
				LV_Add(, A_LoopField)
			}
			Else
				LV_Add(, A_LoopField, kv := (jishi) ? ">>>" : "")
		}
	}
Settimer, 更新记录, -300
}
Return
更新记录:
Loop % LV_GetCount()
{
	LV_GetText(danhang, A_Index)
	If (A_Index = 1)
		paixu := danhang
	Else
		paixu .= "`n" danhang
}
IniDelete, % A_WorkingDir "\Set.ini", paixu
IniWrite, % paixu, % A_WorkingDir "\Set.ini", paixu
Return



称号系统介绍:
MsgBox,根据各项参数获得
Return



Blue失败:
连击次数:=0
使用天数+=1
贤者次数+=1
IniWrite,%连击次数%,%ini%,连击次数,连击次数
IniWrite,%使用天数%,%ini%,使用天数,使用天数
IniWrite,%贤者次数%,%ini%,贤者次数,贤者次数
MsgBox,贤者你好,贤者再见
ExitApp


Blue成功:
连击次数+=1
使用天数+=1
Blue天数+=1
Blue币+=10
IniWrite,%连击次数%,%ini%,连击次数,连击次数
IniWrite,%使用天数%,%ini%,使用天数,使用天数
IniWrite,%Blue天数%,%ini%,Blue天数,Blue天数
IniWrite,%Blue币%,%ini%,Blue币,Blue币
MsgBox,恭喜举例Blue买房更进一步
ExitApp

给TA捐赠
共{{data.count}}人
人已捐赠
其他

对于锁定视野的游戏中需要移动鼠标使用什么函数？

2022-4-6 19:13:54

其他

个人文件管理 2022年4月7日

2022-4-7 13:48:40

5 条回复 A文章作者 M管理员
  1. hexuren

    生活中总是少不了奇思妙想

  2. random

    建议做一个平台，互相提升

    • 而今迈步从头越

      确实这么想的哈哈哈,还准备做个rpg了,每天达成目标升级,在弄个排名?

  3. 蝉

    少一点手艺活，生活多一点精彩 ?

❯

解锁会员权限

开通会员

解锁海量优质VIP资源

立刻开通
个人中心
购物车
优惠劵
有新私信 私信列表
搜索
客服

  • 扫码打开当前页

返回顶部