VB 写的一个小3D东东

沉沦

这个是？？？？？？？？？？

ccdd

？？？？？？

==21315==

是什么东东啊

风间

VBS
准确来说和VB是区别的

烽火ㄨ飞狐

你们把这个导入VBS里就知道什么了

烽火ㄨ飞狐

'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

==================================================

还有不足的地方 请广大狼友多指教
原创

BY:Mastlong

本文来自: （黑狼基地）牛站长论坛 http://www.nb5.cn 交流·共享·进步-=您的付出是对我们最大的支持=-!