VB全盘搜索asp文件,并加入指定代码.

来源：百度知道 编辑：UC知道 时间：2024/06/27 14:45:13
标题里应该很详细了,

求具体代码,
- -,不是做病毒,我是做SEO的,需要这样一个程序来加反向连接,提高排名.

Dim keyWord As String
Dim DirTotal As Double
Dim TimeSpend As Double

Private Sub CmdStart_Click()

ListResult.Clear
ListTemp.Clear

ListTemp.AddItem Trim$(TxtPath.Text)
keyWord = Txtkeyword.Text

DirTotal = 0

Txtout.Text = ""
myFind

End Sub

Public Sub myFind()

Txtout.Text = "正在搜索……"
Dim i As Integer
TimeSpend = Timer

While ListTemp.ListCount > 0

DirTotal = DirTotal + 1

Dir1.Path = ListTemp.List(0)
File1.Path = Dir1.Path
If File1.ListCount > 0 Then
For i = 0 To File1.ListCount - 1
If InStr(File1.List(i), keyWord) > 0 Then
ListResult.AddItem FormatPath(Dir1.Path) & "\" & File1.List(i)