尽管已经收到了3张扣分单，而且每天都会睡不醒，不过我对最近的寝室生活还是挺满意的，觉得很爽。

        然后，猥琐是男生寝室永远不变的话题，听多了便觉得麻木，索然无味，幸运的是我们寝室有一位风水大师，偶尔来些灵异故事，2012之类的杂谈，为我们稀饭般的聊天加一点榨菜。更令人惊悚的便是当管寝室的值周老师探头时望风者的“嘘”声或是聊过火迎来的扣分提醒声，都能让寝室内顿时鸦雀无声，除了188翻身时带来的6床齐摇的咯吱咯吱声。

        而现在的班级，据说还是有几个天涯沦落人，令我比较惊异的是考489的童鞋志愿填的如此保守。除此之外，班内超脱侏罗纪的人似乎还是有几个的，我很高兴，不过暂时还木啥想法。

        长河的住校生活非常单调，而且管的非常严，而且管理方式很奇特。宁可让同学中午时在教室内浑浑噩噩，也不愿意让同志们回寝室或是上床午睡或是XE聊天或是当个文学青年。而在晚上3个半小时的晚自修过后，只留40分钟时间让6人洗漱。为了丰富校园生活，我决定去建立长河的计算机社，据说是前两年解散的。今天乘着下课奔走于各班之间，寻求潜在的社员，方式便是进去之后站上讲台，然后开始肆无忌惮地宣传。以及，报名了学校学生会的外联部之类的部门，看看哪个部门肯把我这个迷茫的小孩领走吧。

        以及，以后有一种想法，下课时间争取把作业全部做完。晚自修的时候花一节课的时间来预习复习，其他的2个多小时拿来准备托福，不知结果会如何，最关键的还是不知计划的可行性，唉，看着办吧。就如某人的个性签名，走一段路，看个结局。

        实在希望有个丰富的高中生活，不过似乎在利群哥的眼中，除了学习就是睡觉的高中生活才是高考高分的法宝，不过想想也是，扯淡的能力的培养，和我朝的考试是相冲突的。不过啊，只有黑和白甚至不能画出美丽的图画，而若是加上灰度，就能构成多彩的世界了。

        短短5天，却恍若隔世，也许住校的生活就是这样。

        舟曲泥石流的悲痛还萦绕在耳边，伊春空难的哭嚎又进入了视野。车上听到了一些空难的新闻，不禁感叹，流氓真是无处不在。

        不得不说，长河高中比我想象得要好许多，具体表现在食宿条件，学生素质等等，并没有一些人所谓的之说，看样子一些东西确得靠自己亲身体验之后才能得到真相，任何事都是这样吧。尝试了全身心投入学习，效率确实挺高的，预习亦是卓有成效，可惜学得更多的还是自己认为“爽”的东西，“不爽”的如数学，还是接近老样子，似乎像我这样眼高手低，懦弱到无法控制自己的人，在一段时间或者很长的一段时间，只会专注于爽的，等这段时间过去之后，发现自己什么都没有爽到，而且以后也没得爽了，然后便抬头仰望，质问苍天，郁郁不得志，终日愁容满面。我不想这样，于是便竭尽全力不让自己朝这样的深渊滑去，扒着突起的石块艰难向上。只怕手臂可以坚持更久，心却很快放弃。

————————————————————————————————————————-

        以上应该是上次扯的。扯了一些后全然没了兴致，便切断电源回床看书了。现在还木有扯淡的欲望，先不写鸟。

        远离文明，囚禁5天。乌云渐进，高中生活已经来临。

Turf.. 可以用于不出脏字的骂人..此词必火.. 不解释..自己去找翻译即可知晓其意.

        直接看视频，不解释。

———————————————————————————————————————-

        不知道奥特曼这个形象诞生于何时，亦不论其产地为小jp。不是我们这个时代的出生的人也许不知道，但奥特曼确实给我的童年带来了无限的快乐，每天幼儿园放学，总是急着回家看奥特曼..甚至那会儿好多人的理想就是长大后要拯救地球..嗯哼?话说5年级的时候有一篇纯想象的扯淡文..结尾大概就是我们要好好学习,争取长大后为全宇宙作贡献..(悄悄:这文章竟在某组织出版的某书籍上发表了..)

———————————————————————————————————————–

继续，下一部，持续不解释。

这应该是以前我在学校机房?或者哪写的一个点对点聊天的程序.. 称其为iChat..嗯..好吧..我承认其实就是个用Winsock控件搞的弱智玩意儿.. = = 以及.以下的sk 即为 winsock控件..

服务端关键代码如下.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

 Private Sub sk_ConnectionRequest(ByVal requestID As Long)
If sk.State <> sckClosed Then sk.Close
sk.Accept requestID
SendMsg = "Connecting Success"
sk.SendData (SendMsg)
MsgBox "Connecting Success!!", vbOKOnly, "Yeah!!"
Text1.Visible = True
Text2.Visible = True
Label1.Visible = False
Label2.Visible = False
Timer1.Enabled = False
Command1.Visible = True
Command2.Visible = True
Me.Height = 4995
 
End Sub
 
Private Sub sk_DataArrival(ByVal bytesTotal As Long)
Dim s As String
sk.GetData s
If Text1.Text = "" Then
  Text1.Text = "From Client:" & s
Else
  Text1.Text = Text1.Text & vbCrLf & "From Client:" & s
End If
End Sub
 
Private Sub sk_SendComplete()
If Text1.Text = "" Then
  Text1.Text = "To Client:" & SendMsg
Else
  Text1.Text = Text1.Text & vbCrLf & "To Client:" & SendMsg
End If
End Sub

客户端关键代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

 Private Sub sk1_DataArrival(ByVal bytesTotal As Long)
Dim DataStr As String
sk1.GetData DataStr
If Text1.Text = "" Then
    Text1.Text = "From Server:" & DataStr
Else
    Text1.Text = Text1.Text & vbCrLf & "From Server:" & DataStr
End If
 
End Sub
 
Private Sub sk1_SendComplete()
If Text1.Text = "" Then
    Text1.Text = "To Server:" & SendMsg
Else
    Text1.Text = Text1.Text & vbCrLf & "To Server:" & SendMsg
End If
 
End Sub

源码及演示程序..点我

刚刚尝试去申请了下GoogleApps..现放上教程..

一、需要准备的。

       1.us的代理1枚.

       2.有管理权的顶级域名一枚.

       *3.可以上传文件的空间一个.(如果没有空间的话,请在选择验证域名管理权限的时候,选择CNAME指向.)

二、直接开始上图片，说明我全部都打在图片上了。

 三、后面要说的。

  我现在已经申请成功的有：

1 igoogle

2 gtalk在线聊天

3 GDocs在线文档编辑，可以多人合作编辑

4 日历 用于安排活动 

 5以自己的域名命名的邮箱@feee.us 7G的容量，用户名个性化，并且网站相关使用admin邮箱，不必让网上工作打扰你的私生活。

6更多的等有闲情了再去折腾..

申请好邮箱之后我能做什么？

可以将你的新邮箱地邮件转发到常用邮箱中..可以自己去设置。

以及，AD必不可少。

有需要@feee.us邮箱的可以联系我..直接加入Feeer’s工作组..关于Feee究竟是啥意思.我想我会尽快完成百度词条..这已经在我的计划内了..

似乎每页只能搞一个代码框..所以只好再开一篇文章..会整的直接开VB加控件即可..免去下载的麻烦..

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

Option Explicit
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, _
    ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, _
    ByVal hObject As Long) As Long
    Dim Days As Integer
  Dim Times As Date
 
 
Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 1000   '计时器
Dim Bitmap
  Me.AutoRedraw = True
  Bitmap = CreateCompatibleBitmap(Me.hdc, 0, 0)
  SelectObject Me.hdc, Bitmap   '设置窗体透明
End Sub
 
Private Sub Timer1_Timer()
  Form1.Refresh
 
  Const date0 As Date = #12/22/2012#          '终了日期 MM/DD/YY
  
  Days = CInt(date0 - Now - 0.5)
  Times = CDate(date0 - Now)
 
  LabDay.Caption = Days '此处显示的为天数.一会儿你自己把days对上即可 如果需要添加hrs.mins的显示. 在后面加上  "天" & Hour(Times) & "hrs" & Minute(Times) & "mins" & Second & "s"

End Sub

极限上某人需要制作透明的倒计时器..所以放出透明窗体的代码..
具体代码如下..

Option Explicit
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, _
    ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, _
    ByVal hObject As Long) As Long
 
Private Sub Form_Load()
  Dim Bitmap
  Me.AutoRedraw = True
  Bitmap = CreateCompatibleBitmap(Me.hdc, 0, 0)
  SelectObject Me.hdc, Bitmap   '设置窗体透明
End Sub

如果有需要的可以直接下载..点我

以及..提供一个距离2012还有N天的“动态”桌面..先把那个距离2012的图片作为桌面背景. 然后再调整好窗体启动的初位置..即可..因为未知各位的分辨率大小.所以就自己去调整吧.. hiahiahia 2012套装下载地址:点我

>>>>>>极限的Multx同学,你要的就是这个..原谅我乱改了你的图 = =.. 以及,你可以慢慢去调整.单窗体版本你可以点这里下载..点我

@feee.us

        昨天老妈给我看了一篇文章，是某人关于“加州有1.3W名清华北大毕业生”的看法。说真的，听到1.3W时我很诧异，中国最高学府的学生留洋在外的人数，竟然会是个如此庞大的数目。加州就有1.3W名，那么在其他城市的人数呢？更何况这只是在美国啊……不过仔细一想，我也不必诧异。在这样安逸的年代，我们从没有把祖国，家乡作为精神的寄托，灵魂的归宿。也许几十年前的人还能因为爱土地爱得深沉而落下热泪，然而现在我们这些人身上，只能看到因为亲眼看到某韩国明星，或者和某影星近距离接触时哭得稀里哗啦的情景。而对于“中国”这个称呼，只是个代号，只是在自我介绍时说”i’m Chinese.”或者”i come from china”，甚至是在与外国人交往时背负在身上的有些沉重的负担，以及在别人叫你”china man”时的对于自己生在中国的无限悲哀。

—————————————————–时间到了…得踢球去了…先遁了..——————————————-

        踢球回来之后就没有写的心情了，暂时无视了。等有心情了再补完。