【BAT】BAT 階段技能匯總：全功能小程序
littleFun.bat
@echo off
chcp
936 > nultitle BAT小程序
color 3f:menu
cls
echo off
echo BAT小程序】菜單:
echo "→ 1.【系統維護】清理垃圾 "
echo "→ 2. 建立VBS程序 "
echo "→ 3. 自動關機（一小時） "
echo "→ 4. 一鍵設置IP DNS "
echo "→ 5. 一鍵清除IP "
echo "→ 6. 一鍵打開網頁（百度）"
echo "→ 7. 顯示本機IP "
echo "→ 8. 設置開機啟動項 "
echo "→ 9. 打開更多功能 "
echo "→ 0. 關閉本程序 "
echo 說明文字: BAT小程序工具 by HDB
set /p
a=請選擇數字：
echo %a%
if "%a%"=="1" set a="" & goto
1
if "%a%"=="2" set a="" & goto
2
if "%a%"=="3" set a="" & goto
3
if "%a%"=="4" set a="" & goto
4
if "%a%"=="5" set a="" & goto
5
if "%a%"=="6" set a="" & goto
6
if "%a%"=="7" set a="" & goto
7
if "%a%"=="8" set a="" & goto
8
if "%a%"=="9" set a="" & goto
9
if "%a%"=="0" set a="" & goto
0
goto menu:1
@echo off
echo 正在清除系統垃圾文件，請稍等
......
del /f /s /q %systemdrive%
\*.tmp
del /f /s /q %systemdrive%
\*._mp
del /f /s /q %systemdrive%
\*.log
del /f /s /q %systemdrive%
\*.gid
del /f /s /q %systemdrive%
\*.chk
del /f /s /q %systemdrive%
\*.old
del /f /s /q %systemdrive%
\recycled
\*.*
del /f /s /q %windir%
\*.bak
del /f /s /q %windir%
\prefetch
\*.*
rd /s /q %windir%
\temp
& md %windir%
\temp
del /f /q %userprofile%
\cookies
\*.*
del /f /q %userprofile%
\recent
\*.*
del /f /s /q
"%userprofile%\Local Settings\Temporary Internet Files\*.*"
del /f /s /q
"%userprofile%\Local Settings\Temp\*.*"
del /f /s /q
"%userprofile%\recent\*.*"
echo 清除系統垃圾文件完成！【按任意鍵返回菜單】
pause
goto menu:2@echo off
echo wscript.sleep
1000 > a.vbs
cscript //nologo a.vbs
& del a.vbs
ping qq.com
pause
goto menu:3
shutdown -s -t
3600
goto menu:4
echo off
echo offclstitle 設置IPecho 正在設置IP地址，請稍候……netsh interface
ip set address
"以太網" static
192.168.1.124
255.255.255.0
192.168.1.1
1
if %errorlevel%
== 0 (
echo IPV4 IP 設置成功
) else (
echo IPV4 IP 設置失敗
)echo 正在更改DNS設置，請稍候……netsh interface
ip set dnsservers
"以太網" static
114.114.114.114 primary
yes
if %errorlevel%
== 0 (
echo DNS 設置成功
) else (
echo DNS 設置失敗
)netsh interface
ip add dnsservers name
= "以太網" addr=8.8.8.8
if %errorlevel%
== 0 (
echo DNS備選 設置成功
) else (
echo DNS備選 設置失敗
)echo ******恭喜你，修改完成！******
pause
goto menu:5
echo off
cls
netsh interface
ip set address
name="以太網" source=dhcp
netsh interface
ip delete dns
"以太網" all
ipconfig /flushdns
goto menu:6
echo off
path=%path%
; C:
\Program Files
\Google
\Chrome
\Application
\chrome.exe
start chrome http://www.baidu.com
goto menu:7
@echo off
ipconfig
| findstr
"IPv4"
pause
goto menu:8
@echo off
start /d
"C:\Windows\System32\" msconfig.exe
goto menu:9
@echo off
echo 更多功能菜單:
echo " → a. 自動關機
(晚上11點
) "
echo " → b.【資料搜集】百度搜索關鍵詞
"
echo " → c. 中文顯示ping結果
"
echo " → d. 增加新用戶
"
echo " → e.【系統維護】自定義配置網絡ip、網關、dns（安裝）
"
echo " → f.【動畫】籃球飛人火爆版
"
echo " → g. 輸入文字 輸出倒文
"
echo " → h.【文檔設計】生成TXT結構樹
"
echo " → i. 環境變量查詢
"
echo " → j. 檢查網絡信息
"
echo " → k. 列舉進程
"
echo " → l. 一鍵打開隱藏、系統文件及文件擴展名
"
echo " → m. 自動生成圖片種子
"
echo " → n.【游戲】五子棋
"
echo " → o.【惡搞VBS】簡單整人程序 不停點擊
"
echo " → p.【惡搞VBS】不斷彈出窗口
"
echo " → q.【破壞VBS】不斷按下alt+f4 關閉一切
"
echo " → r. BAT＋VBS 混合編程 （單獨運行）
"
echo " → s. 隨機顏色
"
echo " → t.【VBS植入】直接關機
"
echo " → u.【破壞VBS】直到死機
"
echo " → v.【VBS設置】添加桌面快捷方式
"
echo " → w.【VBS設置】復制自己
"
echo " → x.【VBS設置】添加啟動項
"
echo " → y.【VBS工具】編輯TXT文本
"
echo " → z. 安裝網站/軟件/代碼 基礎說明
"
set /p dys=請選擇字母:
if "%dys%
"=="a
" set dys=""
& goto a
if "%dys%"=="b" set dys="" & goto b
if "%dys%"=="c" set dys="" & goto c
if "%dys%"=="d" set dys="" & goto d
if "%dys%"=="e" set dys="" & goto e
if "%dys%"=="f" set dys="" & goto f
if "%dys%"=="g" set dys="" & goto g
if "%dys%"=="h" set dys="" & goto h
if "%dys%"=="i" set dys="" & goto i
if "%dys%"=="j" set dys="" & goto j
if "%dys%"=="k" set dys="" & goto k
if "%dys%"=="l" set dys="" & goto l
if "%dys%"=="m" set dys="" & goto m
if "%dys%"=="n" set dys="" & goto n
if "%dys%"=="o" set dys="" & goto o
if "%dys%"=="p" set dys="" & goto p
if "%dys%"=="q" set dys="" & goto q
if "%dys%"=="r" set dys="" & goto r
if "%dys%"=="s" set dys="" & goto s
if "%dys%"=="t" set dys="" & goto t
if "%dys%"=="u" set dys="" & goto u
if "%dys%"=="v" set dys="" & goto
v
if "%dys%"=="w" set dys="" & goto w
if "%dys%"=="x" set dys="" & goto x
if "%dys%"=="y" set dys="" & goto y
if "%dys%"=="z" set dys="" & goto z
goto menu:a
@echo off
schtasks /create /TN shutdown_t /ST
11:00 /sc once /TR
"shutdown /s"
pause
goto menu:b
@echo off
set a=
set/p
a=請輸入關鍵字…… site:
(baidu.com
) 全部關鍵詞
"完整關鍵詞" (任意關鍵詞
) -
(不包關鍵詞
) title:
(僅網頁的標題中
) inurl:
(僅在網頁的URL中
)
start http://www.baidu.com/s?wd
=%a%
pause
goto menu:c
@echo off
color 09
echo.
set for=于
set of= 的
set with=用
set in = (以
set data:
=數據
set milli-seconds:
=毫秒為單位
)
set Approximate=大約
set times=時間:
set round=來回
set trip=行程
set Reply=應答
set from=來自
set bytes=字節
set time=時間:
set timed=時間
set out=超過
set statistics=統計
set Packets:
=包:
set Sent=已發送
=
set Received=已收到
=
set Lost=已丟失
=
set loss
)=丟失
)
set Minimum=最小值
=
set Maximum=最大值
=
set Average=平均值
=
set TTL=TTL
=setlocal enabledelayedexpansion
set a=
set/p
a=請輸入要ping的網址或IP:
for /f
"delims=" %%i
in ('ping %a%') do (set ret=for %%a
in (%%i
) do if defined %%a
(set
ret=!ret
!!%%a
!) else set ret=!ret
! %%a
if not
"!ret!"=="" (set
ret=!ret:time
=時間
! && echo !ret
!) else echo.
)
pause
>nul
pause
color 3f
goto menu:d
cmdkey /add:
192.168.1.124 /user:dell /pass:Handabao123
pause
goto menu:e
@echo off
set slection1=
set/p
slection1=請輸入IP地址:（192.168.0.
[1-254
] 192.168.1.
[1-254
]）
set slection2=
set/p
slection2=請輸入網關地址:（192.168.0.1
192.168.1.1 ）::netsh interface
ip set address
name="以太網" gateway=%slection2%
gwmetric=0netsh interface
ip set address
"以太網" static %slection1%
255.255.255.0 %slection2%
set slection3=
set/p
slection3=請輸入主dns地址:（阿里DNS
223.5.5.5
223.6.6.6 百度DNS
180.76.76.76 Google
8.8.8.8
8.8.4.4 114DNS
114.114.114.114 OpenDNS
208.67.222.222
208.67.220.22）netsh interface
ip set dnsservers
name="以太網" source=static
addr=%slection3%
register=PRIMARY
yesset slection4=
set/p
slection4=請輸入備份dns地址:netsh interface
ip add dnsservers
name="以太網" addr=%slection4% netsh interface
ip set winsservers
name="以太網" source=static
addr=none pause goto menu:f
@echo off
setlocal enabledelayedexpansionmode con
cols=71 lines=9for /l %%a
in (1,1,8
) do (
echo/
echo
\
echo.
echo **********************************************************************
echo *************************籃球飛人火爆版*******************************
echo **********************************************************************
color cf
ping -n
1 127.
1>nul
color fc
ping -n
1 127.
1>nul
cls
)
color f1
cls
echo ^
|
echo ^
|
echo ＝^
|--^
|
echo Ｖ
' ^|
echo ^|
echo o ^|
echo /^|\o ^|
echo _____________/_\____________________________________________________^|
ping -n 1 127.1>nul
cls
echo ^|
echo ^|
echo ＝^|--^|
echo Ｖ' ^
|
echo ^
|
echo o ^
|
echo /^
|\ ^
|
echo ________________/_^
>_o_______________________________________________^
|
ping -n
1 127.
1>nul
cls
echo ^
|
echo ^
|
echo ＝^
|--^
|
echo Ｖ
' ^|
echo ^|
echo o ^|
echo /^|\o ^|
echo ______________________^>_\___________________________________________^|
ping -n 1 127.1>nul
cls
echo ^|
echo ^|
echo ＝^|--^|
echo Ｖ' ^
|
echo ^
|
echo o ^
|
echo /^
|\ ^
|
echo ______________________/_^
>_o_________________________________________^
|
ping -n
1 127.
1>nul
cls
echo ^
|
echo ^
|
echo ＝^
|--^
|
echo Ｖ
' ^|
echo ^|
echo o ^|
echo /^|-o ^|
echo __________________________^>\________________________________________^|
ping -n 1 127.1>nul
cls
echo ^|
echo ^|
echo ＝^|--^|
echo Ｖ' ^
|
echo ^
|
echo o ^
|
echo /^
|\ ^
|
echo ____________________________/_^
>_o___________________________________^
|
ping -n
1 127.
1>nul
cls
echo ^
|
echo ^
|
echo 罰球線到了
! ＝^
|--^
|
echo Ｖ
' ^|
echo ^|
echo o ^|
echo /^|-o ^|
echo ________________________________^>^>__________________________________^|
ping -n 2 127.1>nul
cls
echo ^|
echo ^|
echo ＝^|--^|
echo o Ｖ' ^
|
echo o/ ^
|
echo /^
| ^
|
echo ^
>\ ^
|
echo ____________________________________________________________________^
|
ping -n
1 127.
1>nul
cls
echo ^
|
echo ^
|
echo o ＝^
|--^
|
echo o^
| Ｖ
' ^|
echo /^| ^|
echo / ^> ^|
echo ^|
echo ____________________________________________________________________^|
ping -n 1 127.1>nul
cls
echo ^|
echo o ^|
echo o^| ＝^|--^|
echo /^| Ｖ' ^
|
echo ^
>\ ^
|
echo ^
|
echo ^
|
echo ____________________________________________________________________^
|
ping -n
1 127.
1>nul
cls
echo o ^
|
echo o/ ^
|
echo /^
| ＝^
|--^
|
echo / ^
> Ｖ
' ^|
echo ^|
echo ^|
echo ^|
echo ____________________________________________________________________^|
ping -n 1 127.1>nul
cls
echo o ^|
echo o/ ^|
echo /^| ＝^|--^|
echo / \ Ｖ' ^
|
echo ^
|
echo ^
|
echo ^
|
echo ____________________________________________________________________^
|
ping -n
1 127.
1>nul
cls
echo ^
|
echo o ^
|
echo o/＝^
|--^
|
echo /^
| Ｖ
' ^|
echo // ^|
echo ^|
echo ^|
echo ____________________________________________________________________^|
ping -n 1 127.1>nul
cls
echo ^|
echo ^|
echo ＝^|--^|
echo φ' ^
|
echo o ^
|
echo -^
|\ ^
|
echo ^
>^
> ^
|
echo ____________________________________________________________________^
|
ping -n
1 127.
1>nul
cls
echo ^
|
echo ^
|
echo ＝^
|--^
|
echo Ｖ
' ^|
echo o ^|
echo o ^|
echo /^|\^|
echo __________________________________________________________________^>^>^|
ping -n 1 127.1>nul
cls
echo ^|
echo ^|
echo ＝^|--^|
echo Ｖ' ^
|
echo ^
|
echo o o ^
|
echo /^
|- ^
|
echo ________________________________________________________________/_
\_^
|
ping -n
1 127.
1>nul
cls
echo ^
|
echo ^
|
echo ＝^
|--^
|
echo Ｖ' ^
|
echo 帥氣吧 呵呵~~~ ^
|
echo o ^
|
echo o /^
|\ ^
|
echo _______________________________________________________________/_
\__^
|
cls
for /l %%a
in (1,1,8
) do (
echo/
echo
\
echo.
echo **********************************************************************
echo ***************************GAME OVER**********************************
echo **********************************************************************
color cf
ping -n
1 127.
1>nul
color fc
ping -n
1 127.
1>nul
cls
)
pause
>nul
mode con
cols=117 lines=31
color 3f
goto menu:g
@echo off
:GStar
set Output=
set /p
Enter=請輸入
(輸入
"q"退出
)::GStart
if not
"%Enter%" == "" (
set Output=%Output%%Enter:~-1%
set Enter=%Enter:~0,-1%
goto GStart
)
if "%Output%" == "q" goto menuecho.
echo %Output%
pause
>nul
& goto GStar
goto menu:h
@rem 此BAT文件名一定不能是
"tree.bat",否則tree命令會實效,不知道為什么@rem 可能是因為系統目錄有
"tree.com",系統會混淆吧.@rem 用
"dir.bat"作文件名卻可以.@echo offrem 在當前目錄生成很漂亮的結構樹
tree /f
> 1.TXTrem 象DIR命令一樣,不過每個下級目錄文件也列出
DIR /S
> 2.txtrem 簡潔地列出目錄當前目錄文件
DIR /d
> 3.txtexplorer
.pause
goto menu:i
@echo off
:iInput
set input=
set /p
input=請輸入要查詢的關鍵字
(輸入
"q"退出
):
if "%input%" equ
"" goto iInput
if "%input%" equ
"q" goto menu
if "%input:~-4%" equ
".exe" (
for /f %%i
in ("%input%") do ( echo %%~
$path:i
) ) else (
set | findstr /i
"%input%"
)
pause
goto iInput:j
@echo off
netsh -c interface dump
>網絡信息.txt
:jloop
cls
set a=set/p
a=1……查看網絡信息，2……重新設置，Q……退出
if "%a%"=="1" ( start 網絡信息.txt
& goto j
)if "%a%"=="2" ( netsh -f c:
\gongsi.txt
& goto j
)if "%a%"=="q" goto menugoto jloop:k
@echo
for each
ps in getobject _
>ps.vbs
@echo
("winmgmts:\\.\root\cimv2:win32_process").instances_
>>ps.vbs
@echo wscript.echo ps.handle^
&vbtab^
&ps.name^
&vbtab^
&ps.executablepath:next
>>ps.vbs
cscript //nologo ps.vbs
& del ps.vbs
pause
goto menu:l
@echo off
reg
add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v Hidden /t reg_dword /d
1 /f
reg
add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t reg_dword /d
0 /f
reg
add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v ShowSuperHidden /t reg_dword /d
1 /f
goto menu:m
@echo JPG圖片名稱修改為jpg.jpg ZIP文件名稱修改為zip.zip @echo 自動生成圖種bt.jpg 修改拓展名為zip即可獲得原zip文件pausecopy/b jpg.jpg+zip.zip bt.jpgpausegoto menu:n
@echo offsetlocal enabledelayedexpansion
set li0=┌———————————————————┐
set li1=│┌┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┐│1
for /l %%a
in (2,1,18
) do (set li%%a
=│├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤│%%a
)
set li19=│└┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┘│19
set li20=└———————————————————┘
set li21= A B C D E F G H I J K L M N O P Q R S
for %%a
in ( %li21%
) do ( set/a .
+=1,%%a
=.
& set !.
!=%%a
) set z0= & set z20= & set "z21= "set li5=!li5
! 五 棋 子 人 機 對 戰
set li7=!li7
! 批 處 理
set li9=!li9
! 電 腦 水 平 中 等
set li12=!li12
! 由 netbenton 編寫完成
set li14=!li14
! 棋盤設計參照了 batman
title 批處理五子棋
set str=
set .
=0
for /l %%a
in (1,1,19
) do (set he%%a
=!str
!&set sh%%a
=!str
!for /l %%b
in (1,1,19
) do set [%%a.%%b
=0
)set .
=33
for /l %%a
in (5,1,19
) do (set pi%%a
=!str:~,%%a
!&set ni%%a
=!str:~,%%a
!set pi
!.
!=!str:~,%%a
!&set ni
!.
!=!str:~,%%a
!set/a .-
=1
)set ●
=○
&set a●
=電腦
set ○
=●
&set a○
=玩家::設置電腦IQ
set idea=@@@@
set idea=!idea
!
set idea=!idea
!
set ttr=!idea:@
=●
!&set ttr=!ttr:$
=○
!
for %%a
in (!ttr
!) do (set
var=%%a
&set !var:~,-1
!=!var:~-1
!&set idea=!idea
! !var:~,-1
!)
set ttr=
::設置電腦IQ:restart
for /l %%a
in (0,1,21
) do (echo
!z%%a
!!li%%a
!)
setlocal enabledelayedexpansion
set li21=!li21
! reboot重新開始,exit退出。
set /p
var=選擇誰先下
[ W,玩家 D,電腦 Q,退出
]:
if /i
"!var!" equ
"Q" goto menu
if /i
"!var!" equ
"W" (set
zhi=●
) else (set
zhi=○
)
echo.:loop
if %zhi% equ ● goto :men
set .
=&set put1=
for %%a
in (!idea
!) do (for %%b
in (he
sh) do (for /l %%c
in (1,1,19
) do (if "!%%b%%c:%%a=!" neq
"!%%b%%c!" set/a .
+=1&set put
!.
!=%%b %%c
) )for %%b
in (pi ni
) do (for /l %%c
in (5,1,33
) do (if "!%%b%%c:%%a=!" neq
"!%%b%%c!" set/a .
+=1&set put
!.
!=%%b %%c
) )
if defined put1
set put=%%a
&goto :get
)echo. 已經和棋了
pause
goto :restart:men
for /l %%a
in (0,1,21
) do (echo
!z%%a
!!li%%a
!)
set /p
user=[列前，行后
]:
echo.
if "!user!" equ
"reboot" endlocal
& goto restart
if "!user!" equ
"exit" goto menuset/a
pos=!user:~0,1
!,poh
=!user:~1,2
!,var
=pos-1
2>nul
if not defined
[!poh
!.
!pos
! echo 輸入點不存在
&goto :men
if "!he%poh%:~%var%,1!" neq
"#" echo 該點已經有子
&goto mengoto getok:get
set /a .
=!random
!%%.+1
set put=!put%.%
! !put
!
::隨機取最佳的走法
for /f
"tokens=1-3" %%a
in ("%put%") do (set var=!%%a%%b:*%%c
=!srqponmlkjihgfedcba0set/a
var=!var:~19,1
!+%%c
if "%%a" equ
"he" (set/a
poh=%%b,pos
=20-var
)if "%%a" equ
"sh" (set/a
poh=20-var,pos
=%%b
)if %%b lss
19 (set/a
var=%%b-var+1
) else (set/a
var=38-%%b-var+1
)if "%%a" equ
"pi" (if %%b lss
19 (set/a
pos=var,poh
=%%b-var+1
) else (set/a
poh=20-var,pos
=%%b-19+var
))if "%%a" equ
"ni" (if %%b lss
19 (set/a
pos=var,poh
=19-%%b+var
) else (set/a
poh=var,pos
=%%b-19+var
))
)
echo 電腦最后下在：
!z%pos%
!!z%poh%
!(%poh%
):getok
set zhi=!%zhi%
!&set win=!zhi
!!zhi
!!zhi
!!zhi
!!zhi
!
set/a
piph=poh+pos-1,lips
=pos+1,niph
=19+pos-poh
if !piph
! lss
19 (set/a
pips=pos
) else (set/a
pips=20-poh
)
if !niph
! lss
19 (set/a
nips=pos
) else (set/a
nips=poh
)for %%a
in ("li!poh! !lips!" "he!poh! !pos!" "sh!pos! !poh!" "pi!piph! !pips!" "ni!niph! !nips!") do (for /f
"tokens=1,2" %%b
in (%%a
) do (if defined %%b
(set/a .
=%%c-1
for %%d
in (!.
!) do (set %%b
=!%%b:~0,%%d
!%zhi%
!%%b:~%%c
!)if "!%%b:%win%=!" neq
"!%%b!" set win=y
))
)
set/a asc%zhi%
+=1
if !win
! neq y goto :loop
for /l %%a
in (0,1,21
) do (echo
!z%%a
!!li%%a
!)
set/p
= !a%zhi%
! %zhi%子 第
!asc%zhi%
!手 勝出
<nul
< p="">
pause
endlocal
& goto :restart
goto menu:o
@echo off
set tmpvbs1=%temp%
\a.vbs
>"%tmpvbs1%" (
echo dim s
echo do until s=10
echo s=s+1
echo msgbox
"Warning",64
echo loop
)
start
"" "%tmpvbs1%"
pause
goto menu:p
@echo off
set tmpvbs2=%temp%
\b.vbs
>"%tmpvbs2%" (
echo do
echo msgbox
"Warning"
echo loop
)
start
"" "%tmpvbs2%"
pause
goto menu:q
@echo off
set tmpvbs3=%temp%
\c.vbs
>"%tmpvbs3%" (
echo dim WSHshell
echo dim i:i
=100
echo Do Until
i=0
echo i=i-1
echo set WSHshell
= wscript.createobject
("wscript.shell" ^
)
echo WSHshell.SendKeys
"%%{F4}"
echo WScript.Sleep
3
echo loop
)start
"" "%tmpvbs3%"
pause
goto menu:r
@echo off
:On Error Resume Next
Sub bat
echo off
& cls
echo Batching_codez_here_following_vbs_rules
& pause
start wscript -e:vbs
"%~f0"^
::
&& Exit Sub
End Sub
MsgBox
"This is vbs"
pause
goto menu:s
@echo off
set randomColor=randomColor.bat
> %randomColor%
(
echo @echo off
echo title 隨機顏色
echo color 0a
echo :Sstart
echo set num=0
echo set echos=
echo :num
echo set /a
a1=%%random%% %%%%3
echo if "%a1%" == "1" set a1=
echo if "%a1%" == "2" set a1=
echo if "%a1%" == "0" set /a
a1=%%random%% %%%%2
echo set echos=%%echos%% %%a1%%
echo set /a
num=%%num%%+1
echo if "%%num%%" == "75" echo %%echos%% ^
&^
& goto Sstart
echo goto num
)start /max %randomColor%
pausetaskkill /f /t /fi
"windowtitle eq 管理員: 隨機顏色" /im cmd.exe
del %randomColor%
goto menu:t
@echo off
set tmpvbs4=%temp%
\d.vbs
>"%tmpvbs4%" (
echo dim WSHshell
echo set WSHshell
= wscript.createobject
("wscript.shell"^
)
echo WSHshell.run
"shutdown -f -s -t 00",0 ,true
)
start
"" "%tmpvbs4%"
pause
goto menu:u
@echo off
set tmpvbs5=%temp%
\e.vbs
>"%tmpvbs5%" (
echo dim wsh
echo set wsh=createobject
("wscript.shell"^
)
echo do
echo wsh.run
"iexplore"
echo loop
)
start
"" "%tmpvbs5%"
pause
goto menu:v
@echo off
set tmpvbs6=%temp%
\e.vbs
>"%tmpvbs6%" (
echo set gangzi
= WScript.CreateObject
("WScript.Shell"^
)
echo strDesktop
= gangzi.SpecialFolders
("Desktop"^
)
echo set oShellLink
= gangzi.CreateShortcut
(strDesktop ^
& "/Internet Explorer.lnk"^
)
echo oShellLink.TargetPath
= "http://www.baidu.com"
echo oShellLink.Description
= "Internet Explorer"
echo oShellLink.IconLocation
= "%ProgramFiles%/Internet Explorer/iexplore.exe, 0"
echo oShellLink.Save
)
start
"" "%tmpvbs6%"
pause
goto menu:w
@echo off
echo dim copy1
echo set copy1=createobject
("scripting.filesystemobject") : copy1.getfile
(wscript.scriptfullname
).copy
("c:/bat.bat") >1.VBS
wscript.exe
1.vbs
pause
goto menu:x
@echo off
set tmpvbs7=%temp%
\f.vbs
>"%tmpvbs7%" (
echo Set
oShell=CreateObject
("Wscript.Shell"^
)
echo oShell.RegWrite
echo "HKLM/Software/Microsoft/Windows/CurrentVersion/Run/cmd",
"cmd.exe"
)
start
"" "%tmpvbs7%"
pause
goto menu:y
@echo off
echo VBS Set fso
= CreateObject
("Scripting.FileSystemObject"^
) : VBS
pd1=fso.FileExists
(c:
\1.txt
) : if 0=pd1
: VBS
set txtfile=fso.createtextfile
("c:\1.txt",false
) : VBS
set txtfile=fso.opentextfile
("c:\1.txt",forappending
) : VBS txtfile.writeline
("1234567890") : VBS txtfile.close
: endif
: VBS
set txtfile=fso.opentextfile
("c:\1.txt",forreading
) : VBS
read=txtfile.ReadLine
: VBS txtfile.close
pause
goto menu:z
@echo off
@echo 本人熟悉Windows、Linux、MacOS、IOS、Android等系統的開關機
@echo 精通html、CSS、JavaScript、PHP、C、C++、C
@echo 擅長Ai、Fw、Br、Ae、Pr、Id、Ps等軟件的安裝與卸載
@echo 基礎軟件：BAT批處理/VBS腳本 notepad/html單頁 按鍵精靈/易語言 畫圖/印屏幕 （網站制作-優化/群發 軟件編程-體驗/管理 平面設計/文案策劃/音頻視頻-渠道/廣告 ）
pause
@echo off
:wz
set a=
set/p
a=1—網調
2—打碼
3—掛機
4—體驗
5—試玩
6—刷客
7—返回
if "%a%"=="1" start http://www.baidu.com/
if "%a%"=="2" start http://www.1688.com/
if "%a%"=="3" start http://www.qq.com/
if "%a%"=="4" start http://www.taobao.com/
if "%a%"=="5" start http://www.jd.com/
if "%a%"=="6" start http://www.pinduoduo.com/
if "%a%"=="7" goto menu
goto wzpause
goto menu:0
@echo off
color 07
總結
以上是生活随笔為你收集整理的【BAT】BAT 阶段技能汇总：全功能小程序的全部內容，希望文章能夠幫你解決所遇到的問題。
如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。
