'Code module
#Region Project Attributes
#ApplicationLabel: Programma di prova
#Version: 1.0.0
'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
#iPhoneOrientations: Portrait, LandscapeLeft, LandscapeRight
#iPadOrientations: Portrait, LandscapeLeft, LandscapeRight, PortraitUpsideDown
#ATSEnabled: True
#Target: iPhone, iPad
#ATSEnabled: True
#MinVersion: 8
#End Region
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page")
Page1.Title = "Page1"
Page1.RootPanel.LoadLayout("uno")
Page1.RootPanel.Color = Colors.White
Page1.Tag="Page1"
Page1.RootPanel.Tag="Page1"
NavControl.ShowPage(Page1)
test_sito
End Sub
Sub test_sito
Dim hj As HttpJob
hj.Initialize("", Me)
hj.Download("http://www.tiscali.it")
Wait For (hj) JobDone(job As HttpJob)
If job.Success Then
Log("si")
Else
LogColor ("no",Colors.red)
End If
End Sub