飘云阁

 找回密码
 加入我们

QQ登录

只需一步,快速开始

查看: 6897|回复: 7

[原创] 图片吸血鬼 V1.30(注册机)

[复制链接]
  • TA的每日心情
    慵懒
    2019-2-17 18:27
  • 签到天数: 33 天

    [LV.5]常住居民I

    发表于 2007-6-23 17:04:59 | 显示全部楼层 |阅读模式
    软件介绍:
    图片吸血鬼是一款从网站上下载图片的共享软件,它可以把网站上的图片都下载下来,特点:1,设定下载图片的格式(如jpg,gif或swf);2,可自己设置下载图片的大小;3,搜索准确度高,可以把下级页面的图片都搜索出来。


    刚好老大发了个视频,看了下把注册机补上!呵呵 1.gif 3.gif
    天空下载地址:
    http://www.skycn.com/soft/17808.html 2.gif

    [ 本帖最后由 yingfeng 于 2007-6-23 17:19 编辑 ]

    图片吸血鬼注册机.rar

    162.71 KB, 下载次数: 51, 下载积分: 飘云币 -2 枚

    评分

    参与人数 1威望 +40 飘云币 +80 收起 理由
    kiss-you + 40 + 80 感谢您发布的原创作品!

    查看全部评分

    PYG19周年生日快乐!
  • TA的每日心情
    慵懒
    2019-2-17 18:27
  • 签到天数: 33 天

    [LV.5]常住居民I

     楼主| 发表于 2007-6-23 17:06:45 | 显示全部楼层
    自己坐个沙发
    VB注册机源码:

    Private Sub cmdOK_Click()
    If text1.Text = "" Then
    text2.Text = ""
    Else
    For i = 1 To Len(text1.Text) 'len为取得长度
    a = a & Hex(Asc(Mid(text1.Text, i, 1)))    'asc()返回字符串的ASCII码,
    Next
    b = StrReverse(a)                   '取所有字符的反序
    sn = "Pic4-" & Left(b, 4) & "ei8es-" & Mid(b, 5, 4)   '固定字符+B的前四位+固定字符+B的后四位
    text2.Text = sn
    End If
    End Sub
    PYG19周年生日快乐!

    该用户从未签到

    发表于 2007-6-23 18:42:38 | 显示全部楼层
    不错,支持下~~ /:09
    PYG19周年生日快乐!

    该用户从未签到

    发表于 2007-6-25 17:54:06 | 显示全部楼层
    支持迎风兄弟啦/:09
    PYG19周年生日快乐!

    该用户从未签到

    发表于 2007-7-5 07:16:18 | 显示全部楼层
    NiceNiceNiceNice
    PYG19周年生日快乐!

    该用户从未签到

    发表于 2010-8-11 18:45:09 | 显示全部楼层
    向你学习,向你致敬!
    PYG19周年生日快乐!
  • TA的每日心情
    开心
    前天 04:47
  • 签到天数: 951 天

    [LV.10]以坛为家III

    发表于 2020-2-1 16:46:02 | 显示全部楼层
    感谢分享,下载了!谢谢楼主
    PYG19周年生日快乐!
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    擦汗
    2025-1-7 13:17
  • 签到天数: 617 天

    [LV.9]以坛为家II

    发表于 2020-2-2 09:44:39 | 显示全部楼层
    大佬辛苦了 我试试看 这个还没有玩过
    PYG19周年生日快乐!
    回复 支持 反对

    使用道具 举报

    您需要登录后才可以回帖 登录 | 加入我们

    本版积分规则

    快速回复 返回顶部 返回列表