开机小助手纯自绘开源VJLIB扩展例子

程序_禁止重复运行 (“WinStart”)
' //开机自启
.如果真 (注册项是否存在 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\FWinStart”) ＝ 假)
写注册项 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\FWinStart”, 取运行目录 () ＋ “\” ＋ 取执行文件名 ())
.如果真结束
__Init (, #dll, , #zip, “VJ-2017”, “Skin.xml”, , , )
' //绘制窗口
_DrawWnd ()
' //绑定事件
_BindWnd ()
' //完毕
_WndFinally ()
m_Wnd.消息循环 ()
返回 (0) ' 可以根据您的需要返回任意数值

.子程序 _DrawWnd, , , 绘制窗口
.局部变量 WinStime, 整数型
.局部变量 Stime, 整数型
.局部变量 time, 整数型

m_Wnd.创建窗口 (, “”, “Windows_VJ2017”, , #WS_EX_TOOLWINDOW, RectL (取屏幕宽度 () ＋ 338, 取屏幕高度 () － 416 － 系统_取任务栏高度 (), 338, 416), #窗口类型_普通窗口, , , #底图方式_拉伸, , 0, , , 真, 假)
m_Wnd.总在最前 (真)
m_Wnd.窗口动画 (#窗口动画_进入_固定左边, #窗口动画_退出_固定右下角)
WinStime ＝ 到数值 (时间_到时间戳 (增减时间 (取现行时间 (), 8, －取启动时间 () ÷ 1000)))
Stime ＝ 到数值 (时间_到时间戳 (取现行时间 ()))
time ＝ 到整数 ((Stime － WinStime) ÷ 1000)
m_Tools.创建 (m_Wnd.hWnd (), RectL (-1, -1, m_Wnd.宽度 (), m_Wnd.高度 ()), _Bing壁纸 (), 到文本 (time), _励志语录 ())
m_btn.创建 (m_Wnd.hWnd (), , RectL (m_Wnd.宽度 () － 35, 5, 28, 28), #btn1, #btn2, , )