❶ 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消息,来判断是否是更改日期的时间。当然如果这样你就太霸道了,要么你能自动从网上同步准确的时间并始终给他更新,要么你就得给用户一个更改提示,否则你的软件很快会被列入病毒行列。