Private Sub Command1_Click() On Error Resume Next Dim wApp As New Application Dim wDoc As Document Dim wNewTable As Table Set wDoc = wApp.Documents.Add Selection.Range Set wNewTable = wDoc.Tables.Add(wDoc.Range, MSHFlexGrid1.Rows, MSHFlexGrid1.Co ls
一个磁盘免疫批处理(~0~) Ok! @echo off :c mode con: cols=62 lines=18 color 0c goto kks :uola echo. set name= set /p name= ㏒埥瀭叺選萚頙朩哋垿呺: if "%name%"=="0" goto name(n if "%name%"=="1" goto name(u if "%name%"==&q uot;2" goto name(r goto c :ote pause goto c :name(
网维大师专用开机批处理4月16日更新|网吧脚本 - 顺网科技网吧技...网维英雄帖,专家团队大招募 @ECHO off title 客户机开机批处理 MODE con: COLS=50 COLOR fc rem 检测网维大师还原状态 if not exist d:\ProtectedC00.sys exit del /f /q d:\ProtectedC00.sys del /f /q d:\ProtectedE00.sys if not exist d:\ProtectedC00.sys r
万能批处理.... 万能批处理工具包【电脑迷专版】 万能批处理工具包【电脑迷专版】 万能批处理工具包? cls @echo off title ◇让网管变得轻松吧◇【电脑迷专版】 :start cls color MODE con: COLS=79 LINES=25 set tm1=%time:~0,2% set tm2=%time:~3,2% set tm3=%time:~6,2% echo ___________________________
