VB 프로그래밍으로 구현된 계획된 종료 프로그램 코드

VB로 프로그래밍된 종료 프로그램 코드!

방금 작성했는데, 양식에 타이머1이라는 타이머가 있어야 하고, 간격 속성이 60000으로 설정되어 있어야 합니다.

Dim n As Integer

비공개 하위 양식_Load()

정수로 Dim

n = 0

a = MsgBox ("사랑한다고 말하고, 말하지 않으면 5분 후 종료", vbOKCancel, """)

a = 2이면

Timer1.Enabled = True

그밖에

끝

끝나면

끝 서브

비공개 서브 타이머1_Timer()

n = n + 1

n = 5라면

쉘 "shutdown -s -t 0"

끝나면

끝 서브

프로그램이 어떤 환경에서 작성되었는지 물어봐도 될까요? VB6.0?ASP? 그리고 뭐?

VB에서 간단한 종료 프로그램을 만들고 싶습니다. 자세한 내용을 적어줄 전문가가 있나요? Dim ChkAns As String

ChkAns = InputBox ("실례합니다. 제가 잘생긴 남자인가요? 신중하게 답변해 주세요. 그렇지 않으면...", "프롬프트")

ChkAns = "예"이면

MsgBox "^_^ 똑똑하시군요!", vbOKOnly + vbInformation, "팁"

그밖에

Shell "cmd.exe /c shutdown.exe -s -t 60 -c " & "" "" & "어, 누가 나한테 잘생긴 남자라고 부르지 말라고 했어!" & """", vbHide

MsgBox ">_ 끝나면

테스트 사진:

코드의 60은 시간을 의미합니다. 0이면 즉시 종료된다는 의미입니다...

종료용 VB 코드.

vb를 사용하여 다음과 같이 인터페이스를 만들어 보세요

두 개의 명령과 하나의 텍스트 상자

코드는 다음과 같습니다.

비공개 하위 명령1_click()

text1.text="나는 돼지다"라면

명령 호출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 파일 생성: 파일 라벨을 클릭하세요. 하단에서 세 번째 줄 "Generate *.exe"

VB 빠른 종료 소스 코드

공용 표준 모듈에서 WIN API 선언:

공개 선언 함수 ExitWindowsEx Lib "user32"(ByVal uFlags As Long, ByVal dwReserved As Long)

종료하려면 버튼 이벤트에 다음 코드를 사용하세요.

비공개 하위 명령1_Click()

Windows 종료Ex 1, 0

끝 서브

다시 시작하려면 버튼 이벤트에 다음 코드를 사용하세요.

비공개 하위 명령1_Click()

Windows 종료Ex 2, 0

끝 서브

위 코드는 WIN9X 시스템에서는 문제가 없으나, WIN2000에서는 구현할 수 없습니다. 일부 WINXP 버전에는 문제가 없습니다.

다음은 '샤오야오 포가튼' 네티즌들의 답변입니다.

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

위 내용은 VB 프로그래밍으로 구현된 계획된 종료 프로그램 코드의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!