More Pieces

MsgBox wanIPaddress, 64, “Find WAN Address”

Function wanIPaddress( )

‘ //Function uses WhatIsMyIP.com’s automation page:
‘ //http://www.whatismyip.com/automation/n09230945.asp
‘ //to find the WAN IP Address.

Dim szURL, objHTTP

On Error Resume Next

‘//Request data from whatismyip.com

szURL = “http://www.whatismyip.com/automation/n09230945.asp”
Set objHTTP = CreateObject( “WinHttp.WinHttpRequest.5.1″ )
objHTTP.Open “GET”, szURL
objHTTP.Send

If objHTTP.Status = 200 Then
wanIPaddress = objHTTP.ResponseText
Else
wanIPaddress = “IP = 0.0.0.0″ & vbCRLF & vbCRLF & _
“Unable to retrieve WAN IP from : ” & vbCRLF & _
“http://www.whatismyip.com/automation/n09230945.asp”
End If

Set objHTTP = Nothing

End Function

I recently had a problem with one of my Wii controllers. The issue was everytime I played a game, the sensor bar wouldn’t recognise any game movement. For example, I’d play Wii Sports, could point with the finger ok but couldn’t swing in golf or bowling etc…

Changed batteries, re-sync’d controllers, disconnected everything and re-connected but still no good.

Called Nintendo and this is what corrected the issue :

(Remote would not sense motion fix)

Remove batteries from controller. Smack unit firmly, but not hard enough to break it, 3 or 4 times on a hard surface - desk, table etc.

Put batteries back in, all good.