Sub Process_Globals
Private nid As Int = 1
Dim WiFi_Socket As Socket
Dim TcpStreams As AsyncStreams
'Dim ast As AsyncStreamsText
Dim ServerSocket1 As ServerSocket
Dim ServerIp As String = "192.168.1.50" 'IP Access point
Dim Port As Int = 808' port
Dim noti As Notification
Dim data As String
Dim connection As Boolean=False
Dim userdisconnect As Boolean=False
Private lock As PhoneWakeState
Dim stg As AriaSharedPreferences
End Sub
Sub Service_Create
lock.PartialLock
WiFi_Socket.Initialize("WiFi_Socket")
stg.Initialize("s5")
ServerIp=stg.GetString("IpAddress","192.168.1.50")
Port=stg.GetString("Port","808")
Service.AutomaticForegroundMode = Service.AUTOMATIC_FOREGROUND_NEVER
End Sub
Sub WiFi_Socket_Connected (connected As Boolean)
If connected = True Then
Dim vibr As PhoneVibrate
vibr.Vibrate(200)
connection=True
TcpStreams.Initialize(WiFi_Socket.InputStream,WiFi_Socket.OutputStream,"tcpStreams")
Main.connectionState=1
CallSub(Main,"SetState")
StartService(Me)
Else if userdisconnect=False Then
Dim vibr As PhoneVibrate
vibr.Vibrate(500)
connection=False
Main.connectionState=2
CallSub(Main,"SetState")
Else If userdisconnect=True Then
connection=False
Main.connectionState=3
CallSub(Main,"SetState")
userdisconnect=False
' Main.Button1.TextColor = Colors.RED
End If
End Sub