易语言一个程序向另一个程序发送消息在线等,急!!!

易语言一个程序向另一个程序发送消息在线等,急!!!,第1张

说起来简单,其实这并不简单,涉及到数据的传输。

一般来讲,看你这提的问题,估计应该是小白。

既然是小白,那么请你了解一下易语言自带的服务器和客户端组件,然后再慢慢的学习研究。

版本 2

支持库 internet

连接FTP服务器 (“172001”, “123”, “123”, 21, )

输出调试文本 (取运行目录 ())

FTP文件下载 (“revtxt”, 取运行目录 () + “/revtxt”, )

如果 (读入文本 (打开文件 (取运行目录 () + “/revtxt”, 1, ), ) = “V11”)

信息框 (“更新”, 0, “提示”)

否则

如果结束

断开FTP服务器 ()

///////////////////////////////////////////

需打开互联网支持库

方法如下:

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

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

菜单栏:程序的各种 *** 作及设置。

窗口编辑区:绘制界面

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

组件框:选择各种组件

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

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

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

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

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

版本 2

编辑框1内容 = “你好,世界”

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

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

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

版本 2

编辑框1内容 = “你好,世界”

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

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

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

打包在压缩包里面使用运行命令也可以的。

运行 (取运行目录 () + “\另一个文件名”, 假, )

这里需要注意的是,另一个文件名前面的"\"不要删除,那是路径分隔符,然后就是另一个文件名的文件名输入要规范,后缀格式也要带上,比如:“ABCDexe” 要把“exe”带上。

扩展资料:

易语言支持库实际上是DLL文件。

通过使用其它编程语言为易语言开发支持库,易语言系统的功能可以得到无限扩展,通过支持库这一途径,易语言可以充分整合其它编程语言和 *** 作系统的各种资源,为我所用。他山之石,可以攻玉。

这种支持库是易语言专用的,其它编程语言也可以使用,但需要经过复杂的调用,支持库文件扩展名有fne、fnr、fnl、npk四种。

参考资料来源:百度百科-易语言

版本 2

支持库 internet

程序集 窗口程序集1

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

编辑框1内容 = 到文本 (读配置项 (取运行目录 () + “\网络配置ini”, “配置”, “账户”, ))

编辑框2内容 = 到文本 (读配置项 (取运行目录 () + “\网络配置ini”, “配置”, “密码”, ))

如果 (是否已在线 () = 真)

标签1标题 = “已经拨号!”

否则

标签1标题 = “还没拨号!”

如果结束

如果 (注册项是否存在 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\自动连接ADSL”) = 真)

选择框3选中 = 真

否则

选择框3选中 = 假

如果结束

加载皮肤 (“皮肤模块”)

' 读加密账户和加密密码 ()

读取秒 ()

_启动窗口可视 = 真

如果 (编辑框1内容 ≠ “” 且 编辑框2内容 ≠ “”)

如果 (选择框3选中 = 真)

手动拨号 ()

托盘 ()

_启动窗口可视 = 假

否则

如果结束

否则

如果结束

托盘 ()

子程序 _更改皮肤_被选择

皮肤参数调整 ()

子程序 手动拨号

如果 (编辑框1内容 ≠ “” 且 编辑框2内容 ≠ “”)

如果 (拨号 (“@n”, 编辑框1内容, 编辑框2内容, 真, 标签1) = 真)

时钟1时钟周期 = 秒

标签1标题 = “自动连接成功”

标签1文本颜色 = #蓝色

否则

标签1标题 = “自动连接失败”

标签1文本颜色 = #红色

可视 = 真

如果结束

否则

信息框 (“账户和密码不可以为空”, 0, )

如果结束

子程序 挂断1

时钟1时钟周期 = 0

挂断 ()

信息框 (“网络挂断成功”, 0, )

标签1标题 = “挂断”

子程序 _按钮2_被单击

挂断1 ()

托盘 ()

子程序 _时钟2_周期事件

如果真 (是否已在线 () = 假)

手动拨号 ()

如果真结束

子程序 _选择框1_被单击

如果 (选择框1选中 = 假)

如果真 (信息框 (“确认取消记住密码”, 1, ) = 1)

选择框1选中 = 真

如果真结束

否则

信息框 (“记住密码已应用”, 0, )

如果结束

子程序 _按钮1_被单击

时钟1时钟周期 = 0

如果 (编辑框1内容 ≠ “” 且 编辑框2内容 ≠ “”)

如果 (拨号 (“@n”, 编辑框1内容, 编辑框2内容, 真, 标签1) = 真)

时钟1时钟周期 = 秒

标签1标题 = “连接成功”

标签1文本颜色 = #蓝色

可视 = 假

托盘 ()

否则

标签1标题 = “连接失败”

标签1文本颜色 = #红色

托盘 ()

如果结束

否则

信息框 (“账户和密码不可以为空”, #警告图标, )

如果结束

如果真 (选择框1选中 = 真)

写配置项 (取运行目录 () + “\网络配置ini”, “配置”, “账户”, 编辑框1内容)

写配置项 (取运行目录 () + “\网络配置ini”, “配置”, “密码”, 编辑框2内容)

如果真结束

子程序 _选择框3_被单击

如果 (选择框3选中 = 真)

写注册项 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\自动连接ADSL”, 取运行目录 () + “\” + 取执行文件名 ())

信息框 (“设置开机自动连接成功”, 0, )

否则

删除注册项 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\自动连接ADSL”)

信息框 (“设置开机不自动连接成功”, 0, )

如果结束

子程序 _时钟1_周期事件

如果 (选择框2选中 = 真)

如果真 (是否已在线 () = 假)

手动拨号 ()

托盘 ()

如果真结束

否则

如果结束

子程序 _断线重连频率_被选择

载入 (窗口1, , 真)

子程序 读取秒

秒 = 到数值 (读配置项 (取运行目录 () + “\网络配置ini”, “配置”, “断线重连间隔”, “5”))

子程序 __启动窗口_位置被改变

如果 (_启动窗口位置 = 2)

_启动窗口可视 = 假

托盘 ()

否则

如果结束

子程序 托盘

如果 (是否已在线 () = 真)

置托盘图标 (#图标红, “宽带连接:(” + 标签1标题 + “)”)

否则

置托盘图标 (#图标绿, “宽带连接:(” + 标签1标题 + “)”)

如果结束

子程序 __启动窗口_托盘事件

参数 *** 作类型, 整数型

如果 ( *** 作类型 = 1)

_启动窗口可视 = 真

_启动窗口位置 = 1

否则

如果结束

如果 ( *** 作类型 = 3)

d出菜单 (功能, , )

否则

如果结束

子程序 _选择框2_被单击

如果 (选择框2选中 = 假)

信息框 (“断线重连功能已经关闭”, 0, )

否则

信息框 (“断线重连功能开启”, 0, )

如果结束

子程序 _连接_被选择

如果 (是否已在线 () = 假)

_按钮1_被单击 ()

否则

信息框 (“你已经连接网络”, 0, )

如果结束

子程序 _断开_被选择

_按钮2_被单击 ()

子程序 _退出_被选择

_启动窗口可视 = 真

_启动窗口位置 = 1

程序集 窗口程序集2

子程序 _按钮1_被单击

销毁 ()

子程序 _按钮2_被单击

如果 (到数值 (编辑框1内容) < 5)

信息框 (“不可以设置5秒以下!” + #换行符 + “否则会出现无限制连接的错误”, 0, )

否则

写配置项 (取运行目录 () + “\网络配置ini”, “配置”, “断线重连间隔”, 到文本 (秒))

销毁 ()

如果结束

子程序 _编辑框1_内容被改变

秒 = 到数值 (编辑框1内容)

秒 = 秒 × 1000

全局变量 秒, 长整数型

图标绿

图标红

以上就是关于易语言一个程序向另一个程序发送消息在线等,急!!!全部的内容,包括:易语言一个程序向另一个程序发送消息在线等,急!!!、跪求,,在线等 易语言怎么用FTP做更新程序、怎么用易语言编写程序等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zz/10106804.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-05
下一篇 2023-05-05

发表评论

登录后才能评论

评论列表(0条)

保存