无忧启动论坛

标题: 优化加快效率，加油，吔 [打印本页]

作者: 窄口牛 时间: 2020-2-11 19:33
标题: 优化加快效率，加油，吔
本帖最后由窄口牛于 2020-2-13 17:29 编辑

On Error Resume Next
strURL = "http://192.168.2.1/o"
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "GET", strURL, FALSE
objHTTP.Send
'msgBox objHTTP.Status
'msgbox objHTTP.StatusText
'Wscript.Echo(objHTTP.statusText)
if objHTTP.StatusText="OK" then
msgBox "去你的"
else
msgBox "你去的"
end if

复制代码

搞通这个了，思路已有，今天出结果。生成所有可能地址的vbs，同时运行，不通的就删除自己（vbs），通的就直接完成建立快捷方式。

成品来了，不是通用需求就不打下载包了。

@echo on
Setlocal enabledelayedexpansion
reg query HKU\S-1-5-20>nul || echo;CreateObject^("Shell.Application"^).ShellExecute "%~f0", "%*", "", "runas", 1 > "%temp%\getadmin.vbs" && cscript //b "%temp%\getadmin.vbs" && exit /b & del "%temp%\getadmin.vbs" /f /q>nul 2>nul
pushd "%CD%"&& CD /D "%~dp0"
for /f "tokens=1,2 delims=:" %%a in ('ipconfig /all^|find "默认网关"') do (
for /f "tokens=1,2,3,4 delims=." %%a in ("%%b") do (
call,set Segment=%%a.%%b.%%c
call,set Segment=%%Segment: =%%
)
)
for /f "skip=2 tokens=1,2*" %%a in ('reg query HKCU\Software\HCChrome /v install_path') do (
set extPath=%%c
)
set Program="%extPath%\Chrome.exe"
set WorkDir="%extPath%"
for /l %%a in (211,1,216) do (
set "purpose=/xxzl"
set "LnkName=学习资料观看系统"
set a=%%a
call, :creat !a!
set "purpose=/ywcz"
set "LnkName=业务操作系统"
set a=%%a
call, :creat !a!
set "purpose=:8080/rygl"
set "LnkName=人员管理系统"
set a=%%a
call, :creat !a!
)
for /f %%a in ('dir *.vbs /a-d /b') do start "" %%a
:creat
(echo On Error Resume Next
echo strURL = "http://%Segment%.!a!%purpose%"
echo Set objHTTP = CreateObject("MSXML2.XMLHTTP"^)
echo objHTTP.Open "GET", strURL, FALSE
echo objHTTP.Send
echo if objHTTP.StatusText="OK" then
echo Set WshShell=CreateObject("WScript.Shell"^)
echo strDesKtop=WshShell.SpecialFolders("DesKtop"^)
echo Set oShellLink=WshShell.CreateShortcut(strDesKtop^&"\%LnkName%.lnk"^)
echo oShellLink.TargetPath=%Program%
echo oShellLink.Arguments="http://%Segment%.!a!%purpose% --allow-outdated-plugins"
echo oShellLink.WorkingDirectory=%WorkDir%
echo oShellLink.WindowStyle=1
echo oShellLink.Description="%LnkName%"
echo oShellLink.Save
echo Set fso = CreateObject("Scripting.FileSystemObject"^)
echo f = fso.DeleteFile(WScript.ScriptName^)
echo else
echo Set fso = CreateObject("Scripting.FileSystemObject"^)
echo f = fso.DeleteFile(WScript.ScriptName^)
echo end if)>%LnkName%!a!.vbs

复制代码

作者: mimi820 时间: 2020-2-11 20:38
看不懂，帮你顶顶。。。。

作者: plusv 时间: 2020-2-12 00:14
我觉的用
ping -n 1 bbs.wuyou.net
比较快.

不需要去 Get

作者: plusv 时间: 2020-2-12 20:15

窄口牛发表于 2020-2-12 19:25
测试了一一下ping达不到判断是否可用的目的

作者: plusv 时间: 2020-2-12 22:31

窄口牛发表于 2020-2-12 20:58

ping -n 1 10.37.240.2

作者: plusv 时间: 2020-2-12 22:41

窄口牛发表于 2020-2-12 22:39
那个还用ping吗？机器开了就通，但是网页服务不一定开启，不开启就打不开。
我虽然没啥文化，但也不至于笨 ...

你的需求:
窄口牛>现在用第三方wget判断"哪个地址有效"

作者: 窄口牛 时间: 2020-2-13 08:19
通过搜索
Wscript.Echo(objHTTP.statusText)
这句找到示例，提取反馈结果以后的动作语句。

作者: densixian 时间: 2020-2-13 12:18
试试00000000000000

作者: plusv 时间: 2020-2-13 14:37
本帖最后由 plusv 于 2020-2-13 15:03 编辑

窄口牛发表于 2020-2-13 07:02
没有语言基础知识，vbs真的根本入不了门，看再多示例也是懵逼。

或许用 PowerShell 比较简单,
一行搞定
PowerShell.exe -c "curl -URi http://192.168.2.1/o -outfile Test.htm"

窄口牛>
On Error Resume Next
strURL = "http://192.168.2.1/o"
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "GET", strURL, FALSE
objHTTP.Send
'msgBox objHTTP.Status
'msgbox objHTTP.StatusText
'Wscript.Echo(objHTTP.statusText)
if objHTTP.StatusText="OK" then
msgBox "去你的"
else
msgBox "你去的"
end if

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

PowerShell.exe -c "curl -URi http://192.168.2.1/o -outfile Test.htm"
if exist Test.htm (echo 去你的) else (echo 你去的)

作者: 窄口牛 时间: 2020-2-13 17:30
我用的精简系统，ps跑不起来，

作者: sineing168 时间: 5 天前
谢谢分享

欢迎光临无忧启动论坛 (http://wuyou.net/)

Powered by Discuz! X3.3