1.vb源代码中的源码在哪
2.请问怎样用vb6.0做一个浏览器，就是相册类似一个相册，点击下一张出现下一张，源码上一张出现上一张
3.vb 取网站的相册显示在客户端上，请付源码

vb源代码中的源码自动换签名源码在哪

       VB软件调用有多种方法：

       1、直接调用外部文件；

       2、相册自动生成logo源码直接放入控件的源码Picture属性或Icon等属性；

       3、放入资源文件；

       4、相册其他方法（比如数据库）。源码

       从你描述的相册情况来看，应该可以排除第一种方法。源码如果是相册第二种方式，那么是源码拆红包中奖源码放在与窗体同名的frx文件中（比如Form1.Frx），这里放的相册是所有与该窗体有关的二进制数据（不单单是），不过你要想在程序外部从frx文件中提取出原可不太容易，源码但你在程序中可以用savepicture命令很轻松的把保存为新文件。如果使用资源文件存放的租书小程序 源码，你可以用一些资源文件的分析软件取出所要的，当然也可以用VB本身的提取资源命令取出到图像控件的picture属性再用savepicture命令保存为新文件。

       当然如果你说的VB软件不是源代码，而是摩尔斯码源码编译后的EXE文件，那就没办法了，只有破解一途了，但这个的成功率很低。

请问怎样用vb6.0做一个浏览器，就是类似一个相册，点击下一张出现下一张，上一张出现上一张

       帮你搞定了，我的思路是把目录下所有文件名存入数组，然后依次读取，把张合成一张然后读取比较麻烦，到不如放在一个文件夹中，然后隐藏这个文件夹，只要把我给你的源码中的FileName = Dir(FilePath)替换为FileName = Dir(FilePath, vbHidden)就可以获取到隐藏文件夹了

vb 取网站的显示在客户端上，请付源码

       使用API吧，这个API可以读取网上的，包含你说的验证码，只要能在浏览器上显示的都可以。

       Private Type TGUID

        Data1 As Long

        Data2 As Integer

        Data3 As Integer

        Data4(0 To 7) As Byte

       End Type

       '// 用来加载Internet上的

       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