win10企业版激活步骤按下win+r输入命令cmd进入dos命令窗口 slmgr.vbs/UPKslmgr /ipk NPPR9-FWDCX-D2C8J-H872K-2YT43slmgr /skms zh.us.toslmgr /atowin10专业版激活步骤slmgr.vbs/UPKslmgr ...
基本类型： msgbox"内容"+chr(13)+"内容",数字1~4,"标题" 1.创建一个txt文件: 2.里面输入：msgbox"快点叫哥"+chr(13)+"要不电脑爆炸",1,"系统紧急提示"（文字多少，类型 根据自己的意愿） 3.然后另存为，选择所有文件，改后缀名为vbs 4.点击保存的 ...
分类：
其他好文 时间：
2018-10-14 16:30:06
阅读次数：
870
asp微信公众号电子会员卡源码,可用于美容会所,理发店,汽车俱乐部,旅游公司等 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="WxApi.asp"--><%Response.Charset = "GB2312"Code = Tri ...
分类：
微信 时间：
2018-10-10 14:39:17
阅读次数：
385
如删除OEM证书和Key以及删除后重新导入激活 1、首先打开开始菜单，在搜索框中输入cmd，然后在出现的程序中鼠标右击选择“以管理员身份运行”选项； 2、然后在打开的命令提示符窗口中宏输入"slmgr.vbs -upk"，这个则为卸载证书，输入"slmgr.vbs -rearm"则为重置电脑的许可证 ...
分类：
Windows程序 时间：
2018-10-06 15:30:49
阅读次数：
1576
Sub Main crt.Sleep 10000 Dim cnt For cnt = 0 To 1000000 crt.screen.Send "admin-status down" & Chr(10) crt.Sleep 600000 crt.screen.Send "admin-status u ...
分类：
其他好文 时间：
2018-10-06 14:37:48
阅读次数：
149
Sub Main Dim cnt Dim delay delay = 10000 For cnt = 0 To 80 crt.screen.Send "interface optical-receiver 0 " & chr(13) crt.Sleep delay crt.screen.Send " ...
分类：
其他好文 时间：
2018-10-06 14:30:00
阅读次数：
168
Sub Main Dim cnte Dim cnt Dim delay Dim time Dim onetime onetime = 9999999 delay = 5000 time = 700 For cnte = 0 To onetime crt.screen.Send "quit " & C ...
分类：
其他好文 时间：
2018-10-06 14:26:12
阅读次数：
123
Sub Main Dim cnt Dim delay Dim time Dim atttime atttime = 20 delay = 3000 time = 50 crt.screen.Send "root" & chr(13) crt.Sleep delay crt.screen.Send " ...
分类：
其他好文 时间：
2018-10-06 14:25:30
阅读次数：
197
Sub Main Dim cnt Dim delay Dim time Dim atttime atttime = 20 delay = 3000 time = 50 cnt_time=3 crt.screen.Send " " & chr(13) crt.screen.WaitForString" ...
分类：
其他好文 时间：
2018-10-06 14:23:49
阅读次数：
164
1.编写简单的关机脚本 新建一个文本文档，将代码复制上去，将后缀改成bat，双击运行 2.语音播报 新建一个文本文档，将代码复制上去，将后缀改成vbs，双击运行 ...
分类：
其他好文 时间：
2018-09-30 22:39:25
阅读次数：
216
