装逼群名片生成 - 精易论坛

窗口程序集名	保留	保留	备注
程序集1

子程序名	返回值类型	公开	备注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类型	静态	数组	备注
name	文本型
text	文本型
code	字节集
wStr	整数型
lpMem	整数型

如果真 (输入框 (“请输入欲显示的群名片”, “输入框”, “雨落”, name, #输入文本 ))

如果真 (输入框 (“请输入欲显示的动作话，提示：语句过长会影响正常显示”, “输入框”, “并吻了你一下”, text, #输入文本 ))

text ＝字符串翻转 (text)

code ＝ A2W (name) ＋ { 46, 32 } ＋ A2W (text) ＋ { 45, 32 }

wStr ＝ GlobalAlloc (位或 ( #GMEM_MOVEABLE, #GMEM_ZEROINIT ), 取字节集长度 (code) ＋ 2)

如果真 (wStr ≠ 0)

lpMem ＝ GlobalLock (wStr)

如果真 (lpMem ≠ 0)

写到内存 (code ＋ { 0, 0 }, lpMem, )

GlobalUnlock (wStr)

如果真 (OpenClipboard (0))

如果真 (EmptyClipboard ())

SetClipboardData ( #CF_UNICODETEXT, wStr)

信息框 (“生成并复制成功，去群名片粘贴即可！”, 0, )

CloseClipboard ()

返回 (0) ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备注
A2W	字节集
参数名	类型	参考	可空	数组	备注
Ansi文本	文本型

变量名	类型	静态	数组	备注
len	整数型			单位: Word
Unicode字节集	字节集

len ＝ MultiByteToWideChar (936, 0, Ansi文本, -1, { }, 0)
Unicode字节集＝取空白字节集 (len × 2 － 2) ' -2直接舍去｛0，0｝
MultiByteToWideChar (936, 0, Ansi文本, -1, Unicode字节集, len × 2 － 2)
返回 (Unicode字节集)

子程序名	返回值类型	公开	备注
字符串翻转	文本型
参数名	类型	参考	可空	数组	备注
Str	文本型

变量名	类型	静态	数组	备注
Js	对象

Js.创建 (“ScriptControl”, )
Js.写属性 (“Language”, “JScript”)
Js.数值方法 (“ExecuteStatement”, “var str=” ＋ #引号＋ Str ＋ #引号＋ “; var arr=str.split('');str=arr.reverse().join('');”)
返回 (Js.文本方法 (“Eval”, “str”))

DLL命令名	返回值类型	公开	备注
MultiByteToWideChar	整数型
DLL库文件名:

在DLL库中对应命令名:
MultiByteToWideChar
参数名	类型	传址	数组	备注
CodePage	整数型
dwFlags	整数型
lpMultiByteStr	文本型
cchMultiByte	整数型
lpWideCharStr	字节集
cchWideChar	整数型

DLL命令名	返回值类型	公开	备注
GlobalAlloc	整数型		在堆中分配内存
DLL库文件名:
kernel32
在DLL库中对应命令名:
GlobalAlloc
参数名	类型	传址	数组	备注
wFlags	整数型
dwBytes	整数型

DLL命令名	返回值类型	公开	备注
GlobalLock	整数型		锁定内存对象并返回一个指针
DLL库文件名:
kernel32
在DLL库中对应命令名:
GlobalLock
参数名	类型	传址	数组	备注
hMem	整数型

DLL命令名	返回值类型	公开	备注
OpenClipboard	逻辑型		打开CLIPBOARD
DLL库文件名:
user32
在DLL库中对应命令名:
OpenClipboard
参数名	类型	传址	数组	备注
hwnd	整数型

DLL命令名	返回值类型	公开	备注
EmptyClipboard	逻辑型		清空剪贴板并释放数据句柄
DLL库文件名:
user32
在DLL库中对应命令名:
EmptyClipboard
参数名	类型	传址	数组	备注

DLL命令名	返回值类型	公开	备注
SetClipboardData	整数型		设置剪贴板中数据
DLL库文件名:
user32
在DLL库中对应命令名:
SetClipboardData
参数名	类型	传址	数组	备注
wFormat	整数型
hMem	整数型

DLL命令名	返回值类型	公开	备注
CloseClipboard	整数型		关闭剪贴板
DLL库文件名:
user32
在DLL库中对应命令名:
CloseClipboard
参数名	类型	传址	数组	备注

DLL命令名	返回值类型	公开	备注
GlobalUnlock	整数型		开锁全局内存块
DLL库文件名:
kernel32
在DLL库中对应命令名:
GlobalUnlock
参数名	类型	传址	数组	备注
hMem	整数型

.版本 2<br />
<br />
.程序集 程序集1<br />
<br />
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br />
.局部变量 name, 文本型<br />
.局部变量 text, 文本型<br />
.局部变量 code, 字节集<br />
.局部变量 wStr, 整数型<br />
.局部变量 lpMem, 整数型<br />
<br />
.如果真 (输入框 (“请输入欲显示的群名片”, “输入框”, “雨落”, name, #输入文本))<br />
    .如果真 (输入框 (“请输入欲显示的动作话，提示：语句过长会影响正常显示”, “输入框”, “并吻了你一下”, text, #输入文本))<br />
        text ＝ 字符串翻转 (text)<br />
        code ＝ A2W (name) ＋ { 46, 32 } ＋ A2W (text) ＋ { 45, 32 }<br />
        wStr ＝ GlobalAlloc (位或 (#GMEM_MOVEABLE, #GMEM_ZEROINIT), 取字节集长度 (code) ＋ 2)<br />
        .如果真 (wStr ≠ 0)<br />
            lpMem ＝ GlobalLock (wStr)<br />
            .如果真 (lpMem ≠ 0)<br />
                写到内存 (code ＋ { 0, 0 }, lpMem, )<br />
                GlobalUnlock (wStr)<br />
                .如果真 (OpenClipboard (0))<br />
                    .如果真 (EmptyClipboard ())<br />
                        SetClipboardData (#CF_UNICODETEXT, wStr)<br />
                        信息框 (“生成并复制成功，去群名片粘贴即可！”, 0, )<br />
                    .如果真结束<br />
                    CloseClipboard ()<br />
<br />
                .如果真结束<br />
<br />
            .如果真结束<br />
<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
<br />
.如果真结束<br />
<br />
返回 (0)  ' 可以根据您的需要返回任意数值<br />
<br />
.子程序 A2W, 字节集, 公开<br />
.参数 Ansi文本, 文本型<br />
.局部变量 len, 整数型, , , 单位: Word<br />
.局部变量 Unicode字节集, 字节集<br />
<br />
len ＝ MultiByteToWideChar (936, 0, Ansi文本, -1, {  }, 0)<br />
Unicode字节集 ＝ 取空白字节集 (len × 2 － 2)  ' -2直接舍去｛0，0｝<br />
MultiByteToWideChar (936, 0, Ansi文本, -1, Unicode字节集, len × 2 － 2)<br />
<br />
返回 (Unicode字节集)<br />
<br />
.子程序 字符串翻转, 文本型<br />
.参数 Str, 文本型<br />
.局部变量 Js, 对象<br />
<br />
Js.创建 (“ScriptControl”, )<br />
Js.写属性 (“Language”, “JScript”)<br />
Js.数值方法 (“ExecuteStatement”, “var str=” ＋ #引号 ＋ Str ＋ #引号 ＋ “; var arr=str.split('');str=arr.reverse().join('');”)<br />
返回 (Js.文本方法 (“Eval”, “str”))<br />
<br />
.版本 2<br />
<br />
.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar"<br />
    .参数 CodePage, 整数型<br />
    .参数 dwFlags, 整数型<br />
    .参数 lpMultiByteStr, 文本型<br />
    .参数 cchMultiByte, 整数型<br />
    .参数 lpWideCharStr, 字节集<br />
    .参数 cchWideChar, 整数型<br />
<br />
.DLL命令 GlobalAlloc, 整数型, "kernel32", "GlobalAlloc", , 在堆中分配内存<br />
    .参数 wFlags, 整数型<br />
    .参数 dwBytes, 整数型<br />
<br />
.DLL命令 GlobalLock, 整数型, "kernel32", "GlobalLock", , 锁定内存对象并返回一个指针<br />
    .参数 hMem, 整数型<br />
<br />
.DLL命令 OpenClipboard, 逻辑型, "user32", "OpenClipboard", , 打开CLIPBOARD<br />
    .参数 hwnd, 整数型<br />
<br />
.DLL命令 EmptyClipboard, 逻辑型, "user32", "EmptyClipboard", , 清空剪贴板并释放数据句柄<br />
<br />
.DLL命令 SetClipboardData, 整数型, "user32", "SetClipboardData", , 设置剪贴板中数据<br />
    .参数 wFormat, 整数型<br />
    .参数 hMem, 整数型<br />
<br />
.DLL命令 CloseClipboard, 整数型, "user32", "CloseClipboard", , 关闭剪贴板<br />
<br />
.DLL命令 GlobalUnlock, 整数型, "kernel32", "GlobalUnlock", , 开锁全局内存块<br />
    .参数 hMem, 整数型