朋友问我现在开发的是什么软件，我只好自嘲的说正在研制集十大超级“杀人武器”于一身的“攞你命3000+”。一不做二不休，当天就把软件的内部版本号定为“攞你命3000+”。

做惯小软件和ERP的我第一次做商业软件，真的有点迷惘。因为不知道为什么一个小小的软件需要用到三四万行代码，而且不断在增加新的功能。我不知道这些功能对最终用户是否真的有用。有时候我们必须照顾初级用户的第一感觉，不能让他们看着软件的界面一脸茫然，然而又不能让一些玩家级的用户感到太过简单。阿偲虽然不写代码，但毕竟是见过世面的人，深知这些道理，一语点醒了我这个梦中人。商业软件在投放市场之前，对用户群的确定是有猜测性质的，在这种情况下，只能猜测用户们需要的是什么，就算只有10%的功能是对用户来说最有用的，只要能切合50%的用户的需求，就已经算是达到目标了。下一步才能获得具体用户群，从而在用户群中反馈回来的信息中对软件进行改进。阿猜的比方不错，先记录在此以备以后警示自己：其实现在的手机本身就是一个“攞你命5000”，用户对功能强大的东西总是不会抗拒的。所以我现在总算明白，功能强大但使用上简单，这是我们程序员为此奋斗的目标啊！

OK，啥都不说了，好好努力吧。希望不久以后，有人能用上我的软件，叫好叫骂我都高兴。其实对我来说，它将是我三个月以来日夜辛劳的成果。

新兴的城市，感觉繁华可比广州。带了相机，可惜没时间拍照。住在莞城某号称四星级的酒店，对服务不太满意，比如退房居然等了十多分钟。不过念在拿到招聘会参会公司的四折优惠，所以将就一下了。

存着买笔记本的钱又少了一笔，不过挺值得的，见到心爱的她，在一起的感觉很好。今天开始又要开始一个人的生活。

回到熟悉的宿舍，打开QQ，小深如旧在挂着。一切都如从前。挺好的。

回来以后和若干朋友聊了一会儿QQ。小深依然保持一种理智的作风，这两天甚至连偶然崩溃也没有。阿偲则依然保持郁闷的心态。人们往往为生活所累，小深在家人的资助下在国外念书，甚至还能单独住一间宽敞的房间，放学回来可以等着房东做饭吃。可依然会有不如意的事情。阿偲在某大企业工作，经常出国，还赚了不少钱。可生活依然没有寄托。无论是学习还是工作，一样会有不开心的事情。我不知道生活的症结出现的原因是什么，不知道是不是因为没有目标或者是目标不明确，可有时候不是有目标就一定能实现，但是需要奋斗；有时候奋斗过程中也需要驻足，但不知道算不算迷惘？

躺在床上想这些问题的时候，一不小心就睡着了。头脑中依然酝酿着一个题目：《南半球那边》，但是没有想到什么不空洞的内容。还有软件的开发卡住了，一时技穷，出现了一个儿子要当自己老子的问题，需要进一步寻找更好的解决办法。可老板那边似乎不会管你这些，他们看到的只有工作的进度。进度。

于是突然就这样醒了，觉得好像有什么东西没有做完。电脑的屏幕还保持在昨晚睡着前的画面，乖乖的等我的下一步指示。5点46分。很久没有这么早醒来过了。

Option Explicit

Public Const IsDebugMode = True

Public Const Library_mscomctl_ocx As String = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1},mscomctl.ocx,Microsoft Common Controls 6.0 (SP6),101"
Public Const Library_msvbvm60_dll As String = "{000204EF-0000-0000-C000-000000000046},msvbvm60.dll,Visual Basic For Applications,102"
Public Const Library_msxml_dll As String = "{D63E0CE2-A0A2-11D0-9C02-00C04FC99C8E},msxml.dll,Microsoft XML version 2.0,103"
Public Const Library_scrrun_dll As String = "{420B2830-E718-11CF-893D-00A0C9054228},scrrun.dll,Microsoft Scripting Runtime,104"
Public Const Library_stdole2_tlb As String = "{00020430-0000-0000-C000-000000000046},stdole2.tlb,OLE Automation,105"
Public Const library_vb6chs_dll As String = "NONE,vb6chs.dll,Visual Basic 6 Chinese Support,106"
'Public Const Library_vb6_olb As String = "NONE,vb6.olb,107"

Private Declare Function GetSystemDirectory Lib "Kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Sub Main()
    frmLRMain.Visible = IsDebugMode

    If InStr(Command, "/u") > 0 Then
        'unregister library
    Else
        'register library
        RegisterLibrary Library_mscomctl_ocx
        RegisterLibrary Library_msvbvm60_dll
        RegisterLibrary Library_msxml_dll
        RegisterLibrary Library_scrrun_dll
        RegisterLibrary Library_stdole2_tlb
        RegisterLibrary library_vb6chs_dll
    End If
   
    'Unload frmLRMain
   
End Sub

Public Function RegisterLibrary(ByVal InfoString) As Boolean
    Dim SerialNumber As String, FileName As String, LibraryTitle As String, ResourceID As Integer
    Dim SystemPath As String, lLen As Long
    Dim FilePath As String, ShellID As Double
   
    SystemPath = Space(255)
    lLen = GetSystemDirectory(SystemPath, 255)
    SystemPath = Left(SystemPath, lLen)
    If InStr(SystemPath, Chr(0)) > 0 Then SystemPath = Left(SystemPath, InStr(SystemPath, Chr(0)) - 1)
    If Right(SystemPath, 1) <> "\" Then SystemPath = SystemPath + "\"
    frmLRMain.PrintLine SystemPath
   
    If ParseSymbol(InfoString, SerialNumber, FileName, LibraryTitle, ResourceID) <> "" Then
        If SerialNumber = "NONE" Then
            frmLRMain.PrintLine "No need to register. Just copy"
            FilePath = SystemPath + FileName
            GetFileFromRES ResourceID, FilePath, False
        ElseIf CheckIfLibraryRegistered(SerialNumber) Then
            frmLRMain.PrintLine "The library is no need to register."
        Else
            FilePath = SystemPath + FileName
            GetFileFromRES ResourceID, FilePath, True
            ShellID = Shell("regsvr32 -s """ + FilePath + """", vbHide)
            frmLRMain.PrintLine "the library is successfully registered."
        End If
    Else
        frmLRMain.PrintLine "Parse error. Register library failed."
        RegisterLibrary = False
    End If
   
End Function

Public Function ParseSymbol(ByVal InfoString As String, Optional ByRef SerialNumber As String, Optional ByRef FileName As String, Optional ByRef LibraryTitle As String, Optional ByRef ResourceID As Integer) As String
    Dim temp As String
   
    On Error GoTo ParseSymbolErr
   
    frmLRMain.PrintLine "Fetching from " + InfoString + "..."
   
    'Get serial number. Usually it is a GUID, or just a symbol "NONE"
    temp = Mid(InfoString, 1, InStr(InfoString, ",") - 1)
    SerialNumber = temp
    frmLRMain.PrintLine SerialNumber
   
    'Get the file name
    InfoString = Mid(InfoString, Len(temp) + 2)
    temp = Mid(InfoString, 1, InStr(InfoString, ",") - 1)
    FileName = temp
    frmLRMain.PrintLine FileName
   
    'Get library title
    InfoString = Mid(InfoString, Len(temp) + 2)
    temp = Mid(InfoString, 1, InStr(InfoString, ",") - 1)
    LibraryTitle = temp
    frmLRMain.PrintLine LibraryTitle
   
    'Get recource ID
    InfoString = Mid(InfoString, Len(temp) + 2)
    ResourceID = CInt(InfoString)
    frmLRMain.PrintLine ResourceID
   
   
   
    ParseSymbol = SerialNumber
   
    Exit Function
ParseSymbolErr:
    If IsDebugMode Then
       
    End If
    ParseSymbol = ""
End Function

Public Function CheckIfLibraryRegistered(SerialNumber As String) As Boolean
    CheckIfLibraryRegistered = KeyExists(HKEY_CLASSES_ROOT, "TypeLib\" + SerialNumber)
End Function

Public Function GetFileFromRES(ResID, SaveAs As String, DeleteIfExist As Boolean) As Boolean
   
    On Error GoTo GetFileFromRESErr
   
    If Dir(SaveAs, 31) <> "" Then
        If Not DeleteIfExist Then
            frmLRMain.PrintLine "Copying file is cancelled because file is exist."
            GetFileFromRES = False
            Exit Function
        ElseIf (GetAttr(SaveAs) Or vbDirectory) = (GetAttr(SaveAs)) Then
            frmLRMain.PrintLine "The file path """ + SaveAs + """ is a directory name. Cannot be covered."
            GetFileFromRES = False
            Exit Function
        Else
            frmLRMain.PrintLine "The file is exist, now delete it."
            Kill SaveAs
        End If
    End If
   
    Dim DataByte() As Byte, FileNum As Integer
    DataByte = LoadResData(ResID, "Custom")
    frmLRMain.PrintLine "File checked out"
   
   
    FileNum = FreeFile
    Open SaveAs For Binary As FileNum
    Put FileNum, , DataByte
    Close FileNum
   
    GetFileFromRES = True
   
    Exit Function
GetFileFromRESErr:
    If IsDebugMode Then
   
    End If
   
    frmLRMain.PrintLine "error when get file from res."
    frmLRMain.PrintLine CStr(Err.Number) + ":" + Err.Description
    Err.Clear
   
    GetFileFromRES = False
End Function

首先说说名字。想想其实名字似乎没有非常重要的意义，所以干脆不想，还是把内容做好再算。再者，佛曰：大悟无言，大笑无声，大哭无泪。想起来，我这个人费话相当的多。这么一来，无名亦可。

关于博客的印象，第一次接触它是缘于wallop。没别的，就是听说在wallop里，一个人最多经过六层关系就可以认识美国总统。当时的感觉就是一个字：牛！想出博客这种东西的人一定是个牛人。当时进wallop还不是想进就进。还要别人发出邀请。好不容易混进去了，认识了不少牛人，其中一个号称在美国的中国女孩，剑桥大学的，学习好，爱好广泛，长得漂亮，还拿过什么大学运动会的奖项，家里有钱。我朋友觉得这是他所知道最完美的女生，而我觉得似乎很牛，但却是遥不可及的，还是身边的比较真实。最后没再玩wallop主要是因为学校的网络很差劲，而wallop是flash界面的，打开需要很长时间。

时间隔了蛮久，再没有接触过博客，然后就是国内的互联网粗人腾迅先生发飚，搞了一个叫做QQ空间的东西出来，大行其道。这让它着实又大赚了一票。后来知道还有msn space，还有blogger，但还是没有动手。主要是因为懒，没有天天上来写东西的习惯。

再后来一个可以叫做姐姐的人让我给她做了一个博客网站。大半个月有睡没睡的，不是为了钱，而是因为我觉得她很有理想，我愿意帮助她去实现。只建立了一个初步的平台，功能上的拓展还没有开始做。这不知道算不算不了了之，因为我说让她去找个好的美工去做些好看的皮肤，我配合一下把功能完善起来，但后来事情就这样卡住了，也没有下文。

之后又一段时间，似乎一直都没有和博客发生直接关系。最近因为一个软件项目要搞英文版，情急之下在论坛求助，一个素不相识的人挺身而出协助我翻译出准确的英语，于是和其熟悉起来，成为了相当不错的朋友。此君喜好安静，因此并不轻易向一个人透露其博客。恐有负信任，每有更新，必光顾之。久而久之，问起我为何没有博客，也让其去参观参观，我面有愧色的说：没有。如今博客就像当年的QQ，两人一聊必然问及博客地址。想当年高中毕业我们写通讯录都不问电话号码了，直接问QQ以保持联系。因为大家都不知道将来会到哪间大学，电话是多少。于是一个QQ号挤满了几百号人，全是同学。

心想如果有一个博客，未必不是一件相得益彰的事情。或许这样可以有更多交流的机会呢。再者，我未必期望这里客流如潮，可偶有些许知己来聚，却是不争的乐事。而我本身，也似乎需要一个可以小结一下生活的地方。于是，就有了这么一个博客。