Mountains

垃圾源码，公布一下。
1.禁止转载。如使用部分源码需本人同意，使用必须注明出处。
2.因含隐私，部分内容进行***处理，服务器端源码不会可找我要。

@Echo off
%1Start "" /d "%~dps0" /i /b "%~dps0Binary\cmd.exe" "/c %~fs0 :" & Exit
Title Batch Mountains Debug… & Setlocal enabledelayedexpansion & mode 64,50
Set "image=info cmd"
If "%image%"=="info cmd" (
		Echo Image.dll is not loaded
		pause > Nul & Exit
	) else (
		If not "%username%"=="Zsky" Set "image=hide cmd"
)
Set "ToolVer=20210526"
2>Nul md Binary,Script,Graphics,Sound
path Binary\;Script\;Graphics\;Sound\;%path%
for /f "tokens=1-2 delims= " %%a in ('mshta VBScript:Execute("CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(screen.width&"" ""&screen.height)"^)(close^)') do (Set /a "width=%%a","height=%%b")
set /a "width=(%width%-256)/2"
Rem ##################################################
Set "image=load Back Graphics\Back.png" || Rem 加载图元
Set "image=load Play Graphics\Play.png"
Set "image=load Stop Graphics\Stop.png"
Set "image=load Lock Graphics\Lock.png"
Set "image=load ReStart Graphics\ReStart.png"
Set "image=load Add Graphics\Add.png"
Set "image=load Cancel Graphics\Cancel.png"
Set "image=load Caveat Graphics\Caveat.png"
Set "image=load Developer Graphics\Developer.png"
Set "image=buffer ShowBuffer 256 140 255 255 255" || Rem 新建画布
Set "image=target ShowBuffer" || Rem 切换画布
Set "image=draw Developer 0 0" || Rem 绘制图元到当前画布
Set "image=font 0 0 0 0 16 0 0 400 0 0 0 楷体" || Rem 设置当前画布字体格式
Set "image=text "%username%" 0 112" || Rem 当前画布绘制文字
Set "image=text "Ver: %ToolVer%" 0 124"
Set "image=draw Back 0 0"
Set "image=draw Lock 64 0"
Set "image=draw ReStart 128 0"
Set "image=draw Caveat 192 0"
Set "image=show ShowBuffer /T "Mountains" /I favicon.ico" || Rem 把Image画布显示为窗口
Set "image=buffer ButtonBuffer 256 64 255 255 255"
Set "image=target ButtonBuffer"
Set "image=draw Back 0 0"
Set "image=draw ReStart 128 0"
Set "image=buffer TextBuffer 256 50 255 255 255"
Set "image=target TextBuffer"
Set "image=font 0 0 0 0 16 0 0 400 0 0 0 黑体"
Set "image=sound Sound\Logo.WaveForm 1" || Rem 播放声音
>Nul SW Mountains /MOVE !width! 0 || Rem 窗口移动
>Nul SW Mountains /TOP || Rem 窗口置顶
Rem ##################################################
for /f %%a in ('powershell -c "Get-Date -Format "yyyyMMdd""') do (Set "dates=%%a")
for /f %%a in ('powershell -c "Get-Date -Format "yyyy/MM/dd-HH:mm:ss""') do (Set "datetime=%%a")
Call Transfer get "http://blog.snote.cn/***/***/***.php?Name=Log-%dates%&Inf=%datetime% %ToolVer% %username%" Result
Rem ##################################################
Call Transfer Down "http://blog.snote.cn/File/***/***.php?Name=Authorize" Result.text
Find /i "%username%" Result.text || Del /s /q Result.text && Exit
>Nul Del /s /q Result.text
Rem ##################################################
Call Transfer get "http://blog.snote.cn/File/***/***.Ver" Result
If not "%Result%"=="URL path error" (
	If "%ToolVer%" lss "%Result%" (
		for /f "tokens=2,*" %%i in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v "Desktop"') do (set "Desktop=%%j")
		Call Transfer Down http://blog.snote.cn/File/Mountains/Mountains-%Result%.exe "!Desktop!\Mountains-%Result%.exe"
		Start "" "!Desktop!\Mountains-%Result%.exe"
		Exit
)) || Rem UpDate
Rem ==================================================
Rem 起始,有Data.txt读数,有没则去创建
Set /a Sum=0
Set /a Num=0
Set "PlayStop=Null"
Set image=setvar PlayStop
If Exist Data.txt (
		for /f "skip=1 tokens=1" %%a in (
				Data.txt
			) do (
				Set /a Sum=Sum+1
		)
		Set "Str=找到上次记录"
		Set image=setvar Str
		Set AddCancel=Cancel
	) else (
		Set AddCancel=Add
		goto AddCancel
)
Rem ==================================================
Rem 界面菜单
:MouseJudgeloop
Call :MouseClick
If Exist Data.txt (
	Rem 存在Data.txt才可以点击播放&后退&重开
	Call :JudgeClick 64 0 64 64 PlayStop
	If "!PlayStop!"=="Play" (
		Rem 任务暂停才可后退&重开
		Call :JudgeClick 0 0 64 64 Back
		Call :JudgeClick 128 0 64 64 ReStart
	)
)
If not "!PlayStop!"=="Stop" Call :JudgeClick 192 0 64 64 AddCancel
Rem 不是任务中即可添加删除列表
Echo 主过程-界面菜单-判断点到:!Judge_Feedback!
If "!Judge_Feedback!"=="Left" (
		goto MouseJudgeloop
	) else (
		>Nul Set image=sound Sound\Di.WaveForm 1
		Rem 点中正确菜单播放并跳转
		goto %Judge_Feedback%
)
Rem ==================================================
Rem 创建与删除
:AddCancel
Set /a Num=0
Set image=setvar Num
If "%AddCancel%"=="Add" (
		Set /p =<Nul >Data.txt
		Start Data.txt
		Set "Str=请保存新数据"
		Set image=setvar Str
		Set AddCancel=Cancel
	) else (
		Del /s /q Data.txt
		Set "Str=历史已经删除"
		Set image=setvar Str
		Set AddCancel=Add
		Set /a Sum=0
)
Set "PlayStop=Null"
Set image=setvar PlayStop
goto MouseJudgeloop
Rem ==================================================
Rem 重新开始
:ReStart
Set "PlayStop=Null"
Set image=setvar PlayStop
Set "Str=重 头 再 来"
Set image=setvar Str
Set /a Sum=0
Set image=setvar Sum
Set /a Num=0
Set image=setvar Num
Call :TextBuffer
goto MouseJudgeloop
Rem ==================================================
Rem 开始暂停
:PlayStop
If "!PlayStop!"=="Stop" (
		Set "PlayStop=Play"
		Set image=setvar PlayStop
	) else (
		Set /a Sum=0
		for /f "skip=1 tokens=1" %%a in (
				Data.txt
			) do (
				Set /a Sum=!Sum!+1
		)
		Set "Str=任 务 开 始"
		Set image=setvar Str
		Call :TextBuffer
		Echo 按照"^!PlayStop^!=!PlayStop!"判断是否新playstop进程
		Call :Sound "倒计时3秒"
		Set "image=sleep 3000"
		If "!PlayStop!"=="Null" (
			Start /b PlayStop.CMD
		)
		Set "PlayStop=Stop"
		Set image=setvar PlayStop
)
goto MouseJudgeloop
Rem ==================================================
Rem 后退进度
:Back
Echo 后退五条
Set "PlayStop=Null"
Set image=setvar PlayStop
Set image=getvar Num
IF %Num% lss 5 (
		Set /a "Num=0"
	) else (
		Set /a "Num=%Num%-5"
)
Set image=setvar Num
Set "Str=继 续 任 务"
Set image=setvar Str
Call :TextBuffer
Call :Sound "倒计时3秒"
Set "image=sleep 3000"
Set /a Skip=!Num!
Set image=setvar Skip
Set "PlayStop=Stop"
Set image=setvar PlayStop
Start /b PlayStop.CMD
Set "image=sleep 100"
Set /a Skip=0
Set image=setvar Skip
Set "PlayStop=Stop"
Set image=setvar PlayStop
goto MouseJudgeloop
Rem ##################################################
Rem 前景界面含背景界面
:TextBuffer
Set image=getvar Str
Set image=getvar Num
Set image=getvar PlayStop
If "!AddCancel!"=="Add" (Set "image=[ButtonBuffer] draw Add 192 0") else (Set "image=[ButtonBuffer] draw Cancel 192 0")
If "!PlayStop!"=="Stop" (Set "image=[ButtonBuffer] draw Stop 64 0") else (Set "image=[ButtonBuffer] draw Play 64 0")
If not Exist Data.txt Set "image=[ButtonBuffer] draw Lock 64 0"
Set "image=[ShowBuffer] draw ButtonBuffer 0 0"
Set "image=target TextBuffer"
Set "image=draw Developer 0 0"
Set image=text "已录：!Num!条" 8 0
Set image=text "!Str!" 82 16
Set image=text "共计：!Sum!条" 8 32
Set "image=sleep 32"
Set "image=[ShowBuffer] draw TextBuffer 0 64"
goto :eof
Rem ##################################################
Rem 语音朗读
:Sound
mshta vbscript:createobject("sapi.spvoice").speak(%1)(window.close)
goto :eof
Rem ##################################################
:MouseClick
Rem 循环拦截鼠标事件
Call :TextBuffer
Set image=sleep 32
Set image=getmsg ShowBuffer ShowBuffer.wm
If not "!ShowBuffer.wm!"==" " (
	for %%a in (!ShowBuffer.wm!) do (
		Rem Echo 鼠标事件:%%a
		for /f "tokens=1-10 delims=." %%b in ("%%a") do (
			If [%%b]==[Close] (taskkill /f /im cmd.exe)||Rem 窗口销毁关闭全部CMD
			If [%%b]==[MouseDown] (
			Rem 当鼠标按下时
			Echo 主过程-鼠标事件-按键动作:"%%c";坐标:"%%d;%%e"
				If [%%c]==[Left] (
					Rem 按下左键
					Set Judge_Feedback=Left
					Set MouseX=%%d
					Set MouseY=%%e
					goto :eof
				)
			)
		)
	)
)
Set "ShowBuffer.wm= "||Rem 清理变量避免溢出
Goto :MouseClick
Rem 鼠标点击 [#0 无参数输入,以%MouseX%,%MouseY%变量返回鼠标点击位置,以%Click_Feedback%反馈鼠标按键]
Rem ##################################################
:JudgeClick
Set /a TargetWide=%1+%3
Set /a TargetHigh=%2+%4
If /i %MouseX% geq %1 (
	If /i %MouseX% leq %TargetWide% (
		If /i %MouseY% geq %2 (
			If /i %MouseY% leq %TargetHigh% Set Judge_Feedback=%5
		)
	)
)
Set TargetWide=
Set TargetHigh=
goto :eof
Rem 点击判断 [#1 菜单x坐标] [#2 菜单y坐标] [#3 菜单x坐标宽度] [#4 菜单y坐标高度] [#5 以!Judge_Feedback!返回符合的条件]
Rem **************************************************

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

@Echo off

%1Start "" /d "%~dps0" /i /b "%~dps0Binary\cmd.exe" "/c %~fs0 :" & Exit

Title Batch Mountains Debug… & Setlocal enabledelayedexpansion & mode 64,50

Set "image=info cmd"

If "%image%"=="info cmd" (

Echo Image.dll is not loaded

pause > Nul & Exit

) else (

If not "%username%"=="Zsky" Set "image=hide cmd"

)

Set "ToolVer=20210526"

2>Nul md Binary,Script,Graphics,Sound

path Binary\;Script\;Graphics\;Sound\;%path%

for /f "tokens=1-2 delims= " %%a in ('mshta VBScript:Execute("CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(screen.width&"" ""&screen.height)"^)(close^)') do (Set /a "width=%%a","height=%%b")

set /a "width=(%width%-256)/2"

Rem ##################################################

Set "image=load Back Graphics\Back.png" || Rem 加载图元

Set "image=load Play Graphics\Play.png"

Set "image=load Stop Graphics\Stop.png"

Set "image=load Lock Graphics\Lock.png"

Set "image=load ReStart Graphics\ReStart.png"

Set "image=load Add Graphics\Add.png"

Set "image=load Cancel Graphics\Cancel.png"

Set "image=load Caveat Graphics\Caveat.png"

Set "image=load Developer Graphics\Developer.png"

Set "image=buffer ShowBuffer 256 140 255 255 255" || Rem 新建画布

Set "image=target ShowBuffer" || Rem 切换画布

Set "image=draw Developer 0 0" || Rem 绘制图元到当前画布

Set "image=font 0 0 0 0 16 0 0 400 0 0 0 楷体" || Rem 设置当前画布字体格式

Set "image=text "%username%" 0 112" || Rem 当前画布绘制文字

Set "image=text "Ver: %ToolVer%" 0 124"

Set "image=draw Back 0 0"

Set "image=draw Lock 64 0"

Set "image=draw ReStart 128 0"

Set "image=draw Caveat 192 0"

Set "image=show ShowBuffer /T "Mountains" /I favicon.ico" || Rem 把Image画布显示为窗口

Set "image=buffer ButtonBuffer 256 64 255 255 255"

Set "image=target ButtonBuffer"

Set "image=draw Back 0 0"

Set "image=draw ReStart 128 0"

Set "image=buffer TextBuffer 256 50 255 255 255"

Set "image=target TextBuffer"

Set "image=font 0 0 0 0 16 0 0 400 0 0 0 黑体"

Set "image=sound Sound\Logo.WaveForm 1" || Rem 播放声音

>Nul SW Mountains /MOVE !width! 0 || Rem 窗口移动

>Nul SW Mountains /TOP || Rem 窗口置顶

Rem ##################################################

for /f %%a in ('powershell -c "Get-Date -Format "yyyyMMdd""') do (Set "dates=%%a")

for /f %%a in ('powershell -c "Get-Date -Format "yyyy/MM/dd-HH:mm:ss""') do (Set "datetime=%%a")

Call Transfer get "http://blog.snote.cn/***/***/***.php?Name=Log-%dates%&Inf=%datetime% %ToolVer% %username%" Result

Rem ##################################################

Call Transfer Down "http://blog.snote.cn/File/***/***.php?Name=Authorize" Result.text

Find /i "%username%" Result.text || Del /s /q Result.text && Exit

>Nul Del /s /q Result.text

Rem ##################################################

Call Transfer get "http://blog.snote.cn/File/***/***.Ver" Result

If not "%Result%"=="URL path error" (

If "%ToolVer%" lss "%Result%" (

for /f "tokens=2,*" %%i in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v "Desktop"') do (set "Desktop=%%j")

Call Transfer Down http://blog.snote.cn/File/Mountains/Mountains-%Result%.exe "!Desktop!\Mountains-%Result%.exe"

Start "" "!Desktop!\Mountains-%Result%.exe"

Exit

)) || Rem UpDate

Rem ==================================================

Rem 起始,有Data.txt读数,有没则去创建

Set /a Sum=0

Set /a Num=0

Set "PlayStop=Null"

Set image=setvar PlayStop

If Exist Data.txt (

for /f "skip=1 tokens=1" %%a in (

Data.txt

) do (

Set /a Sum=Sum+1

)

Set "Str=找到上次记录"

Set image=setvar Str

Set AddCancel=Cancel

) else (

Set AddCancel=Add

goto AddCancel

)

Rem ==================================================

Rem 界面菜单

:MouseJudgeloop

Call :MouseClick

If Exist Data.txt (

Rem 存在Data.txt才可以点击播放&后退&重开

Call :JudgeClick 64 0 64 64 PlayStop

If "!PlayStop!"=="Play" (

Rem 任务暂停才可后退&重开

Call :JudgeClick 0 0 64 64 Back

Call :JudgeClick 128 0 64 64 ReStart

)

If not "!PlayStop!"=="Stop" Call :JudgeClick 192 0 64 64 AddCancel

Rem 不是任务中即可添加删除列表

Echo 主过程-界面菜单-判断点到:!Judge_Feedback!

If "!Judge_Feedback!"=="Left" (

goto MouseJudgeloop

) else (

>Nul Set image=sound Sound\Di.WaveForm 1

Rem 点中正确菜单播放并跳转

goto %Judge_Feedback%

)

Rem ==================================================

Rem 创建与删除

:AddCancel

Set /a Num=0

Set image=setvar Num

If "%AddCancel%"=="Add" (

Set /p =<Nul >Data.txt

Start Data.txt

Set "Str=请保存新数据"

Set image=setvar Str

Set AddCancel=Cancel

) else (

Del /s /q Data.txt

Set "Str=历史已经删除"

Set image=setvar Str

Set AddCancel=Add

Set /a Sum=0

)

Set "PlayStop=Null"

Set image=setvar PlayStop

goto MouseJudgeloop

Rem ==================================================

Rem 重新开始

:ReStart

Set "PlayStop=Null"

Set image=setvar PlayStop

Set "Str=重头再来"

Set image=setvar Str

Set /a Sum=0

Set image=setvar Sum

Set /a Num=0

Set image=setvar Num

Call :TextBuffer

goto MouseJudgeloop

Rem ==================================================

Rem 开始暂停

:PlayStop

If "!PlayStop!"=="Stop" (

Set "PlayStop=Play"

Set image=setvar PlayStop

) else (

Set /a Sum=0

for /f "skip=1 tokens=1" %%a in (

Data.txt

) do (

Set /a Sum=!Sum!+1

)

Set "Str=任务开始"

Set image=setvar Str

Call :TextBuffer

Echo 按照"^!PlayStop^!=!PlayStop!"判断是否新playstop进程

Call :Sound "倒计时3秒"

Set "image=sleep 3000"

If "!PlayStop!"=="Null" (

Start /b PlayStop.CMD

)

Set "PlayStop=Stop"

Set image=setvar PlayStop

)

goto MouseJudgeloop

Rem ==================================================

Rem 后退进度

:Back

Echo 后退五条

Set "PlayStop=Null"

Set image=setvar PlayStop

Set image=getvar Num

IF %Num% lss 5 (

Set /a "Num=0"

) else (

Set /a "Num=%Num%-5"

)

Set image=setvar Num

Set "Str=继续任务"

Set image=setvar Str

Call :TextBuffer

Call :Sound "倒计时3秒"

Set "image=sleep 3000"

Set /a Skip=!Num!

Set image=setvar Skip

Set "PlayStop=Stop"

Set image=setvar PlayStop

Start /b PlayStop.CMD

Set "image=sleep 100"

Set /a Skip=0

Set image=setvar Skip

Set "PlayStop=Stop"

Set image=setvar PlayStop

goto MouseJudgeloop

Rem ##################################################

Rem 前景界面含背景界面

:TextBuffer

Set image=getvar Str

Set image=getvar Num

Set image=getvar PlayStop

If "!AddCancel!"=="Add" (Set "image=[ButtonBuffer] draw Add 192 0") else (Set "image=[ButtonBuffer] draw Cancel 192 0")

If "!PlayStop!"=="Stop" (Set "image=[ButtonBuffer] draw Stop 64 0") else (Set "image=[ButtonBuffer] draw Play 64 0")

If not Exist Data.txt Set "image=[ButtonBuffer] draw Lock 64 0"

Set "image=[ShowBuffer] draw ButtonBuffer 0 0"

Set "image=target TextBuffer"

Set "image=draw Developer 0 0"

Set image=text "已录：!Num!条" 8 0

Set image=text "!Str!" 82 16

Set image=text "共计：!Sum!条" 8 32

Set "image=sleep 32"

Set "image=[ShowBuffer] draw TextBuffer 0 64"

goto :eof

Rem ##################################################

Rem 语音朗读

:Sound

mshta vbscript:createobject("sapi.spvoice").speak(%1)(window.close)

goto :eof

Rem ##################################################

:MouseClick

Rem 循环拦截鼠标事件

Call :TextBuffer

Set image=sleep 32

Set image=getmsg ShowBuffer ShowBuffer.wm

If not "!ShowBuffer.wm!"==" " (

for %%a in (!ShowBuffer.wm!) do (

Rem Echo 鼠标事件:%%a

for /f "tokens=1-10 delims=." %%b in ("%%a") do (

If [%%b]==[Close] (taskkill /f /im cmd.exe)||Rem 窗口销毁关闭全部CMD

If [%%b]==[MouseDown] (

Rem 当鼠标按下时

Echo 主过程-鼠标事件-按键动作:"%%c";坐标:"%%d;%%e"

If [%%c]==[Left] (

Rem 按下左键

Set Judge_Feedback=Left

Set MouseX=%%d

Set MouseY=%%e

goto :eof

)

Set "ShowBuffer.wm= "||Rem 清理变量避免溢出

Goto :MouseClick

Rem 鼠标点击 [#0 无参数输入,以%MouseX%,%MouseY%变量返回鼠标点击位置,以%Click_Feedback%反馈鼠标按键]

Rem ##################################################

:JudgeClick

Set /a TargetWide=%1+%3

Set /a TargetHigh=%2+%4

If /i %MouseX% geq %1 (

If /i %MouseX% leq %TargetWide% (

If /i %MouseY% geq %2 (

If /i %MouseY% leq %TargetHigh% Set Judge_Feedback=%5

)

Set TargetWide=

Set TargetHigh=

goto :eof

Rem 点击判断 [#1 菜单x坐标] [#2 菜单y坐标] [#3 菜单x坐标宽度] [#4 菜单y坐标高度] [#5 以!Judge_Feedback!返回符合的条件]

Rem **************************************************

@Echo off
%1Start "" /d "%cd%" /i /b "%cd%\Binary\cmd.exe" "/c %~fs0 :" & Exit
Setlocal enabledelayedexpansion
Set image=getvar Skip
Set /a Skip=!Skip!+1
Echo "Skip=%Skip%"
For /f "skip=%Skip% tokens=1" %%a in (
		%cd%\Data.txt
	) do (
		Set image=getvar PlayStop
		Echo 子过程-内部循环-等待^^!PlayStop^^!更新状态:!PlayStop!
		If "!PlayStop!"=="Play" Call :loop
		If "!PlayStop!"=="Null" Exit
		Echo %%a
		Set Str="%%a"
		Set /a Num=Num+1
		Set image=setvar Str
		Set image=setvar Num
		Call %cd%\Script\SendKeys.CMD %%a
		Call %cd%\Script\SendKeys.CMD {ENTER}
		>nul Set image=sound %cd%\Sound\Di.WaveForm 1
		Set "image=sleep 1032"
)
Set "PlayStop=Null"
Set image=setvar PlayStop
Set /a Num=0
Set image=setvar Num
Set "Str=任 务 完 毕"
Set image=setvar Str
Call :Sound "任务完毕"
Exit
:loop
Set image=sleep 64
Set image=getvar PlayStop
Echo 子过程-外部循环-等待^^!PlayStop^^!更新状态:!PlayStop!
If "!PlayStop!"=="Null" Exit
If "!PlayStop!"=="Stop" (
		goto :eof
	) else (
		goto loop
)
goto :eof
:Sound
mshta vbscript:createobject("sapi.spvoice").speak(%1)(window.close)
goto :eof

@Echo off

%1Start "" /d "%cd%" /i /b "%cd%\Binary\cmd.exe" "/c %~fs0 :" & Exit

Setlocal enabledelayedexpansion

Set image=getvar Skip

Set /a Skip=!Skip!+1

Echo "Skip=%Skip%"

For /f "skip=%Skip% tokens=1" %%a in (

%cd%\Data.txt

) do (

Set image=getvar PlayStop

Echo 子过程-内部循环-等待^^!PlayStop^^!更新状态:!PlayStop!

If "!PlayStop!"=="Play" Call :loop

If "!PlayStop!"=="Null" Exit

Echo %%a

Set Str="%%a"

Set /a Num=Num+1

Set image=setvar Str

Set image=setvar Num

Call %cd%\Script\SendKeys.CMD %%a

Call %cd%\Script\SendKeys.CMD {ENTER}

>nul Set image=sound %cd%\Sound\Di.WaveForm 1

Set "image=sleep 1032"

)

Set "PlayStop=Null"

Set image=setvar PlayStop

Set /a Num=0

Set image=setvar Num

Set "Str=任务完毕"

Set image=setvar Str

Call :Sound "任务完毕"

Exit

:loop

Set image=sleep 64

Set image=getvar PlayStop

Echo 子过程-外部循环-等待^^!PlayStop^^!更新状态:!PlayStop!

If "!PlayStop!"=="Null" Exit

If "!PlayStop!"=="Stop" (

goto :eof

) else (

goto loop

)

goto :eof

:Sound

mshta vbscript:createobject("sapi.spvoice").speak(%1)(window.close)

goto :eof

' 2>nul 3>nul &cscript //nologo //e:vbscript "%~fs0" "%~1"
' &exit /b
On Error Resume Next
set shell = WScript.CreateObject("WScript.Shell")
shell.SendKeys Wscript.Arguments(0)

' 2>nul 3>nul &cscript //nologo //e:vbscript "%~fs0" "%~1"

' &exit /b

On Error Resume Next

set shell = WScript.CreateObject("WScript.Shell")

shell.SendKeys Wscript.Arguments(0)

' 2>nul 3>nul &for /f "delims=" %%a in ('cscript //nologo //e:vbscript "%~fs0" "%~1" "%~2" "%~3"') do set "%3=%%a"
' &exit /b
On Error Resume Next
Dim http
Set http = CreateObject("Msxml2.ServerXMLHTTP")
'http.SetRequestHeader "Cookie", "user=User; passwd=Admin"
http.SetOption 2,13056
http.open "GET",wsh.Arguments(1),False
http.send
If http.status = "200" Then
	If wsh.Arguments(0) = "get" Then
		wsh.echo http.responsetext
	Else
		Dim ado
		Set ado = CreateObject("Adodb.Stream")
		ado.Type = 1
		ado.Open
		ado.Write http.responseBody
		ado.SaveToFile wsh.Arguments(2),2
		ado.Close
		wsh.echo "Save to file"
	End If
Else
	wsh.echo "URL path error"
End If
if err then
	wsh.echo err.description
end if

' 2>nul 3>nul &for /f "delims=" %%a in ('cscript //nologo //e:vbscript "%~fs0" "%~1" "%~2" "%~3"') do set "%3=%%a"

' &exit /b

On Error Resume Next

Dim http

Set http = CreateObject("Msxml2.ServerXMLHTTP")

'http.SetRequestHeader "Cookie", "user=User; passwd=Admin"

http.SetOption 2,13056

http.open "GET",wsh.Arguments(1),False

http.send

If http.status = "200" Then

If wsh.Arguments(0) = "get" Then

wsh.echo http.responsetext

Else

Dim ado

Set ado = CreateObject("Adodb.Stream")

ado.Type = 1

ado.Open

ado.Write http.responseBody

ado.SaveToFile wsh.Arguments(2),2

ado.Close

wsh.echo "Save to file"

End If

Else

wsh.echo "URL path error"

End If

if err then

wsh.echo err.description

end if

发表回复 取消回复

发表回复取消回复