Woodu's Blog

想自己感兴趣的。虽然这个词不那么严肃。

猫抓老鼠的游戏

Posted by Woodu under 外面有谁?

周二夜1点。按照这个时间作息我明天肯定迟到。不过我决定这么下去来做一个捎带的、小小的抗议。

插一句无关的,DMT后天报作品,于是加班加点中。

周日晚上班会老刘同志没有来,事假,一直到了今天下午才来。昨晚的班会(嗯,前天晚上)是由36班班主任,李主任代开的。内容为惯常的纪律强调,比如按时作息,遵守纪律等。其中有这么一条:

自习时不得锁上教室后门,违者扣分计入班级量化管理成绩。

据我所知,在周六的晚上在30班貌似发生了一些很奇异的事情。我们的田校长,曹主任和马主任三位轮着幡儿的往那里面溜达,一共拿走了两部手机,MP3/4/5等多媒体播放设备数目未知。事后跟某几位当事人聊天,其中有位是手机在后面充电的时候被神不知鬼不觉的拔走的。我不禁非常佩服诸位老师的基本功,非常的扎实,已经将轻功练习到出神入化的阶段了。可以拿走而令人浑然不觉。接下来在三位老师换班的间隙,没有发现的、在教室前部充电的各位变冲上前去,唯恐再被看到。

手机这个东西本身不好也不坏。问题就是有人强行往上加属性。尤其是那种一上来“手机的危害大家都知道……”这种腔调的,我只是想说,你咋不说“手机的好处大家都知道……”呢。强加的民意只是独裁者的个人意淫而已。对于高中阶段学生该不该使用手机,根据我目前掌握的资料来看,大部分年龄相差1~2(上下)的人的手机往往都是中考完了买的。这说明时代的变化已经促使手机的入门年龄降低到了15~16岁这个年龄段。而政治课本也说了,违背规律,肯定得被规律惩罚。何况对于咱这种手机/mp3/mp4/电子词典/百科全书放在一台机器上处理的人,又该怎么处理呢?

现在的潍坊一中给我一种感觉,就是缺一只马蝇来咬。完全缺少活力的一种被动式的发展模式。尤其是在进行选课走班这方面,如果要突出走班这个特色的话,应该是文理倾向学生之间课程有交集才对。但是咱也都知道那根本不现实,跑来跑去太麻烦了。因此这可以说不是学校的问题,而是方针制定者的问题。选课走班的目的是为了减少文理科偏差,但是事实上现在也跟原来的文理分开差不多。就是多了个自习在一起上而已。话说回来我们这一级还真是杯具呢,小学小学三年级开微机课,人家下面那级二年级就开,往后全一年级就开始开课,初中初中正好碰到课改开始用乱七八糟的新课本,高中倒好,处处传言下一级取消文理分科,想复读都没办法。而且还有这样那样的事情不停的折腾我们。从某种角度来看,这些所谓的走班之类的最终实惠的不像是学生。就算实惠了,也顶多是学生的胳膊和大腿,真正受益的应该是那些“强力推广”走班制的领导和官员们。而苦呢,除了学生,还有执行的这些老师们。焦头烂额的处理各种事情,还得抽空从开着的各个班的后门进去收集手机。不过也好,估计出了这么个事之后充电的也会少不少。一朝被蛇咬,十年怕井绳,说的是老鼠。

今天实在太懒了,直接扔核心代码。这段代码通过期间的指令就可以完成单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

被点名了。OTL

Posted by Woodu under 外面有谁?

有趣的点名~
1,把你的播放器(或mp3)打开,随机播放。
2,点“下一首”来获得每个问题的答案
3,你必须写下那首歌的名字无论看起来有多傻
4,在歌名后面的括号里写下自己的评论
5,点10个朋友,转到自己空间,进行解答

QUESTION

1.如果有人说:”这样行吗?” 你说:”
Yanni-PlayTime【我说问问题的人你去死吧我用playtime回答他他不拆了我啊】

2.你怎样描述自己?
樱花大战-奇迹之钟【咱跟这歌就是有缘分啊有缘分~当初不小心下载到结果到了日语学校人家说给我首好听的歌听又是这个我啦啦啦~】

3.你喜欢一个男孩/女孩什么?
卡农【我靠我不喜欢野蛮女友唉不过Sata那么可爱的倒是可以考虑下允许哦~嗯】

4.你今天的感觉怎么样?
Yanni-Ninghtingale【嗯不错确实很夜莺很美好XDDDD我发现今天rp爆发】

5.生命的目的是什么?
黄霑 – 沧海一声笑【我笑了。。真的笑了】

6.你的座右铭?
L·O·V·E·L·Y~夢見るLOVELY BOY~【我靠我不是同性恋啊,烈空访问者主题曲】

7.你的朋友们怎么看你?
梁静茹-暖暖【我……最近有人说我冷酷唉。】

8.你怎么看你的父母?
汪峰-飞得更高【不想评论啥了我想换播放列表了】

9.你经常考虑的事情是什么?
Whiteberry-かくれんぼ【心跳捉迷藏片头曲……捉迷藏?躲猫猫?】

10.你怎么看待你最好的朋友?
魔理沙は大変なものを盗んでいきました【……我……我的好朋友难道都盗走我的时间了……||||是唉最近浪费时间不少[打PP】

11.您怎么看待你喜欢的人?
ENTAR ART-The Sound Of Silence 【乡村童谣……如果可以安渡一生就好了……唉。可是咱现在这个毛样……能给那位带来幸福么……还没独立不可以谈论这个……||】

12.你生命的故事是什么?
F4-流星雨【我说了这个播放列表我一点修改都没有直接把Q:\这个分区下16G多的所有mp3文件都拖进去了。。。。所以听的啥囧歌都有】

13.你长大后想成为什么?
MOVE-Around The World【好唉好唉拖一个心爱的人漫游世界是咱的梦想=v=】

14.你的爱好是?
许巍-时光【我……时光……难道我是恋旧物么||||||||】

15.你最害怕的是?
Vitamin C-Graduation (Friends Forever)【我爱你爱到疯掉了我亲爱的Foobar2000您怎么排的顺序啊我恨不得马上念大学去啊我】

16.你最大的秘密是?
网络歌曲-国足欢迎你【喷了】

17.当你看到喜欢的人会想到什么?
爱,无所不在-周传雄【FM1011经典主题曲大爱大爱】

18.婚礼的时候会挑哪首歌?
奥斯卡金曲-此情可待【嗯,倒是还算正常幸亏不是下面那个……虾米下面那个素……我哭了。。】

19.他们在你葬礼时放什么音乐
欧得洋-孤单北半球【我都去营养花草了我还孤单呢我】

20.你怎么看你的朋友?
あなただけ见つめてる【我要瞪的我这俩眼眼残疾不成】

21.你会把这篇问卷叫什么?
S.E.N.S-APHRODITE【去你的吧你给我——海上丝绸之路】

—————–

呐~点:sata,烤鸭,傅,桌子,youd,花花,龙马,球,kay,梨子loli[PIA

最某

很感激能碰上这么一位好的教官,最后一天阅兵结束后教官没忍心去教室。我们一群人不管男的女的都苦的一塌糊涂。真是。在这里我还是要再说一声:谢谢你,戴样教官!(还是有点激动了)

不知道家里人怎么活动的,我最终还是被塞进了实验班。明天下午返回学校后就开始正式的学习了。看了看分班成绩。我在那个班里面大概在35左右,唉。。强中更有强中手啊,咱还得为youd同志的“全县第一”来努力啊orz

哈哈不在自己家,不过有了个好消息,就是咱换了三星的某型号。好像是J218。反正弄QQ,MSn,飞信,ptb都是可以的,弄了个opera3.12,op4.1不能运行。这倒霉棒子!

 大概这样了。估计手机是别想用来更新了 f2blog就没提供这些功能orz。那先写到这里啦~^_^

我不说“你们更幼稚”,因为我们根本不幼稚
猫和老鼠是世界上最风行的动画(至少曾经是),到现在各个网络电视(都看吧),哪个没有?连电视现在都还在放。一切的一切都能充分证明猫和老鼠有多么大的魅力。
虽然现在它可能不会再有续集,也不会再有新的高度,但是它的影响面是广的。要知道。即使一个事物的时代过去了,它的影响力仍然存在。举个例子:五四运动。这玩意比《T&J》可早多了吧,但是它在中国,在世界上都还有深远的影响。
bs我,bs猫和老鼠,bs Pokemon 的人中不乏有还喜欢看火影吧。
火影?咱来翻翻它历史。
开tor访问wiki百科

【火影忍者出道历】
1999年 JUMP43号 〈火影忍者〉开始连载(同期〈浪客剑心〉迎来结局)

这玩意比pm晚不了多少吧。不过晚了3年而已(pm的1996),pm的剧情比火影要好看多了吧。
对。是个人意见。但是别忘记了,我们也有很多人。pm的教育人的剧情比naruto多的多吧,从这个角度看似乎看pm更利于孩子们的发展。

有点扯远了,下面继续回到猫和老鼠上。
经典作品就是经典作品,没有任何bs的理由。因为猫和老鼠是“从6岁到60岁的人们的狂热喜爱”(http://baike.baidu.com/view/15748.htm),似乎火影也就到18岁?光从年龄段上你就不如T&J!
幼稚?您听谁说的?您怎么知道它幼稚了?对。猫和老鼠剧情确实简单,就是tom抓jerry。但是你见过一个连续140集场场都抓jerry却没有遭来一片骂声的么?这就叫能耐。你火影要是也天天一个场景,天天一个人物,天天光打,我看fans不跑光了才怪呢。
猫和老鼠是五分钟动画的巅峰之作。每集短小精悍,看他几集都不怎么浪费时间,这火影看起来就有点浪费时间吧?!二十多分钟,有时候还上下集,这玩意真要命啊,简直就是谋害生命啊。
零零整整扯了这么半天,就是想告诉你,猫和老鼠永远不会过时,经典作品会永远留在我们心中。