❶ VB更改系統時間
vb修改系統時間可是再簡單不過了
一個代碼就可以實現了
Date = DateValue("你要修改的日期")
注意這個輸入的日期是有格式的
比如說你想修改到8888年8月8日
就是Date = DateValue("8888-8-8")
千萬不能寫Date = DateValue("8888年8月8日")
❷ vb 怎麼更改文件的修改時間
用api函數更改：
PrivateTypeFILETIME
dwLowDateTimeAsLong
dwHighDateTimeAsLong
EndType
PrivateTypeSYSTEMTIME
wYearAsInteger
wMonthAsInteger
wDayOfWeekAsInteger
wDayAsInteger
wHourAsInteger
wMinuteAsInteger
wSecondAsInteger
wMillisecondsAsInteger
EndType
PrivateConstGENERIC_WRITE=&H40000000
PrivateConstOPEN_EXISTING=3
PrivateConstFILE_SHARE_READ=&H1
PrivateConstFILE_SHARE_WRITE=&H2
"kernel32"Alias"CreateFileA"(ByVallpFileNameAsString,ByValdwDesiredAccessAsLong,ByValdwShareModeAsLong,,,,ByValhTemplateFileAsLong)AsLong
"kernel32"(ByValhFileAsLong,lpCreationTimeAsFILETIME,lpLastAccessTimeAsFILETIME,lpLastWriteTimeAsFILETIME)AsLong
"kernel32"(lpSystemTimeAsSYSTEMTIME,lpFileTimeAsFILETIME)AsLong
"kernel32"(ByValhObjectAsLong)AsLong
"kernel32"(lpLocalFileTimeAsFILETIME,lpFileTimeAsFILETIME)AsLong
PrivateSubSetModiTime(ByValm_PathAsString,ByValm_DateAsDate)
DimlngHandleAsLong
DimudtFileTimeAsFILETIME
DimudtLocalTimeAsFILETIME
DimudtSystemTimeAsSYSTEMTIME
udtSystemTime.wYear=Year(m_Date)
udtSystemTime.wMonth=Month(m_Date)
udtSystemTime.wDay=Day(m_Date)
udtSystemTime.wDayOfWeek=Weekday(m_Date)-1
udtSystemTime.wHour=Hour(m_Date)
udtSystemTime.wMinute=Minute(m_Date)
udtSystemTime.wSecond=Second(m_Date)
udtSystemTime.wMilliseconds=0
'convertsystemtimetolocaltime
,udtLocalTime
'convertlocaltimetoGMT
,udtFileTime
'openthefiletogetthefilehandle
lngHandle=CreateFile(m_Path,GENERIC_WRITE,FILE_SHARE_READOrFILE_SHARE_WRITE,ByVal0&,OPEN_EXISTING,0,0)
'changedate/timepropertyofthefile
SetFileTimelngHandle,udtFileTime,udtFileTime,udtFileTime
'closethehandle
CloseHandlelngHandle
MsgBox""+Str$(m_Date),vbInformation+vbOKOnly,App.Title
EndSub
❸ vb修改系統時間
txt1.text=後面不要加什麼#啦
頂多需要在data=時加個cdate轉一下
date=cdate(txt1)
=================
Private Sub Form_Load()
Text1 = Date
Date = #9/9/1999#
End Sub
Private Sub Command1_Click()
Date = Text1
End Sub
小心你的防火牆。。。。。
❹ 怎樣用VB修改時鍾時間
修改時間的語句是：time
如：time=text1.text
❺ VB修改文件時間、年月日時分秒
修改文件的創建時間System.IO.File.SetCreationTime(Label1.Caption,
CDate(text1.text
&
"-" text2.text
&
"-" text3.text
&
"
" text4.text
&
":" text5.text
&
":" text6.text))
文件的修改時間用System.IO.File.SetLastWriteTime
如果Label1是用打開對話框選擇的要加cdlg
核心代碼給你了
自己研究吧
❻ 如何用vb代碼更改系統時間
例如把系統時間更改為13:08:54,用代碼
Shell "cmd.exe /c time 13:08:54"
定機關機時間為14:00:15,用代碼
Shell "cmd.exe /c at 14:00 shutdown -s -t 15"
在 14:00 提示 15 秒後關機
❼ 怎麼用VB代碼修改系統時間 （把系統時間改到最早，好像是1980吧）
非常簡單,給你代碼..
Date = "1980-01-01" '將日期改為1980年1月1日
Time = "0:00:00" '將時間改為0:00:00
❽ 在vb編程如何設置時間
Dim lngTime As LongPrivate Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
lngTime = lngTime + 1
If lngTime = 7200 Then
' 做你要做的事情
lngTime = 0 ' <- 2小時後還要繼續的話就清0
End If
End Sub
❾ 如何 vb 修改系統時間
在窗口上建立一個command 復制下面的代碼就可以了。。。
Private Sub Command1_Click()
Dim tt, dd
tt = Time
dd = Date
If Command1.Caption = "開始使系統時間暫停" Then
Command1.Caption = "停止暫停，繼續運行"
Else
Command1.Caption = "開始使系統時間暫停"
End If
Do
DoEvents
Date = dd
Time = tt
Loop Until Command1.Caption = "開始使系統時間暫停"
End Sub
Private Sub Form_Load()
Command1.Caption = "開始使系統時間暫停"
End Sub
❿ 如何給VB程序設置使用時間
第一第二個你可以使用windows
消息鉤子setwindowshook，然後攔截windows消息，來判斷是否是更改日期的時間。當然如果這樣你就太霸道了，要麼你能自動從網上同步准確的時間並始終給他更新，要麼你就得給用戶一個更改提示，否則你的軟體很快會被列入病毒行列。