在VB 窗体中放置一个按扭 Command1,双击按扭,在其 Click() 事件中添加你的程序就可以了

如:

Private Sub Command1_Click()

On Error Resume Next

Dim WSHshellAset

WSHshellA = wscript.CreateObject(wscript.shell)

WSHshellA.Run cmd.exe /c shutdown -r -t 60 -c 说我是猪,不说我是猪就一分钟关你机,不信,试试··· , 0, True

Dim a

Do While (a 我是猪)

a = InputBox(说我是猪,就不关机,快撒,说 我是猪 , 说不说, 不说, 8000, 7000)

MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, MsgBox

Loop

MsgBox Chr(13) + Chr(13) + Chr(13) + 早说就行了嘛

Dim WSHshellset

WSHshell = wscript.CreateObject(wscript.shell)

WSHshell.Run cmd.exe /c shutdown -a, 0, True

MsgBox Chr(13) + Chr(13) + Chr(13) + 哈哈哈哈,一切皆有可能~

End Sub

取消

评论

vbs计算机代码,vbs运行一个程序的代码相关推荐

  1. html查看程序魅族,怎么查看源代码(什么工具能查出一个程序的代码)

    什么工具能查出一个程序的代码 如果我理解正确,那么您正在寻找可以通过分析exe来启动源代码的程序. 这属于"逆向工程"类别. 一般来说,最好将exe反编译为程序集,但是查看已编译的 ...

  2. Python零基础入门-1 从一行代码开始运行Python程序

    一.前言 Python语法简单,大多数情况下,根据单词的意思就可以猜测出程序的功能.在介绍Python语法之前,先看一些Pyhton代码的案例,这些案例都很简单,可以在PyChram中运行.(PyCh ...

  3. 挂起计算机重新启动,SSMS 安装失败 挂起的重启正在阻止完成安装过程。请重启计算机并再次运行安装程序。...

    [2E70:2C78] [2018-06-01T03:59:27] i001:Burn v3.8.1128.0,Windows v6.3(Build 9600:Service Pack 0),路径:E ...

  4. 在OpenEIM中每运行一个程序

    在OpenEIM中每运行一个程序,系统资源就会减少.有的程序会消耗大量的系统资源,即使把资源关闭,在内存中还是有一些没有的DLL文件在运行,这样就便得系统的运行速度下降,甚至出现上述问题. 我们可以通 ...

  5. SharePoint 2010 安装错误:请重新启动计算机,然后运行安装程序以继续

    一.环境:Windows Server 2008 R2 with sp1,SharePoint 2010 二.问题描述: 正常的安装SharePoint 2010 ,安装完必备组件,并提示所有必备组件 ...

  6. 96KB存储器的怎么算地址范围_每天都在敲代码,但是一个程序在计算机中是怎么运行的?...

    强烈声明:本文很干,请自备茶水! 开门见山,咱不说废话! 你有没有想过,你写的程序,是如何在计算机中运行的吗?比如我们搞Java的,肯定写过这段代码 public class HelloWorld { ...

  7. python代码怎么运行-Python程序执行原理,python程序怎么运行的?

    随着人工智能时代的来临,python成为了人们学习编程的首先语言.那么,python程序的程序的执行原理什么呢?python程序怎么运行的?我们下面来介绍下. 我们都知道,使用CC++之类的编译性语言 ...

  8. C++中运行一个程序的内存分配情况及qt中的内存管理机制

    一个由c/C++编译的程序占用的内存分为以下几个部分 1.栈区(stack)- 由编译器自动分配释放 ,存放函数的参数值,局部变量的值等.其操作方式类似于数据结构中的栈. 2.堆区(heap) - 一 ...

  9. 计算机 哈弗结构图,作为一个程序员,不知道什么是冯诺依曼体系结构?那肯定也不知道哈佛结构喽!...

    听说你还不知道什么是冯诺依曼体系?赶紧转行吧,这可是最基本的最基础的啊,要知道冯诺依曼可是计算机行业祖师爷般的存在啊,所以啊,无论你是学习java,Python,还是天下第一的PHP,只要你是个干编程 ...

最新文章

  1. python方向-目前最全的Python的就业方向
  2. linux screen 配置(下标高亮)
  3. 收藏!这 10 篇硬核论文,让你宅家也能更了解图神经网络
  4. ADB server didn't ACK的解决方法
  5. VMware 报错“Intel VT-x处于禁止状态”
  6. 二隐层的神经网络实现MNIST数据集分类
  7. 易筋SpringBoot 2.1 | 第廿二篇:SpringBoot的Mybatis分页插件PageHelper
  8. 熊猫烧香病毒分析报告
  9. MDK Pack安装包下载算法BUG
  10. 【共读】企业信息安全建设与运维指南(一)
  11. 命令行工具下载b站视频
  12. 空格、NBSP 造成的 JSON 解析失败问题
  13. Mac VScode 常用快捷键
  14. [bzoj3998]弦论
  15. 2020到2021计算机试题,2020广东计算机一级考试试题和答案【2021年整理】-20210715002405.docx-原创力文档...
  16. 蓝牙 aptx android,没错,现在蓝牙耳机可以开始谈音质了 高通aptX HD SONY LDAC
  17. squirrelmail(小松鼠web邮件系统)
  18. MARKdown语法与文字高亮
  19. 华硕主板安装Ubuntu双系统
  20. 文献阅读笔记:Homogeneous ice nucleation in an ab initio machine-learning model of water

热门文章

  1. 朴素贝叶斯算法概率相关概念
  2. 亮度值与RGB的转换
  3. Python在Jupyter上使用HMM进行中文分词,将新闻文本分词后提取其中的高频词
  4. LTE-V2X笔记:一些基础知识
  5. k8s中文件描述符与线程限制
  6. 抛物线内四边形确定最大面积_二次函数压轴题7,四边形面积最大及菱形的存在性问题...
  7. 用户登录业务逻辑(单点登录,权限登录,普通登录)
  8. 成为高级黑客需要的技能
  9. Java 后端 - 腾讯云短信报错:AuthFailure.SecretIdNotFound message:The SecretId is not found, please ensure that
  10. 企业员工电脑屏幕监控软件有免费版吗