HTA - Windows-Gadget geschwungene Kanten

Ich habe nur geschrieben, ein einfaches Skript für ein Windows-Gadget, das läuft leise, bis es erkennt eine Veränderung. Das einzige problem, ich bin der Begegnung ist, will ich fancy das Gadget und haben abgerundete Kanten. Ich habe versucht, mit einem png-Bild mit den Ecken entfernt, aber es funktioniert nicht, es erscheint immer, als ein quadratisches Feld. Ich habe auch versucht dies zu tun durch CSS, aber ich kann einfach nicht scheinen, um es herauszufinden.

Weiß jemand, wie schaffen geschwungene Kanten innerhalb HTA/CSS/VBScript? Ich bin mir nicht sicher, wo es hätte passieren müssen, dass es ein Gadget.

Vielen Dank.

//EDIT

Hier ist der gesamte code:

<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>

Vielen Dank

Bearbeiten können Sie Ihre Frage zu zeigen, den code/css, die Sie bereits haben?
<!DOCTYPE html> & <meta http-equiv="x-ua-compatible" content="IE=edge"> funktioniert der trick, wenn IE > 8 ist installiert.
Danke, presumibly werde ich brauchen, um eine transparente PNG für diese Arbeit?
Ich habe es geschafft, abgerundete Ecken, aber weil es ein Gadget, es hat immer noch einen weißen hintergrund, so dass noch Platz-es ist, was ist jenseits von den abgerundeten Ecken, die ich versuche zu entfernen.

InformationsquelleAutor Hyperjase | 2013-04-15

Hier ist ein Beispiel, wie ich rundete die Ecken in einer HTA mit CSS.

<html>
<head>
    <title>Rounded Corners</title>

    <HTA:APPLICATION
    APPLICATIONNAME="Rounded Corners"
    ID="RestoreHta"
    VERSION="1.0"
    BORDER="dialog"
    BORDERSTYLE="complex"
    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>

Danke, aber ich bin schnell merken, dass CSS nicht das tun, was ich es brauche, habe ich gefunden, dass die Verwendung von drei Bildern (oben und unten mit Transparenz) passt die Rechnung besser, jedoch, hinzufügen die Komplexität, ich bin über ein Bild innerhalb einer "if else" mit vbscript, der schreibt in den hintergrund. Wenn ich das Bild als hintergrund, das wäre vorzuziehen. Der code, den ich oben gepostet ist immer noch die gleiche. Vielen Dank.

InformationsquelleAutor J P

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.