小龙IDC，无敌小龙，虚拟主机，网页空间，网页数据库

Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
   If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
   Set vTag = vDoc.All(i)
      If vTag.Type = "text" Or vTag.Type = "password" Then '看看是不是我们需要的
         Select Case v

阅读全文>>

类别：vb--【重复模块】 | 评论(0) | 浏览()

Webbrowser获得页面所有链接

2009年06月10日星期三下午 05:40

Private Sub Command1_Click()
Dim vTag, vDoc
Dim Allcount, i
List1.Clear
Set vDoc = WebBrowser1.Document.All '整个文档
Allcount = vDoc.length '文档长度

For i = 0 To Allcount - 1
If UCase(vDoc.Item(i).TagName) = "A" Then '找到URL
vTag = vDoc.Item(i).href
If InStr(vTag, "http://winsock.cn

阅读全文>>

类别：vb--【重复模块】 | 评论(0) | 浏览()

惊爆百度TOM21CN系列搜索引擎漏洞

2009年06月10日星期三下午 05:39

惊爆百度、TOM、21CN系列搜索引擎漏洞
冰河洗剑
文章难易度：★★★★
文章阅读点：使用搜索引擎快照挂

阅读全文>>

类别：Hacker | 评论(1) | 浏览()

下载API

2009年06月10日星期三下午 05:38

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

EG:
Private Sub Form_Load()
Text1.Text = "http://www.mingrisoft.com"
End Sub

Private Sub Command1_Click() '下载
Dim sDownload As String
sDownload = StrConv(Text1.Text, vbUnicode)
Call DoFileDownload(sDownload)
End Sub

============================================

阅读全文>>

类别：vb--【重复模块】 | 评论(1) | 浏览()

LISTVIEW使用

2009年06月10日星期三下午 05:36

Private Sub Form_Load()
Set a = ListView1.ColumnHeaders.Add(, , "进程名称")
Set a = ListView1.ColumnHeaders.Add(, , "进程ID")
Set a = ListView1.ColumnHeaders.Add(, , "线程数")

For i = 1 To 100
   Set a = ListView1.ListItems.Add(, , "hehe")
   a.SubItems(1) = "11111"
   a.SubItems(2) = "22222"
Next
End Sub

类别：vb--【重复模块】 | 评论(0) | 浏览()