mega888 چک کردن وضعیت اینترنت – سامانه اموزشی کویک سافت

چک کردن وضعیت اینترنت

Sub check_connection As Boolean
	Dim r As Reflector
	r.Target = r.GetContext
	r.Target = r.RunMethod2("getSystemService", "connectivity", "java.lang.String")
	r.Target = r.RunMethod("getActiveNetworkInfo")

	'Log(r.Target)
	'Log(r.RunMethod("isConnected"))
	
	If r.Target <> Null Then
		Return True
	Else
		Return False
	End If
	
End Sub

 

دیدگاه خود را بنویسید