73.システムの時間、日付を変更する

< 使用用途 >
システムの時間、日付を変更する


 < 説明 >
API関数のSetSystemTime を使用します
SetSystemTime =>システムの時間、日付を変更する
  <引数>
     lpSystemTime: SYSTEMTIME構造体
  @戻り値@
     正常終了0以外


< SAMPLE >
’システムの時間を2000/6月1日/1時2分16.25秒に変更します。
'標準モジュール
Public Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long

Public Type SYSTEMTIME
 wYear As Integer ’西暦
 wMonth As Integer’月
 wDayOfWeekAs Integer 
 wDay As Intege’日
 wHour As Integer’時間
 wMinute As Integer '分 
 wSecond As Integer '秒
 wMilliseconds As Integer
End Type

Public Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()
  Dim Hanako As SYSTEMTIME
  Dim RetAs Long

   Hanako.wYear = 2000
   Hanako.wMonth = 6
   Hanako.wHour = 1
   Hanako.wMinute = 16
   Hanako.wSecond = 2
   Hanako.wMilliseconds = 250

   Ret = SetSystemTime(Hanako)
End Sub





API 技術関連のページへ戻る

ホーム PV ランキング