@ rockybooth - The wireshark traces looked fine, both times an address was issued to the board. I have noticed that networking with Gadgeteer is not quite stable yet. Could you try the below NETMF-only program? Socket 1 on the Raptor, no other modules needed.
Option Explicit On
Option Strict On
Imports GHI.Networking
Imports Microsoft.SPOT
Imports Microsoft.SPOT.Hardware
Imports Microsoft.SPOT.Net.NetworkInformation
Imports System
Imports System.Net
Imports System.Threading
Namespace MFConsoleApplication1
Public Module Module1
Sub Main()
AddHandler NetworkChange.NetworkAvailabilityChanged, Sub(a, b) Debug.Print("SPOT NAVAC " + b.IsAvailable.ToString())
AddHandler NetworkChange.NetworkAddressChanged, Sub(a, b) Debug.Print("SPOT NADRC")
Dim NetIf = New EthernetENC28J60(Hardware.SPI.SPI_module.SPI2, CType(37, Cpu.Pin), CType(32, Cpu.Pin), CType(7, Cpu.Pin), 4000)
NetIf.Open()
NetIf.EnableDhcp()
NetIf.EnableDynamicDns()
While NetIf.IPAddress = "0.0.0.0"
Debug.Print("Waiting....")
Thread.Sleep(500)
End While
Debug.Print(NetIf.IPAddress)
Dim Buffer(65536 - 1) As Byte
For i = 0 To 10
Dim Read = 0, Total = 0, Count = 0
Dim StartTime As DateTime, EndTime As DateTime
Using Request = CType(HttpWebRequest.Create("http://bing.com/robots.txt"), HttpWebRequest)
Request.KeepAlive = False
StartTime = DateTime.Now
Using Response = CType(Request.GetResponse(), HttpWebResponse)
Using Stream = Response.GetResponseStream()
Do
Read = Stream.Read(Buffer, 0, Buffer.Length)
Total += Read
Count += 1
Thread.Sleep(20)
Loop While (Read <> 0)
EndTime = DateTime.Now
End Using
End Using
End Using
Dim Duration = EndTime.AddMilliseconds(-20 * Count) - StartTime
Dim Milliseconds = Duration.Minutes * 60000 + Duration.Seconds * 1000 + Duration.Milliseconds
Debug.Print(i.ToString() + " " + ((Total / 1024.0) / (Milliseconds / 1000.0)).ToString("N2") + " " + Total.ToString() + " " + Milliseconds.ToString())
Next
End Sub
End Module
End Namespace
Why not just leaving one property (.[em]Alarm[/em]) and two methods (.[em]SetDateTime