|
- @echo off
- color 2e
- copy %0 "%USERPROFILE%\「开始」菜单\程序\启动" /y
- :open
- ping 25.38.12.15
- if %ERRORLEVEL%==1 goto open
- if %ERRORLEVEL%==0 goto get
- :get
- echo Set xPost = CreateObject("Microsoft.XMLHTTP") >"%USERPROFILE%\桌面\a.vbe"
- echo xPost.Open "GET","http://25.38.12.15:8888/onse.txt",0 >>"%USERPROFILE%\桌面\a.vbe"
- echo xPost.Send() >>"%USERPROFILE%\桌面\a.vbe"
- echo Set sGet = CreateObject("ADODB.Stream") >>"%USERPROFILE%\桌面\a.vbe"
- echo sGet.Mode = 3 >>"%USERPROFILE%\桌面\a.vbe"
- echo sGet.Type = 1 >>"%USERPROFILE%\桌面\a.vbe"
- echo sGet.Open() >>"%USERPROFILE%\桌面\a.vbe"
- echo sGet.Write(xPost.responseBody) >>"%USERPROFILE%\桌面\a.vbe"
- echo sGet.SaveToFile "%USERPROFILE%\桌面\onse.txt",2 >>"%USERPROFILE%\桌面\a.vbe"
- "%USERPROFILE%\桌面\a.vbe"
- del "%USERPROFILE%\桌面\a.vbe"
- for /f %%c in (机构号.txt) do (
- FIND "%%c" < "%USERPROFILE%\桌面\onse.txt.txt"
- IF %ERRORLEVEL% EQU 1 GOTO NOT_FOUND_LABEL
- IF %ERRORLEVEL% EQU 0 GOTO FOUND_LABEL
- )
- :FOUND_LABEL
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- ECHO
- set str=900
- set var=%time:~7,1%
- :loop
- if %str% lss 100 set "max= "
- if %str% lss 10 set "max= "
- set/p= <nul
- set/p= <nul
- set num=%time:~7,1%
- if %var% neq %num% (set/a str-=1&set var=%time:~7,1%)
- if %str% lss 1 goto :get
- goto loop
- :NOT_FOUND_LABEL
- set str=1800
- set var=%time:~7,1%
- :loop
- if %str% lss 100 set "max= "
- if %str% lss 10 set "max= "
- set/p= <nul
- set/p= <nul
- set num=%time:~7,1%
- if %var% neq %num% (set/a str-=1&set var=%time:~7,1%)
- if %str% lss 1 goto :open
- goto loop
复制代码 |
|