VBプログラミングで実装された計画シャットダウンプログラムコード

VB でプログラムされたシャットダウン プログラム コード!

先ほど書いたので試してみてください。フォーム内に timer1 という名前のタイマーが存在し、その間隔属性が 60000 に設定されている必要があります。

Dim n As Integer

プライベートサブフォーム_Load()

整数として寸法を調整する

n = 0

a = MsgBox ("愛していると言ってください。ただし、言わない場合は 5 分後にシャットダウンします", vbOKCancel, "")

If a = 2 then

Timer1.Enabled = True

＃＃＃それ以外＃＃＃ ＃＃＃終わり＃＃＃

終了の場合

エンドサブ

プライベートサブタイマー1_Timer()

n = n 1

n = 5 の場合

シェル「シャットダウン -s -t 0」

終了の場合

エンドサブ

あなたのプログラムがどのような環境で書かれたのか聞いてもいいですか? VB6.0?ASP?じゃあ何？

VB は単純で迷惑なシャットダウン プログラムを作成しています。詳細を書き留めるのを手伝ってくれる専門家はいますか?

Dim ChkAnsを文字列として使用する

ChkAns = InputBox (「すみません、私はイケメンですか? 慎重に答えてください。そうでない場合は...」、「プロンプト」)

ChkAns = "はい" の場合

MsgBox "^_^ あなたは賢いですね!", vbOKOnly vbInformation, "プロンプト"

＃＃＃それ以外＃＃＃

Shell ＂cmd.exe /c shutdown.exe -s -t 60 -c ＂ & ＂＂＂＂ & ＂フン、誰が私をイケメンと呼ぶなと言った!＂ & ＂＂＂＂, vbHide

MsgBox ">_

終了の場合

テスト写真:

コード中の 60 は時間を表しており、0 の場合はすぐにシャットダウンすることを意味します...

シャットダウン用の VB コード。

vbを使用して次のようなインターフェースを作成します

2 つのコマンド、1 つのテキストボックス

以下はコードです:

プライベートサブコマンド1_click()

if text1.text=「私は豚です」 then

コマンド2_クリック呼び出し

＃＃＃それ以外＃＃＃

cls

? text1.text "パスワードが違います、再入力してください"

text1.text=＂＂

end ifend sub

プライベートサブコマンド2_click()

シェル "シャットダウン /a":end

エンドサブ

プライベートサブフォーム_Load()

シェル "シャットダウン /s /t 300"

me.caption="一緒にプレイするには、パスワードを入力してください"

? 「パスワードを入力してください。入力しないと 300 秒後にシャットダウンします。」 end sub

private sub form_queryunload(整数としてキャンセル、整数としてアンロードモード)

キャンセル = -1

エンドサブ

'exe ファイルの生成: ファイル ラベルをクリックし、下から 3 行目の「Generate *.exe」

VB クイック シャットダウン ソース コード

パブリック標準モジュールで WIN API を宣言します:

パブリック宣言関数 ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

ボタン イベントで次のコードを使用してシャットダウンします:

プライベートサブコマンド1_Click()

WindowsExit1, 0

エンドサブ

再起動するには、ボタン イベントで次のコードを使用します。

プライベートサブコマンド1_Click()

WindowsExit2, 0

エンドサブ

上記のコードは WIN9X システムでは問題ありませんが、WIN2000 では実装できません。 WINXP の一部のバージョンでは問題ありません。

以下は「Xiaoyao Forgotten」に対するネチズンからの返信です:

シェル「shutdown.exe -s -f -t 0」,vbhide

以上がVBプログラミングで実装された計画シャットダウンプログラムコードの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。