易语言小程序源码（用c++或易语言或VB编一个小程序）

本文目录

• 用c++或易语言或VB编一个小程序
• 求易语言一个简单的小程序
• 我用易语言写了个小程序，现在想把它做成开机自动启动的 那个代码怎么写，最好详细点，本人小白
• 请人用易语言帮忙做个小程序,要源码
• 求高手用VB6或者易语言帮忙写个小程序,就几行代码
• 求高手用易语言帮忙写个小程序,就几行代码
• 我用易语言编个小程序，想把一段JS代码嵌入程序里，应该怎么做呢
• 用易语言编写个小程序.
• 易语言猜数字小程序

用c++或易语言或VB编一个小程序

.版本 2.子程序 整理IP.局部变量 IP分割, 文本型, , "0".局部变量 i, 整数型.局部变量 IP, 文本型IP分割 ＝ 分割文本 (#IP, #换行符, ).计次循环首 (取数组成员数 (IP分割), i) IP ＝ 取文本右边 (IP分割 ) － 2) IP ＝ 取文本左边 (IP, 寻找文本 (IP, “H”, , 假) － 2) IP ＝ 文本替换 (IP, 寻找文本 (IP, “ ”, , 假), 1, “：”) 框1.加入文本 (IP ＋ #换行符).计次循环尾 ()

求易语言一个简单的小程序

.版本 2

.支持库 iext

.程序集 窗口程序集1

.程序集变量 姓名, 文本型

.程序集变量 记录, 整数型

.子程序 __启动窗口_创建完毕

按钮1.标题 ＝ “显示”

按钮2.标题 ＝ “查找”

标签1.标题 ＝ “姓名”

标签2.标题 ＝ “姓别”

列表.整行选择 ＝ 真

.如果真 (文件是否存在 (取运行目录 () ＋ “\名单.edb”) ＝ 假)

    按钮2.标题 ＝ “加入”

    创建名单数据库 ()

.如果真结束

打开 (取运行目录 () ＋ “\名单.edb”, “md”, , , , , )

.子程序 创建名单数据库, 逻辑型

.局部变量 字段, 字段信息, , "2"

字段 .名称 ＝ “姓名”

字段 .类型 ＝ #文本型

字段 .最大文本长度 ＝ 8

字段 .名称 ＝ “姓别”

字段 .类型 ＝ #文本型

字段 .最大文本长度 ＝ 2

创建 (取运行目录 () ＋ “\名单.edb”, 字段)

返回 (真)

.子程序 _按钮2_被单击

.如果真 (按钮2.标题 ＝ “查找”)

    到首记录 ()

    姓名 ＝ “”

    .计次循环首 (取记录数 (), 记录)

        .如果真 (读 (“姓名”) ＝ 框1.内容)

            姓名 ＝ 框1.内容

            框2.内容 ＝ 读 (“姓别”)

            跳出循环 ()

        .如果真结束

        跳过 ()

    .计次循环尾 ()

    .如果真 (姓名 ＝ “”)

        .如果真 (信息框 (“数据库中查找不到该名字,是否加入人员!”, 4, “提示”) ＝ 5)

            .如果 (信息框 (“姓别是《男》吗?”, 4, “确认”) ＝ 5)

                框2.内容 ＝ “男”

            .否则

                框2.内容 ＝ “女”

            .如果结束

            按钮2.标题 ＝ “加入”

            _按钮2_被单击 ()

        .如果真结束

        返回 ()

    .如果真结束

    .如果真 (信息框 (“是否删除该名字?”, 4, ) ＝ 5)

        按钮1.标题 ＝ “删除”

        删除名字 ()

    .如果真结束

    返回 ()

.如果真结束

.如果真 (框2.内容 ≠ “男” 且 框2.内容 ≠ “女”)

    信息框 (“姓别输入错误!”, 0, )

    框2.获取焦点 ()

    返回 ()

.如果真结束

加记录 (框1.内容, 框2.内容)

读数据库 ()

.子程序 _按钮1_被单击

.如果真 (按钮1.标题 ＝ “删除”)

    删除名字 ()

    信息框 (“姓名:” ＋ 框1.内容 ＋ “ 已删除”, 0, )

.如果真结束

读数据库 ()

.子程序 删除名字, 逻辑型

跳到 (记录)

删除 ()

彻底删除 ()

返回 (真)

.子程序 _列表_左键单击表项

框1.内容 ＝ 列表.取标题 (列表.现行选中项, 0)

框2.内容 ＝ 列表.取标题 (列表.现行选中项, 1)

记录 ＝ 列表.取表项数值 (列表.现行选中项)

按钮1.标题 ＝ “删除”

.子程序 读数据库

框1.内容 ＝ “”

框2.内容 ＝ “”

列表.全部删除 ()

到首记录 ()

.循环判断首 ()

    记录 ＝ 列表.插入表项 (, , , , , )

    列表.置标题 (记录, 0, 读 (“姓名”))

    列表.置标题 (记录, 1, 读 (“姓别”))

    列表.置表项数值 (记录, 记录 ＋ 1)

    跳过 ()

.循环判断尾 (尾记录后 () ＝ 假)

.子程序 _列表_右键单击表项

按钮1.标题 ＝ “显示”

按钮2.标题 ＝ “查找”

读数据库 ()

我用易语言写了个小程序，现在想把它做成开机自动启动的 那个代码怎么写，最好详细点，本人小白

方法一：可以手动把写好的程序放到系统启动组下。方法二：启动时自动复制自身到启动组 .版本 2.支持库 shell.子程序 __启动窗口_创建完毕复制文件 (取运行路径 (), 取特定目录 (7)).版本 2.子程序 取运行路径, 文本型, 公开, 返回程序自身运行路径。如：C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\EDV4E.tmp.局部变量 文件名, 文本型文件名 ＝ 取空白文本 (256)GetModuleFileNameA (0, 文件名, 256)返回 (文件名).版本 2.DLL命令 GetModuleFileNameA, 整数型, "kernel32.dll", "GetModuleFileNameA", , 获取一个已装载模板的完整路径名称 如执行成功，返回复制到lpFileName的实际字符数量；零表示失败。会设置GetLastError .参数 模块句柄, 整数型, , 一个模块的句柄。可以是一个DLL模块，或者是一个应用程序的实例句柄 .参数 文件名缓冲区, 文本型, , 指定一个字串缓冲区，要在其中容纳文件的用NULL字符中止的路径名，hModule模块就是从这个文件装载进来的 .参数 缓冲区大小, 整数型, , 装载到缓冲区lpFileName的最大字符数量;

请人用易语言帮忙做个小程序,要源码

程序代码{.版本 2.支持库 shellEx.支持库 eAPI.程序集 窗口程序集1.程序集变量 热键句柄, 整数型.程序集变量 计次, 整数型.子程序 __启动窗口_创建完毕热键句柄 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F10键).子程序 _时钟1_周期事件.局部变量 数字, 文本型.局部变量 计次B, 整数型计次 ＝ 计次 ＋ 1模拟按键 (#A键, #键2, #空格键).计次循环首 (取文本长度 (到文本 (计次)), 计次B) 数字 ＝ 取文本中间 (到文本 (计次), 计次B, 1) .如果真 (数字 ＝ “0”) 模拟按键 (#键0, , ) .如果真结束 .如果真 (数字 ＝ “1”) 模拟按键 (#键1, , ) .如果真结束 .如果真 (数字 ＝ “2”) 模拟按键 (#键2, , ) .如果真结束 .如果真 (数字 ＝ “3”) 模拟按键 (#键3, , ) .如果真结束 .如果真 (数字 ＝ “4”) 模拟按键 (#键4, , ) .如果真结束 .如果真 (数字 ＝ “5”) 模拟按键 (#键5, , ) .如果真结束 .如果真 (数字 ＝ “6”) 模拟按键 (#键6, , ) .如果真结束 .如果真 (数字 ＝ “7”) 模拟按键 (#键7, , ) .如果真结束 .如果真 (数字 ＝ “8”) 模拟按键 (#键8, , ) .如果真结束 .如果真 (数字 ＝ “9”) 模拟按键 (#键9, , ) .如果真结束.计次循环尾 ()模拟按键 (#回车键, , )标题 ＝ 到文本 (计次).如果真 (计次 ＝ 10) _标签1_反馈事件 (0, 0).如果真结束.子程序 _标签1_反馈事件, 整数型.参数 参数一, 整数型.参数 参数二, 整数型.如果 (时钟1.时钟周期 ＝ 0) 时钟1.时钟周期 ＝ 1000 标签1.标题 ＝ “已开启”.否则 时钟1.时钟周期 ＝ 0 标签1.标题 ＝ “已关闭” 标题 ＝ “已关闭”.如果结束.子程序 __启动窗口_将被销毁撤销热键 (取窗口句柄 (), 热键句柄)}END控件就俩 一个时钟 一个标签不用其他设置 想测试稳定性你就打开笔记本 代码里的时钟周期设置为 =1速度高 稳定性强 代码也简便如果还有什么请百度HI ----------------------补充一下 如果你想控制次数的话 就在时钟周期子程序里加个代码补充代码{.如果真 (计次 ＝ 100000)‘这个100000是你所限制的次数 _标签1_反馈事件 (0，0)}

求高手用VB6或者易语言帮忙写个小程序,就几行代码

.版本2.支持库eAPI.判断循环首(真).如果真(文件是否存在(“E:\123\456.txt”))’检测E:\123\456.txt终止进程(“789.exe”)’如果文件存在,则关闭789.exe.如果真结束延时(10×1000)’延时10秒后再次检测456.txt的存在....如果真(取运行目录()＝“”)’此处代码用于建立死循环跳出循环().如果真结束.判断循环尾()

求高手用易语言帮忙写个小程序,就几行代码

.版本 2.程序集 窗口程序集1.子程序 __启动窗口_创建完毕.判断开始 (文件是否存在 (取运行目录 () ＋ “\patcher\patcher.exe”) 且 文件是否存在 (取运行目录 () ＋ “\element\elementskill.dll”)) 可视 ＝ 真 运行 (取运行目录 () ＋ “\patcher\patcher.exe”, 假, ).默认 信息框 (“程序不存在或请将此程序放在目录下再运行！”, #错误图标, “性感提示：”) 销毁 ().判断结束

我用易语言编个小程序，想把一段JS代码嵌入程序里，应该怎么做呢

• 汗，你那个是日历阿？ 易语言那里有阿。

• 《script》//------------------------------------------------------//function GetTime(){ RRS("《span id=’CNlock’》《/span》"); PrintTime();}function PrintTime(){ var cha=document.getElementById(’CNlock’); var Daty=new Date(); var year=Daty.getYear(); var month=Daty.getMonth()+1; var day=Daty.getDate(); var hours=Daty.getHours(); var minutes=Daty.getMinutes(); var seconds=Daty.getSeconds(); if(minutes《=9){minutes="0"+minutes;} if(seconds《=9){seconds="0"+seconds;} myclock=year+’年’+month+’月’+day+’日 ’+hours+’:’+minutes+’:《span style="color:#F00"》’+seconds+’《/span》’; cha.innerHTML=myclock; setTimeout(’PrintTime()’,1000);}《/script》《body》《div》现在时间:《script.GetTime();《/script》《/div》《/body》

用易语言编写个小程序.

方法如下：

1、安装完成后，双击易语言图标打开易语言。这里弹出了一个对话框。

2、双击中间的“windows窗口程序”新建一个程序。界面如图所示。

菜单栏：程序的各种操作及设置。

窗口区：绘制界面

属性设置区：设置组件、窗口的各种属性

组件框：选择各种组件 

提示区：显示当前程序的运行、编译情况。显示对于某一命令的帮助提示。

3、在右侧组件框找到“标签”组件 选择后在界面上拖动，松开鼠标，就画出了一个标签。

4、在左侧属性栏找到“标题”属性，修改为“我的第一个程序”并敲下回车。标签的标题就更改了

5、接下来用同样的方法创建一个框和一个按钮。

打出如图中的代码。或者复制以下。

.版本 2

框1.内容 ＝ “你好，世界”

信息框 (“我的第一个易语言程序”, 0, )

6、双击按钮进入代码页面。把输入法调为英文状态。

打出如图中的代码。或者复制以下。

.版本 2

框1.内容 ＝ “你好，世界”

信息框 (“我的第一个易语言程序”, 0, )

7、点击上方三角按钮，或者单击F5运行程序查看效果。效果如图所示

8、点击按钮。弹出了一个信息框，框的标题也变为了“你好，世界”我们的第一个易语言程序制作完成！

易语言猜数字小程序

.版本 2.程序集 窗口程序集1.程序集变量 程序集_随机数, 整数型.子程序 _按钮1_被单击程序集_随机数 ＝ 取随机数 (1, 100).如果 (到整数 (框1_输入内容.内容) ＞ 程序集_随机数)输出调试文本 (1).否则输出调试文本 (2)