人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VisualBasic6.0のプログラムで、特定の機能のみタイマーで働かせることはできますか?具体的には、あるプログラムの中で下記のようなFTPのアップロードのボタンのみを夜中の3時に毎日起動するようなことを考えています。
exeの機能全部を起動&実行ではなく、FTP操作のボタンのみを実行したいと思っています。
下記のコードは手動では動く状態です。

-----------------------------------
Private Sub Command4_Click()
’ ファイルアップロードのサンプル

Inet1.URL = ”ftp.hogehoge.jp” ’ FTPアドレスを指定
Inet1.UserName = ”XXXXXXXX” ’ ユーザ名を指定
Inet1.Password = ”XXXXXXXX4” ’ パスワードを指定
Inet1.Protocol = icFTP ’ 接続方法を指定

Inet1.Execute , ”CD homepage” ’ ディレクトリの変更
Do While Inet1.StillExecuting
DoEvents ’ 前の処理が終わるまで待機
Loop
’ アップロード処理を行う
Inet1.Execute , ”PUT C:¥WINDOWS¥MEDIA¥dummy.txt”

End Sub

●質問者: izunagonago
●カテゴリ:コンピュータ
✍キーワード:.jp CD exe FTP LOOP
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● Nanja
●25ポイント

http://www.hatena.ne.jp/1133765161#

人力検索はてな - VisualBasic6.0のプログラムで、特定の機能のみタイマーで働かせることはできますか?具体的には、あるプログラムの中で下記のようなFTPのアップロードのボタンのみを夜中..

URLはダミーです。


・タイマーコントロールを貼り付ける

・Intervalを6000(1分)にする

・タイマーイベントで時刻を求め、指定時刻になれば

Call Command4_Click

を実行させる


というようにすれば可能です。


2 ● Nanja
●25ポイント

http://www.hatena.ne.jp/

はてな

ひとつ忘れていました。

タイマーイベントで該当の時刻であった場合に、タイマーのEnabledをFalseにする必要があります。

こうしないと、処理中にまたタイマーイベントが発生する可能性があります。

サンプル的には下記のコーディングを参考にしていただければ幸いです。


Private Sub Form_Load()


Me.Timer1.Interval = 60000

End Sub


Private Sub Timer1_Timer()


Dim dtTime As Date

dtTime = Time

If dtTime >= #3:00:00 AM# And dtTime <= #3:01:00 AM# Then

Me.Timer1.Enabled = False

Call Command4_Click

End If

End Sub

◎質問者からの返答

ありがとうございます。

早速書いてみました。

ところで、実行できたかどうかを表示するにはどうしたらよいでしょうか?

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ