标签变透明效果的模块

buff ＝ 取空白文本 (100)
GetClassName (hWnd, buff, 100) ' 取出类名
style ＝ 位或 (GetWindowLong (hWnd, #GWL_EXSTYLE), #WS_EX_TRANSPARENT) ' 这句很重要，取出扩展样式 并添加WS_EX_TRANSPARENT 样式
SetWindowLongA (hWnd, #GWL_EXSTYLE, style) ' 设置扩展样式
.如果 (GetClassInfo (0, buff, wnd) ＝ 0) ' 区分E控件写出的
E_Static_ret2 ＝ SetWindowLongA (hWnd, -4, 到整数 (&E_Static_Proc)) ' 设置消息映射 设个是用E的控件
返回值 ＝ E_Static_ret2
.否则
Static_ret3 ＝ SetWindowLongA (hWnd, -4, 到整数 (&Static_proc)) ' 设置消息映射 这个是用 CreateWindowEx 创建的
返回值 ＝ Static_ret3