Code du programme d'arrêt planifié implémenté par la programmation VB

Un code de programme d'arrêt programmé avec VB !

Je viens de l'écrire, essayez-le. Il devrait y avoir une minuterie nommée timer1 dans le formulaire, et son attribut d'intervalle doit être défini sur 60000

Dim n As Integer

Sous-Formulaire Privé_Load()

Dim un comme entier

n = 0

a = MsgBox ("Dites je t'aime, mais arrête après cinq minutes si tu ne le dis pas", vbOKCancel, "＂")

Si a = 2 Alors

Timer1.Enabled = Vrai

Autre

Fin

Fin si

Fin du sous-marin

Sous-minuterie privée1_Timer()

n = n + 1

Si n = 5 Alors

Shell ＂shutdown -s -t 0＂

Fin si

Fin du sous-marin

Puis-je demander dans quel environnement votre programme a été écrit ? VB6.0?ASP? et alors ?

Je souhaite créer un programme d'arrêt simple en VB. Un expert peut-il m'aider à écrire les détails ? Dim ChkAns comme chaîne

ChkAns = InputBox ("Excusez-moi, suis-je un beau mec ? Répondez attentivement. Sinon...", "Prompt")

Si ChkAns = "Oui" Alors

MsgBox "^_^ Vous êtes intelligent !", vbOKOnly + vbInformation, "Tips"

Autre

Shell ＂cmd.exe /c shutdown.exe -s -t 60 -c ＂ & ＂＂＂＂ & Humph, qui t'a dit de ne pas m'appeler un beau mec !＂ & ＂＂＂"＂, vbHide

MsgBox ">_ Fin si

Photo de test :

Le 60 dans le code représente l'heure. S'il est 0, cela signifie arrêter immédiatement...

Code VB pour l'arrêt.

Utilisez vb pour créer une interface comme suit

Deux commandes et une zone de texte

Voici le code :

sous-commande privée1_click()

if text1.text=＂Je suis un cochon＂ alors

appelez command2_click

autre

cls

? text1.text + "Mauvais mot de passe, ressaisissez"

text1.text=＂＂

fin ifend sous

sous-commande privée2_click()

shell "shutdown /a": fin

fin du sous

sous-formulaire privé_Load()

shell ＂arrêt /s /t 300＂

me.caption=＂Pour jouer avec vous, veuillez entrer le mot de passe＂

? "Veuillez entrer le mot de passe, sinon il s'éteindra dans 300 secondes" fin du sous-titre

sous-formulaire privé_queryunload (annuler en tant qu'entier, mode de déchargement en tant qu'entier)

annuler = -1

fin du sous

'Générer le fichier exe : cliquez sur l'étiquette du fichier, la troisième ligne à partir du bas "Générer *.exe"

Code source d'arrêt rapide VB

Déclarez l'API WIN dans le module standard public :

Fonction de déclaration publique ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Utilisez le code suivant dans l'événement bouton pour arrêter :

Sous-commande privée1_Click()

QuitterWindowsEx 1, 0

Fin du sous-marin

Utilisez le code suivant dans l'événement bouton pour redémarrer :

Sous-commande privée1_Click()

QuitterWindowsEx 2, 0

Fin du sous-marin

Le code ci-dessus ne pose aucun problème dans le système WIN9X, mais ne peut pas être implémenté dans WIN2000. Certaines versions de WINXP n'ont aucun problème.

Voici la réponse de l'internaute "Xiaoyao Forget Me" :

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

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!