tuopan.bas

1）服务器控制客户端程序 2）远程访问控制 3）提供服务器端、客户端程序

Attribute VB_Name = "tuopan"
Public Const WM_SETHOTKEY = &H32 '响应您定义的热键

Public Const NIM_ADD = &H0 '在“系统托盘”中加一图标
Public Const NIM_MODIFY = &H1 '修改“系统托盘”中的图标
Public Const NIM_DELETE = &H2 '删除“系统托盘”中的图标

Public Const NIF_MESSAGE = &H1 '使类型"NOTIFYICONDATA"中的uCallbackMessage有效
Public Const NIF_ICON = &H2 '使类型"NOTIFYICONDATA"中的hIcon有效
Public Const NIF_TIP = &H4 '使类型"NOTIFYICONDATA"中的szTip有效


Public Const WM_MOUSEMOVE = &H200& '在图标上移动鼠标
Public Const WM_LBUTTONDOWN = &H201& '鼠标左键按下
Public Const WM_LBUTTONUP = &H202& '鼠标左键释放
Public Const WM_LBUTTONDBLCLK = &H203& '双击鼠标左键
Public Const WM_RBUTTONDOWN = &H204& '鼠标右键按下
Public Const WM_RBUTTONUP = &H205& '鼠标右键释放
Public Const WM_RBUTTONDBLCLK = &H206& '双击鼠标右键

'API函数声明
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

'自定义一个调用API Shell_NotifyIcon要用到的类 型"NOTIFYICONDATA"
Public Type NOTIFYICONDATA
    cbSize As Long 'NOTIFYICONDATA类型的大小
    hwnd As Long '应用程序窗体的句柄
    uID As Long '应用程序图标资源的ID号
    uFlags As Long '使那些参数有效它是以下枚举类型中的:NIF_MESSAGE、NIF_ICON、NIF_TIP三组的组合
   
    
    uCallbackMessage As Long '鼠标移动时把此消息发给该图标的窗体
    
    hIcon As Long '图标名柄
    
    szTip As String * 64 '当鼠标在图标上时显示的Tip文本
    
End Type
 

Public TrayData As NOTIFYICONDATA  '定义一个"NOTIFYICONDATA"类型的变量