訳:優婆塞宮(うばそくのみや)たん萌え萌え

日付をごまかす

イントロダクション

DateCrackerを解析したら、思いの外簡単だったのでサンプルを作ってみました。
要はシステムの日時を指定のものに書き換え、ターゲットを起動させて、ちょっと待った後にシステムの日付を元に戻せばいいわけです。

コード

' 起動
Private Sub cmdShell_Click()
  ' 日付の書式かチェック
  If IsDate(Me.txtDate.Text) Then
    Dim strDate As String
    strDate = Date  ' 日付の取得
    Date = Me.txtDate.Text  ' 日付の設定
    Shell (Me.txtPath.Text) ' ソフトの起動
    Sleep (2000)    ' ちょっと待つ
    Date = strDate  ' 元に戻す
  End If
End Sub
	  

Date()は関数なんですが、システムの時刻が入っている変数として扱ってもいいつくりになっています。

Topへ

©2002 knothole All Right Reserved.