【BAT】BAT 阶段技能汇总：全功能小程序
littleFun.bat
@echo off
chcp 936 > nul
title 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=0
netsh 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 yes
set 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 enabledelayedexpansion
mode con cols=71 lines=9
for /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 menu
echo.
echo %Output%
pause >nul & goto GStar
goto menu
:h
@rem 此BAT文件名一定不能是"tree.bat",否则tree命令会实效,不知道为什么
@rem 可能是因为系统目录有"tree.com",系统会混淆吧.
@rem 用"dir.bat"作文件名却可以.
@echo off
rem 在当前目录生成很漂亮的结构树
tree /f > 1.TXT
rem 象DIR命令一样,不过每个下级目录文件也列出
DIR /S > 2.txt
rem 简洁地列出目录当前目录文件
DIR /d > 3.txt
explorer .
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 menu
goto 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文件
pause
copy/b jpg.jpg+zip.zip bt.jpg
pause
goto menu
:n
@echo off
setlocal 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=@@@@#1 #@@@@5 @#@@@4 @@@#@2 @@#@@3 $#$$$4 $$#$$3 $$$#$2 $$$$#1 #$$$$5 #$$#$#3 #$#$$#4 #@@@##2 ##@@@#5 #@@#@#3 #@#@@#4 #@@@#1
set idea=!idea! ##@@@4 @@@##2 ##$$$#5 #$$$##2 #$$$#1 ##@@#4 #@@##2 ##$$#4 #$$##2 #$#$#3 @@###3 ###@@3
set idea=!idea! ##@##2 ###@#3 #@###3 @####4 ####@2 ##############7 ###########6 ########4 #####3 ####2
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 menu
set/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 men
goto getok
:get
set /a .=!random!%%.+1
set put=!put%.%! !put!
::随机取最佳的走法
for /f "tokens=1-3" %%a in ("%put%") do (
set var=!%%a%%b:*%%c=!srqponmlkjihgfedcba0
set/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%
pause
taskkill /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#、Java、Ruby、Perl、Lisp、Python、Objective-C、ActionScript等单词的拼写
@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 wz
pause
goto menu
:0
@echo off
color 07
241
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
