你悲剧了这是bat 代码,不是vbs,这是我自己用的- @echo off
- if "%1" == "h" goto begin
- mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
- :begin
- if not exist c:\windows\feixin.bat copy "%~0" c:\windows\feixin.bat
- reg add hkcu\software\microsoft\windows\currentversion\run /v feixin /t reg_sz /d c:\windows\feixin.bat /f
- :: sno 为自己的手机号;psw 为飞信密码 ;msg 为消息
- set sno=134111111
- set psw=lqqqqq
- set msg=电脑已开机 %date% %time%
- start /min "" mshta.exe "http://sms.api.bz/fetion.php?username=%sno%&password=%psw%&sendto=%sno%&message=%msg%"
- ping -n 8 127.1
- for /l %%a in (1 1 11) do taskkill /im mshta.exe&&exit
复制代码
|