if date=   then msgbox"  " else end

解决方案 »

  1.   

    Declare Function GetMessageTime Lib "user32" () As Long
    Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
      

  2.   

    楼上的朋友,能不能稍微详细点?
    你这两个api能实现吗?能不能稍作指导
      

  3.   

    启动这个问题,你可以使用参数来做到这一点
    比如不加参数就是管理界面,加了特定参数就执行自动启动的那一种command 是一个全局变量用于保存程序运行时加的参数
    sub main()
        分析commmand then ....
    end sub然后建立快捷方式
    命令行:应用程序名 -Start之类的就可以了