Archive for 07月, 2008

(整)vb窗体中控件自动随窗体变化大小

‘我测试时用到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    [...]

WinArpAttacker这个ARP攻击软件的使用方法

WinArpAttacker的界面分为四块输出区域。第一个区域:主机列表区,显示的信息有局域网内的机器IP、MAC、主机名、是否在线、是否在监听、是否处于被攻击状态。另外,还有一些ARP数据包和转发数据包统计信息,如ArpSQ:是该机器的发送ARP请求包的个数ArpSP:是该机器的发送回应包个数ArpRQ:是该机器的接收请求包个数ArpRQ:是该机器的接收回应包个数Packets:是转发的数据包个数,这个信息在进行SPOOF时才有用。Traffic:转发的流量,是K为单位,这个信息在进行SPOOF时才有用。第二个区域是检测事件显示区,在这里显示检测到的主机状态变化和攻击事件。能够检测的事件列表请看英文说明文档。主要有IP冲突、扫描、SPOOF监听、本地ARP表改变、新机器上线等。当你用鼠标在上面移动时,会显示对于该事件的说明。第三个区域显示的是本机的ARP表中的项,这对于实时监控本机ARP表变化,防止别人进行SPOOF攻击是很有好处的。第四个区域是信息显示区,主要显示软件运行时的一些输出,如果运行有错误,则都会从这里输出。好,软件界面就讲到这里。

ARP攻击

ARP攻击
1. 网络异常。具体表现为:掉线、IP冲突等。
2. 数据窃取。具体表现为:个人隐私泄漏(如MSN聊天记录、邮件等)、账号被盗用(如QQ账号、银行账号等)。 3. 数据篡改。具体表现为:访问的网页被添加了恶意内容,俗称“挂马”。
4. 非法控制。具体表现为:网络速度、网络访问行为(例如某些网页打不开、某些网络应用程序用不了)受第三者非法控制。
ARP欺骗根据发起个体的不同可以分为两类:
1. 人为攻击。人为攻击的目的主要是:造成网络异常、窃取数据、非法控制。
2. ARP病毒。ARP病毒不是特指某一种病毒,而是指所有包含有ARP欺骗功能的病毒的总称。ARP病毒的目的主要是:窃取数据(盗号等)、篡改数据(挂马等)。

(原)关闭多个New出来的窗体

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

深圳企业提出年底完成无线城市建设

日前,广州市有关部门透露,2010年亚运会前广州市将建成“无线城市”,实现覆盖全市的无线宽带上网。其实,不只是广州,目前国内很多城市都发出建设“无线城市”的呼声。
而在深圳,一家名深圳市神舟联合通信技术有限公司的企业也提出要在2008年底左右率先在深圳完成无线城市建设。此外,《深圳市无线电事业“十一五”发展规划》也明确了深圳在建设城域无线宽带网络方面取得“创新发展”,而深圳市无线管理局等相关部门也已经开始了建设的前期调研工作。

百度翻译上线 首次提供千字免费翻译服务

7月10日消息,近日百度正式推出了免费的翻译服务(dict.baidu.com)。据悉,百度翻译服务目前提供了中英、英中互译和单词查询功能,最多支持1000个汉字的长篇翻译服务,这是中文领域第一家提供免费千字翻译的服务。    
    百度翻译服务是之前“百度词典翻译服务”的升级,目前免费提供了中英、英中的全文互译服务,同时支持单词、短语查询。记者试用后发现,其查询结果十分详尽,包括单词读音、标注、解释、示例等。此外,对于中英文的全文互译最多支持1000个汉字,这是中文领域第一次提供的千字长篇翻译服务。据了解,目前国内免费翻译服务大都最多支持150个汉字。  

windows XP自动更新的文件下载目录

x:\Windows\SoftwareDistribution\Download(x:为系统盘,一般为C)目录下,请在显示所有隐藏文件夹时查看 如果是已经安装的,那大部分都位于 c:\windows\system32文件夹下 备份的位于c:\windows下,即以$为首的文件名的文件夹中(隐藏) 打开文件夹选项的显示所有文件和文件夹即可看到

[视频]iPhone啤酒杯模拟器 喝完还显示空杯

    这是一款针对iPhone开发的非常有趣的程序。从侧面看上去就像是一杯啤酒。而且它还不仅仅是静态的图像,配合着iPhone独特的运动感应器,还可以实现动态效果。不仅可以使得水位保持水平还能够模拟真的啤酒,逐渐被用户“喝光”。
    以下是该产品的一段演示视频:

利用API函数实现图像淡入淡出效果

一般传统的实现两个PictureBox之间图像的淡入淡出效果都需要使用大量的API函数并进行复杂的调色板以及
绘图设备(Device Context)的操作。但是在Win98、Win2000中,微软提供了支持透明图像拷贝的AlphaBlend函数。
这篇文章就介绍如何通过API函数AlphaBlend实现PictureBox之间图像的淡入淡出效果。AlphaBlend函数的定义在
msimg32.dll中,一般Win98、Win2000都带了这个库,在编程之前你可以先察看一下该文件是否存在。
打开VB建立一个新工程。选择菜单 Project | Add Module 添加一个模块到工程中,在其中输入以下代码:

WebBrowser获得浏览器信息

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在立即窗口中输出浏览器信息。