程式名稱/下載/版本
34:檔案總管中光碟機有退出的選項，如何新增關閉光碟機門?
33:強制中止程式(加強版)
VB6
(壓縮執行檔下載，約 9k)
原本的功能請參閱程式小品(12)
新增:"(1)最上層顯示"、"(2)攔截黑名單"、"(3)改變偵測時脈"
ps:阿戊加上黑名單的動機是因為上網時常有一些惡質網站會破壞協定私下下載一些執行檔並偷偷執行...
例如: \windows\olehelp.exe 及 \windows\system32\winproc32.exe
結果就是:改變瀏覽器的首頁，在我的最愛中也會多一堆莫名奇妙的連結...
如果程式攔到黑名單(儘量在第一時間中止它)，會在最下方出現訊息，並跳到最上層警告使用者!
這時就可以馬上看看你的"首頁"或"我的最愛"是否被更改了(如果不中止...它還會繼續寫入)
最好是再執行一下 MSCONFIG ，因為它還會寫在[啟動]裏，在每次重開機後自動執行...
當然二話不說，趕快找到執行檔它砍了吧!!!(這個工作留給各位自己來了)
32:偵測CPU的使用情況
(執行檔下載，約11.5k)
偵測CPU的使用情況
31:滑鼠移動方向逆時針旋轉90度
(執行檔下載，約16k)
在某討論版上看到的奇怪問題...
滑鼠在此程式執行時:
往上會變成往左；往下會變成往右；往左會變成往下；往右會變成往上
也就是:
右
↑
上← →下
↓
左
按ESC結束程式!
程式一開始會有Msgbox說明!
如果利用捷徑執行，可輸入執行參數，只要使Command不為空字串，即可不出現訊息視窗!
ps:這好像是某品牌電腦的功能，但實際上卻是顯示卡的作用!!!
在正常電腦上...這種程式大概只能拿來惡作劇吧...
30:SGUN v3
SGUN
v3 完成關數:20關
詳見連結網頁說明
29:VB吹泡泡
開新表單，不用加入其他物件，直接複製以下程式碼貼上即可!
執行時在表單上按滑鼠左鍵並移動看看，就會吹出彩色泡泡，並慢慢往上昇....^^
Private Type point: X As Single: Y As Single: size As Single: color As Long: alive As Boolean: End Type
Const pi = 3.14159
Dim p() As point
Private Sub Form_KeyPress(KeyAscii As Integer): If KeyAscii = 27 Then Unload Form1
End Sub
Private Sub Form_Load()
Form1.WindowState = 2: Form1.Show: Form1.AutoRedraw = True
Form1.BackColor = vbBlack: Form1.FillStyle = 1
ReDim p(0)
Dim t1 As Single: t1 = Timer
Do
If Abs(t1 - Timer) > 0.01 Then
t1 = Timer: Cls
For i = 0 To UBound(p)
With p(i)
If .alive = True Then
Form1.FillStyle = 1
Circle (.X, .Y), .size, QBColor(.color)
Circle (.X, .Y), .size * 0.8, vbWhite, pi * 0.9, pi * 1.2
Circle (.X, .Y), .size * 0.7, vbWhite, pi * 0.9, pi * 1.2
Form1.ForeColor = QBColor(IIf(.color < 7, .color + 8, 15))
Circle (.X - Sin(0.8 * pi) * .size * 0.8, .Y + Cos(0.8 * pi) * .size * 0.5), .size * 0.1
.X = .X - (Rnd * 100 - 50): .Y = .Y - (Rnd * 50): .size = .size - Rnd * 10
If .size < Screen.TwipsPerPixelX Then .alive = False
End If
End With
Next i
End If
DoEvents
Loop
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Randomize Timer
For i = 0 To UBound(p)
If p(i).alive = False Then With p(i): .X = X: .Y = Y: .color = (Int(Rnd * 15 + 1)): .size = Int(Rnd * 500 + 200): .alive = True: End With: Exit For
Next i
If i = UBound(p) + 1 Then
ReDim Preserve p(i)
With p(i): .X = X: .Y = Y: .color = (Int(Rnd * 15 + 1)): .size = Int(Rnd * 500 + 200): .alive = True: End With
End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer): End
End Sub
28:猜數字遊戲(xAxB)
自解壓33KB(原始碼)
(33,400 byte)
又是老師常出的習題，阿戊儘量把它簡單化，方便網友們下載後自行修改.
如果學生是要原封不動拿來交作業，小心你們老師也來下載過喔!^^
27:樂透聰明牌
自解壓35KB
(35,566 byte)
阿戊參考聰明包牌法寫的小程式，歡迎網友印証及提供公式!
26:視窗階層檢視小工具
自解壓32KB
(31,856 byte)
視窗階層檢視小工具
一般的尋找視窗(或物件)的Hwnd會用到 FindWindow / FindWindowEX
但如果不知道其階層關係及ClassName或WindowName，要如何找起呢?!
階層檢視小工具列出的階層表，讓你輕鬆就找到!
<<圖例:
是以檔案總管中的網址列為例!
25:阿戊小接龍
阿戊仿[連環接龍]寫的，做了點小修改，打發時間不錯^^
不過阿戊對Image物件移動時的閃爍，有點不滿意，有時間再改囉~~
24:拉霸基本功
這應該也是老師常出的題目!
阿戊把基本功的[連續圖形捲動]、[九格同動]及[連線判斷]傳授在此...
其它的就留給網上各位大俠自行修練了....欲練神功，不必自宮啦...^_^...^o^
23:簡易十六進位編輯器
RAR自解壓檔(含原始碼)
簡易十六進位編輯器
於表格上雙擊滑鼠修改資料:輸入格式為:(0123456789ABCDEF)十六進位碼
或
直接輸入中文字(自動修改二個Byte的資料，於表格最後一格時只取第一碼)
採整頁儲存，修改後需按[儲存檔案 F3]確定儲存!
於功能表選單右方 會出現目前游標之資料:
一般字元顯示為:[字元][ASCII]
如前後碼為中文時則直接顯示該中文字
22:記憶小遊戲
翻牌記憶小遊戲(原始碼)
21:電子魚缸DX螢幕保護程式
RAR自解壓檔(729k)
解壓後為.SCR，請直接放至[Windows]目錄下，或是在檔案總管中以滑鼠右鍵[安裝]及[設定]!