Online Status

from WinCustomize Forums
I want to create a Widget that shows me a little Animation when I am Online and Offline.
I don't know how it works. Can anybody give me some Tips how to create such a Widget?
Thanks in advance
desktopx
1,290 views 1 replies
Reply #1 from WinCustomize Forums Top
{quote]Can anybody give me some Tips how to create such a Widget?
{/quote]

Kris Kwilas gave me the following script. Martin Conroy, Alberto
Riccio, and Stardock did the development. Props to them! If WC strips out the code, give me a holler with email and I'll hook you up.

Dim IsConnected

'Called when the script is executed
Sub Object_OnScriptEnter
Set Sh = CreateObject("WScript.Shell")
On Error Resume Next
units =
Sh.RegRead("HKCU\SOFTWARE\Stardock\DesktopX\NaturalDesktop\units")
If err.number <> 0 Then
units = "m"
err.clear
End If
location =
Sh.RegRead("HKCU\SOFTWARE\Stardock\DesktopX\NaturalDesktop\location")
If err.number <> 0 Then
location = "48188"
err.clear
End If
Timeadjust=0

IsConnected = System.InternetConnected
If IsConnected Then
DesktopX.ScriptObject("wow_netstatus").Object.State = "On"
DesktopX.ScriptObject("wow_netstatus").Object.ToolTipText =
"Currently working online"
Else
DesktopX.ScriptObject("wow_netstatus").Object.State = "Off"
DesktopX.ScriptObject("wow_netstatus").Object.ToolTipText =
"Currently working offline"
DesktopX.Object("wow_lastupdate").Text = "Last Update: None
- Offline"
Msgbox "You are currently offline. The Natural Desktop can
only provide accurate weather information if you are online." & vbNewLine &
vbNewLine & "Once you have connected to the Internet click the connection
icon in the corner of the weather window.", vbExclamation + vbOKOnly,
"Connection error ..."
End If

Object.SetTimer 6001, 600000
Object_OnTimer6001
End Sub

Posted via WinCustomize Browser/Stardock Central