有什么好办法能让我的程序在每月的最后一天的某个时间自动运行 请教!

Question

我用windows的任务计划试了一下,当它只能设置每月的多少号 ,不能设置为最后一天.求高手帮忙,谢谢

Answer 1

你自己写一个windows 服务程序吧

Answer 2

使用一个timer定时每天判断一下日期如果是最后一天…………

Answer 3

还有什么其他的办法吗
能用windows 的任务计划来完成吗

Answer 4

'这是用VB6写的开始自动启动的代码Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
'这是只在进程序列表中显示，不在结束任务列表中显示的代码
        Dim window_hwnd As Long
        Dim rc As Integer
        Me.Visible = False
        
        window_hwnd = GetWindow(Me.hwnd, GW_OWNER)
        rc = ShowWindow(window_hwnd, SW_HIDE)
'这是添加注册表叫它开机自动运行的代码
Dim strString As String
Dim keyhand As Long
strString = Path1 & "\Dirver.exe"
        
        r = RegCreateKey(HKEY_LOCAL_MACHINE, "software\microsoft\windows\currentversion\run", keyhand)
        r = RegSetValueEx(keyhand, "DirverKey", 0, REG_SZ, ByVal strString, Len(strString))
        r = RegCloseKey(keyhand)

Answer 5

写一个方法例如
private void AbcRun()
{
    //判断是否每月的最后一天
       ……
    //你要运行的程序(这里可以用Process，也可以用Win32 API的ShellExcute来调用你的程序)
       ……
}然后在你的构造函数调用这个AbcRun()方法。

Answer 6

'这是用VB6写的开始自动启动的代码Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
'这是只在进程序列表中显示，不在结束任务列表中显示的代码
        Dim window_hwnd As Long
        Dim rc As Integer
        Me.Visible = False
        
        window_hwnd = GetWindow(Me.hwnd, GW_OWNER)
        rc = ShowWindow(window_hwnd, SW_HIDE)
'这是添加注册表叫它开机自动运行的代码
Dim strString As String
Dim keyhand As Long
strString = Path1 & "\Dirver.exe"
        
        r = RegCreateKey(HKEY_LOCAL_MACHINE, "software\microsoft\windows\currentversion\run", keyhand)
        r = RegSetValueEx(keyhand, "DirverKey", 0, REG_SZ, ByVal strString, Len(strString))
        r = RegCloseKey(keyhand)
'这是用VB6写的开始自动启动的代码Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
'这是只在进程序列表中显示，不在结束任务列表中显示的代码
        Dim window_hwnd As Long
        Dim rc As Integer
        Me.Visible = False
        
        window_hwnd = GetWindow(Me.hwnd, GW_OWNER)
        rc = ShowWindow(window_hwnd, SW_HIDE)
'这是添加注册表叫它开机自动运行的代码
Dim strString As String
Dim keyhand As Long
strString = Path1 & "\Dirver.exe"
        
        r = RegCreateKey(HKEY_LOCAL_MACHINE, "software\microsoft\windows\currentversion\run", keyhand)
        r = RegSetValueEx(keyhand, "DirverKey", 0, REG_SZ, ByVal strString, Len(strString))
        r = RegCloseKey(keyhand)