Archive for 07月, 2008
‘我测试时用到SSTab 控件,会有bug
Option ExplicitPrivate FormOldWidth As Long‘保存窗体的原始宽度Private FormOldHeight As Long‘保存窗体的原始高度
‘在调用ResizeForm前先调用本函数Public Sub ResizeInit(FormName As Form) Dim Obj As Control FormOldWidth = FormName.ScaleWidth FormOldHeight = FormName.ScaleHeight On Error Resume Next For Each Obj In FormName Obj.Tag = Obj.Left & ” ” & Obj.Top & ” ” & Obj.Width & ” ” & Obj.Height & ” “ Next Obj [...]
07月 19th, 2008 | Posted in 编 程|VisualBasic | No Comments
WinArpAttacker的界面分为四块输出区域。第一个区域:主机列表区,显示的信息有局域网内的机器IP、MAC、主机名、是否在线、是否在监听、是否处于被攻击状态。另外,还有一些ARP数据包和转发数据包统计信息,如ArpSQ:是该机器的发送ARP请求包的个数ArpSP:是该机器的发送回应包个数ArpRQ:是该机器的接收请求包个数ArpRQ:是该机器的接收回应包个数Packets:是转发的数据包个数,这个信息在进行SPOOF时才有用。Traffic:转发的流量,是K为单位,这个信息在进行SPOOF时才有用。第二个区域是检测事件显示区,在这里显示检测到的主机状态变化和攻击事件。能够检测的事件列表请看英文说明文档。主要有IP冲突、扫描、SPOOF监听、本地ARP表改变、新机器上线等。当你用鼠标在上面移动时,会显示对于该事件的说明。第三个区域显示的是本机的ARP表中的项,这对于实时监控本机ARP表变化,防止别人进行SPOOF攻击是很有好处的。第四个区域是信息显示区,主要显示软件运行时的一些输出,如果运行有错误,则都会从这里输出。好,软件界面就讲到这里。
07月 19th, 2008 | Posted in 系统集成|病毒安全 | No Comments
ARP攻击
1. 网络异常。具体表现为:掉线、IP冲突等。
2. 数据窃取。具体表现为:个人隐私泄漏(如MSN聊天记录、邮件等)、账号被盗用(如QQ账号、银行账号等)。 3. 数据篡改。具体表现为:访问的网页被添加了恶意内容,俗称“挂马”。
4. 非法控制。具体表现为:网络速度、网络访问行为(例如某些网页打不开、某些网络应用程序用不了)受第三者非法控制。
ARP欺骗根据发起个体的不同可以分为两类:
1. 人为攻击。人为攻击的目的主要是:造成网络异常、窃取数据、非法控制。
2. ARP病毒。ARP病毒不是特指某一种病毒,而是指所有包含有ARP欺骗功能的病毒的总称。ARP病毒的目的主要是:窃取数据(盗号等)、篡改数据(挂马等)。
07月 19th, 2008 | Posted in 系统集成|病毒安全 | No Comments
Option ExplicitDim f() As Form1Dim i As Integer
Private Sub MDIForm_Load()i = 0End Sub
Private Sub mnu_1_Click()ReDim Preserve f(i)Set f(i) = New Form1f(i).Caption = “hello”f(i).Showi = i + 1End Sub
Private Sub mnu_2_Click() f(i - 1).Hide Set f(i - 1) = Nothing i = i - 1End Sub
07月 15th, 2008 | Posted in 编 程|VisualBasic | No Comments
日前,广州市有关部门透露,2010年亚运会前广州市将建成“无线城市”,实现覆盖全市的无线宽带上网。其实,不只是广州,目前国内很多城市都发出建设“无线城市”的呼声。
而在深圳,一家名深圳市神舟联合通信技术有限公司的企业也提出要在2008年底左右率先在深圳完成无线城市建设。此外,《深圳市无线电事业“十一五”发展规划》也明确了深圳在建设城域无线宽带网络方面取得“创新发展”,而深圳市无线管理局等相关部门也已经开始了建设的前期调研工作。
07月 14th, 2008 | Posted in 科技聚焦|奇闻趣闻 | No Comments
7月10日消息,近日百度正式推出了免费的翻译服务(dict.baidu.com)。据悉,百度翻译服务目前提供了中英、英中互译和单词查询功能,最多支持1000个汉字的长篇翻译服务,这是中文领域第一家提供免费千字翻译的服务。
百度翻译服务是之前“百度词典翻译服务”的升级,目前免费提供了中英、英中的全文互译服务,同时支持单词、短语查询。记者试用后发现,其查询结果十分详尽,包括单词读音、标注、解释、示例等。此外,对于中英文的全文互译最多支持1000个汉字,这是中文领域第一次提供的千字长篇翻译服务。据了解,目前国内免费翻译服务大都最多支持150个汉字。
07月 14th, 2008 | Posted in 科技聚焦|奇闻趣闻 | No Comments
x:\Windows\SoftwareDistribution\Download(x:为系统盘,一般为C)目录下,请在显示所有隐藏文件夹时查看 如果是已经安装的,那大部分都位于 c:\windows\system32文件夹下 备份的位于c:\windows下,即以$为首的文件名的文件夹中(隐藏) 打开文件夹选项的显示所有文件和文件夹即可看到
07月 11th, 2008 | Posted in 系统集成|病毒安全 | No Comments
这是一款针对iPhone开发的非常有趣的程序。从侧面看上去就像是一杯啤酒。而且它还不仅仅是静态的图像,配合着iPhone独特的运动感应器,还可以实现动态效果。不仅可以使得水位保持水平还能够模拟真的啤酒,逐渐被用户“喝光”。
以下是该产品的一段演示视频:
07月 10th, 2008 | Posted in 科技聚焦|奇闻趣闻 | No Comments
一般传统的实现两个PictureBox之间图像的淡入淡出效果都需要使用大量的API函数并进行复杂的调色板以及
绘图设备(Device Context)的操作。但是在Win98、Win2000中,微软提供了支持透明图像拷贝的AlphaBlend函数。
这篇文章就介绍如何通过API函数AlphaBlend实现PictureBox之间图像的淡入淡出效果。AlphaBlend函数的定义在
msimg32.dll中,一般Win98、Win2000都带了这个库,在编程之前你可以先察看一下该文件是否存在。
打开VB建立一个新工程。选择菜单 Project | Add Module 添加一个模块到工程中,在其中输入以下代码:
07月 8th, 2008 | Posted in 编 程|VisualBasic | No Comments
Private Sub Command1_Click() WebBrowser1.Navigate “http://www.vicmiao.com“End Sub
Private Sub Command2_Click() Dim oWindow Dim oNav Set oWindow = WebBrowser1.Document.parentWindow Set oNav = oWindow.navigator Debug.Print oNav.userAgent Set oWindow = Nothing Set oNav = NothingEnd Sub
点击Command1浏览网页,点击Command2在立即窗口中输出浏览器信息。
07月 8th, 2008 | Posted in 编 程|VisualBasic | No Comments