皮皮网

1.vb oleԴ??

vb oleԴ??

       使用API吧，这个API可以读取网上的扫了场所码还用溯源码，包含你说的tls加密 源码验证码，只要能在浏览器上显示的eb注入源码都可以。

       Private Type TGUID

        Data1 As Long

        Data2 As Integer

        Data3 As Integer

        Data4(0 To 7) As Byte

       End Type

       '// 用来加载Internet上的HTMLurl链接 源码

       Private Declare Function OleLoadPicturePath Lib "oleaut.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long

       '// 从Internet上加载

       Public Function LoadPicture(ByVal strFileName As String) As Picture

        Dim IID As TGUID

        With IID

        .Data1 = &H7BF

        .Data2 = &HBF

        .Data3 = &HA

        .Data4(0) = &H8B

        .Data4(1) = &HBB

        .Data4(2) = &H0

        .Data4(3) = &HAA

        .Data4(4) = &H0

        .Data4(5) = &H

        .Data4(6) = &HC

        .Data4(7) = &HAB

        End With

        On Error GoTo LocalErr

        OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture

        Exit Function

       LocalErr:

        Set LoadPicture = VB.LoadPicture(strFileName)

        Err.Clear

       End Function

       Private Sub Command1_Click()

       '// 这里可以换成你要的地址

        Set Picture1.Picture = LoadPicture("/cFsjip0QIZ8tyhnq/img/logo-zhidao.gif")

       End Sub