装逼群名片生成

雨落无声

是这两天网上玩的比较火的撤回提示，不多做解释了！详见百度搜索：https://www.baidu.com/s?wd=%E6%92%A4%E5%9B%9E%E4%BA%86%E4%B8%80%E6%9D%A1%E6%B6%88%E6%81%AF%E5%B9%B6

有了这个可以直接生成各种装逼的名片格式~ 撤回消息或者签到可以见到效果！！


重要的事情说三遍：电脑QQ无效，请在手机QQ查看！电脑QQ无效，请在手机QQ查看！电脑QQ无效，请在手机QQ查看！



装逼群名片生成.rar (2.14 KB, 下载次数: 304)

2016-4-24 17:34 上传

点击文件名下载附件
下载积分: 精币 -2 枚

原理：利用Unicode的控制字符

启动从左到右的优先 (LRO)
当需要用于特殊情况（例如，用于部件编号）时，优先于双向字符类型。LRO 强制字符成为从左到右的字符。

启动从右到左的优先 (RLO)
当需要用于特殊情况（例如，用于部件编号）时，优先于双向字符类型。RLO 强制字符成为从右到左的字符。

  

窗口程序集名	保 留	保 留	备 注
程序集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, 整数型

得意须尽欢

我可以装逼去了！！

梦寐

十分感谢，

1563513655

回复看看         

s0101

支持开源~！感谢分享

江陵赋

谢谢楼主.谢谢楼主.谢谢楼主.谢谢楼主.

a17810673

感谢分享，下来看看！

兄弟和友情

感谢LZ分享 对我有用

w89588

下载看看..

d3w0rm

这个好，我要学习去装逼