Woodu's Blog

今天实在太懒了，直接扔核心代码。这段代码通过期间的指令就可以完成单Winsock完善任何文件传输。配合那个Yanshi函数可以控制cpu和内存占用率了///惯例，优化版本不扔

Private Sub Sock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Rem 提示
'Type recivefile
'    startrecive As Boolean
'    startfilename As Boolean
'    FileName As String
'    startfiledata As Boolean
'    endl As Boolean
'End Type
'Type strrec
'    startstr As Boolean
'    str As String
'End Type
'Private file() As recivefile
'Private str() As strrec
Rem 前提是不是0，凡是传输到0的一概抛弃掉
If Index <> 0 Then
    ReDim tempdata(bytesTotal)
    Sock(Index).GetData tempdata()
    Dim tempstr As String
    tempstr = CStr(tempdata())
    If Len(CStr(tempdata())) * 2 < 512 Then
    Dim tmpx As Long
    tempstr = ""
    For tmpx = 0 To UBound(tempdata)
        tempstr = tempstr & Chr(tempdata(tmpx))
    Next
    End If
    Rem 第一个字符串是个什么玩意？
    Select Case tempstr
    Case "String":
            Rem 字符串处理入口
            str(Index).startstr = True
            Exit Sub
            Rem 字符串第一阶段结束
    Case "Data":
            Rem 文件接收入口
            file(Index).startrecive = True
            Exit Sub
    Case "FileName":
            Rem 文件名接收入口
            file(Index).startfilename = True
            Exit Sub
    Case "StartFile":
            Rem 文件数据
            file(Index).startfiledata = True
            Exit Sub
    Case "EOFFile":
            file(Index).startfiledata = False
            'Close Index
            Close Index
            Exit Sub
            Rem 文件接收第一阶段结束
    ''''''''''''''''''''''''''''''''''''''''''
    '''''''''''''''''警报！！'''''''''''''''''
    ''''''''Rem 设置传输构思中ing~''''''''''''
    '''''''''''''''''警报！！'''''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''
    Case "Config":
    ''''''''''''''''''''''''''''''''''''''''''
    '''''''''''''''''警报！！'''''''''''''''''
    ''''''''Rem 设置传输构思中ing~''''''''''''
    '''''''''''''''''警报！！'''''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''
    Rem 第二阶段入口
    Case Else:
        If str(Index).startstr Then
                str(Index).str = tempdata()
                Rem 字符串接收入口，写入到文件中，其中，目录名称会在保存中出现
                Open "C:\aaa\" & Index & ".txt" For Append As Index
                    Print #1, str(Index).str
                Close Index
                txtLog = txtLog & vbCrLf & "收到新的消息。由" & Index & "号终端发送。已经保存在" & "C:\aaa\" & Index & ".txt。"
                str(Index).startstr = False
                Rem 关闭接收符号

                Rem 字符串接收结束
        Else
            If file(Index).startrecive Then
            Rem 文件接收入口
                If file(Index).startfilename Then

                        tempstr = ""
                        For tmpx = 0 To UBound(tempdata)
                            tempstr = tempstr & Chr(tempdata(tmpx))
                        Next
                        file(Index).FileName = CStr(tempstr)
                    file(Index).FileName = Base64Decode(file(Index).FileName)
                Rem 文件名接口结束
                    Open "C:\aaa\" & file(Index).FileName & ".file" For Binary Access Write As Index
                    file(Index).startfilename = False
                    Exit Sub
                Else
                    If file(Index).startfiledata Then
                        Put Index, , tempdata()
                    End If
                End If
            End If
        End If
    End Select
End If
End Sub

大年初一。情人节的同一天。
（距离那个关系更进一步，似乎还要很早……）
那么，一起努力吧！
年味越来越淡了。真的，唉。
突然一点点的小失望就这么弥漫开来。
身为90后，看到身边一片一片的非主流字体……突然觉得我……怎么非主流了……

唉。他们总是在现实中陷入进去……这样，对自己影响太大了呢。
网上的朋友们，看上去更有意思了。
还是自己一个人好。因为总是太离群了呢。

“所以你才会建议我去学校吧？”
“……”
“我自己宁愿找一家图书馆坐一天呢”

呵呵。天气真好。
一种想哭的冲动……

泉城济南，这么大了，终于去了一趟了呀。
从济青高速一路120km/h狂奔，穿过隧道……
终于到了，泉城你好！
经过无数穿梭，终于来到了老爸的驻地。吃过午饭，我就决定出去转转。虽然有点小感冒，但是估计没有什么问题的～！
乘坐BRT6倒101，在我啥都不知道的情况下，终于到了。泉城广场，要比潍坊的人民广场差一点哦，不是在地区歧视，只是确实不好呦。

泉城广场的对面，就是趵突泉公园了。

来的很不巧，可惜在年前的几天。大家都在忙碌呢。看着工人们在忙碌，自己眼前仿佛也看到元宵节灯会的热闹情景了呐。
来看看灯吧。


这个youd别紧张哦，只是架设中，不是完毕之后就这样子哦。那么，有机会元宵节来济南看吧，有音乐的哦。

华丽的地域特色。刘墉罗锅同志可是山东的名人呀。刘墉斗和珅，哦呵呵。

泉城。以水著名。自然少不了的是泉水。

以下说明来自维基百科～
漱玉泉，位于山东省济南市历下区趵突泉公园内，李清照纪念堂南侧，为金代《名泉碑》、明代晏璧《七十二泉诗》和清代郝植恭《七十二泉记》所著录的济南七十二名泉之一，亦列入2004年4月评选的新七十二名泉中，隶属趵突泉泉群[1]。
该泉泉名由刘义庆《世说新语·排调·第二十五》中的“漱石枕流”这一典故演化而来[2]，为一长方形石砌泉池，长4.8米，宽3.1米，深2米，东、西、北三面均围以石雕栏杆，其中北侧栏板上嵌有“漱玉泉”名刻，为济南当代书画家关友声题写[3]。泉水自池底或池壁涌出，然后由南侧的自然石上漫石穿隙，如同漱玉，汇入一自然形的石砌水塘[4]。
相传宋代女词人李清照常在泉畔构思词作，掬水梳妆，其作品集《漱玉集词》即因泉而得名（已散佚，现存的《漱玉词》为后人辑佚而成）。为纪念李清照，1959年在池北岸丁宝祯祠旧址上辟建了李清照纪念堂。近年考证认为，李清照为章丘明水附近人，并未在济南市区和历城居住，所以在章丘百脉泉公园内的“清照园”中亦新建了一处同名泉池[5][6]。
跑马泉

板桥泉

杜康泉。水很甜，很好喝。泉城果然是个好地方。


不知为何，我总想到了水都守护神中那个水道。不知道这又是什么精妙的设计。可惜时间不够了。只游览了这个。那么，回家过年。开始期待开学了。

又说到了水都的守护神。总觉得那部剧场版真经典呢。
那么，大家猜猜这是那个地方吧。这次拍的哦

。好晚了。那么电脑前的你也晚安。剩余照片明天更新。

今天去中影看了《阿凡达》。四十的票，持学生证。这个只是想给剩下想去的人一个提示，就是只要那个红色的印着字的本本，管你是不是学生。3D的，看出来潍坊这玩意稀罕了。门口竖着一个老大的“观影须知”。比如眼镜价值700等等。无视路过。下午三点五十五的电影，我大概两点半就到了。早到的好处就是，买到了剧院正中央的票[好运耶！。

在德克士一杯咖啡消磨到三点四十五，在连一瓶水都不让带进去的情况下进入到场中坐下。声音和3D效果很震撼。结束了没有所谓传说中的头晕现象。当然，我旁边的家伙明显没有我走运。虽然这个家伙重新给我讲了一遍3D的原理。
那么来复述一下：
“3D效果就是在拍摄时同时使用两部摄像机，一部来拍摄左眼看到的，一部来拍摄右眼看到的东西。渲染的时候哦同步叠加，然后再通过特制的眼睛来将这两个摄像机的东西分离出来。”
虽然知道，还是说声谢谢～
剧情，我想应该有人看到过《功夫熊猫》或者是《花木兰》之类的吧。这些电影虽然出自不同的地方，剧情大概都能用一句话来概括。
“一个角色，通过努力，进入到某个团体，然后完成了一件事情。”
美国模式？我不知道。反正看了三部都是这么个事。说实话，平生第一回看3D影片，效果没有想象中的震撼。媒体真骗人。
不过真的，中国能有一半好，家祭勿忘告乃翁。
啊哈。
晚上六点半散场回家。阳历生日+小年（腊月23）。晚饭吃饺子。电视上放着一个电视剧，《不离不弃》。看得我只觉得浑身不舒服。一挺漂亮的小女孩，大概有十二？

大结局。好家伙，哭的跟真死了奶奶似的。说实话，有的时侯挺反感让孩子掺和大人这些事儿的。大人觉得是演戏，搞不好就能影响到孩子以后的发展。尤其是某些当婊子立牌坊的事情，更是要不得。
电视剧我是没怎么仔细看的。哪儿有那功夫啊。不过说实话现在满大街都被主旋律过的电视剧，剧情也开始套路化了。人家美国那个套路归套路，场场有市场。我就担心，一旦那天不是红头强制了，拍出来的东西，谁看。
市场不是规定出来的，民意不是强奸出来的。

都结束了。考成什么样也都是浮云了。这也算严重影响！？
—–> Read the rest of this entry »