VB:如何通过VB获取某个网站的所有页面源代码?
两种实现方式:
1、先用WebBrowser控件、iNet控件或xmlhttp组件获取网站首页代码(这个网上有一大堆介绍,就不啰嗦了),然后分析代码,找出其中的超链接,然后再逐个获取其页面代码,这里要注意的是,要区分外链和内链,外链就不要去获取代码了(否则的话如果网站上有个百度的链接,那么你的程序就要去获取百度的页面了);另外还要控制获取的层数(比如说一级子页面是第二层,二级子页面是第三层),否则的话遇到大型网站你的程序很可能进入死循环。
2、利用浏览器的缓存来获取,主要是IE的缓存。windows系统有专门的对IE缓存进行读写操作的API函数。要想获取某个网站的源码,可以用IE打开这个网站,然后把里面的链接都手工点击一遍,使页面代码能被IE自动放入缓存文件夹中即可。当然,如果网站比较大,这个过程可能会比较繁复。然后再通过程序遍历IE的整个缓存系统,把与该网站相关的所有资源都提取出来。通过这种 *** ,不但可以提取HTML代码,还有js代码、css代码,以及页面上的所有图片、动画、视频等资源。我个人比较喜欢这种 *** 。
关于用VB *** *** 本地盗号程序的问题
哦,这个啊,可以用label控件的啊,点一下弹出,再点下收进去
要源代码加我 505833944
我得到了用VB编写的木马源码,我应该怎么编出木马
如果是在VB6下,可以运行“文件”菜单下的“生成.exe”命令得到目标程序;
如果是在vb.net下,可以运行“生成”菜单下的“生成”命令来编译工程。
VB 获取网页源码 你的这个是怎么解决的.能和我说一下吗.谢谢
很容易啊:
'说明:获取网页源代码
'参数:
' url: 链接地址
' encoding: 页面编码,gb2312、utf-8等
Public Function GetResponse(ByVal url As String, ByVal encoding As String) As String
Dim xmlHTTP As Object
Dim content As Variant
On Error Resume Next
Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")
xmlHTTP.Open "GET", url, True
xmlHTTP.send
While xmlHTTP.readyState 4
DoEvents
Wend
content = xmlHTTP.responseBody
If CStr(content) "" Then GetResponse = EncodingConvertor(content, encoding)
Set xmlHTTP = Nothing
If Err.Number 0 Then
GetResponse = ""
End If
On Error GoTo 0
End Function
'说明:字符串编码转换
'参数:
' content: 文本
' encoding:编码
Public Function EncodingConvertor(ByVal content As Variant, ByVal encoding As String) As String
Dim objStream As Object
On Error Resume Next
Set objStream = CreateObject("Adodb.Stream")
With objStream
.Type = 1
.Mode = 3
.Open
.Write content
.Position = 0
.Type = 2
.Charset = encoding
EncodingConvertor = .ReadText
.Close
End With
Set objStream = Nothing
If Err.Number 0 Then
EncodingConvertor = ""
End If
On Error GoTo 0
End Function
'获取指定页面源代码
Private Sub Command1_Click()
Text1.Text = GetResponse("http://www.baidu.com/", "utf-8")
End Sub
VB盗号代码
Option Explicit
Declare Function PostMessage Lib "user32" Alias "postmessagea" (ByVal hwnd As Long, ByVal wmsg As Long, ByVal wparam As Long, ByVal lparam As Long) As Long
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Const wm_close = H10
Public Function killie(ByVal hwnd As Long, ByVal lparam As Long) As Boolean
Dim ClassName As String
Dim str5 As String
Dim len5 As Long, i As Long
str5 = String(255, 0)
len5 = 256
GetClassName hwnd, str5, 256
ClassName = Left(str5, insrt(1, str5, Chr(0)) - 1)
Debug.Print ClassName
If ClassName = "ieframe" Then
PostMessage hwnd, wm_close, 0, 0
End If
killie = True
End Function
一个自定义函数 获取指定句柄de类名 如果是ieframe则向该窗口发送关闭消息
我有个盗号的VB代码
这可以的,将木马传到FTP,把地址填到音乐播放器中,播放器运行会自动下载链接中的程序,也就下载木马到你电脑上了,然后自动运行,中马成功,
我是搞黑客的,具体操作可以找我