.版本 2 .子程序 _窗口1_创建完毕 .局部变量 窗口样式, 整数型 .局部变量 abc, lpRect 图片框1.图片 ＝ #a1 时钟1.时钟周期 ＝ 2000 .如果 (预览是否为真 ＝ 假) 本窗口句柄 ＝ 窗口1.取窗口句柄 () 窗口样式 ＝ GetWindowLong (本窗口句柄, -16) ' 窗口样式 ＝ 窗口样式 或 1073741824 SetWindowLong (本窗口句柄, -16, 窗口样式) SetWindowLong (本窗口句柄, -16, 1073741824) SetParent (本窗口句柄, 小电视句柄) GetClientRect (小电视句柄, abc) SetWindowPos (本窗口句柄, 0, 0, 0, abc.右边, abc.下边, 4) SetWindowPos (本窗口句柄, 0, 0, 0, abc.右边, abc.下边, 16) SetWindowPos (本窗口句柄, 0, 0, 0, abc.右边, abc.下边, 64) ' 本源码来自三叶资源网(www.sanye.cx) .否则 隐藏鼠标 (假) 连续赋值 (0, 窗口1.左边, 窗口1.顶边) 窗口1.宽度 ＝ 取屏幕宽度 () 窗口1.高度 ＝ 取屏幕高度 () 当前信息 () .如果结束