MCBBS小工具 0.3.5 —— 一些可能用得到的小功能 - 软件资源

Salt_lovely

本帖最后由 Salt_lovely 于 2020-4-30 21:11 编辑

正在凝视着你

当你凝视

的时候，

也在凝视着你。

本软件经过

保护协会认可，适合热衷灌水的用户使用。在使用本软件前，请您：
· 务必遵守论坛规章制度。
· 尊重包括版主在内的所有论坛成员。
我就不信了怎么着，有本事现在出来个yys把我纟

——以上标签引用自MCBBS Wiki，公益性、非官方的MCBBS百科

兼容性问题

在使用之前，请您注意本软件的兼容性问题，本软件不适合在以下操作系统上运行：

WindowsXP SP2以前的版本
Windows7 家庭版
Windows8&8.1 家庭版
任何非Windows操作系统

推荐的操作系统：

Windows10 家庭版&专业版&企业版

任何注明了不适合的操作系统版本均有可能影响软件的正常使用乃至无法启动。

常见问题是50003（缺少必要的库）

复制粘贴的时候请切换为中文输入法以确保不会出现乱码（使用软件自带的复制功能无需担心乱码问题）。

安全问题

截至0.3.5版本，我尚未添加任何写入文件、读写注册表的代码，如果您发现本软件有此类行为，请务必全盘杀毒。
查毒报告：0.3.5版本压缩包

水贴生成器

水贴生成器是一个快速生成抢锭/迎新/水回复可见的回复的工具。

内容可以在BBST文件夹内的回复.txt、金锭.txt、迎新.txt三个文件里修改

致富卡模拟器

~~智负卡~~致富卡模拟器是一个安全简单方便快捷的致富卡模拟器

最大的特点是准确~~（不信的话你去买9999个致富卡试试）~~

两个文案查询器

索引式文案查询（见折叠内容）

匹配式文案查询（见折叠内容）

我为什么要写这两个奇怪的功能呢？
详见：在我短暂的问答版生涯中，我认识到了一个道理
我自己写了一些预制文案，用于和问答版的怪物们抢爱心（别想了，我不会发的）

敏感词检查

这个功能主要依靠读取 BBST\敏感词.txt 中记录的敏感词

后记

这个软件代码不是很多，断断续续写了两个月（第一个在群里放出的版本是水贴生成器+智负卡模拟器，大概是三月初），总计只有几千行的样子（一半是重复代码，用于各个窗口的UI、控件管理；另一半是自定义函数而不是VB控件的事件过程，因为要模块化处理，不然我的脑袋转不过来）——很多是我以前无聊的时候写的轮子，直接复制过来然后删掉冗余代码就能用的那种（不过按我的懒散的习惯，我一般是不会删冗余代码的，这也导致了这个程序大得离奇的重要原因之一——另一个重要原因是我添加了一些图片）。
最开始写这个东西是我看到茶馆钓鱼事件、太多人乱码恰锭、许多人拿新人帖完成每日任务之后，有感而发写的；后来在群里搞到了一份致富卡模拟器，但是运行效率有些问题，跑100w张卡需要卡好一会，所以又写了个致富卡模拟器，一开始效率也很低，后来改进了，现在可以在保持响应的情况下几秒内运算到获得21亿金粒（32位程序的限制）；后来我把两个程序合并到一起，发到群里。再后来我被问答版的收割机刺激到了，开发了文案查询器（索引式）；为了快捷分析报错文件，又写了个文案查询器的另一个版本（匹配式）；再后来我注意到敏感词问题（地名都成了屏蔽词我实在难以接受...），又开发了敏感词检查功能（今天上午摸鱼开发的，所以BUG估计很多）。
我没有开源的习惯（懒），如果你对我的某个模块感兴趣（我觉得没人会对我的程序感兴趣），你可以私信我。
昨天没睡好觉，头疼，大家早点睡啊（困）。

本软件所有代码，除自定义用户控件是与一名同学共同开发的，UTF-8转ANSI模块、无乱码复制粘贴模块改动自未知来源的轮子以外，其余所有代码均为自己一人编写（借用一位大佬的话：有什么问题冲我来！）

两个借用的模块开源（我自己改动过）：

Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Declare Function SetClipboardData Lib "user32" (ByVal Format As Long, ByVal hMem As Long) As Long
Declare Function CloseClipboard Lib "user32" () As Long
Declare Function EmptyClipboard Lib "user32" () As Long
Declare Function GlobalAlloc Lib "kernel32" (ByVal Flags As Long, ByVal length As Long) As Long
Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Sub RtlMoveMemory Lib "kernel32" (ByVal pDest As Long, ByVal pSource As Long, ByVal length As Long)
Const CF_UNICODETEXT = &HD&
Const GMEM_MOVEABLE = &O2&
Const GMEM_ZEROINIT = &O40&
'将字符串送进剪贴板，不乱码的那种
Function ClipboardSetText(ByVal hwnd As Long, ByVal StringToCopy As String) As Boolean
Dim hMem As Long, pMem As Long
Call OpenClipboard(hwnd)
Call EmptyClipboard
StringToCopy = StringToCopy & " " '别问这句是什么，问就是不加就要出问题
hMem = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, LenB(StringToCopy))
pMem = GlobalLock(hMem)
Call RtlMoveMemory(pMem, StrPtr(StringToCopy), LenB(StringToCopy))
Call GlobalUnlock(hMem)
Call SetClipboardData(CF_UNICODETEXT, hMem)
Call CloseClipboard
End Function

复制代码

Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Const CP_UTF8 = 65001
'将UTF-8文件内容转换为ANSI编码的字符串
Public Function UTF8_Decode(Filename As String) As String
Dim sUTF8 As String
Dim lngUtf8Size As Long
Dim strBuffer As String
Dim lngBufferSize As Long
Dim lngResult As Long
Dim bytUtf8() As Byte
Dim n As Long
sUTF8 = GetFileByPath(Filename) '二进制读文件，分出去一个单独的函数是为了模块化，这部分代码太简单就不放了
If LenB(sUTF8) = 0 Then Exit Function
On Error GoTo EndFunction
bytUtf8 = sUTF8
lngUtf8Size = UBound(bytUtf8) + 1
lngBufferSize = lngUtf8Size * 2
strBuffer = String$(lngBufferSize, vbNullChar)
lngResult = MultiByteToWideChar(CP_UTF8, 0, bytUtf8(0), _
lngUtf8Size, StrPtr(strBuffer), lngBufferSize)
If lngResult Then
UTF8_Decode = Left(strBuffer, lngResult)
End If
EndFunction:
End Function

复制代码

如果你看到了这一行字，那么只有两种可能：盐酱还没写好，但是手贱点击了发表帖子；盐酱忘记删除这一行了
链接: https://pan.baidu.com/s/1vtmFNIjiLsO7vfQ_zoBm3A 提取码: mi7m

注：配色直接用论坛的颜色；文案查询功能与minecraft有关（你可以存放游戏备忘录）；所有功能都与MCBBS有关（啥？你说智负卡功能和论坛无关？）

呆瓜Domado

前排支持！

bruce_back

哇感谢致富了

Dermot_Xie

感谢这个模拟器，不知救回了多少因沉迷于致富卡而倾家荡产的坛友

好奇致富卡的随机数代码

Salt_lovely

Dermot_Xie 发表于 2020-5-13 18:05
感谢这个模拟器，不知救回了多少因沉迷于致富卡而倾家荡产的坛友

好奇致富卡的随机数代码

就是标准的浮点伪随机数，用乘法和加法拓展为1-750之间的伪随机数，为了保证娱乐效果，开始之前会先用系统时间替换随机数种子

小林~

本帖最后由小林最牛于 2020-6-15 18:19 编辑

水贴助手吗（雾）

觉得自己水才是最好的

pzwpzw3

啊这，水贴小助手

KNEMC

开源吗？什么语言写的？

理想是咸鱼鸭

很不错的插件，谢谢楼主

raku_

完成任务

小帅120

妈妈再也不怕我不会水贴了

奥嗷奥

找一个会开服的人我啥也不会只有钱

miunin

恰锭！快乐！溜了溜了

jiaoMM

啊这，水贴小助手

yangxuzheng

厉害了下载下来玩玩看

ahui666

感谢分享

wzw226

水贴小助手

hjw123321

感谢这个模拟器，不知救回了多少因沉迷于致富卡而倾家荡产的坛友

cqi

软件代码有点长搞得不咋地啊用着复杂

fifthreader

mcbbs的生产工具，爱了