2004年09月10日

       话可以随意说,但感觉骗不了自己的心。喜欢和你讲话,喜欢看你的笑容,在乎你的感觉,希望听到你的声音,偶而会在不经意间想你。这样,算不算喜欢?也许现在只是浅浅淡淡的感情。知道如果抽身而退,我依然是我,一如原来的我,发生的事不会有深远的影响。但现在,排除不掉,有一份牵心。有冲动,想轻轻摸你的脸,不知会不会有痒痒而淡淡刺的触觉;想牵你的手,一起,走路。那时的我一定会很开心。似乎是很不耻的想法,自己表达出来担心万一被你看到时的那份尴尬,但,真实的心里的话,喜欢,都应该若纯水般清澈、透明、纯净而不掺杂质的,思及此反倒有了一份平静心安:即使你知道,又有什么同或不同呢?确实存在的,仅此而已。

2004年09月02日

      曾有人说:佛家的佛祖身批万丈光芒,其实人类也有的,只不过人身的光芒很弱,不易察觉罢了但是因人而异的这层光芒人们又会凭直觉感觉出的,糖糖,我想你身体所发出的光芒比较强吧,在你的这层光芒照耀下,我迷失了自我,注定随你而动,飞蛾扑火,燃烧了自己,而去感受瞬间的一生一次的快乐,升华自己而无憾一生,茫茫人海中,我们彼此相遇,在你的光芒照耀下,我知道那是我终极的火,为了心中那份光明和温暖,我义无返顾。

9-2

2004年08月31日

                                                                           心里的那杯水
   假如每个人的心都是一个水杯,那么,您的杯子里,是否已经有了水?自问一下,杯里的水,是清澈还是污浊?是多是少?淡而无味还是香醇甘美?
   在金山词霸上查“半吊子”,解释是:对某种知识只有一个粗略的、肤浅的或零星的了解的人或技艺不熟练的人。现实生活中,常称这些人为“半吊子水”。可是,世间又有哪个人敢说“我有满满一杯水”呢?
   要让自己的杯子里多些水,只有学习学习再学习。
   每个生命个体,存在着,那他的杯子里就有着半杯水,只是杯子有大有小,杯里的水有清有浊,水的味道千差万别罢了。
   如何去看待杯子里的水呢?人生多的是潮起潮落,多少人做得到“得意时候不张扬、不骄傲;失意时候不沮丧、消沉”。还是那同样的半杯水,从不同的角度去看,会有截然不同的效果,一个说:“我只有半杯水。”另一个说:“我还有半杯水。”前者,或许是带着不满的,但若这不满转变为企图心,而不作无用的抱怨与消极等待,也未尝不是好事。后者,是带着感恩的心去期待的,但若只是守着那半杯水,而不考虑水源,那半杯水也迟早会枯竭。不如坦白的说:“我有半杯水。”正视这一事实、并选择乐观、上进,让自己的水变得更多些、更纯净些、更有价值些。
   时代瞬息万变,每个人的观念、思路与认知,都需要及时的更新。那么,若你的杯已是满杯,该如何倒入更有质量的水呢? 答案是:学会倒水,把那已经不再清澈的水倒掉。可这世上,又有几人是懂得放弃的美丽的?似乎人人都在为追求那更多的功利而奔波劳累着,人人都有更多更多的欲望,永无止境。
   正视自己的水杯,并让那杯中的水保持清澈、透明、有质量。穷其一生,不正是每个人所孜孜以求的吗?

2004年08月21日

我生今年已二六,
一生坦途未遇难,
看书最喜在天台,
上网聊天到三更。
生来就是老百姓,
偏憎人家说普罗,
人亦要做钱亦爱,
高不成来低不就。

吾本邵宅村家子,
三面环林一临河,
农田池塘时入梦,
为学养性全在兹。
六岁读书好文章,
为文意多笔不符,
师批大蛇过田陌,
我对蚯蚓渡沙漠。
    唐诗宋词已熟读。。。
十二骑车入新学,
心好数学弃经文,
公理定理我自推,
逢人自夸吾聪明。
    建立模型尚不能。。。
三分之差未重点,
十五离乡到嘉定,
心高气傲太张狂,
半似狂生半腐儒。
    平心而论太中庸。。。
十八总算进大学,
玩心太重老踢球,
积分踢开学渐疏,
在此虚度几载时。
考研未成徒悲伤,
流落社会方恨少。
在沪漂泊到现时,
而今行年虽二六,
尚喜童心犹未灭,
喜则狂跳怒则嗔。

 

      今天当我在博乐广场第一眼看到你时,心里竟泛起一种很奇妙感觉,从小到大都不曾有过的感觉,就觉得我们似乎早就认识。你一定是我前世的意中人,不然怎么会有如此熟悉的感觉。你的一颦一笑已经深深的植入了我的心底。我于是肯定,你一定会是我的恋人。
      茫茫人海,寻觅一个可心的背影,已是不易;找到,更是不易。然幸运之神眷顾了我,让我遇见了你。所以我对自己默默的发誓我会好好珍惜你的。 (7-31)

      参加同学聚会回来的路上,你那婀娜多姿的身影,你那清新可人的笑容一直浮现在我眼前,于是我想起我的表达方式~~~发短信。可是你许久都没回,我脑子不停的转,会不会你手机没电自动关机?会不会是信号不好以至于你没收到。。。到家后,由于聚会太累,我便早早的躺在床上,手机放在枕边,开始看书,不久就昏昏沉沉地睡去。(8-1)

      一大早醒来看到了你昨晚的短信,忽然有种起死回生的感觉,这是人间还是地狱,是人间,不,是天堂。(8-2)

      由于昨天晚上和你约好第一次碰面了,以至于过于兴奋,今天早上醒得很早。
      晚上18:50,在博乐路上的避风塘里,我们两个人找了个幽静的位置坐下,开始谈了起来。你面带着微笑,你的微笑是那么的甜,那么的柔和,那么的灿烂,望着你,我发觉我喜欢看着你的微笑,你的微笑使我安静。 
      坐到9点时,我们又和你中学最要好的同学一起打牌,直至11:30左右。(8-3)

      在人们的心目中,天使是圣洁的,是美丽的。天使飞舞的时候,是动静的完美结合,身形不动而飞,衣诀飘飘而舞。她的美丽使人仰视,她的圣洁使人远观。在我的心中你就是我的Angel。(8-4)

由于加班的原因,所以今天比平时晚一小时赶到车站,在路上接到你的短信,你说小西姐邀请你打牌,你问我有没有兴趣?那时刻,我感觉大地好像在开花,鸟语花香,春意满园。(8-6)

     爱上了一个天使,用一种魔鬼的语言,上帝在云端,只眨了一眨眼 ,最后眉一皱、头一点 、爱上一个认真的消遣,用一朵花开的时间,你在我旁边,只打了个照面,八月的晴, 闪了电, 有生之年, 狭路相逢, 终不能幸免 ……
     《流年》响在耳边,不能幸免的,是爱情的来临。是逃也逃不掉的。 (8-10)

    我不是个喜欢写作也不太有文学素养的人,但今天决定把自己对你的思念化成文字,觉得只有这样才能真真切切的表达出我对你的感觉,我不知何时能写完这 |水井点滴| ,但心中实在有太多的兴奋,迷茫,幻想,反反复复,纠缠不清,也只能通过文字来宣泄出来。
    我之所以决定把这定名为水井点滴,是因为我在网络上叫水井很久了,从第一次上网开始,因为,那时刚看了从水井里爬出来的贞子,而且在这也一直用这|水井点滴|名称。。。其实水井里的天空也不错,虽然很小,但是很单纯,没有世间的纷纷绕绕。。。。而且我也希望假如有一天,我们能走到一起,坐在属于自己的水井里,看属于我们俩的那一片很小也很干净的天空(天空上面记录着我们之间的点点滴滴)。。。。 (8-16)

2004年08月08日

                                                                        王婆卖瓜
         某君上馆子去吃鲱鱼,加工的地方摆事实满了活蹦乱跳的鲱鱼,剖开了的鲱鱼,油炸、酱制、椒炒,别说吃,看着也是享受。某君坐定一望,对面墙上有一条醒目的大字,“最挑剔的人,对这儿的鲱鱼也无可指责–密尔顿”。某君大吃一惊:呀,著名作家密尔顿还给题了词呢!怪不得这儿的厨师、服务员一个个都显得自豪呢。 他问女掌柜:“真是密尔顿先生题的词么?” “是呀,是我家老板写的。”
       “王婆卖瓜”历来为贬意,但不必遵循习惯,而去造就自己的规则。古代寓言书中载,谁能解开奇异的高尔丁死结,谁就成为亚洲王。所有试图解开这个怪结的人都失败了,轮到亚历山大一试,他说:“我要建立我自己的解法规则。”他拔出剑来将结劈为两半,他成了亚洲王。

2004年07月28日

      QQ从本机发出消息无非就是两种方式.(1)按发送按钮,(2)按Ctrl+Enter组合键.当然自定义键除外.也不在本文考虑范围之内:

  基于这两种发送的方式我选用:WH_CALLWNDPROC 和 WH_KEYBOARD两种钩子.


  //监控Ctrl+Enter组合键
function  KeyboardProc(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
    if (wParam = VK_RETURN) and (GetKeyState(VK_CONTROL) < 0) and (lParam >= 0) then
      begin
        SendMessage(Shared^.MainWnd,WM_USERCMD, UC_WINDESTROY, GetForegroundWindow);
      end;
      Result := CallNextHookEx(Shared^.KeyHook,iCode,wParam,lParam);
end;

//监控”发送”按钮
function CallWndProc(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
type
  Msg = ^CWPSTRUCT;
var
  p : Msg;
begin
  p := Msg(lParam);
//只对前台窗口进行处理
  if (p^.message = WM_COMMAND) and (LOWORD(p^.wParam) = 1) then
    begin
      SendMessage(Shared^.MainWnd,WM_USERCMD, UC_WINDESTROY, GetForegroundWindow);
    end;
  Result := CallNextHookEx(Shared^.CallHook,iCode,wParam,lParam);
end;

procedure TForm1.WndProc(var Msg: TMessage);
begin
 with Msg do
 begin
   if Msg = WM_USERCMD then
   begin
     case wParam of
       UC_WINDESTROY:
       begin
         GetText(Findhwd(HWND(lParam)));
       end;
     end;
   end;
 end;
 inherited;
end;

肯德基的特殊顾客

美国肯德基国际公司的子公司遍布全球60多个国家,达9900多个。然而,肯德基国际公司在万里之外,又怎么能相信他的下属能循规蹈矩呢?
  一次,上海肯德基有限公司收到了3份总公司寄来的鉴定书,对他们外滩快餐厅的工作质量分3次鉴定评分,分别为83、85、88分。公司中外方经理都为之瞠目结舌,这三个分数是怎么评定的?原来,肯德基国际公司雇佣、培训一批人,让他们佯装顾客潜入店内进行检查评分。
  这些
特殊顾客来无影,去无踪,这就使快餐厅经理、雇员时时感到某种压力,丝毫不敢疏忽。
  很多企业,员工与老板经常打游击战。当老板在的时候,就装模做样,表现卖力,似乎是位再称职不过的员工了;而等老板前脚刚走,底下的人就在办公室里大闹天宫了。很多老板,会在这个时候杀个回马枪,嘿嘿,刚好逮个正着。不过,这样也不是个长期办法,老板也没有这么多精力去跟员工玩游击战,主要还是制度的确立。如果建立了一套完善的制度,让员工意识到,无论任何时候,都须一如既往地认真工作,那么,底下的员工就不会钻空子翘懒了。
  人做一次自我检查容易,难就难在时时进行自我反省,时时给自己一点压力,一点提醒。公司管理者就需要充当这个提醒者,时时给他们一点压力,一点动力,以保持员工不懈的进取心。
??? 经理的最大考验不在于经理的工作成效,而在于经理不在时员工的工作时效。

程序说明: 

  这个程序比较简单,大家自己看吧 

  计算机名就是你打开 控制面板-系统-网络标识-完整的计算机名称 

  程序代码: 

Form1 

Private Declare Function GetComputerName Lib ”kernel32″ Alias ”GetComputerNameA” (ByVal lpBuffer As String, nSize As Long) As Long 

Private Sub Command1_Click()
Dim Name As String, Length As Long 

Length = 225
Name = String(Length, Chr(0))
GetComputerName Name, Length
Name = Left(Name, Length)
Label1.Caption = Name 

End Sub

‘文件名SourceDB.ini文件
Private Declare Function GetPrivateProfileString Lib ”kernel32″ Alias 
“GetPrivateProfileStringA” (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal 
lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal 
lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib ”kernel32″ Alias 
“WritePrivateProfileStringA” (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal 
lpString As Any, ByVal lpFileName As String) As Long

‘以下两个函数,读/写ini文件,固定节点setting,in_key为写入/读取的主键
‘仅仅针对是非值
‘Y:yes,N:no,E:error
Public Function GetIniTF(ByVal In_Key As String) As Boolean
On Error GoTo GetIniTFErr
GetIniTF = True
Dim GetStr As String
GetStr = VBA.String(128, 0)
GetPrivateProfileString ”Setting”, In_Key, ”", GetStr, 256, App.Path & ”\SourceDB.ini”
GetStr = VBA.Replace(GetStr, VBA.Chr(0), ”")
If GetStr = ”1″ Then
   GetIniTF = True
   GetStr = ”"
Else
   GoTo GetIniTFErr
End If
Exit Function
GetIniTFErr:
   Err.Clear
   GetIniTF = False
   GetStr = ”"
End Function

Public Function WriteIniTF(ByVal In_Key As String, ByVal In_Data As Boolean) As Boolean
On Error GoTo WriteIniTFErr
WriteIniTF = True
If In_Data = True Then
 WritePrivateProfileString ”Setting”, In_Key, ”1″, App.Path & ”\SourceDB.ini”
Else
 WritePrivateProfileString ”Setting”, In_Key, ”0″, App.Path & ”\SourceDB.ini”
End If
Exit Function
WriteIniTFErr:
   Err.Clear
   WriteIniTF = False
End Function

‘以下两个函数,读/写ini文件,不固定节点,in_key为写入/读取的主键
‘针对字符串值
‘空值表示出错
Public Function GetIniStr(ByVal AppName As String, ByVal In_Key As String) As String
On Error GoTo GetIniStrErr
If VBA.Trim(In_Key) = ”" Then
   GoTo GetIniStrErr
End If
Dim GetStr As String
GetStr = VBA.String(128, 0)
 GetPrivateProfileString AppName, In_Key, ”", GetStr, 256, App.Path & ”\SourceDB.ini”
  GetStr = VBA.Replace(GetStr, VBA.Chr(0), ”")
If GetStr = ”" Then
   GoTo GetIniStrErr
Else
   GetIniStr = GetStr
   GetStr = ”"
End If
Exit Function
GetIniStrErr:
   Err.Clear
   GetIniStr = ”"
   GetStr = ”"
End Function

Public Function WriteIniStr(ByVal AppName As String, ByVal In_Key As String, ByVal In_Data As String) As Boolean
On Error GoTo WriteIniStrErr
WriteIniStr = True
If VBA.Trim(In_Data) = ”" Or VBA.Trim(In_Key) = ”" Or VBA.Trim(AppName) = ”" Then
   GoTo WriteIniStrErr
Else
 WritePrivateProfileString AppName, In_Key, In_Data, App.Path & ”\SourceDB.ini”
End If
Exit Function
WriteIniStrErr:
   Err.Clear
   WriteIniStr = False
End Function