我刚刚写了一个Windows小工具的基本脚本，安静地运行，直到它认识到一个变化。 我遇到的一个问题是，我想看到小工具，并有弯曲的边缘。 我已经尝试使用删除angular落的一个PNG图像，但它不起作用，它始终显示为一个方形框。 我也尝试通过CSS来做这件事，但我似乎无法弄清楚。
有谁知道如何在HTA / CSS / VBScript中创build弯曲的边缘？ 我不确定需要发生什么，它是一个小工具。
非常感谢。
//编辑
如何在Windows上编译Linux内核代码？
识别C＃应用程序使用的本地内存的所有者
这可能吗？ “回声。 时间是：％时间/ T％“
如何使git忽略更改情况？
有没有办法在符号链接“内”运行命令行？
以下是整个代码：
<html> <head> <title>Chrome Version Checker</title> <HTA:APPLICATION APPLICATIONNAME="Chrome Version Checker" ID="ChromeCheck" VERSION="1.0.0.0" BORDER="thin" BORDERcomplex" ICON="chrome_updater_256px.ico" SCROLL="no" SINGLEINSTANCE="yes" CONTEXTMENU="no" NAVIGABLE="yes" SELECTION="no"/> <script language="vbscript"> Dim timerID,CurrentTime Sub Window_OnLoad timerID = window.setInterval("RefreshTime",360000) 'milliseconds RefreshTime End Sub self.Resizeto 190,194 </script> <style type="text/css"> body { margin: 0; width: 130px; height: 134px; } span { text-align:center; font-family: arial; font-weight: bold; font-size: 12px; } </style> </head> <body> <table align="center"> <tr> <td> <span>Installed File</span> <br /> <span id = "InstallFile"></span> </td> </tr> <tr> <td colspan="2"> <hr> </td> </tr> <tr> <td> <span>Remote File</span> <br /> <span id = "RemoteFile"></span> </td> </tr> <tr> <td colspan="2"> <br /><span id = "StatusMSG"></span> </td> </tr> </table> </body> <html> <SCRIPT LANGUAGE="VBScript"> Sub RefreshTime set xmlhttp = createobject ("msxml2.xmlhttp.3.0") xmlhttp.open "get","http://en.wikipedia.org/wiki/Google_Chrome",false xmlhttp.send strOutput = split(xmlhttp.responseText,"Stable release</a>")(1) strOutput = split(strOutput," <small>")(0) strOutput = replace(replace(strOutput,vbcr,""),vblf,"") strOutput = split(strOutput,"<p>")(1) Dim File set FSO = CreateObject("Scripting.FileSystemObject") File = FSO.GetFiLeversion("C:Program FilesGoogleChromeApplicationchrome.exe") if File = strOutput Then InstallFile.InnerHTML = File RemoteFile.InnerHTML = strOutput StatusMSG.InnerHTML = "Up to date" document.body.background="tick.png" document.body.style.backgroundPosition = "center" document.body.style.backgroundRepeat = "no-repeat" else InstallFile.InnerHTML = File RemoteFile.InnerHTML = strOutput StatusMSG.InnerHTML = "Not up to date" document.body.background="cross.jpg" ' --------------------------------------- Set xmlDoc = CreateObject("Microsoft.XMLDOM") xmlDoc.load "\s007GlobalITChromeStandalonesetup.xml" xmlDoc.Async = "False" Set nNode = xmlDoc.selectsinglenode ("//ChromeUpdater/Config/Version") nNode.text = strOutput strResult = xmldoc.save("\s007GlobalITChromeStandalonesetup.xml") ' --------------------------------------- Dim iURL Dim objShell iURL = "https://dl.google.com/tag/s/appguid%3D%7B8A69D345-D564-463C-AFF1-A69D9E530F96%7D%26iid%3D%7B8DD6B5B9-54BE-D8AD-7E05-FBA19DDAA0B0%7D%26lang%3Den%26browser%3D4%26usagestats%3D0%26appname%3DGoogle%2520Chrome%26needsadmin%3Dtrue%26installdataindex%3Ddefaultbrowser/update2/installers/ChromeStandalonesetup.exe" set objShell = CreateObject("Shell.Application") ' -------------------------- objShell.ShellExecute "chrome.exe",iURL,"",1 '--------------------------- Ret = MsgBox("Do you wish to update Now?",VBYesNo,"Update Now") If Ret = 6 then Set objShell = WScript.CreateObject( "WScript.Shell" ) objShell.Run("""C:Program FilesChrome UpdaterChromeUpdateV2.exe""") Set objShell = nothing else End If End If End Sub </SCRIPT>
非常感谢
是否有可能使用不同的凭据读取/写入远程计算机的registry？
使用批次更改虚拟内存
发送邮件失败，邮箱不可用
如何访问Windowsshell上下文菜单项？
如何将Visual Studio的“输出”窗口redirect到DebugView？
这里是我如何使用CSS在HTA中四舍五入的示例。
<html> <head> <title>Rounded Corners</title> <HTA:APPLICATION APPLICATIONNAME="Rounded Corners" ID="RestoreHta" VERSION="1.0" BORDER="dialog" BORDERcomplex" INNERBORDER="no" SCROLL="no" CONTEXTMENU="no"/> <style type="text/css"> .b1f,.b2f,.b3f,.b4f{font-size:1px; overflow:hidden;display:block;} .b1f {height:1px; background:#ddddbb; margin:0 5px} .b2f {height:1px; background:#ddddbb; margin:0 3px} .b3f {height:1px; background:#ddddbb; margin:0 2px} .b4f {height:2px; background:#ddddbb; margin:0 1px} .cf {background: #ddddbb} .cf div {margin-left: 5px;} #DataOptions { background-color: #ddddbb; width: 100%; padding: 1.1em; } </style> <SCRIPT Language="VBScript"> Sub Window_Onload self.Resizeto 300,300 End Sub </SCRIPT> </head> <body> <b class="b1f"></b><b class="b2f"></b><b class="b3f"></b><b class="b4f"></b><div class="cf"><div> <div id="DataOptions"> <table width="100%" height="100"> <tr> <td bwidth="100%"><center>Rounded Corners</center></td> </tr> </table> </div> </div></div><b class="b4f"></b><b class="b3f"></b><b class="b2f"></b><b class="b1f"></b> </body> </html>
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。
