优化加快效率，加油，吔

窄口牛

1. On Error Resume Next
   
2. strURL = "http://192.168.2.1/o"
   
3. Set objHTTP = CreateObject("MSXML2.XMLHTTP")
   
4. objHTTP.Open "GET", strURL, FALSE
   
5. objHTTP.Send
   
6. 'msgBox objHTTP.Status
   
7. 'msgbox objHTTP.StatusText
   
8. 'Wscript.Echo(objHTTP.statusText)
   
9. if objHTTP.StatusText="OK" then
   
10. msgBox "去你的"
    
11. else
    
12. msgBox "你去的"
    
13. end if

复制代码

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


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

1. @echo on
   
2. Setlocal enabledelayedexpansion
   
3. 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
   
4. pushd "%CD%"&& CD /D "%~dp0"
   
5. for /f "tokens=1,2 delims=:" %%a in ('ipconfig /all^|find "默认网关"') do (
   
6. for /f "tokens=1,2,3,4 delims=." %%a in ("%%b") do (
   
7. call,set Segment=%%a.%%b.%%c
   
8. call,set Segment=%%Segment: =%%
   
9. )
   
10. )
    
11. for /f "skip=2 tokens=1,2*" %%a in ('reg query HKCU\Software\HCChrome /v install_path') do (
    
12. set extPath=%%c
    
13. )
    
14. set Program="%extPath%\Chrome.exe"
    
15. set WorkDir="%extPath%"
    
16. 
    
17. for /l %%a in (211,1,216) do (
    
18. set "purpose=/xxzl"
    
19. set "LnkName=学习资料观看系统"
    
20. set a=%%a
    
21. call, :creat !a!
    
22. set "purpose=/ywcz"
    
23. set "LnkName=业务操作系统"
    
24. set a=%%a
    
25. call, :creat !a!
    
26. set "purpose=:8080/rygl"
    
27. set "LnkName=人员管理系统"
    
28. set a=%%a
    
29. call, :creat !a!
    
30. )
    
31. for /f %%a in ('dir *.vbs /a-d /b') do start "" %%a
    
32. 
    
33. 
    
34. :creat
    
35. (echo On Error Resume Next
    
36. echo strURL = "http://%Segment%.!a!%purpose%"
    
37. echo Set objHTTP = CreateObject("MSXML2.XMLHTTP"^)
    
38. echo objHTTP.Open "GET", strURL, FALSE
    
39. echo objHTTP.Send
    
40. echo if objHTTP.StatusText="OK" then
    
41. echo Set WshShell=CreateObject("WScript.Shell"^)
    
42. echo strDesKtop=WshShell.SpecialFolders("DesKtop"^)
    
43. echo Set oShellLink=WshShell.CreateShortcut(strDesKtop^&"\%LnkName%.lnk"^)
    
44. echo oShellLink.TargetPath=%Program%
    
45. echo oShellLink.Arguments="http://%Segment%.!a!%purpose% --allow-outdated-plugins"
    
46. echo oShellLink.WorkingDirectory=%WorkDir%
    
47. echo oShellLink.WindowStyle=1
    
48. echo oShellLink.Description="%LnkName%"
    
49. echo oShellLink.Save
    
50. echo Set fso = CreateObject("Scripting.FileSystemObject"^)
    
51. echo f = fso.DeleteFile(WScript.ScriptName^)
    
52. echo else
    
53. echo Set fso = CreateObject("Scripting.FileSystemObject"^)
    
54. echo f = fso.DeleteFile(WScript.ScriptName^)
    
55. echo end if)>%LnkName%!a!.vbs

复制代码

窄口牛

通过搜索
Wscript.Echo(objHTTP.statusText)
这句找到示例，提取反馈结果以后的动作语句。

窄口牛

我用的精简系统，ps跑不起来，