1

変更を認識するまで静かに実行する Windows ガジェット用の基本的なスクリプトを作成しました。私が直面している 1 つの問題は、ガジェットを派手にしてエッジを湾曲させたいということです。角を取り除いた png 画像を使用しようとしましたが、機能しません。常に正方形のボックスとして表示されます。私もCSSでこれをやろうとしましたが、それを理解できないようです。

HTA/CSS/VBScript 内で湾曲したエッジを作成する方法を知っている人はいますか? ガジェットなので、どこでそれを行う必要があるのか​​ わかりません。

どうもありがとう。

//編集

コード全体は次のとおりです。

<html>
<head>
 <title>Chrome Version Checker</title>
<HTA:APPLICATION
 APPLICATIONNAME="Chrome Version Checker"
 ID="ChromeCheck"
 VERSION="1.0.0.0"
 BORDER="thin"
 BORDERSTYLE="complex"
 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 Files\Google\Chrome\Application\chrome.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 "\\s007\Global\IT\ChromeStandaloneSetup.xml"
        xmlDoc.Async = "False"
        Set nNode = xmlDoc.selectsinglenode ("//ChromeUpdater/Config/Version")
        nNode.text = strOutput
        strResult = xmldoc.save("\\s007\Global\IT\ChromeStandaloneSetup.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 Files\Chrome Updater\ChromeUpdateV2.exe""")
            Set objShell = Nothing

        else    

        End If
End If  
 End Sub
 </SCRIPT>

どうもありがとう

4

1 に答える 1