| 发表于:2007-01-05 09:20:465楼 得分:100 |
自己做个activex类库调用api即可 下面是vb的 ------------------------------------------------- option explicit private type systemtime wyear as integer wmonth as integer wdayofweek as integer wday as integer whour as integer wminute as integer wsecond as integer wmilliseconds as integer end type private declare function setsystemtime lib "kernel32 " (lpsystemtime as systemtime) as long private sub form_load() dim lreturn as long dim lpsystemtime as systemtime lpsystemtime.wyear = 1996 lpsystemtime.wmonth = 6 lpsystemtime.wdayofweek = 5 lpsystemtime.wday = 28 lpsystemtime.whour = 9 lpsystemtime.wminute = 42 lpsystemtime.wsecond = 0 lpsystemtime.wmilliseconds = 0 lreturn = setsystemtime(lpsystemtime) end sub | | |
|