Windows API use | Visual Basic 6 (VB6)

There were some major errors Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub Form_Paint() Dim i As Integer For i = 1 To 2600 DoEvents Beep i, 3 ' "Techno rain": Beep Rnd() * 20000, 5 ' "Lif...

[童年] 教官抓抽菸

剛開完高職同學會想起了當年學長告訴我們的教官的糗事當時是在學校裡不能抽菸的(現在好像也不行？)想當然爾 教官就是專門在抓抽菸的人物某日中午吃飽飯 教官接獲密報 要到五樓的廁所抓正在飯後菸的人抓耙子快 把風的人更快 馬上通報進廁所很快的全部有抽菸的就鳥獸散啦教官來了 開始用力敲每間隔間的門『誰躲在裡面...

你愛不愛我 ？

有一對男女正在吃晚餐那個女生一直問那個男生：你愛不愛我 ？男生看了女生一眼又繼續吃晚餐女生很生氣又再問了一次：你愛不愛我？男生終於說：愛女生又問：那你要怎麼證明？忽然男生從口袋裡拿了三十元出來，且問女生 :你有沒有十元？女生拿了十元給了男生......男生就把四十元放在桌上過了一會兒 .....女生...

精明的商業手腕

一位優秀的商人傑克，有一天告訴他的兒子。傑克：「我已經決定好了一個女孩子，我要你娶她」兒子：「我自己要娶的新娘我自己會決定」傑克：「但我說的這女孩可是比爾蓋玆的女兒喔」兒子：「哇！那這樣的話...」在一個聚會中，傑克走向比爾蓋玆傑克：「我來幫你女兒介紹個好丈夫」比爾：「我女兒還沒想嫁人呢」傑克：「但...

捉姦記

法庭裡面，一場詭異的氣氛，法官正在審理一件婚外情的案件；原告A太太懷疑丈夫A先生，和其年輕貌美的女秘書B小姐，兩人偷情，終於，會同徵信社人員、及派出所警察，一起「捉姦」，當場人贓俱獲…… 法院傳訊女兒A小妹妹出席作證。 法官：「小妹妹，不用怕，對於妳知...