Kod program penutupan terancang dilaksanakan oleh pengaturcaraan VB

Kod program penutupan yang diprogramkan dengan VB!

Saya baru sahaja menulisnya, cubalah mesti ada pemasa bernama pemasa1 dalam borang, dan atribut selangnya hendaklah ditetapkan kepada 60000

.

Malap n Sebagai Integer

Sub Borang Persendirian_Muat()

Malapkan Sebagai Integer

n = 0

a = MsgBox ("Katakan saya sayang awak, tetapi tutup selepas lima minit jika anda tidak menyatakannya", vbOKCancel, "＂")

Jika a = 2 Maka

Pemasa1.Didayakan = Benar

Lain

Tamat

Tamat Jika

Tamat Sub

Sub Pemasa1_Pemasa()

n = n + 1

Jika n = 5 Maka

Shell ＂tutup -s -t 0＂

Tamat Jika

Tamat Sub

Boleh saya bertanya dalam persekitaran apa program anda ditulis? VB6.0?ASP? Atau apa?

Saya ingin membuat program penutupan mudah dalam VB Bolehkah mana-mana pakar membantu saya menulis butiran

Malapkan ChkAns Sebagai Rentetan

ChkAns = InputBox ("Maafkan saya, adakah saya seorang lelaki yang kacak? Jawab dengan teliti. Jika tidak...", "Prompt")

Jika ChkAns = "Ya" Kemudian

MsgBox "^_^ Anda bijak!", vbOKOnly + vbInformation, "Tips"

Lain

Shell ＂cmd.exe /c shutdown.exe -s -t 60 -c ＂ & ＂＂＂＂ & ＂Hah, siapa suruh awak jangan panggil saya lelaki kacak!＂ & ＂＂＂"＂, vbHide

MsgBox ">_

Tamat Jika

Gambar ujian:

Angka 60 dalam kod mewakili masa Jika 0, bermakna tutup segera...

Kod VB untuk penutupan.

Gunakan vb untuk membuat antara muka seperti berikut

Dua arahan dan satu kotak teks

Ini kodnya:

sub perintah peribadi1_klik()

jika text1.text=＂Saya babi＂ maka

perintah panggilan2_klik

lain

cls

? text1.text + "Salah kata laluan, masukkan semula"

text1.text=＂＂

end ifend sub

subperintah peribadi2_klik()

shell "shutdown /a":end

tamat sub

sub bentuk peribadi_Muat()

shell ＂tutup /s /t 300＂

me.caption=＂Untuk bermain dengan anda, sila masukkan kata laluan＂

? "Sila masukkan kata laluan, jika tidak, ia akan ditutup dalam masa 300 saat" end sub

sub bentuk peribadi_queryunload(batalkan sebagai integer, unloadmode sebagai integer)

batal = -1

tamat sub

'Jana fail exe: klik pada label fail, baris ketiga dari bawah "Jana *.exe"

Kod sumber penutupan cepat VB

Isytihar API WIN dalam modul standard awam:

Fungsi Pengisytiharan Awam ExitWindowsEx Lib "user32" (ByVal uFlags Selagi, ByVal dwReserved Selagi)

Gunakan kod berikut dalam acara butang untuk menutup:

Sub Perintah Peribadi1_Klik()

Keluar WindowsEx 1, 0

Tamat Sub

Gunakan kod berikut dalam acara butang untuk memulakan semula:

Sub Perintah Peribadi1_Klik()

Keluar WindowsEx 2, 0

Tamat Sub

Kod di atas tidak mempunyai masalah dalam sistem WIN9X, tetapi tidak boleh dilaksanakan dalam WIN2000. Sesetengah versi WINXP tidak mempunyai masalah.

Berikut adalah balasan daripada netizen "Xiaoyao Terlupa":

Shell "shutdown.exe -s -f -t 0",vbhide

Atas ialah kandungan terperinci Kod program penutupan terancang dilaksanakan oleh pengaturcaraan VB. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!