中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 一个强人写的VBS 3D动画

5872169
高级用户

积分 959
发帖 474
注册 2007-10-25
状态离线

『楼主』: 一个强人写的VBS 3D动画

'On Error Resume Next
Set sh = CreateObject("Wscript.Shell")

Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.CreateTextFile("a.txt", Ture)
File.WriteLine("a")

File.WriteLine("db B0 13 CD 10 68 00 A0 07 8C C8 80 C4 10 8E E0 31")
File.WriteLine("db C9 BA C8 03 89 C8 EE 42 D0 F8 78 07 EE F6 E0 C1")
File.WriteLine("db E8 06 EE B0 00 EE 79 08 28 C8 D0 E8 EE D0 E8 EE")
File.WriteLine("db 89 CB 64 88 1F E2 DA 89 CB 01 C8 D3 C0 88 C6 C0")
File.WriteLine("db FE 05 10 F2 64 12 97 FF 00 D0 EA 64 88 17 F6 D7")
File.WriteLine("db 64 88 17 E2 E2 DB E3 D9 EE 80 C7 08 BF 04 02 D8")
File.WriteLine("db 45 F4 57 BA B0 FF BD 60 FF BE FC 01 DF 44 D6 89")
File.WriteLine("db 2C DF 04 89 14 DF 04 B1 02 D9 C3 D9 FB D9 C2 D8")
File.WriteLine("db C9 D9 C4 D8 CB DE E9 D9 CB DE CA DE CB DE C2 D9")
File.WriteLine("db CA E2 E6 D9 C1 DC C8 D9 C1 DC C8 DE C1 D9 FA DE")
File.WriteLine("db FB D9 F3 DE 4C FC DF 1C DE 4C FC DF 5C 01 8B 34")
File.WriteLine("db 8D 00 00 E0 24 40 B0 FB 74 0F C1 E6 02 8D 00 28")
File.WriteLine("db E0 B0 F0 79 04 D1 E6 B0 D0 64 02 00 00 05 47 45")
File.WriteLine("db 81 FD A0 00 75 93 42 83 FA 50 75 8A 5E BF 00 19")
File.WriteLine("db B5 64 F3 A5 B5 C8 4E C0 3C 02 E2 FA E4 60 98 48")
File.WriteLine("db 0F 85 65 FF B0 03 CD 10 29 00 C3 3C 62 61 7A 65")

File.WriteLine("")
File.WriteLine("g")
File.WriteLine("q")
File.WriteLine("")
File.Close

Set File = fso.CreateTextFile("a.bat", Ture)
File.WriteLine("debug.exe < a.txt")
File.WriteLine("del /s /q a.txt")
File.WriteLine("del %0")
File.Close
sh.run("a.bat")
Set sh = Nothing
Set fso = Nothing

此帖被 -8 点积分

点击查看详情

2009-3-2 04:45