Eren - 互联网需要发现的眼睛

强大图片反向搜索引擎

日期：2010.03.10 | 分类：推荐 | 评论数：0

“如果你手头有一张图片，它可以帮你找到类似的结果。你可以上传一张照片，让Tineye去搜索；也可以提交一个图片的URL地址，让Tineye去自动找寻。输入一张图片的局部，搜索到全局大图啦~~”

http://www.tineye.com
NET:Registered protocol family 2 virtualBox无法安装Linux

日期：2010.02.25 | 分类：网络相关 | 评论数：0

NET:Registered protocol family 2提示

使用Virtual Box安装RedHat和CentOS的过程中，发现总是会卡在NET:Registered protocol family 2，NET:Registered protocol family 2到底是什么意思？刚开始一直在百度和Google上搜索，一直都没有结果，后来有网友提到是系统版本的问题，于是换成64位的Linux，发现不支持64系统，最后，自己找找有没有设置上的问题，终于发现问题了。

首先，发现的错误如下图：

第一步：选中Linux，然后点击“设置”如图：

第二步：

在弹出的对话框中，选中system，右边的“enable ACPI”前的勾去掉。Enable IO ACPI 前面打上勾。

最后，NET:Registered protocol family 2问题解决了。系统可以正常安装。
用VB轻松调用其他程序

日期：2010.02.23 | 分类：未分类 | 评论数：1

用VB轻松调用其他程序

　　我们编写程序时，有时会遇到在一个程序中调用并控制另一个程序执行的情况，在一些编程语言中实现起来较为繁琐，但如果用VB编写时，则可轻松实现。下面我就以在程序中调用“计算器”为例，总结了以下几种方法：

　　一、以异步方式来执行其他程序

　　Shell 函数是以异步方式来调用其他程序的。也就是说，用Shell启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。

　　语法：Shell(pathname[,windowstyle])

　　说明：pathname：必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。

　　例如：RetVal = Shell(″C:\WINDOWS\CALC.EXE″, 1) ′ 调用计算器。

　　二、以同步方式来执行其他程序

　　有时候，我们需要让VB在执行完外部程序后再执行下一语句，这就需要使用API函数。

　　我们可通过OpenProcess和CloseHandle函数来检测调用软件的运行情况。这两个函数的声明如下：

　　Declare Function OpenProcess Lib ″kernel32″ Alias ″OpenProcess″ (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

　　Declare Function CloseHandle Lib ″kernel32″ Alias ″CloseHandle″ (ByVal hObject As Long) As Long

　　建立下面函数，用以判断程序是否在运行，如果是，则在运行时返回True。

　　Function IsRunning(ByVal ProgramID) As Boolean　　′传入进程标识ID

　　　　Dim hProgram As Long　　 ′被检测的程序进程句柄

　　　　hProgram=OpenProcess(0,False,ProgramID)

　　　　If Not hProgram=0 Then

　　　　 IsRunning=True

　　　　Else

　　　　 IsRunning=False

　　　　End If

　　　　CloseHandle hProgram

　　End Function

　　例如要调用计算器(CALC.EXE)并等到它运行完成后再执行下一语句，可以使用以下代码：

　　 Dim RetVal

　　 MsgBox ″开始运行″

　　 RetVal = Shell(″C:\WINDOWS\CALC.EXE″, 1)

　　 While IsRunning(RetVal)

　　　　 DoEvents

　　 Wend

　　 MsgBox ″结束运行″

　　三、关闭正在运行中的其他软件

　　如果要在程序中关闭正在运行中的其他程序，可以先使用FindWindow函数找出相应的程序句柄，然后调用PostMessage函数关闭该程序即可。

　　这两个函数的声明如下：

　　Declare Function FindWindow Lib ″user32″ Alias ″FindWindowA″ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

　　Declare Function PostMessage Lib ″user32″ Alias ″PostMessageA″ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

　　例如要检测“计算器”程序是否正在运行，如果是则关闭它，可以使用如下代码来实现：

　　 Dim winHwnd As Long

　　 Dim RetVal As Long

　　 winHwnd=FindWindow(vbNullString,″计算器″)

　　 If winHwnd〈〉0 Then

　　　　 RetVal=PostMessage(winHwnd,＆H10,0＆,0＆)

　　　　 If RetVal=0 Then

　　　　　　　　MsgBox ″关闭计算器出错！″

　　　　 End If

　　 Else

　　　　 MsgBox ″计算器程序没有运行。″

　　 End If
第六感的惊人潜力–by PranavMistry

日期：2010.01.14 | 分类：未分类 | 评论数：0

美国MIT Media Lab（麻省理工学院媒体实验室）的天才学生普拉纳夫- (Prarnav Mistry)，发明了一项结合实体世界和虚拟世界的科技，令人又惊又喜；喜的是，对于未來生活，悠游於实体和虚拟之间，将更自由无限，惊的是，对于现今的人们和企业而言，这场演讲是一提醒：「讯息上身，才有未来」。
赞一个网站—免费的网站存储空间—稳定~~~

日期：2010.01.04 | 分类：我的日志 | 评论数：0

     今天意外的在一个老邮箱里面收到了一封邮件：

Dear xxx,

You have not logged on DriveHQ.com website or client software for more than 2 years. Did you forget your account? FYI, your username is xxx and password is 858… Please logon at least once every 3 months otherwise your files / emails might be deleted.

     真不可思议，我两年没有登录了，它竟然还给我发邮件提醒我两周后文件就被删除了。我登录了网站后竟然还真有两年前存着的东西。。。。。都忘记是为什么存的了。。

     单单从这个网站对客户的态度就可以看出来了，我只是一个两年前的免费客户，只是在它的网站上存放过几个文件。两年的网络时间，天翻地覆，这个网站依然还在做网站储存。虽然说它现在仍然可能不是很知名，但网站的精神它做到了–服务于大众。它能在两年后还去提醒一个早就忘了它的客户。而文件也被保存了两年。。。

    相比而言，中国的网站就没有这么好的服务，不知道我是不是片面的，我在中国的网站待的最久的要数QQ了吧，然后是163邮箱，这些服务都是很常用的。而在一些类似的网络储存网站，或者网站提供站点，都是做了几天就悄无声息的撤掉了。。。数据都不让你保存。。哎

    不过说道网站提供，亿家的确不错。提供了这么多年的免费空间，特别是在QQ群里，你会看到异常高的人气。这恐怕是其他同类网站很难做到的吧。

    今天下午考试了，还是老样子，对于考试我不想多说什么，有东西会证明一些问题的。