const ewx_logoff = 0
const ewx_shutdown = 1
const ewx_reboot = 2
const ewx_force = 4
private declare function getusername lib "advapi32.dll" alias "getusernamea" (byval lpbuffer as string, nsize as long) as long
private declare function exitwindowsex lib "user32" (byval uflags as long, byval dwreserved as long) as long

private sub fairytimer_timer()
　　dim myweekday, mydate
　　dim mytime, hh$, mm$, ss$
　　mydate = date
　　myweekday = weekday(mydate)
　　mytime = time
　　hh$ = left$(mytime, 2)
　　mm$ = mid$(mytime, 4, 2)
　　if myweekday > 1 and myweekday < 7 then
　　'周一至周五登录规则
　　　　if hh > 18 and hh < 19 then
　　　　　　exit sub
　　　　else
　　　　end if
　　else
　　'双休日登录规则
　　　　if hh > 13 and hh < 15 then
　　　　　　exit sub
　　　　elseif hh > 18 and hh < 20 then
　　　　　　exit sub
　　　　else
　　　　end if
　　end if
　　mainform.visible = true
　　maintimer.interval = 60000 '启动注销进程
　　end sub

private sub form_load()
　　dim s&#36;, cnt&, dl&
　　cnt& = 199
　　s&#36; = string&#36;(200, 0)
　　dl& = getusername(s&#36;, cnt)
　　'debug.print left&#36;(s&#36;, cnt - 1); cnt
　　if left&#36;(s&#36;, cnt - 1) = "chenhl" then
　　　　fairytimer.interval = 6000 '启动监听精灵
　　else
　　　　maintimer.interval = 0
　　end if
　　end sub

private sub form_unload(cancel as integer)
　　dim ret&
　　ret& = exitwindowsex(ewx_force or ewx_logoff, 0)
end sub

private sub maintimer_timer()
　　dim ret&
　　ret& = exitwindowsex(ewx_force or ewx_logoff, 0)
end sub