2011年9月 的存档
2011九月24

鬼故事

一辆大巴在崎岖的山道上行驶着。天渐暗,车上的男子从睡梦中醒来……突然,他发现,车上的游客都不见了,就连司机也消失了,而车却沿着山路缓慢行驶着!男子浑身一颤,大声喊道:“有鬼!有鬼啊!”“有你个头,”突然车窗外传来声音,“车坏了,我们都在下面推,就你一个人睡觉。”

2011九月23

总有一群隐身的朋友

总有一群隐身的朋友如死人一般躺在你的好友列表里,偶尔诈诈尸,时不时还会改改他们的墓志铭。

2011九月23

网游玩家破解蛋白质结构获科学验证认可

在网上玩玩游戏就可以在著名的英国《自然》系列学术刊物上发表论文?这听起来非常不可思议,但《自然·结构和分子生物学》杂志近日发表了这样一篇有网络游戏玩家署名的论文:《蛋白质折叠游戏玩家揭示一种单分子逆转录病毒蛋白酶的晶体结构》。

文中提到的蛋白质折叠游戏名为Foldit,是美国华盛顿大学研究人员开发的一款具有浓厚科学色彩的网络游戏。游戏玩家要做的是,在给定一个目标蛋白质后,在遵守科学规律的前提下,用氨基酸如搭积木一样把目标蛋白质“搭建”出来

玩这个游戏其实不需要太多科学知识,只要遵守预先设定的规则就行。玩家每次游戏成功都可获得积分,提升自己在游戏世界的知名度,碰到难题时还可以在网上和其他玩家交流。(按:看介绍这款游戏其实类似于Folding@home的人工操作版)

此次被破解结构的蛋白质名为M-PMV,是一种与猴类艾滋病病毒有关的蛋白质。科研人员一直没能探明它的具体结构。华盛顿大学研究人员于是把这个蛋白质设为目标,放入Foldit游戏中。没过多久,就有玩家找出了可能的氨基酸组装方式。

华盛顿大学研究人员随之用X射线等对游戏玩家给出的结果进行了验证,发现这个玩出的结果是准确的。于是在有关论文的作者中,出现了Foldit游戏中两个玩家群组的名字。(文/新华网)

2011九月22

节约土地资源

某村开会讨论改革殡葬节约土地资源,村民们各抒己见。
甲说:我建议啊!都不用棺材了,省钱又省地。
乙说:我看竖着埋可以更省地方。
丙磕了磕烟枪,慢悠悠的说:我看啊,竖着来只埋下半截,连墓碑也省了,一看就知道谁死了!
2011九月19

ME722 Milestone2 里程碑2刷第三方rom教程

写在前面:请先备份联系人,短信等重要数据,建议使用豌豆荚。此rom非官方rom,随时有可能有不可预测的情况,如果你什么都不懂的,建议不要乱来。

 

  • 保证你的手机是2.2,建议是刷这个底层包:点击我;刷MIUI建议用该底包:点击我。底层包刷机教程:点击我
  • 下载CM7的升级包。目前有三个:链接一链接二链接三。MIUI升级包下载地址:点击我。 不解压放在SD卡里(建议放到根目录下)
  • 手机必须是获取root权限。获取root权限工具:点击我下载。手机端先设置一下:设置–>应用程序–>开发–>降“USB调试”打钩。然后将手机连接电脑,点击刚下载的SuperOneClick

  • 点击Root

  • 接下来是等待SuperOneClick工具对手机进行root操作。出现下图表示获取root权限成功

  • 重启手机,安装bootmenu程序:点击下载。打开程序,允许程序获取root权限。点击安装Bootmenu

  • 安装完毕点击“重启设备”

 

  • 重启后进入下图界面,通过音量键选择第三项“Recovery”,按电源键确认(以下操作都是按电源键确认)
  • 选择第一或第二项进入第三方Recovery
  • 下面就是第三方Recovery的界面(有可能是显示红色的字体),选择第五项“Install zip from sdcard”
  • 选择第一项“choose zip from sdcard”
  •  在这找到你下载的CM7升级包,放在根目录下的升级包一般在最下面,建议按音量上键来寻找。下图是我将要安装的升级包
  • 选择YES确认安装升级包
  • 安装完毕一路”Go Back”到进入Recovery的界面,执行第三和第四项“双wipe”(此操作也可以在手机关机状态下按”X”+电源键进入官方recovery进行双wipe)。完毕后点击第一项重启设备。
  • 接下来就是等待进入系统了,第一次进入系统大概需要2-5分钟。
如果你看完下面的知识,你基本上可以对其它android手机刷第三方rom(本人采用非专业术语来说明)
root:linux管理员权限(android系统基于linux编写),获取root权限可以对手机系统动刀动枪,修改系统文件和添加文件等等。
recovery:android系统的恢复工具,通过此工具的wipe功能来恢复出厂模式。官方recovery提供update zip功能对手机进行批量程序的安装,例如谷歌套件(GMS)。第三方recovery可以安装开发者自己做的升级包,目前第三方rom基本上是通过第三方recovery来安装,安装方法大同小异。关键的地方时不同手机进入recovery的方式不一样,刷写第三方recovery的方法也不一样。具体步骤到相应手机的论坛板块寻找教程。

 

问题:刷完无法进入系统怎么办?

答: 请再双wipe一次,再不行就重新刷一遍(zip)升级包,再不行就重刷一次SBF底包。

 

问题:手机有时候会死机不稳定如何解决?

答:目前就我的使用情况来看,死机的情况比较少,有部分程序不兼容导致死机等现象。请谨慎安装需要root权限的程序。

 

问题:为什么无法720p拍摄?

答:由于部分驱动未完善,手机无法对部分视频硬解码。

 

如果你在刷机过程中遇到不懂的地方可以通过我的新浪微博找我:FreeDroid

如果你在使用中遇到任何问题,请不要找我。

 

2011九月18

手机又没电了

列车上乘客都低头摆弄着手机。渐渐地有一部分乘客放下手机,满怀惆怅地望向窗外:他们是iPhone用户,他们手机没电了。列车又经过了几站,又有一部分乘客放下手机,满怀惆怅地望向窗外:他们是Android用户,他们第二块电池也用完了.突然打雷车停了,部分乘客举起手中的诺基亚砸开了车窗,他们得救了…

2011九月17

ME722 Milestone2 里程碑2刷机教程

本教程适合刷里程碑2所有官方SBF底包。目前所有的第三方rom都是在相应的底包下刷进去的。

 

 

 

请注意,刷机会删除联系人,短信等数据,请先做好备份再刷机!推荐使用:豌豆荚

 

 

 

官方底包下载地址:点击我(由于网盘共享时间有限,某些链接可能会过期,要收藏的就赶紧去下载)

新增官方2.3.4底包下载地址:点击我

 

准备工作

下载驱动和刷机包并安装好: 点击我

 

开始刷机

手机关机状态下按下:相机键+音量上键+电源键 不放 进入下图的界面

 

将手机连接电脑,点击刚刚安装的RSD刷机工具

 

 

出现下面蓝色框中的内容就说明驱动安装正确,RSD刷机工具能正确识别手机

 

点击下面蓝色框的按钮

 

选择要刷的sbf文件

 

最后点击开始按钮,刷机将会开始

 

接下来就是等待电脑对手机进行刷机操作。大概需要5-10分钟。

等到刷机Status那一栏出现“Please manually power up this phone.”或者“pass.”就拔掉数据线。

 

接下来是wipe。取出电池,过2s后放入电池,按下全键盘的 X键+电源键,出现如图所示

 

如果你刷的是2.3.4的底包,就同时按下音量上下键;如果你刷的是2.2.X的SBF底包,请按下全键盘的“@”键。出现下图所示的官方recovery 界面。

 

 

通过音量键或全键盘的方向键选择wipe data,按ok键或相机键或电源键确认。此过程可能会停顿多次,请多次按下ok键继续。完毕后选择wipe cache,同理按ok键确认。此过程叫做wipe擦除手机内部数据,恢复出厂设置。也称双wipe。

完毕后选择第一项重启手机。第一次开机加载数据比较多,所以需要2-5分钟时间。如果能成功进入blur设置界面或者桌面。就表示你刷机成功了。

 

问题:刷完机不wipe会怎么样?

答:某些程序可能会工作不正常,甚至无法开机。

 

问题:刷机前需要wipe不?

答:如果刷完机出现一些异常,请双wipe后再刷机。但某些异常可能是本身的固件导致的。

 

问题:行货ME722能刷欧版的rom不(水货能刷国行rom不)?

答:目前里程碑2的rom行水货都能互刷。

 

问题:2.3.4的升级方法(刷机方法)本教程是否适用?

答:基本适用,只是2.3.4的recovery版本不同,在“感叹号”界面要同时按下音量上下键来进入recovery。recovery使用方法大同小异。

 

问题:手机不能工作或不正常工作,是否一定要通过刷机来解决?

答:不一定,有时候双wipe恢复出厂设置之后就能正常使用了。

 

更多内容请关注FreeDroid的新浪微博

 

 

2011九月9

安徽电信:开放五码(5码)查询,方便烧号机入网

办理地址:

http://ah.ct10000.com/shop/FiveCodeAction.do?method=code

第一步:填写个人信息;

第二步:接受邮件验证;

第三步:选择上网套餐。

温馨提示:
1、您需要为手机号办理20元以上流量包,如果原来已办理20元或以上流量包,则需往上升级为30元或50元流量包。如果已有50元流量包,则可直接查询五码,无需办理。
2、办理流量包的方式:您可以直接点击或者通过手机发送短信412220到10001开通20元包150M上网包、发送短信412230到10001开通30元300m上网包 、发送短信412250到10001开通50元包800M上网包。

2011九月9

幼儿园开学

幼儿园开学,许多孩子被送来,家长走后,孩子们哭闹着,简直跟宰猪场差不多!这时候,唯独有一个小孩蹲在墙角巨蛋定,老师准备好好夸一下他,刚走近,那个小孩以迅雷不及掩耳之势,抢过老师手机,连号码都没拨,拿起手机就对着手机哭喊着:“爸爸,快来救我啊!我被妈妈卖了…”

2011九月6

VB实现自动上传文件网页ActiveX控件(模拟form提交)

网页中实现自动上传本地文件,而不需要用户选择,这种应用场景很多,例如业务系统中需要使用的二代身份证扫描器、一体机(扫描仪)、摄像头拍照等。

首先介绍一个国外网站:http://www.planet-source-code.com/ 里面有许多可用的源代码供参考,搜索 upload file 找到 vb6 file uploader (类似的代码比较多,这个是比较好的一个)。

VB通过模拟HTTP POST过程把文件提交至服务器。

Dim WinHttpReq As WinHttp.WinHttpRequest
Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1
Const BOUNDARY = "Xu02=$"
Const HEADER = "--Xu02=$"
Const FOOTER = "--Xu02=$--"

Function UploadFiles(DirPath As String, strFileName As Variant, strFileForm As Variant, strURL As String, _
Optional postName As Variant, Optional postVar As Variant, Optional strUserName As String, _
Optional strPassword As String) As String

    Dim fName As String
    Dim strFile As String
    Dim strBody As String
    Dim aPostBody() As Byte
    Dim nFile As Integer
    Dim p As Integer

    Set WinHttpReq = New WinHttpRequest

    ' Turn error trapping on
    On Error GoTo SaveErrHandler

    ' Assemble an HTTP request.
    WinHttpReq.Open "POST", strURL, False

    If strUserName <> "" And strPassword <> "" Then
        ' Set the user name and password, for server request authentication
        WinHttpReq.SetCredentials strUserName, strPassword, _
        HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
    End If

    '-------------------------- Becareful not to mingle too much here -----------------------------------

    ' Set the header
    WinHttpReq.SetRequestHeader "Content-Type", "multipart/form-data; boundary=" & BOUNDARY

    ' Assemble the body
    ' Starting tag
    strBody = HEADER

    For i = 0 To UBound(strFileName)

        ' Grap the name
        fName = strFileName(i)

        ' Grap the file
        strFile = GetFile(DirPath & "\" & fName)

            strBody = strBody & vbCrLf & "Content-Disposition: form-data; name=""" & strFileForm(i) & _
             """; filename=""" & fName & """ " & vbCrLf & "Content-type: file" & _
            vbCrLf & vbCrLf & strFile & vbCrLf

        If i < UBound(strFileName) Then
            ' This is boundary tag between two files
            strBody = strBody & "--Xu02=$"
        End If
        strFile = ""

    Next i

'Posted Variable

    For p = 0 To UBound(postName)
    strBody = strBody & HEADER & vbCrLf
    strBody = strBody & "Content-Disposition: form-data; name=""" & postName(p) & """" & vbCrLf & vbCrLf
    strBody = strBody & postVar(p) & vbCrLf
    'Debug.Print "-----------------------------------------------------------------------------------------------------"
    'Debug.Print "Content-Disposition: form-data; name=""" & postName(p) & """" & vbCrLf & vbCrLf & postVar(p) & vbCrLf
    'Debug.Print "-----------------------------------------------------------------------------------------------------"
    Next p

    ' Ending tag
    strBody = strBody & FOOTER

    ' Because of binary zeros, post body has to convert to byte array
    aPostBody = StrConv(strBody, vbFromUnicode)

    ' Send the HTTP Request.
    WinHttpReq.Send aPostBody

    ' Display the status code and response headers.
    'debug.print WinHttpReq.GetAllResponseHeaders & "  " & WinHttpReq.ResponseText

    UploadFiles = WinHttpReq.ResponseText
    Debug.Print "[UploadScript::UploadFiles]" & vbCrLf & WinHttpReq.ResponseText

    Set WinHttpReq = Nothing
    Exit Function

SaveErrHandler:

    Debug.Print "[UploadScript::UploadFiles]" & vbCrLf & Err.Description
    UploadFiles = WinHttpReq.ResponseText
    Set WinHttpReq = Nothing

End Function

Function GetFile(strFileName As String) As String

    Dim strFile As String

    ' Grap the file
    nFile = FreeFile
    Open strFileName For Binary As #nFile
    strFile = String(LOF(nFile), " ")
    Get #nFile, , strFile
    Close #nFile

    GetFile = strFile

End Function

'-----------------------------------------------------------
Private Sub Command1_Click()
Dim pst As New clsUploadEngine

'file path (make sure put "\" after folder name)
filepath = App.Path & "\sample\"

'filename array
filearr = Array("scenery1.jpg", "scenery2.jpg", "scenery3.jpg")

'form file post name (equivalent to <input type="file" name="filename">
fileform = Array("fileA", "fileB", "fileC")

'url to post file/information
uploadurl = "http://127.0.0.1:8080/savefile.jsp"

'post parameter & posted variable (optional)
'if no post parameter, just put dummy post, if not error will occur
postparam = Array("id", "uname", "passwd", "op")
postVar = Array("1", "root", "", "tdrupload")

pst.UploadFiles CStr(filepath), filearr, fileform, CStr(uploadurl), postparam, postVar

End Sub

在此基础上,做成ActiveX控件即可。但问题是这个源码上传到服务器的文本文件虽然看起来正常但文件结尾会有空编码、图片损坏。囧。

后来发现 WebNoteEditor 可以实现粘贴QQ截图,自动把文件上传到服务器,于是联系作者。作者是个好人哈,分享了一些经验甚至代码。目前在作者的帮助下,已实现的网页控件的文件自动上传功能,可传多个文件、多表单项。

下面要解决如何在线安装的问题了……