[VISTA] zelfgemaakte gadgets werken niet - Softwareontwikkeling

zondag 3 mei 2009 20:00

Acties:

0 Henk 'm!

A²+B²=C²

Topicstarter

Hallo,

Ik heb via deze tutorial een gadget gemaakt.

In de map "%userprofile%\appdata\local\microsoft\windows sidebar\gadgets" staan de volgende mappen:
Gadget.xml
Icon.png
Test.htm

De inhoud is als volgt:

Gadget.xml

XML:

<?xml version="1.0" encoding="utf-8" ?>

<gadget>
    <name>My First Gadget</name>
    <author>The Microsoft Scripting Guys</author>
    <copyright>2006 Microsoft Corporation</copyright>
    <description>Sample gadget that returns the name of the installed operating system.</description>
    <icons>
        <icon>icon.png</icon>
    </icons>
    <version value="1.0.0.0" MinPlatformVersion="0.1"></version>
    <sidebar>
        <type>html</type>
        <permissions>full</permissions>
        <code>test.htm</code>
        <website>www.microsoft.com/technet/scriptcenter</website>
     </sidebar>
</gadget>

Icon.png
plaatje ter grootte van 64x64 pixels

Test.htm

HTML:

<html>

<head>
    <title>My Gadget</title>
    <style>
        body{width:120;height:80}
    </style>
</head>

<script language="VBScript">

    Sub Window_Onload
        GetMemory
        iTimerID = window.SetInterval("GetMemory", 10000)
    End Sub

    Sub GetMemory
        Set objLocator = CreateObject("WbemScripting.SwbemLocator")
        Set objWMIService = objLocator.ConnectServer(".", "root\cimv2")
        Set colItems = objWMIService.ExecQuery("Select * From Win32_OperatingSystem")
        For Each objItem in colItems
            DataArea.InnerHTML = objItem.FreePhysicalMemory
        Next
    End Sub

    Sub RunSub

        Set objLocator = CreateObject("WbemScripting.SwbemLocator")
        Set objWMIService = objLocator.ConnectServer(".", "root\cimv2")

        Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
        For Each objItem in colItems
            strHTML = "Computer Name: " & objItem.Name & "<br>"
            strHTML = strHTML & "User Name: " & objItem.UserName & "<br><br>"
        Next

        Set colItems = objWMIService.ExecQuery("Select * From Win32_OperatingSystem")
        For Each objItem in colItems
            strHTML = strHTML & "Operating System: " & objItem.Caption & "<br>"
            strHTML = strHTML & "Service Pack: " & objItem.ServicePackMajorVersion & "<br><br>"
        Next

        Set colItems = objWMIService.ExecQuery("Select * From Win32_Processor")
        For Each objItem in colItems
            strHTML = strHTML & "Processor: " & objItem.Caption & "<br><br>"
        Next

        Set colItems = objWMIService.ExecQuery _
            ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
        For Each objItem in colItems
            strHTML = strHTML & objItem.Caption & "<br>"
            For Each strAddress in objItem.IPAddress
                strHTML = strHTML & "IP Address: " & strAddress & "<br>"
            Next
        Next

        Set objIE = CreateObject("InternetExplorer.Application")
        objIE.Navigate("about:blank")
        objIE.Toolbar = 0
        objIE.StatusBar = 0
        Set objDoc = objIE.Document.Body
        objDoc.InnerHTML = strHTML
        objIE.Visible = True
    End Sub

</script>

<body>
    <span id="DataArea"></span><p>
    <input type="button" value="Information" name="run_button" onClick="RunSub">
</body>

</html>

Deze code is compleet gekopieerd uit de tutorial.
Als ik op het plusje in de sidebar klik zie ik het gadget echter niet.

Ik kan de .xml en .htm files gewoon in de browsers openen, de laatste werkt alleen niet, ik zie de knop wel, maar er gebeurt niks als ik erop klik, ik verwacht niet dat dit het probleem is.

Is er toevallig iemand die het probleem ziet? Ik verwacht dat het heel klein is, maar ik zie het niet...

Silence is better than unmeaning words. ~Pythagoras

zondag 3 mei 2009 22:55

Acties:

0 Henk 'm!

alt-92

ye olde farte

Coding meukee mag je ook in dit geval in Webdesign, Markup & Clientside Scripting kwijt, maar ook daar geldt dat enige eigen debugging wel noodzakelijk is.

Ik verplaats je topic daarnaartoe - let wel even op de quickstart die men daar hanteert.

ik heb een 864 GB floppydrive! - certified prutser - the social skills of a thermonuclear device

zondag 3 mei 2009 23:17

Acties:

0 Henk 'm!

pythagorasABC

A²+B²=C²

Topicstarter

excuses, daar had ik niet aan gedacht.

Is debugging echt nodig? Ik weet niet hoe dat moet, maar deze code is letterlijk gekopieerd van de tutorial. De tutorial is van de "microsoft scripting guys" van microsoft zelf dus.

Over de quickstart kan ik niks vinden in het WEB beleid, en volgens mij voldoe ik aan de algemene quickstart.

Silence is better than unmeaning words. ~Pythagoras

dinsdag 5 mei 2009 14:38

Acties:

0 Henk 'm!

pythagorasABC

A²+B²=C²

Topicstarter

BUMP

Silence is better than unmeaning words. ~Pythagoras