利用电脑com口控制电脑台灯..docVIP

利用电脑com口控制电脑台灯 本人闲来无事，自己利用VB6.0制作了一个台灯控制电路，其中扩展电路部分尚未完成，但com口控制已经投入正常使用，并口控制程序也已完成，电路尚未完成，现将完整程序代码分享如下： 窗口部分Form1: Private Declare Function ShellAbout Lib shell32.dll Alias ShellAboutA (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long Private Declare Function Shell_NotifyIcon Lib shell32.dll (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long Private Type NOTIFYICONDATA cbSize As Long hwnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64 End Type Private Const NIM_ADD = H0 Private Const NIM_MODIFY = H1 Private Const NIM_DELETE = H2 Private Const NIF_MESSAGE = H1 Private Const NIF_ICON = H2 Private Const NIF_TIP = H4 Private Const WM_LBUTTONDBLCLK = H203 Private Const WM_LBUTTONDOWN = H201 Private Const WM_RBUTTONUP = H205 Private Const WM_MOUSEMOVE = H200 Private thedata As NOTIFYICONDATA Private Declare Function RegisterHotKey Lib user32 (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long Private Declare Function UnregisterHotKey Lib user32 (ByVal hwnd As Long, ByVal id As Long) As Long Private Declare Function PeekMessage Lib user32 Alias PeekMessageA (lpMsg As MSG, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long Private Declare Function WaitMessage Lib user32 () As Long Private Type POINTAPI x As Long y As Long End Type Private Type MSG hwnd As Long message As Long wParam As Long lParam As Long time As Long pt As POINTAPI End Type Private Const MOD_ALT = H1 Private Const MOD_CONTROL = H2 Private Const MOD_SHIFT = H4 Private Const PM_REMOVE = H1 Private Const WM_HOTKEY = H312 Private rejian As Boolean Private Sub about_Click() Call ShellAbout(Me.hwnd, 台灯控制器, 2012年2月19日第三版 V1.0 作者：林汉伟, Me.Icon) End Sub Private Sub Check1_Click() Select Case Check1.Value Cas