VB仿360安全卫士界面皮肤控件及一些研究

页面导航:首页 > 软件编程 > vb.net > VB仿360安全卫士界面皮肤控件及一些研究

VB仿360安全卫士界面皮肤控件及一些研究

来源: 作者: 时间:2016-01-21 10:23 【

Author:MinghackerFrom:www.4safer.com归零jj传的360安全卫士界面皮肤控件,网上也有。随风工作室出的控件SFForm.dll SFProgressBar.dll SFTabControl.dll (作用不用解释鸟,名字那么清晰)当然我们无法获
Author:Minghacker
From:


归零jj传的360安全卫士界面皮肤控件,网上也有。随风工作室出的控件SFForm.dll   SFProgressBar.dll  SFTabControl.dll (作用不用解释鸟,名字那么清晰)

当然我们无法获得这些控件的源码,只要作者不乐意开源。

他给了我们一个示例。

VB仿360安全卫士界面皮肤控件及一些研究 - Minghacker - MinghackerHomeland

 

 

Private Sub Form_Load()
        Form1.Show , Me
        从文件中加载图标
        Call SFTabControl1.AddTab(100, "电脑体检", LoadImage(0, App.Path & "Resource11.ico", IMAGE_ICON, _
        0, 0, LR_LOADFROMFILE))
        Call SFTabControl1.AddTab(100, "清理插件", LoadImage(0, App.Path & "Resource22.ico", IMAGE_ICON, 0, _
        0, LR_LOADFROMFILE))
        Call SFTabControl1.AddTab(100, "修复", LoadImage(0, App.Path & "Resource33.ico", IMAGE_ICON, _
        0, 0, LR_LOADFROMFILE))
        从资源中加载图标
        Call SFTabControl1.AddTab(100, "修复漏洞", LoadIcon(App.hInstance, 100))       100是资源中图标的ID
        Call SFTabControl1.AddTab(100, "清理垃圾", LoadIcon(0, IDI_APPLICATION))
        Call SFTabControl1.AddTab(100, "清理痕迹", LoadIcon(0, IDI_HAND))
        Call SFTabControl1.AddTab(100, "修复IE", LoadIcon(0, IDI_QUESTION))
        Call SFTabControl1.AddTab(100, "高级工具", LoadIcon(0, IDI_EXCLAMATION))
        SFTabControl1.DefaultTab = 2                                                    将索引为2的条目设置为选择状态
End Sub

自动add7个tab loadicon,没什么研究之处

Private Sub Timer1_Timer()
        Static dwCount As Long
        If SFProgressBar1(0).Value < SFProgressBar1(0).Max Then
           SFProgressBar1(0).Value = SFProgressBar1(0).Value + 1
        Else
           SFProgressBar1(0).Value = SFProgressBar1(0).Min
           dwCount = dwCount + 1                                                        累计次数
        End If
        If SFProgressBar1(1).Value > SFProgressBar1(1).Min Then
           SFProgressBar1(1).Value = SFProgressBar1(1).Value - 1
        Else
           SFProgressBar1(1).Value = SFProgressBar1(1).Max
        End If
        If dwCount < SFProgressBar1(2).Max Then
           SFProgressBar1(2).Value = dwCount
        Else
           dwCount = SFProgressBar1(2).Min                                              累计次数清0
           SFProgressBar1(2).Value = dwCount
        End If
End Sub


进度条的控制,也没什么- -

很简单,没什么讲

调试时候遇到2个小问题

1。控件无法拖到。主要我copy 一个progressbar时候无法拖动。

很久没碰vb,很多玩却鸟。百度得知是控件锁住鸟,哎,弱智- -

右键点form  锁定控件  切换 --


2。拖动鸟。拖动progressbar 出现幻影,F5一下,发现根本没拖动鸟,fuck。研究下mainform发现这个progressbar貌似只能在其他控件上,在form上拖动不鸟???bug???

 

 

VB仿360安全卫士界面皮肤控件及一些研究 - Minghacker - MinghackerHomeland

 

 

 


填上一个picturebox,add progressbar ,ok- -

  13 分钟前 上传下载 (53.61 KB)

VB仿360安全卫士界面皮肤控件及一些研究 - Minghacker - MinghackerHomeland

乱改改,改出乱样子
  7 分钟前 上传下载 (45.76 KB)

VB仿360安全卫士界面皮肤控件及一些研究 - Minghacker - MinghackerHomeland

源码发给大家共享,研究。

大家若是发现这个控件源码可以来共享。

 vb 仿360安全卫士界面皮肤控件.rar 10 分钟前 上传 (287.77 KB)

附件下载地址:


/ 本文转自4safer安全社区

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <