روشن و خواموش اینترنت (دیتا یا وای فای)

[Alireza.Ghafari 2,104]

دوستان یه سوال چطور میشه تعریف کرد که با باز شدن نرم افزار activity create هر 2 دقیقه یکبار شبکه دیتا به مدت 30 ثانیه روشن و پس از اون خواموش بشه ؟؟

ممنون میشم پاسخ بدید

[Alireza.Ghafari 2,104]

آقا کسی نمیدونه ؟؟؟؟؟؟؟؟؟*che?*

[مجید آرتا 5,875]

ارل یک همچین کدی رو قرار داده شما میتونید تست کنید :

[/b][color=#0000FF]Sub [/color][color=#000000]SetMobileData(Enabled [/color][color=#0000FF]As[/color][color=#000000] Boolean)
  [/color][color=#0000FF]Dim[/color][color=#000000] r [/color][color=#0000FF]As[/color][color=#000000] [/color][color=#008B8B]Reflector[/color][color=#000000]
  r.Target = r.GetContext
  r.Target = r.RunMethod2([/color][color=#800000]"getSystemService"[/color][color=#000000], [/color][color=#800000]"connectivity"[/color][color=#000000], [/color][color=#800000]"java.lang.String"[/color][color=#000000])
  r.Target = r.GetField([/color][color=#800000]"mService"[/color][color=#000000])
  r.RunMethod2([/color][color=#800000]"setMobileDataEnabled"[/color][color=#000000], Enabled, [/color][color=#800000]"java.lang.boolean"[/color][color=#000000])
[/color][color=#0000FF]End Sub[/color][b]

واسه وایفا هم میتونید کتابخونه WifiDirect رو ببنید و یا اینکه با اینتنت میشه یا نه تست کنید.

[amirhossein.kashan 22]

این کد را بزن می اید

Sub SetMobileData(Enabled As Boolean)

Dim r AsReflector

r.Target = r.GetContext

r.Target = r.RunMethod2("getSystemService", "connectivity", "java.lang.String")

r.Target = r.GetField("mService")

r.RunMethod2("setMobileDataEnabled", Enabled, "java.lang.boolean")

End Sub