一个强人写的VBS 3D动画 - 中国DOS联盟论坛

'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

第1楼　5872169	发表于 2009-03-02 04:45
高级用户　发帖 474　积分 959
一个强人写的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

第2楼　xxcvb	发表于 2009-03-02 04:47
新手上路　发帖 10　积分 6
太强大了

第3楼　terse	发表于 2009-03-02 04:52
银牌会员　发帖 946　积分 2,404
怎么不直接BAT？

第4楼　jha334201553	发表于 2009-03-02 07:38
初级用户　发帖 18　积分 20　来自浙江永康
确实强

第5楼　everest79	发表于 2009-03-02 10:23
金牌会员　发帖 1,127　积分 2,564
这与VBS有什么关系

第6楼　523066680	发表于 2009-03-03 05:50
银牌会员　发帖 1,133　积分 2,362
话说被楼主被扣8分多少有些过……

第7楼　740011611	发表于 2009-06-24 10:31
初级用户　发帖 83　积分 96　来自信阳
很强，但是头晕

第8楼　lovelymorning	发表于 2009-06-24 10:41
初级用户　发帖 72　积分 131
vbs？不就是用vbs把一些代码写到文本里面，再用debug来调试而已跟vbs没啥关系