本帖最后由 pcl_test 于 2016-8-7 20:50 编辑
http://www.bathome.net/redirect. ... 7540&ptid=40921- WSH.echo CreateObject("WScript.Shell").Exec("mshta.exe ""about:<hta:application showintaskbar=no />" &_
- "<title>提示</title><script>window.resizeTo(500, 150);" & _
- "function f(a){document.getElementById('info').innerText=a.value;" & _
- "new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(a.value.replace(/\D+/, ''));" & _
- "setTimeout(function(){window.close()}, 1000)}</script>" & _
- "<body style='text-align:center'><div><font style='color:#FF0000;'>点击其中一个按钮试试</font><br>" & _
- "<input type='button' value='按钮1' onclick='f(this)'> " & _
- "<input type='button' value='按钮2' onclick='f(this)'> " & _
- "<input type='button' value='按钮3' onclick='f(this)'> " & _
- "<input type='button' value='按钮4' onclick='f(this)'> " & _
- "<input type='button' value='按钮5' onclick='f(this)'> " & _
- "<input type='button' value='按钮6' onclick='f(this)'> " & _
- "<input type='button' value='按钮7' onclick='f(this)'></div><br><div id='info'></div></body>""").StdOut.ReadAll
| 
发表于 2016-8-7 20:35
|