易语言写火星文转换器

.版本 2

.支持库 internet.子程序 __启动窗口_创建完毕

.局部变量 效果, 文本型, , "0"

.局部变量 i, 整数型效果 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\效果保存.ini”)), “|”, )

.计次循环首 (取数组成员数 (效果), i)

组合框1.加入项目 (效果 [i], )

.计次循环尾 ().子程序 _按钮1_被单击编辑框2.内容 ＝ 到文本 (HTTP读文件 (“ /qq2bt.php?mypinglv=1&chihui=0&changyong=0&seeout=3&ifwordsame=0&myword=” ＋ 编辑框1.内容)).子程序 _按钮2_被单击编辑框2.内容 ＝ 到文本 (HTTP读文件 (“ /bt2jt.php?mytype=1&myword=” ＋ 编辑框1.内容)).子程序 _按钮3_被单击编辑框2.内容 ＝ 到文本 (HTTP读文件 (“ /jt2ft.php?mytype=1&myword=” ＋ 编辑框1.内容)).子程序 _按钮4_被单击编辑框2.内容 ＝ 到文本 (HTTP读文件 (“ /jt2ft.php?mytype=3&myword=” ＋ 编辑框1.内容)).子程序 _按钮5_被单击.如果真 (单选框1.选中 ＝ 真)

编辑框2.内容 ＝ 到文本 (HTTP读文件 (“ /bt2bt.php?mytype=1&mymidu=” ＋ 编辑框3.内容 ＋ “&mybianhao=0&myword=” ＋ 编辑框1.内容))

.如果真结束

.如果真 (单选框2.选中 ＝ 真)

编辑框2.内容 ＝ 到文本 (HTTP读文件 (“ /bt2bt.php?mytype=2&mymidu=100&mybianhao=” ＋ 组合框1.取项目文本 (组合框1.现行选中项) ＋ “&myword=” ＋ 编辑框1.内容))

.如果真结束

.子程序 _编辑框3_内容被改变.如果真 (到整数 (编辑框3.内容) ＜ 0)

信息框 (“密度必须大于0”, 0, “提示”)

.如果真结束

.子程序 _按钮6_被单击.如果 (寻找文本 (编辑框4.内容, “效果”, , 假) ≠ -1)

组合框1.加入项目 (编辑框4.内容, )

写到文件 (取运行目录 () ＋ “\效果保存.ini”, 读入文件 (取运行目录 () ＋ “\效果保存.ini”) ＋ 到字节集 (编辑框4.内容 ＋ “|”))

.否则

信息框 (“请按照╰☆效果☆╮格式添加”, 0, “提示”)

.如果结束这玩意是以前写的，没想到还真有人会要源码下载地址： /?火星文转换.e_51bisl0e0eikksl0cl1btpmp0bslpp2bk5btpmpll7bu01z