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$, cnt&,
dl& cnt& = 199 s$ = String$(200, 0) dl& =
GetUserName(s$, cnt) 'Debug.Print Left$(s$, cnt - 1); cnt If
Left$(s$, 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 完成工程以后,编译成doonus.exe可执行文件,并把doonus.exe文件保存到系统的%SystemRoot%\system32目录中,设置相应的安全权限,使之除管理员之外的其他用户为只读。