① 制作易语言源码
.版本 2
.程序集 窗口程序集1
.程序集变量 路径, 文本型
.程序集变量 内容, 文本型
.子程序 _按钮1_被单击
通用对话框1.打开 ()
路径 = 通用对话框1.文件名
编辑框1.内容 = 路径
.如果真 (编辑框1.内容 ≠ “”)
按钮2.禁止 = 假
编辑框2.禁止 = 假
返回 ()
.如果真结束
.子程序 _按钮2_被单击
.如果真 (编辑框2.内容 = “”)
信息框 (“请输入要寻找的内容”, 0, “提示”)
返回 ()
.如果真结束
内容 = 到文本 (读入文件 (路径))
.如果 (寻找文本 (内容, 编辑框2.内容, , 假) = -1)
标签2.标题 = “没有找到”
.否则
标签2.标题 = “找到了” ' 要触发的事件
.如果结束
.子程序 __启动窗口_创建完毕
按钮2.禁止 = 真
编辑框2.禁止 = 真
② 易语言的源码
易语言有这么大的计算量么?
③ 易语言源码大全
下载地址在 图片里
④ 易语言源码
.版本 2
.子程序 _按钮_生成_被单击
.计次循环首 (到整数 (编辑框_生成数.内容), )
列表框1.加入项目 (编辑框_前段.内容 + 编辑框_后段.内容 + “----” + 编辑框_密码.内容, )
.计次循环尾 ()
.子程序 _按钮_复制全部_被单击
.局部变量 i, 整数型
.局部变量 列表框内容, 文本型, , "100"
编辑框1.加入文本 (“”)
.计次循环首 (列表框1.取项目数 (), i)
列表框内容 [i] = 列表框1.取项目文本 (i - 1)
.计次循环尾 ()
i = 0
.计次循环首 (列表框1.取项目数 (), i)
编辑框1.加入文本 (列表框内容 [i] + #换行符)
.计次循环尾 ()
置剪辑板文本 (编辑框1.内容)
.子程序 _按钮_复制_被单击
编辑框1.加入文本 (“”)
编辑框1.加入文本 (列表框1.取项目文本 (列表框1.现行选中项) + #换行符)
置剪辑板文本 (编辑框1.内容)
.子程序 _列表框1_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
弹出菜单 (菜单, , )
.子程序 _复制全部_被选择
_按钮_复制全部_被单击 ()
.子程序 _复制_被选择
_按钮_复制_被单击 ()
⑤ 求一个易语言的源码
.版本 2
.支持库 eAPI
.子程序 _按钮1_被单击
打开指定网址 (“http://www..com/”)
⑥ e语言源代码
呵呵,笑!楼主的问题没说明白,你要的是信息框的API函数还是它的规格写法??如果是API的话可以用MessageBox函数,有4个参数,第一个参数是信息框父窗口的句柄,第二个是信息框的内容,第三个是信息框的标题,第四个是信息框的按钮(这里你可以参照E语言里面的信息框命令的提示):调用格式如下:
.版本
2
.DLL命令
API信息框,
整数型,
"user32.dll",
"MessageBoxA"
.参数
hwnd,
整数型
.参数
lpText,
文本型
.参数
lpCaption,
文本型
.参数
wType,
整数型
写法:
.版本
2
.子程序
__启动窗口_创建完毕
API信息框
(_启动窗口.取窗口句柄
(),
“111”,
“1”,
0)
⑦ 易语言的源码有问题啊
.版本2
.支持库internet
.程序集窗口程序集1
.子程序_按钮1_被单击
.如果(连接发信服务器(“smtp.126.com”,25,“eqewwrte”,“49247585”,)=真)
发送邮件(“测试工具发邮件”,编辑框1.内容,“[email protected]”,,,,)
信息框(“发送成功”,0,)
.否则
信息框(“发送失败”,0,)
如果不成功有可能是你的邮件没有开通SMTP
⑧ 易语言源代码
高等代数中这类解可以用:“特解+通解” 的方式来求解的。
如果没有约束条件的话,很显然这个方程通解会有无穷多个解。因为这个通解是一个18维空间中的超平面。所以是无穷的。
⑨ 易语言 源码
.版本 2
.支持库 shellEx
.支持库 eAPI
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #Q键)
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
模拟按键 (#键2, , )
延时 (100)
模拟按键 (#键1, , )
延时 (100)
模拟按键 (#键3, , )
只需要在窗口中加一个标签组件就可以实现你要的功能了!!!
⑩ 易语言,源码
我这里都可以发的啊
.版本2
.支持库internet
.如果(连接发信服务器(“smtp.qq.com”,,“370854532”,“198703250”,)=真)
编辑框1.内容=“连接成功”
编辑框2.内容=发送邮件(“测试邮件除”,“可以删除”,“[email protected]”,,,“[email protected]”,)
.如果真(编辑框2.内容=“”)
编辑框2.内容=“发送成功”
.如果真结束
断开发信服务器()
.否则
编辑框1.内容=“连接失败”
如果还是发送不了就按步骤排除原因
1,有没有连接上邮件服务器
2,有没有,发送成功,
没有发送成功的话取发送失败信息看看什么原因
3,如果发送成功,但邮件没有发送出去,那就去邮箱看看提示是什么原因
钓鱼木马啊!这玩意还是少弄点吧,搞的我天天怕怕的