关闭

帖子主题:[原创]国货汉语编程/win32forth文件构成及作用

共 1456 个阅读者 

  • 头像
  • 军衔:陆军中士
  • 军号:1566832
  • 工分:1570
  • 本区职务:会员
左箭头-小图标

[原创]国货汉语编程/win32forth文件构成及作用

本来偶是来打酱油的旁观者汉语编程与本人无干,无奈汉语编程人(尤其是化身大侠、高手及初学者的汉编从业者)的种种表现实在是差强人意,除了满天飞的假大空宣传之外,涉及技术成分的文章几乎等于没有,即便间或有零星的直言片语,更是漏洞百出,还不如没有,这样的国货是否值得去推崇,令人生疑。何况其号称的"该计算机语言绝非曾流行过的任何一种计算机语言的简单汉化",实际上应该包含两种截然不同的含义:一是自主版权,绝非汉化;二是不是简单汉化。这样的话,即便是骗局被揭露,汉编仍然可以说,汉语编程不是简单汉化,是深层汉化。

言归正传,下面就来说说汉语编程/win32forth的文件构成。

除了程序文本编辑器,汉语编程/win32forth都有以下几个文件组成:

①win32chp.exe / win32for.exe

标准windows PE应用程序,使用C++由forth.c 和 Term.c编译而成,用以加载汉语编程/win32forth编译器窗口,并为其提供72个基础调用,包括键盘操作,内存操作,文件读写以及最重要的windows函数调用等等。这些调用,如果用汉语编程/win32forth实现起来可能比较困难或效率低下,因此没有从 win32chp.exe / win32for.exe分离出来。

②win32chp.dll /win32for.img

汉编/forth 运行代码。由汉编/forth使用转编译生成,与相应exe文件共同组成汉编/forth两个系统核心文件,二者之间存在互相对应关系,exe文件能够识别这种对应关系,否则会显示"无效的汉语编程辞典""无效的映像文件(这应该最初翻译时,把img当成image翻译成了映像)"。

③ckernel.ovl / fkernel.exe

win32chp.exe / win32for.exe 的变体,只是改了个文件名而已。作用是在生成应该程序时,直接拷贝为应用程序的exe文件。

④wincon.dll

一个windows常量库文件。wincon.c通过C++将

<windows.h>

<commctrl.h>

<stdio.h>

中列举的所有常量编译成动态连接库,常量名在该库中经过hash处理,无法直接看到。其中包含两个函数:

FindWin32Constant 通过常量字符串,查找对应常量值并返回。

EnumWin32Constants 列举wincon.dll中所有常量。

需要补充说明的是,在汉编/forth的应用程序中,可能不存在与应用程序同名的dll/img,这是因为汉语编程/win32forth在一定条件下,可将dll/img内容作为一种资源(资源编号"#1234",资源类型"EXDIC",代码页0x804/forth为0x409),直接写入到exe文件中。在v2.03.1920版本下编译的应用程序.exe,dll文件全部内容开始于0xb338。

以上只是本人的粗略理解,水平有限难免有误,请高手指点。

本文在发布一周后,再转载到本人其它博客。需要转载请注明出处,补充修改时,请保留本文原意。

本文内容为我个人原创作品,申请原创加分

转载请注明出自铁血tiexue.net, 本贴地址: http://bbs.tiexue.net/post_2959874_1.html
      打赏
      收藏文本
      2
      只要精通Forth,汉语编程你也能做。
      2008/8/4 15:13:38

      网友回复

      • 头像
      • 军衔:陆军列兵
      • 军号:1257572
      • 工分:89
      • 本区职务:会员
      左箭头-小图标

      老万把您伟大的新作"密信收发"发个下载地址给我等瞻仰一二,但是别象您的网站hybcw一样还挂个木马。

      另外说一下,在我突破重重木马后,终于看到了您伟大的公司的新作"XX资产综合管理系统",

      我一向都知道您技术“先进”,这个新作号称“兼容Windows、Linux、UINX操作系统。支持MYSQL、SQL SERVER 2000、ORACLE 9i数据库。”

      但下面的给出的运行环境让我甚是不解,

      1)服务器:

      操作系统:Microsoft Windows XP/2000/2003(简体中文)

      Java虚拟机:JDK1.5以上。

      数据库:采用Microsoft SQL Server 2000(支持MYSQL 5.0、ORACLE9i数据库)。

      WEB服务器:Tomcat5.0以上。

      2)客户机:

      操作系统:Microsoft Windows XP/2000/2003(简体中文)

      网页浏览器:IE6.0以上。

      Microsoft Excel 2000电子表格软件。

      俺去年就知道,您很早就可以和微软说不了,也知道您的汉编开发了500多款软件且在业内是首屈一指的,

      象JDK,Tomcat,IE,Excel之类的东西想必您的公司早就开发出来了吧?

      既然去年就可以和“微软说不”那么还用什么IE,EXCEL?

      至于XP这种操作系统之类的小玩意对于一个有500多款软件的公司更不在话下了吧?

      看了半天我终于明白了一个道理,原来微软那种小公司要想生存必须和伟大的汉编捆绑销售才行啊。

      借楼主地盘用用,谢谢。

      2008/8/11 0:40:27
      • 头像
      • 军衔:陆军上尉
      • 军号:15898
      • 工分:26482
      • 本区职务:会员
      左箭头-小图标

       以下是引用loykes 在第11楼的发言:

      我是谁并不重要,真相只有一个。在真相面前,请不要故计重施。

      以下是汉语编程程序和FORTH程序的对照版本:

      \ Loykes 2008 汉语编程

      编 z"FindWindow ( z"class z"caption -- hwnd )

      相对>绝对地址 ↑↓ 相对>绝对地址 函数调用 FindWindow 。

      编 z"FindWindowEx ( hwnd1 hwnd2 z"class z"caption -- hwnd )

      相对>绝对地......

      我是个程序员,但我不得不说这些代码很傻,要知道1234也不是中国原创,真的要搞干嘛不把阿拉伯数字也用一二三四来代替?

      不得不说,这些代码实在是会让程序员吐血。

      2008/8/10 12:53:06
      • 军衔:陆军下士
      • 军号:967450
      • 工分:655
      左箭头-小图标

      楼主别上他当了,他就拿你当免费的buger,虽说他这套软件不值钱,不过这么一炒作,估计还是能忽悠不少外行拿出去骗钱骗经费的,楼主打住吧。这个玩意也就剩他们自己在那折腾了,在it这行大家连提他的兴趣都没有了,这种玩意连盗版的都看不上,毫无任何实际价值,你非得那么较劲干吗呢?

      2008/8/10 12:34:26
      • 头像
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      • 本区职务:会员
      左箭头-小图标

       以下是引用laiyh 在第32楼的发言:

      楼主你又让清朝僵尸复活了。

      字串" 楼主你又让清朝僵尸复活了。" 加密 回车 印字串

      ?櫧|搿柹诹Fu骨丫垢缓荡范卑巢MLONIHKJEDG幩鬋R臷_B罼[ Q醀 T錝?lo?旀]l鋴e?烐pG}秶汏榩w閜s銮N H

      ?` 

      -,/.)(+*%$'瞰?2??"?;@1?k4?d嘉葾?H?蜝-荌?T裔?%4W:已浮?

      字串" 楼主你又让清朝僵尸复活了。" 加密 回车 看内存

      起始地址: 68519

      00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 0123456789ABCDEF

      68510 00 00 00 00 C8 00 00 00 C2 FF E5 33 99 BD 08 7C ....?..??櫧.|

      68520 EB A1 A4 81 96 C9 DA C1 A3 C6 75 FB B6 7F 12 B9 搿柹诹Fu.

      68530? C7 D1 BE B9 B8 BB BA B5 B4 B7 B6 B1 B0 B3 B2 4D 茄竟富旱捶侗俺睲

      68540 4C 4F 4E 49 48 4B 4A 45 44 47 8E CB F4 43 52 C5 LONIHKJEDG幩鬋R

      68550? 5C 5F 42 C1 58 5B 20 51 E1 57 0B 54 E5 53 FA 1E \_B罼[ Q醀.T錝?

      68560 6C 6F E7 1C 94 E6 1E 5D 6C E4 8B 65 EB 25 9E F6 lo?旀.]l鋴e?烐

      68570 70 47 7D B6 87 9A F9 98 70 77 1E E9 70 73 F6 C7 pG}秶汏榩w.閜s銮

      68580 4E 0F 0E 09 48 0B 0A 05 04 07 A0 22 60 FC BE 1F N...H.....?`.

      68590 0B 1F 1E 19 18 1B 1A 15 14 17 16 11 10 13 12 2D ...............-

      685A0 2C 2F 2E 29 28 2B 2A 25 24 27 EE AB 94 23 32 A5 ,/.)(+*%$'瞰?2

      685B0? 3C 3F 22 A1 38 3B 40 31 81 37 6B 34 85 33 64 BC <?"?;@1?k4?d

      685C0? CE C9 41 BE 36 48 B0 FF CE 42 2D C7 49 9B 20 54 紊A?H?蜝-荌?T

      685D0 D2 E1 DB 14 25 34 57 3A D2 D1 B8 00 00 00 00 00 裔?%4W:已?....★

      万大虾说的加密就是上面的吧!

      商业软件也能疏忽?汉语编程的程序员也太25了,要知道,加密和试用限制对一个商业软件意味什么?

      2008/8/10 8:58:41
      左箭头-小图标

      给你发个通知,

      我正在 用 汉编 写一个"密信收发"软件,你可以到我的群里,领取一套,然后 去破解,然后 发到 这个 帖子里来,展示你的能力 ,如何?

      2008/8/10 8:42:26
      左箭头-小图标

       以下是引用loykes 在第27楼的发言:

      汉编系统试用次数破解截图:

      铁血网提醒您:点击查看大图

      汉编代码:

      使用库 试用库

      试用库 库结构显

      —20000 替换 试用次数

      试用库 结束使用

      哈哈,我看你 就是"半桶水".

      你写错了一个字,你就怪 字不好,而不承认 你没有把字学好.

      你不会用汉语写小说,你就污蔑 汉语不好,咬定汉语 没有不能表现 小说文学.

      你钻进 汉编语言 开发的软件,发现了一个 漏洞,你不说 程序员 的疏忽,却咬定 汉编语言 ,没有处理密码 的能力,哈哈.怪不得 你这半桶水,到处晃荡.

      2008/8/10 8:39:06
      • 军衔:陆军上尉
      • 军号:94331
      • 工分:15107
      左箭头-小图标

      楼主你又让清朝僵尸复活了。

      2008/8/10 2:49:28
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      左箭头-小图标

      对不起各位了,打的有点狠了,万大侠不敢出来了,害得大家没有了笑料。

      2008/8/8 16:41:26
      • 军衔:空军上士
      • 军号:713288
      • 工分:2674
      左箭头-小图标

      大家不要打击万大仙的积极性,俺还等着看万大仙的表演呢。

      2008/8/8 15:08:42
      • 军衔:陆军列兵
      • 军号:1257572
      • 工分:89
      左箭头-小图标

       以下是引用yewool 在第28楼的发言:

      楼主您就甭和万教主费那劲,这人和他的汉鞭大家都知道怎么回事,和他辩论根本就尿不到一块的,他在那东拉西扯,给人扣大帽子是必然的,人身攻击是必不可少的,让他一个人在那折腾吧,你越和他辩他越来劲。

      支持,老万除了搞汉编还附带开了个帽子店。

      2008/8/6 22:19:17
      • 军衔:陆军下士
      • 军号:967450
      • 工分:655
      左箭头-小图标

      楼主您就甭和万教主费那劲,这人和他的汉鞭大家都知道怎么回事,和他辩论根本就尿不到一块的,他在那东拉西扯,给人扣大帽子是必然的,人身攻击是必不可少的,让他一个人在那折腾吧,你越和他辩他越来劲。

      2008/8/6 21:44:09
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      左箭头-小图标

      汉编系统试用次数破解截图:

      铁血网提醒您:点击查看大图

      汉编代码:

      使用库 试用库

      试用库 库结构显

      —20000 替换 试用次数

      试用库 结束使用

      2008/8/6 14:10:21
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      左箭头-小图标

      借用万大侠的话,2.04版是我的了。看看你们的商务管理系统竟然盗用2.04编译,有实力还要这么作吗?以下是截图:

      铁血网提醒您:点击查看大图

      2008/8/6 13:43:43
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      左箭头-小图标

      看清楚了,是对你所谓的2.03的破解。

      2008/8/6 9:05:05
      左箭头-小图标

       以下是引用loykes 在第20楼的发言:

      文件映射模板 ABC

      0xb338 为 分界偏移

      编 拆解汉编应用程序 ( 文件名地址 长度 --- )

      打开映射文件: ABC ♀

      文件地址: ABC 0x7634 + 分界偏移 + 读 十六进制 显

      文件地址: ABC 0x74F8 + 分界偏移 + 读 十六进制 显

      文件地址: ABC 0x19790 + 分界偏移 + 读 十六进制 显

      文件地址: ABC 0x24ec8 + 读 十六进制 显 ......

      你不是搞了个 2.04 了吗?怎么还是用我的 2.03 呢?

      2008/8/6 0:59:43
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      左箭头-小图标

      铁血网提醒您:点击查看大图

      汉编程序染毒截图。

      2008/8/6 0:43:10
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      左箭头-小图标

      万大侠,帽子虽然不是什么值钱的东西,从工厂里生产出来也不容易,不能随便乱扔,乱扔砸到小朋友怎么办?就算砸不到小朋友,砸到花花草草也不好。还是留着自己用吧!

      2008/8/6 0:39:36
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      左箭头-小图标

      顺便说一句,你们对这几款软件的试用限制也太小儿科了,试用次数怎么能写道 试用库.dbf中呢?如果把试用库中试用次数改为负数会怎样呢?你们不是有加密技术吗?系统密码怎么会用原码形式放在 密码库.dbf 中呢?大侠你也太不小心了吧,商业软件怎么如此草率呢?起码也要用个万氏乱侃加密法加密一下。

      我知道一遇到技术问题,你会呛我,让我也作一个,我不挣那份钱,凭什么?我不忽悠人,凭什么? 我是钓鱼的,凭什么让鱼来钓?我耍猴,凭什么让猴来耍?

      本文内容于 2008-8-6 0:34:06 被loykes编辑

      2008/8/6 0:31:59
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      左箭头-小图标

      文件映射模板 ABC

      0xb338 为 分界偏移

      编 拆解汉编应用程序 ( 文件名地址 长度 --- )

      打开映射文件: ABC ♀

      文件地址: ABC 0x7634 + 分界偏移 + 读 十六进制 显

      文件地址: ABC 0x74F8 + 分界偏移 + 读 十六进制 显

      文件地址: ABC 0x19790 + 分界偏移 + 读 十六进制 显

      文件地址: ABC 0x24ec8 + 读 十六进制 显

      回车

      0x638c60 文件地址: ABC 0x7634 + 分界偏移 + 写

      0x75d58 文件地址: ABC 0x74F8 + 分界偏移 + 写

      0x42d4 文件地址: ABC 0x24ec8 + 写

      保存文件: ABC ♀

      关闭映射文件: ABC ♀ 。

      字串" c:\眼镜店管理系统\眼镜店管理系统.exe" 拆解汉编应用程序

      万大侠,搞明白读写的几个向量作用了吗?

      下面是“眼镜店管理系统.exe” 破解后运行图,以你的技术分析以下,汉编的安全性在那?

      铁血网提醒您:点击查看大图

      2008/8/6 0:15:51
      • 头像
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      • 本区职务:会员
      左箭头-小图标

      如果我用,就来说汉编。一说说两遍,一遍谈技术,一遍作调侃。想笑万某笑万某,想笑自己笑自己。

      偶有的是时间,比玩游戏好玩多了。说钓鱼就钓鱼,还是条大鱼。说耍猴就耍猴,万大侠猫久了,出来活动活动,要不脑子不好使了。汉编的大业还没完成,重任在肩啊!

      即便作到8.0,我也不指望它骗钱,业余爱好而已。不过你的专业也好不到哪去,更新不了系统郁闷不?不是你有核心技术吗?别再骗自己了,把自己当成什么了,一个小把戏,妄称大侠客。

      汉编号称安全、防毒, 想必1920的破解文章你也看到了,染毒截图你也见到了。

      普通的PE文件谈何防毒?

      懂技术的朋友教教万大侠,windows是PE文件如何自我防毒。

      几个向量改了就OVER,谈何安全?

      2008/8/6 0:12:03
      左箭头-小图标

       以下是引用loykes 在第16楼的发言:

      最后留个自己的梦想:

      如果我有钱,我也搞汉编。一搞搞两个,一个挂网赚大钱,一个自己玩。想搞微软搞微软,想扬汉鞭扬汉编

      你的 那个 2.04版 是真的啊,去申请个专利啊,然后 就有钱了啊.看看谁牛.

      2008/8/5 23:22:29
      左箭头-小图标

      看得正过瘾的,万大侠呢?接招啊——

      呵呵

      2008/8/5 22:59:55
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      左箭头-小图标

      最后留个自己的梦想:

      如果我有钱,我也搞汉编。一搞搞两个,一个挂网赚大钱,一个自己玩。想搞微软搞微软,想扬汉鞭扬汉编

      2008/8/5 17:23:18
      • 军衔:空军中尉
      • 军号:119374
      • 工分:9430
      左箭头-小图标

      我的神啊 要是这样编程的话 就玩玩了

      2008/8/5 16:56:00
      • 头像
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      • 本区职务:会员
      左箭头-小图标

      静候你的指正。

      模仿和抄袭是需要实力的,你也模仿一个。

      不妨把你们的版本升级一下,2.03.1920,计划用到何时啊!

      忘了,你们要开发IDE了,如果有技术难度,不放借鉴一下win32for的 form 和project,如果找不到就到*******.com上搜一下。别告诉我你不会。

      不过不升级也无所谓,圈钱有不着技术。探讨技术时,只需要进行人身攻击就可以了,汉奸、卖国贼、洋奴才,你们的帽子多的是。

      你是没有资格谈技术的,一看就是二五。但愿晚上睡个好觉,明天起来没准太阳从西边出来了,汉语编程一统天下,所有的质疑者都移民到国外了,甚至上了火星,从此世界清静了。

      回过此贴,剩下戏就由你来演了,我相信你能用严谨的科学态度、深厚的技术沉淀将汉语编程的所有所有,告诉天下人,也希望你们公司、你们的团队能成为中国的微软,团队中的每个人都能拥有无比坚强的“汉鞭”(说实在的真是羞于出口,有点污染)。

      我不希望,汉编除了“假大空”的泡沫新闻,没有任何技术向世人公布。

      88啦,万大侠。

      2008/8/5 15:52:07
      • 头像
      • 军衔:陆军少将
      • 军号:989838
      • 工分:533725 / 排名:1866
      • 本区职务:会员
      左箭头-小图标

       以下是引用loykes 在第9楼的发言:

      Windows(9x,Me,NT,2K,XP) 32位汉语编程系统 Ver 2.04

      基于汉语编程核心版本 Ver 2.04

      Copyright (C) 2000-2008 中国汉语编程.com

      编译时间: 2008年8月1日 12:51

      版本号: 2.04.0030

      系统平台: Windows XP 版本: 5.01.2600

      可用空间: 4,473K

      定义词数: 5,276

      ......

      如果你用 时间先后 来指正汉编 模仿或抄袭 美国人的东西 的话,我也可以 用 时间先后 来指正你 一直在模仿和抄袭 汉编.

      你刚说完 你是 打酱油的,话音刚落,你就翘起了尾巴.你在汉编 2.03版之后,搞了个 2.04版.哈哈.你的版本,一定没有 数据库联合查询的 命令词.对不对?

      2008/8/5 15:10:36
      • 头像
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      • 本区职务:会员
      左箭头-小图标

      win32forth核心代码与汉语编程对照 (局部)

      \ KERNEL.chp - WIN32CHP CKERNEL

      十进制

      \ sp equ <esp> \

      \ rp equ <ebp> \

      \ ip equ <esi> \

      \ bp equ <edi> \

      \ up equ <edx> \

      260 EQU maxbuffer \ 任何字串缓冲大小, 必须与windows系统最大路径串长度缓冲匹配

      16 EQU numvocs \ 搜索顺序中最大词汇枝数

      -1 EQU THROW_ABORT

      -2 EQU THROW_ABORTQ

      -3 EQU THROW_STACK_OVERFLOW

      -4 EQU THROW_STACK_UNDERFLOW

      -13 EQU THROW_UNDEFINED

      \ -------------------- 内部解释 --------------------

      宏汇编 EXEC ( -- ) \ 执行EAX中相对CFA

      mov ecx, 0 [eax] [edi]

      add ecx, edi

      jmp ecx

      宏汇编。

      宏汇编 NEXT ( -- )

      解析优化域

      mov eax, 0 [esi]

      add esi, # 4

      exec

      宏汇编。

      宏汇编 16: ( -- ) \ 编译16位操作码前缀

      A;

      102 特殊枝填字节

      宏汇编。

      \ -------------------- Boot-Up Literals --------------------

      以下win32forth

      \ Metacompiler version 11/95 Andrew McKewan

      \ Separated heads version started December 19th, 1995 tjz

      \ Added User variables for multi-tasking August 29th, 1996 bee/tjz

      DECIMAL

      \ sp equ <esp> \ Stack Pointer for Forth, the hardware stack

      \ rp equ <ebp> \ Return Pointer, Forth's subroutine stack

      \ ip equ <esi> \ "absolute" Instruction Pointer for Forth

      \ bp equ <edi> \ "absolute" base of Forth image

      \ up equ <edx> \ "absolute" user pointer

      \ tos equ <ebx> \ Top of stack is in EBX

      260 EQU maxbuffer \ Size of any string buffer, MUST match the

      \ size of a windows maximum path string,

      \ which is 260 bytes. ** DON'T CHANGE THIS **

      16 EQU numvocs \ Maximum number of vocabularies in search order

      -1 EQU THROW_ABORT

      -2 EQU THROW_ABORTQ

      -3 EQU THROW_STACK_OVERFLOW

      -4 EQU THROW_STACK_UNDERFLOW

      -13 EQU THROW_UNDEFINED

      \ -------------------- Inner Interpreter --------------------

      MACRO EXEC ( -- ) \ execute RELATIVE cfa in eax

      mov ecx, 0 [eax] [edi]

      add ecx, edi

      jmp ecx

      END-MACRO

      MACRO NEXT ( -- ) \ Inner interpreter

      RESOLVE-OFA \ save size of code definition

      mov eax, 0 [esi] \ faster version of NEXT, uses 9 more

      add esi, # 4 \ bytes per occurance

      exec

      END-MACRO

      MACRO 16: ( -- ) \ compile 16-bit prefix opcode

      A;

      102 C,-T

      END-MACRO

      \ -------------------- Boot-Up Literals --------------------

      2008/8/5 14:57:55
      • 头像
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      • 本区职务:会员
      左箭头-小图标

      我是谁并不重要,真相只有一个。在真相面前,请不要故计重施。

      以下是汉语编程程序和FORTH程序的对照版本:

      \ Loykes 2008 汉语编程

      编 z"FindWindow ( z"class z"caption -- hwnd )

      相对>绝对地址 ↑↓ 相对>绝对地址 函数调用 FindWindow 。

      编 z"FindWindowEx ( hwnd1 hwnd2 z"class z"caption -- hwnd )

      相对>绝对地址 ↑↓ 相对>绝对地址双↑↓ 函数调用 FindWindowEx 。

      编 z"MessageBox ( z"text z"caption mbstyle -- ret )

      ∵ 相对>绝对地址 ↑↓ 相对>绝对地址 ( hwnd ) 空 函数调用 MessageBox 。

      编 ListView_SetTextBkColor ( hwnd colorref -- bool )

      LVM_SETTEXTBKCOLOR ↑↓ 0 双↑↓ ↑↓ 函数调用 SendMessage 1 = 。

      编 main ( -- )

      编字串" Progman" 编字串" Program Manager" z"FindWindow 非0♂

      0 编字串" SHELLDLL_DefView" 编字串" " z"FindWindowEx 非0♂

      0 编字串" SysListView32" 编字串" " z"FindWindowEx 非0♂

      CLR_NONE ListView_SetTextBkColor

      0= 就

      编字串" Failed to create transparent\nDesktop Icons"

      编字串" TransIcons" MB_OK MB_ICONERROR 或 z"MessageBox ♀

      然后

      否则

      编字串" SysListView32 Window not found!"

      编字串" TransIcons" MB_OK z"MessageBox ♀

      然后

      否则

      编字串" SHELLDLL_DefView Window not found!"

      编字串" TransIcons" MB_OK z"MessageBox ♀

      然后

      否则

      编字串" Progman Window not found!"

      编字串" TransIcons" MB_OK MB_ICONERROR 或 z"MessageBox ♀

      然后 。

      : z"FindWindow ( z"class z"caption -- hwnd )

      rel>abs swap rel>abs Call FindWindow ;

      : z"FindWindowEx ( hwnd1 hwnd2 z"class z"caption -- hwnd )

      rel>abs swap rel>abs 2swap swap Call FindWindowEx ;

      : z"MessageBox ( z"text z"caption mbstyle -- ret )

      -rot rel>abs swap rel>abs ( hwnd ) NULL Call MessageBox ;

      : ListView_SetTextBkColor ( hwnd colorref -- bool )

      LVM_SETTEXTBKCOLOR swap 0 2swap swap Call SendMessage 1 = ;

      : main ( -- )

      z" Progman" z" Program Manager" z"FindWindow ?dup

      IF

      0 z" SHELLDLL_DefView" z" " z"FindWindowEx ?dup

      IF

      0 z" SysListView32" z" " z"FindWindowEx ?dup

      IF

      CLR_NONE ListView_SetTextBkColor

      0= IF

      z" Failed to create transparent\nDesktop Icons"

      z" TransIcons" MB_OK MB_ICONERROR OR z"MessageBox drop

      THEN

      ELSE

      z" SysListView32 Window not found!"

      z" TransIcons" MB_OK z"MessageBox drop

      THEN

      ELSE

      z" SHELLDLL_DefView Window not found!"

      z" TransIcons" MB_OK z"MessageBox drop

      THEN

      ELSE

      z" Progman Window not found!"

      z" TransIcons" MB_OK MB_ICONERROR OR z"MessageBox drop

      THEN ;

      如果读不懂,建议回去学习去。

      2008/8/5 14:54:11
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      左箭头-小图标

      开源不也是你们所希望的吗?一旦开源,那么forth的问题是绕不开的。

      以下文字来自hybcw@126.com给我的回复:

      平心而论,我十分希望汉编开源,最好是全部开源,这不只是对我,对每个想学汉编的人都有好处!我先要说一声:谢谢您!

      汉语编程作为一种编程语言,不开源就没有出路!何况,就那点东西,开源比不开源好!

      2008/8/5 13:19:51
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      左箭头-小图标

      Windows(9x,Me,NT,2K,XP) 32位汉语编程系统 Ver 2.04

      基于汉语编程核心版本 Ver 2.04

      Copyright (C) 2000-2008 中国汉语编程.com

      编译时间: 2008年8月1日 12:51

      版本号: 2.04.0030

      系统平台: Windows XP 版本: 5.01.2600

      可用空间: 4,473K

      定义词数: 5,276

      代码区: 4,113

      词典内: 1,163

      Win API常量:10,895

      2008/8/5 13:06:19
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      左箭头-小图标

      有没有核心,也不是你这种无名小卒所能了解的。看看最新的本版再说话:

      2008/8/5 13:04:02
      左箭头-小图标

      关于你的那个 1 2 3 4 小圆圈,我看了都好笑,你的意思,就好比 在说,美国人的 窗口上,有菜单 有最小化 有最大化 有关闭 等按钮,我们中国如果 也有菜单 也有最小化 最大化 关闭 等按钮,我们的,就不是我们的?我们的 就是美国的?

      如果真像你 暗示的那样,如果真像你 明示的那样,那么,你用美国的 直接编译我的 汉语程序, 试一试,如何?再用我的,直接编译 美国的 英语程序,试一试,如何?

      2008/8/5 12:56:01
      • 头像
      • 军衔:陆军少将
      • 军号:989838
      • 工分:533725 / 排名:1866
      • 本区职务:会员
      左箭头-小图标

       以下是引用loykes 在第1楼的发言:

      本来偶是来打酱油的旁观者汉语编程与本人无干,无奈汉语编程人(尤其是化身大侠、高手及初学者的汉编从业者)的种种表现实在是差强人意,除了满天飞的假大空宣传之外,涉及技术成分的文章几乎等于没有,即便间或有零星的直言片语,更是漏洞百出,还不如没有,这样的国货是否值得去推崇,令人生疑。何况其号称的"该计算机语言绝非曾流行过的任何一种计算机语言的简单汉化",实际上应该包含两种截然不同的含义:一是自主版权,绝非汉化;二是不是简单汉化。这样的话,即便是骗局被揭露,汉编仍然可以说,汉语编程不是简单汉化,是深层汉化......

      嘿嘿,

      我看过你那个 没有被删除之前的帖子,你说你曾经是汉编的人,你说你现在已经不搞汉编很多年了.

      这就使我产生了疑问:你真个"打酱油"的吗?你真的是"旁观者"吗?你真的是"汉语编程与本人无干"吗?

      1.你能否想大家坦白一下,你是因为什么事情,离开汉编公司的?大概是想另起炉灶吧?

      2.既然翅膀硬了,为什么灶熄炉灭?你以为你真的掌握了 技术核心?结果却碰得焦头烂额.哈哈.

      3.俗话说,恼羞成怒,你终于忍不住了,跑到 铁血,来注个新册,发个旧帖.揭揭汉编的短.可是,真正的核心机密,你并没有得到,你揭来揭去,也顶多是在 隔靴搔痒.

      汉编,如果因为你发了几个帖子,就从此消失,从此倒闭,那你真的要成为 "救世主"了.不仅中国人 要感谢你,就是美国人 也要感谢你,特别是美国的 FORTH 人,更要感谢你.可是,你的算盘 终究会落空, 美国的 FORTH 人,不是聋子,也不是瞎子,他们不知道 中国 有个 汉编?从1984年 到1994年 再到2008年,多少年过去了? 你在 铁血发帖子,不如 写封 E-MAIL 发到 FORTH 去,让他们洋人出面 来中国 ,找汉编 理论一番,更好些,更有效果些.再嘲笑你一次,哈哈.

      我虽然忙得很,但是 铁血 上,看到你的帖,我无论如何 也要挤点时间,给你回一回.希望你发 更好的帖,有什么 "技",尽管使出来.

      2008/8/5 12:37:59
      左箭头-小图标

       以下是引用CN_052C 在第4楼的发言:

      楼主不要浪费力气在铁血这个非IT论坛发这些了,发了别人也是帽子口号卫星一套一套的上来,在这里就拜拜万教主就行。

      说的也是......

      2008/8/5 9:20:14
      • 军衔:陆军列兵
      • 军号:1257572
      • 工分:89
      左箭头-小图标

      楼主不要浪费力气在铁血这个非IT论坛发这些了,发了别人也是帽子口号卫星一套一套的上来,在这里就拜拜万教主就行。

      2008/8/4 22:33:58
      • 头像
      • 军衔:陆军中士
      • 军号:1566832
      • 工分:1570
      • 本区职务:会员
      左箭头-小图标

      在我发布了《<汉语言编程不得不说的八款软件>想说明什么?》一文之后,有人来邮件给我,内容如下:

      ------------------

      这八款软件中,我手里有部分源代码,说实在的,我在审核源代码的时候,发现有很多需要完善和修改的地方,毕竟有很大一部分是学员在指导的时候完成的,当

      然了,在应用从面,如果可以经过大家使用验证,提出宝贵意见的话,相信这几款软件在修改和完善后会得到很好的提高的,毕竟从我使用汉语编程来开发应用程

      序的经验来看,汉语编程是完全可以做出像样的系统来的,这需要很好的系统规划、代码的优化、界面的美化。

      和forth是否有直接的关系,我不好过多的评论,毕竟我一直使用汉语编程,也一直热爱着它,我可以用它做我想做的应用系统,当然了,这些只是为我工作

      的优化使用。

      网络上这么多的朋友说两者之间有关系,我也相应的做了些比较,发现汉语编程中确实有win32forth的影子,目前,我对win32forth进行了

      部分汉化,在不久的将来,我相信自己在win32forth方面也会有很大的提高。两者结合相信对汉语编程的发展也会有自己的想法。

      ------------------

      请大家帮助分析,他想说明什么问题?

      2008/8/4 20:50:51
      左箭头-小图标

      支持楼主!!

      使用C++由forth.c 和 Term.c编译而成 的软件,还能叫 汉语言编程 ,有点搞笑啊........

      我原来以为汉语言编程是从源码到编译成可执行文件整个开发平台都是汉语言的.

      2008/8/4 18:45:22

      我要发帖

      总页数11页 [共有38条记录] 分页:

      1
       对[原创]国货汉语编程/win32forth文件构成及作用回复