尽管已经收到了3张扣分单,而且每天都会睡不醒,不过我对最近的寝室生活还是挺满意的,觉得很爽。
然后,猥琐是男生寝室永远不变的话题,听多了便觉得麻木,索然无味,幸运的是我们寝室有一位风水大师,偶尔来些灵异故事,2012之类的杂谈,为我们稀饭般的聊天加一点榨菜。更令人惊悚的便是当管寝室的值周老师探头时望风者的“嘘”声或是聊过火迎来的扣分提醒声,都能让寝室内顿时鸦雀无声,除了188翻身时带来的6床齐摇的咯吱咯吱声。
而现在的班级,据说还是有几个天涯沦落人,令我比较惊异的是考489的童鞋志愿填的如此保守。除此之外,班内超脱侏罗纪的人似乎还是有几个的,我很高兴,不过暂时还木啥想法。
长河的住校生活非常单调,而且管的非常严,而且管理方式很奇特。宁可让同学中午时在教室内浑浑噩噩,也不愿意让同志们回寝室或是上床午睡或是XE聊天或是当个文学青年。而在晚上3个半小时的晚自修过后,只留40分钟时间让6人洗漱。为了丰富校园生活,我决定去建立长河的计算机社,据说是前两年解散的。今天乘着下课奔走于各班之间,寻求潜在的社员,方式便是进去之后站上讲台,然后开始肆无忌惮地宣传。以及,报名了学校学生会的外联部之类的部门,看看哪个部门肯把我这个迷茫的小孩领走吧。
以及,以后有一种想法,下课时间争取把作业全部做完。晚自修的时候花一节课的时间来预习复习,其他的2个多小时拿来准备托福,不知结果会如何,最关键的还是不知计划的可行性,唉,看着办吧。就如某人的个性签名,走一段路,看个结局。
实在希望有个丰富的高中生活,不过似乎在利群哥的眼中,除了学习就是睡觉的高中生活才是高考高分的法宝,不过想想也是,扯淡的能力的培养,和我朝的考试是相冲突的。不过啊,只有黑和白甚至不能画出美丽的图画,而若是加上灰度,就能构成多彩的世界了。
短短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 |
源码及演示程序..点我
1.us的代理1枚.
2.有管理权的顶级域名一枚.
*3.可以上传文件的空间一个.(如果没有空间的话,请在选择验证域名管理权限的时候,选择CNAME指向.)
1 igoogle
2 gtalk在线聊天
3 GDocs在线文档编辑,可以多人合作编辑
4 日历 用于安排活动
5以自己的域名命名的邮箱@feee.us 7G的容量,用户名个性化,并且网站相关使用admin邮箱,不必让网上工作打扰你的私生活。
6更多的等有闲情了再去折腾..
可以将你的新邮箱地邮件转发到常用邮箱中..可以自己去设置。
有需要@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”时的对于自己生在中国的无限悲哀。
—————————————————–时间到了…得踢球去了…先遁了..——————————————-
踢球回来之后就没有写的心情了,暂时无视了。等有心情了再补完。