#108048 - 2003-11-18 12:13 PM
Re: Sample code for new COM project
|
Lonkero
KiX Master Guru
Registered: 2001-06-05
Posts: 22346
Loc: OK
|
k, doing a test...
<table border cellpadding="10" style="background-color:black;border-color:red;border-style:inset;border-width:7;"><tr><td><pre><font face="Lucida Console" size=1 color=#EE82EE><font color=#40E0D0>function</font> <font color=#FF7F50>Uptime</font>()
<font color=#40E0D0>dim</font> <font color=#FF7F50>$</font>,<font color=#FF7F50>$!</font>,<font color=#FF7F50>$y</font>,<font color=#FF7F50>$m</font>,<font color=#FF7F50>$d</font>,<font color=#FF7F50>$t</font>
<font color=#40E0D0>For</font> <font color=#40E0D0>Each</font> <font color=#FF7F50>$</font> <font color=#40E0D0>in</font> <font color=#FF1493>GetObject</font>(<font color=#3CB371>"winmgmts:"</font>)<font color=#FF7F50>.InstancesOf</font>(<font color=#3CB371>"Win32_OperatingSystem"</font>)
<font color=#FF7F50>$!</font> = <font color=#FF1493>split</font>(<font color=#FF7F50>$.LastBootUpTime</font>,<font color=#3CB371>"."</font>)[<font color=#EE82EE>0</font>]
<font color=#FF7F50>$t</font>=<font color=#EE82EE>3600</font>*<font color=#FF1493>substr</font>(<font color=#FF7F50>$!</font>,<font color=#EE82EE>9</font>,<font color=#EE82EE>2</font>)+<font color=#EE82EE>60</font>*<font color=#FF1493>substr</font>(<font color=#FF7F50>$!</font>,<font color=#EE82EE>11</font>,<font color=#EE82EE>2</font>)+<font color=#FF1493>substr</font>(<font color=#FF7F50>$!</font>,<font color=#EE82EE>13</font>,<font color=#EE82EE>2</font>)
<font color=#FF7F50>$y</font>=<font color=#FF1493>left</font>(<font color=#FF7F50>$!</font>,<font color=#EE82EE>4</font>)
<font color=#FF7F50>$m</font>=<font color=#FF1493>substr</font>(<font color=#FF7F50>$!</font>,<font color=#EE82EE>5</font>,<font color=#EE82EE>2</font>)
<font color=#FF7F50>$d</font>=<font color=#FF1493>substr</font>(<font color=#FF7F50>$!</font>,<font color=#EE82EE>7</font>,<font color=#EE82EE>2</font>)
<font color=#FF7F50>$!</font>=<font color=#FF1493>split</font>(<font color=#FFFF00>@time</font>,<font color=#3CB371>":"</font>)
<font color=#FF7F50>$t</font>=<font color=#EE82EE>3600</font>*<font color=#FF7F50>$!</font>[<font color=#EE82EE>0</font>]+<font color=#EE82EE>60</font>*<font color=#FF7F50>$!</font>[<font color=#EE82EE>1</font>]+<font color=#FF7F50>$!</font>[<font color=#EE82EE>2</font>]-<font color=#FF7F50>$t</font>
<font color=#FF7F50>$!</font>=<font color=#FF1493>split</font>(<font color=#FFFF00>@date</font>,<font color=#3CB371>"/"</font>)
<font color=#40E0D0>if</font> <font color=#FF7F50>$t</font><<b ></b><font color=#EE82EE>0</font>
<font color=#FF7F50>$t</font>=<font color=#FF7F50>$t</font>+<font color=#EE82EE>86400</font>
<font color=#FF7F50>$!</font>[<font color=#EE82EE>2</font>]=<font color=#EE82EE>0</font>+<font color=#FF7F50>$!</font>[<font color=#EE82EE>2</font>]-<font color=#EE82EE>1</font>
<font color=#40E0D0>endif</font>
<font color=#40E0D0>if</font> <font color=#FF7F50>$d</font>><font color=#FF7F50>$!</font>[<font color=#EE82EE>2</font>]
<font color=#40E0D0>select</font>
<font color=#40E0D0>case</font> <font color=#EE82EE>3</font>=<font color=#FF7F50>$!</font>[<font color=#EE82EE>1</font>]
<font color=#FF7F50>$!</font>[<font color=#EE82EE>2</font>]=<font color=#EE82EE>28</font>+<font color=#FF7F50>$!</font>[<font color=#EE82EE>2</font>]
<font color=#40E0D0>case</font> <font color=#FF1493>instr</font>(<font color=#3CB371>"2468911"</font>,<font color=#FF7F50>$!</font>[<font color=#EE82EE>1</font>])
<font color=#FF7F50>$!</font>[<font color=#EE82EE>2</font>]=<font color=#EE82EE>31</font>+<font color=#FF7F50>$!</font>[<font color=#EE82EE>2</font>]
<font color=#40E0D0>case</font> <font color=#3CB371>"Lonk"</font>
<font color=#FF7F50>$!</font>[<font color=#EE82EE>2</font>]=<font color=#EE82EE>30</font>+<font color=#FF7F50>$!</font>[<font color=#EE82EE>2</font>]
<font color=#40E0D0>endselect</font>
<font color=#FF7F50>$!</font>[<font color=#EE82EE>1</font>]=<font color=#EE82EE>0</font>+<font color=#FF7F50>$!</font>[<font color=#EE82EE>1</font>]-<font color=#EE82EE>1</font>
<font color=#40E0D0>endif</font>
<font color=#FF7F50>$!</font>[<font color=#EE82EE>2</font>]=<font color=#EE82EE>0</font>+<font color=#FF7F50>$!</font>[<font color=#EE82EE>2</font>]-<font color=#FF7F50>$d</font>
<font color=#40E0D0>if</font> <font color=#FF7F50>$m</font>><font color=#FF7F50>$!</font>[<font color=#EE82EE>1</font>]
<font color=#FF7F50>$!</font>[<font color=#EE82EE>1</font>]=<font color=#EE82EE>12</font>+<font color=#FF7F50>$!</font>[<font color=#EE82EE>1</font>]
<font color=#FF7F50>$!</font>[<font color=#EE82EE>0</font>]=<font color=#EE82EE>0</font>+<font color=#FF7F50>$!</font>[<font color=#EE82EE>0</font>]-<font color=#EE82EE>1</font>
<font color=#40E0D0>endif</font>
<font color=#FF7F50>$!</font>[<font color=#EE82EE>1</font>]=<font color=#EE82EE>0</font>+<font color=#FF7F50>$!</font>[<font color=#EE82EE>1</font>]-<font color=#FF7F50>$m</font>
<font color=#FF7F50>$!</font>[<font color=#EE82EE>0</font>]=<font color=#FF1493>right</font>(<font color=#3CB371>"000"</font>+(<font color=#EE82EE>0</font>+<font color=#FF7F50>$!</font>[<font color=#EE82EE>0</font>]-<font color=#FF7F50>$y</font>),<font color=#EE82EE>4</font>)
<font color=#FF7F50>$!</font>[<font color=#EE82EE>1</font>]=<font color=#FF1493>right</font>(<font color=#3CB371>"0"</font>+<font color=#FF7F50>$!</font>[<font color=#EE82EE>1</font>],<font color=#EE82EE>2</font>)
<font color=#FF7F50>$!</font>[<font color=#EE82EE>2</font>]=<font color=#FF1493>right</font>(<font color=#3CB371>"0"</font>+<font color=#FF7F50>$!</font>[<font color=#EE82EE>2</font>],<font color=#EE82EE>2</font>)
<font color=#FF7F50>$Uptime</font>=<font color=#FF1493>join</font>(<font color=#FF7F50>$!</font>,<font color=#3CB371>"\"</font>)
<font color=#FF7F50>$!</font>=<font color=#FF7F50>$t</font>/<font color=#EE82EE>3600</font>
<font color=#FF7F50>$t</font>=<font color=#FF7F50>$t</font>-<font color=#EE82EE>3600</font>*<font color=#FF7F50>$!</font>
<font color=#FF7F50>$Uptime</font>=<font color=#FF7F50>$Uptime</font>+<font color=#3CB371>" "</font>+<font color=#FF7F50>$!</font>
<font color=#FF7F50>$!</font>=<font color=#FF7F50>$t</font>/<font color=#EE82EE>60</font>
<font color=#FF7F50>$t</font>=<font color=#FF7F50>$t</font>-<font color=#EE82EE>60</font>*<font color=#FF7F50>$!</font>
<font color=#FF7F50>$Uptime</font>=<font color=#FF7F50>$Uptime</font>+<font color=#3CB371>":"</font>+<font color=#FF7F50>$!</font>+<font color=#3CB371>":"</font>+<font color=#FF7F50>$t</font>
<font color=#40E0D0>Next</font>
<font color=#40E0D0>endfunction</font></font></pre></td></tr></table>
_________________________
!download KiXnet
|
|
Top
|
|
|
|
Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart
|
1 registered
(Allen)
and 1198 anonymous users online.
|
|
|
