翼展电脑服务中心

老虎抢亲程序代码

2019-7-29 乱云飞代码评论(0) 浏览(645) 标签: 老虎抢亲 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) 浏览(696) 标签: 修改网页内容脚本代码

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

谷歌浏览器使用方法:

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

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

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

图标提取器

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

批处理批量下载文件

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

@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