怎样制作象word助手,瑞星狮子一样的助手?

oc100 2003-11-04 06:17:43
象word助手,瑞星狮子使用什么软件做成的?{我是问用什么软件做,还有怎么做,而不是直接引用他的助手,我要自己设计的。}
...全文
73 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
zxj911 2003-11-06
  • 打赏
  • 举报
回复

是吗?
有机会我也试试看
rainstormmaster 2003-11-05
  • 打赏
  • 举报
回复
其实就是采用透明位图方法在桌面上显示位图,通过定时更换位图以实现动画效果
xueyi0008 2003-11-05
  • 打赏
  • 举报
回复
Option Explicit '函数声明
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, _
ByVal Y As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, _
ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, _
ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Const RGN_OR = 2
Dim I As Integer, j, myint, linex As Integer
Dim Fullr, myColor, crn As Long
Dim Region, PicWidth, PicHeight As Long
Dim mystart, mybool As Boolean
Private Sub Form_Load()
Dim hDC As Long
Me.Width = Picture1.Width '设置窗体宽度等于图形宽度
Me.Height = Picture1.Height '设置窗体宽度等于图形宽度
Picture1.ScaleMode = vbPixels '设置Picture1度量单位为像素
Picture1.AutoRedraw = True '设置Picture1自动重绘有效
Picture1.AutoSize = True '设置Picture1自动调整大小
Picture1.BorderStyle = vbBSNone '设置Picture1的边框样式
Me.BorderStyle = vbBSNone '设置窗体的边框样式
hDC = Picture1.hDC
mystart = True
mybool = False
I = 0
j = 0
PicWidth = Picture1.ScaleWidth
PicHeight = Picture1.ScaleHeight
linex = 0
myColor = GetPixel(hDC, 0, 0) '获取picture1指定像素的rgb值
For j = 0 To PicHeight - 1
For I = 0 To PicWidth - 1
If GetPixel(hDC, I, j) = myColor Or I = PicWidth Then '透明像素
If mybool Then
mybool = False
crn = CreateRectRgn(linex, j, I, j - 1) '创建矩形区域
If mystart Then
Fullr = crn
mystart = False
Else
CombineRgn Fullr, Fullr, crn, RGN_OR '合并区域
DeleteObject CreateRectRgn(linex, j, I, j - 1) '删除透明区域
End If
End If
Else '非透明像素
If Not mybool Then
mybool = True
linex = I
End If
End If
Next
Next
Region = Fullr
SetWindowRgn Me.hWnd, Region, True '设置窗体区域
myint = 0
End Sub
Private Sub Timer1_Timer() '形成动画
Dim hDC As Long
myint = myint + 1
If myint = 1 Then Set Picture1.Picture = LoadPicture(App.Path & "\sz3.bmp")
If myint = 2 Then Set Picture1.Picture = LoadPicture(App.Path & "\sz4.bmp")
If myint = 3 Then Set Picture1.Picture = LoadPicture(App.Path & "\sz5.bmp")
If myint = 4 Then Set Picture1.Picture = LoadPicture(App.Path & "\sz6.bmp")
If myint = 5 Then myint = 0
hDC = Picture1.hDC
mystart = True
mybool = False
I = 0
j = 0
Me.Width = Picture1.Width
Me.Height = Picture1.Height
PicWidth = Picture1.ScaleWidth
PicHeight = Picture1.ScaleHeight
linex = 0
myColor = GetPixel(hDC, 0, 0) '获取picture1指定像素的rgb值
For j = 0 To PicHeight - 1
For I = 0 To PicWidth - 1
If GetPixel(hDC, I, j) = myColor Or I = PicWidth Then '透明像素
If mybool Then
mybool = False
crn = CreateRectRgn(linex, j, I, j - 1) '创建矩形区域
If mystart Then
Fullr = crn
mystart = False
Else
CombineRgn Fullr, Fullr, crn, RGN_OR '合并区域
DeleteObject CreateRectRgn(linex, j, I, j - 1) '删除透明区域
End If
End If
Else '非透明像素
If Not mybool Then
mybool = True
linex = I
End If
End If
Next
Next
Region = Fullr
SetWindowRgn Me.hWnd, Region, True '设置窗体区域
End Sub
Private Sub Picture1_Click()
End
End Sub


lihonggen0 2003-11-05
  • 打赏
  • 举报
回复
http://www.ecoo.net/list.asp?articleid=1302
lihonggen0 2003-11-05
  • 打赏
  • 举报
回复
Microsoft Agent
sanwaxubin 2003-11-05
  • 打赏
  • 举报
回复
我也想知道啊
oc100 2003-11-05
  • 打赏
  • 举报
回复
up一下,没人知道吗?
瑞星卡卡上网安全助手 6.0 瑞星卡卡上网安全助手6.0版是一款基于互联网设计的全新反木马软件,拥有"木马下载拦截"、"木马行为判断和拦截"、"自动在线诊断"三大反木马功能,依托瑞星领先的"云安全"(Cloud Security)计划,可有效拦截、防御、查杀各种木马病毒,并能帮助用户自动扫描并修补系统和第三方软件漏洞,优化电脑系统,是广大网民必备的安全软件。 瑞星卡卡上网安全助手6.0新增功能: 1、木马下载拦截:基于业界领先的反木马技术,拦截中毒电脑通过网络下载更多的病毒和盗号木马,截断木马进入用户电脑的通道,有效遏制"木马群"等恶性木马病毒的泛滥。 2、木马行为判断与拦截:基于强大的"智能主动防御"技术,当木马和可疑程序启动、加载时,立刻对其行为进行拦截,阻断其盗号等破坏行为,在木马病毒运行时发现并清除,保护QQ、网游和网银的账号安全。 3、自动在线诊断:瑞星"云安全"(Cloud Security)计划的核心功能。自动检测并提取电脑中的可疑木马样本,并上传到瑞星"木马/恶意软件自动分析系统"(Rs Automated Malware Analyzer,简称RsAMA),随后RsAMA将把分析结果反馈给用户,查杀木马病毒,并通过"瑞星安全资料库"(Rising Security Database,简称RsSD),分享给其他所有"瑞星卡卡6.0"用户。 瑞星卡卡上网安全助手6.0增强功能: 1、全新的“漏洞扫描与设置”,自动修复操作系统及第三方软件漏洞 应用全新开发的漏洞扫描引擎,智能检测Windows系统漏洞、第三方应用软件漏洞和相关安全设置,并帮助用户修复。用户也可以根据设置,实现上述漏洞的自动修复,简化了用户的操作,同时更加及时的帮助用户在第一时间弥补安全隐患。

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧