@OrionRies 早点支持自定义 AI 吧，要不模仿一个插件给自己用顺便发布出去也很有可能

@loreando 鬼神还流传千年呢，咋不去喝符水？
就是个奥卡姆剃刀，你非原因相信那就信把，S B 也流传了万年,还是希望科学能够普及
https://imgur.com/a/Y3cLrFA

这体积，让了

孩子的父亲这么软弱恐怕不行啊

没有安卓版吗？

让 ai 写不就完了？

写的不错，LZ 的状态已经比我好很多了。希望今年都有更大的提升

玩手机把，没风险

随便找个付费就能一起玩的东西，比如桌游什么的，或者报个线下的英语班之类的
切记别提自己职业和收入，直接编个正常工作即可

在 Windows 的 VBS 脚本中，可以使用以下方法将一个命令的返回值作为另一个命令的参数：

方法一：使用 WshShell 对象

WshShell 对象是 VBS 脚本中用于执行命令的工具。可以使用 Run 方法执行命令，并使用 StdOut 属性获取命令的返回值。例如，以下脚本将使用 ipconfig 命令获取 IP 地址，并将 IP 地址作为 echo 命令的参数：

VBScript
Set objShell = CreateObject("WScript.Shell")

' 执行 ipconfig 命令
Set objExec = objShell.Run("ipconfig", 0, True)

' 获取 IP 地址
strIP = objExec.StdOut.ReadLine

' 显示 IP 地址
WScript.Echo strIP
请谨慎使用代码。
方法二：使用 StdOut 对象

StdOut 对象是 VBS 脚本中用于获取命令输出的工具。可以使用 CreateObject 函数创建 StdOut 对象，并使用 ReadLine 方法获取命令的返回值。例如，以下脚本将使用 ipconfig 命令获取 IP 地址，并将 IP 地址作为 echo 命令的参数：

VBScript
Set objStdOut = CreateObject("StdOut")

' 执行 ipconfig 命令
objStdOut.Exec "ipconfig"

' 获取 IP 地址
strIP = objStdOut.ReadLine

' 显示 IP 地址
WScript.Echo strIP
请谨慎使用代码。
方法三：使用 RegEx 对象

RegEx 对象是 VBS 脚本中用于匹配正则表达式的工具。可以使用 Exec 方法执行命令，并使用 Match 方法匹配命令的输出。例如，以下脚本将使用 ipconfig 命令获取 IP 地址，并将 IP 地址作为 echo 命令的参数：

VBScript
Set objRegEx = CreateObject("RegEx")

' 执行 ipconfig 命令
objRegEx.Exec "ipconfig"

' 匹配 IP 地址
Set objMatch = objRegEx.Match("IPv4 Address\s*:\s*(\d+\.\d+\.\d+\.\d+)", 1)

' 获取 IP 地址
strIP = objMatch.SubMatches(0)

' 显示 IP 地址
WScript.Echo strIP
请谨慎使用代码。
注意：

在使用 WshShell 对象时，需要确保 Run 方法的返回值为 0 ，表示命令执行成功。
在使用 StdOut 对象时，需要确保 Exec 方法的返回值为 True ，表示命令执行成功。
在使用 RegEx 对象时，需要确保 Match 方法的返回值为 True ，表示匹配成功。
以下是一些具体的示例：

示例一：使用 WshShell 对象获取 IP 地址并显示

VBScript
Set objShell = CreateObject("WScript.Shell")

' 执行 ipconfig 命令
Set objExec = objShell.Run("ipconfig", 0, True)

' 获取 IP 地址
strIP = objExec.StdOut.ReadLine

' 显示 IP 地址
WScript.Echo strIP
请谨慎使用代码。
示例二：使用 StdOut 对象获取 IP 地址并显示

VBScript
Set objStdOut = CreateObject("StdOut")

' 执行 ipconfig 命令
objStdOut.Exec "ipconfig"

' 获取 IP 地址
strIP = objStdOut.ReadLine

' 显示 IP 地址
WScript.Echo strIP
请谨慎使用代码。
示例三：使用 RegEx 对象获取 IP 地址并显示

VBScript
Set objRegEx = CreateObject("RegEx")

' 执行 ipconfig 命令
objRegEx.Exec "ipconfig"

' 匹配 IP 地址
Set objMatch = objRegEx.Match("IPv4 Address\s*:\s*(\d+\.\d+\.\d+\.\d+)", 1)

' 获取 IP 地址
strIP = objMatch.SubMatches(0)

' 显示 IP 地址
WScript.Echo strIP

@julyclyde #45

# 中国
中国银保监会发布的《 2022 年保险业统计年鉴》：


险种 保费收入 (亿元) 理赔支出 (亿元) 理赔支出比例
人身险 34,000 22,000 64.7%
寿险 25,000 17,000 68.0%
健康险 8,000 4,000 50.0%
意外伤害险 1,000 1,000 100.0%
财产险 13,000 2,000 15.4%
车险 8,000 1,200 15.0%
非车险 5,000 800 16.0%

2022 年，中国保险行业原保险保费收入 4.7 万亿元，其中人身险保费收入 3.4 万亿元，财产险保费收入 1.3 万亿元。
2022 年，中国保险行业原保险赔款与给付支出 2.4 万亿元，其中人身险赔款与给付支出 2.2 万亿元，财产险赔款与给付支出 2000 亿元。
2022 年，中国保险行业整体理赔支出比例为 51.3%，其中人身险理赔支出比例为 64.7%，财产险理赔支出比例为 15.4%。



# 美国
美国寿险协会 (American Council of Life Insurers) 发布的《 2022 年寿险行业概况》。
美国国家保险统计委员会 (National Association of Insurance Commissioners) 发布的《 2022 年财产和意外伤害保险年鉴》。
险种 保费收入 (亿美元) 理赔支出 (亿美元) 理赔支出比例
寿险 2,300 1,700 74.3%
健康险 1,200 1,000 83.3%
财产险 2,200 1,800 81.8%
意外伤害险 1,500 700 46.7%

中国的保险都不带买

可惜连一个发红包的人都找不到

都用安卓了，干嘛不用去广告的 APP 呢？