之前有坚持过一段时间的写作，后面因备案和监管的原因全部删掉了，深刻体会过写作带来的好处，思维会更凝练、连续，说话都会刻意排除掉废话，信息传递的信噪比明显提升。
昨日看了最近在很多打工人中很火的电影《年会不要停》，又是一个标准的转移矛盾的爽剧。直戳打工人的爽点，巧妙隐藏被运作的真像。好似所有企业主都是无恶不赦的恶魔日夜剥削他人，最终结局一定“善有善报”。可惜地是，最讨厌老板的人内心其实最渴望当老板，屠龙少年终成恶龙在现有环境下几乎是个必然结果。这是什么造成的？是制度？文化？历史？人种？不得而知，其实是不敢知。
那么身为这个环境下成长的个体难道没有任何可以做的事情吗？难道只能
小舟从此逝，江海寄余生
不，我们并不应该彻底放弃，因为历史的发展、文明的进步从不以个体的意志为转移，黎明到来前的黑暗，也许短暂但绝不永恒。“星星之火，可以燎原”，润也许可以解决自身个体的燃眉之急，然并不是侠之大义，真正想为国为民一定有方法尽哪怕绵薄之力。
形而上
这里引用了 通过鲁迅，认识中国人 | Tangly Blog (tangly1024.com) 的片段：
1904年到1905年，日本和俄罗斯为争夺中国领土，曾在东北地区爆发了日俄战争。当时的日本军国主义盛行，为了激发国民对外侵略的积极性，会在众多公共区域布设宣传栏，播放一些关于日俄战争的幻灯片。
幻灯片有一个场景是日本军人抓到了一个中国居民，正在执行砍头的惩罚。鲁迅发现在场的日本同学叫好声不断，但反观中国同胞脸上却尽是一种麻木的表情。此事便成了他弃医从文的转折点。
后来鲁迅在作品中写道：
凡是娱乐的国民，即使体格上如何健全如何茁壮，也只能做毫无意义的示众的材料和坎坷，病死多少是不必以为不幸的。
所以我们的第一要著，是在改变他们的精神。
这句精神，此刻，是我存在30年来第一次睁大眼睛反复盯住的字符。
如果个体是一切社会关系的总和，那么从个体开始影响，社会反之也会受到影响。这个过程虽然漫长但却值得。
这个世界不缺清醒者，聪明的人太多，缺的是怀有信念在黑暗中勇敢前行的孤勇者。
如同任何需要时间磨炼重复度的项目一样，真正的秘诀是
锲而舍之朽木不折，锲而不舍金石可镂
任务计划程序
自从ChatGpt横空出世之后，我大量使用它编写python、VBA程序，搭配RPA，将公司大量重复劳动给替代掉，包括但不仅限于：
- 信息定时推送（每天）
- ERP销售额推送（每天）
- ERP库存推送（每周）
- 收支可视化信息推送（每周）
- 财务分发催款函（微信群发）
- 财务分发对账单（微信群发）
- 法务分发律师函（微信群发）
- 批量office文件处理
- 其他合同分发
用到的主要有：
- metabase/superset等BI
- ChatGPT
- VBA，直接用最简陋的编辑器…
- Python,Pycharm，VS
- Webhook 推送
- wcfhttp 微信推送 github开源项目
当下这个快速变化的时代，人终于可以腾出时间做更有意义的事情。在gpt的帮助下，几乎可以以“言出法随”的速度迅速完成一个个重复的工作流，如果你手上的牵线木偶又在控制下一层的牵线木偶，个体可以掌控的世界上的排列组合指数级增加，此之谓“权力”。
之前一直用的RPA的触发器（trigger）来执行任务，后来才知道windows有个功能叫“任务计划程序”，本身就是个trigger …
VBA Json 微信群发
这里展示一个具体案例，使用 wcfhttp 配合 vba 实现基本可以替代 wetool 的微信管理功能。
wcfhttp如何使用？部署
pip install --upgrade wcfhttp ||好像是这么写，具体忘了，可以去github上去查
在cmd 输入 wcfhttp 后， → http://localhost:9999/docs 查看不同功能的如何通过GET和POST不同的url实现比如 拉人、加人、群发信息、群发图片、群发文件、更新通讯录、统计群数据、管理通讯录好友 等各种功能，衍生功能需要自己写代码，我是直接使用excel自带的vba，用excel管理所有功能，方便实用。
VBA自身不具有发送JSON请求的能力，需要手动添加这个能力，文件如下，具体方法请自行寻找
我们以群发消息为例，每行我都添加了注释（不得不说，目前gpt4写的代码确实比其他ai写的代码要更优雅，我控制变量对比了很久，gpt4基本反馈一两次就可以顺畅运行，语义理解能力很强）
Sub 群发催款文字消息()
Dim ws As Worksheet '定义各种变量
Dim lastRow As Long, i As Long
Dim name As String, jine As String, daxieshuzi As String, wxid As String, msgString As String
Dim jsonBody As String
Dim httpReq As Object
Dim rowValid As Boolean
' 设置工作表
Set ws = ThisWorkbook.Sheets("催款")
lastRow = ws.Cells(ws.Rows.count, "H").End(xlUp).row '数一下A列有多少行
' 创建HTTP请求对象
Set httpReq = CreateObject("MSXML2.XMLHTTP")
' 从第二行开始遍历Sheet1
For i = 2 To lastRow
' 检查H列是否为空或有错误值
rowValid = Not IsEmpty(ws.Cells(i, 8).value) And Not IsError(ws.Cells(i, 8).value)
If rowValid Then
' 获取数据
name = ws.Cells(i, 1).value '给各种变量赋值
jine = ws.Cells(i, 2).value
daxieshuzi = ws.Cells(i, 3).Text
wxid = ws.Cells(i, 8).value
' 构建消息字符串
msgString = name & ", 您好，本月10号到期的货款请帮申请支付 " & jine & "（" & daxieshuzi & "），请于11号之前付款，感谢贵司的支持！"
' 构建JSON
jsonBody = "{""msg"": """ & msgString & """, ""receiver"": """ & wxid & """, ""aters"": """"}"
' 发送POST请求
With httpReq
.Open "POST", "http://192.168.20.150:9999/text", False '这是发送post请求的url
.setRequestHeader "Content-Type", "application/json"
.send jsonBody
' 将响应填入J列
If .Status = 200 Then '为了方便调试 找出问题，需要记录post响应状态
ws.Cells(i, 10).value = .responseText
Else
ws.Cells(i, 10).value = "失败: " & .Status & " - " & .statusText
End If
End With
End If
Call WaitOneSecond
Next i
' 清理
Set httpReq = Nothing
Set ws = Nothing
End Sub
Sub WaitOneSecond()
Application.Wait (Now + TimeValue("0:00:01")) '群发间隔1s，否则容易被封
End Sub
学习
活了三十年，最大的体悟就是学习一定要在实际（项目）中去学，生搬硬套死记硬背毫无意义。
想起学生时代那些“特立独行”的好奇心，我至今丝毫没有任何后悔。那几乎是现实世界对于幼小人类儿童最大的善意。所有背的东西现如今几乎遗忘殆尽，但理性、思辨、逻辑、质疑却完整的保留。
回顾这几年职业，那必须是“职业打杂”，几乎把好玩儿的事情都玩尽了却仍不满足，我只喜欢折腾那些难题，它们让我觉得我还活着，还“存在”。
回顾高中的轻狂，完全没有想改正的意思 😈
曾有一段时间失去方向，不知道这句躯体和头脑应该为什么而运转，世界充满谎言 腐败 贪婪 作妖，顿感这样的人类社会不值得我为之奋斗，他们不纯粹 太复杂，不追求纯粹理性的彼岸…
直到GPT的出现，直到最近出现的新目标（由于某些众所周知的原因不能说明）
让我有了新的锚点
让我看看
未来何时到来
