سورس برنامه ابزار همراه

[rezaazadeh 120]

سلام

این برنامه کارای زیادی میکنه مثلا پیام های تبلیغاتی رو بلاک میکنه سخنگوی شماره داره استخراج فایل زیپ و ... دانلود کنید ولذت ببرید

http://uploadboy.com/2oiqjrkjweas.html

[seyed_27 170]

برنامه مشکل داره اجرا نمیشه به کدها گیر میده

 

به کد ذیل گیر میده

if ها رعایت نشده

وقتی درست میکنم باز جای دیگه خطا میده و توابع رو نمیشناسه

Sub PLS_BatteryChanged (Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
 Dim slowScreen,turnoffGPS,turnoffWIFI,lowSound,silentMobile,batteryLevel,turnoffnbluetooth,stopMusic As String
Try
 batteryLevel = inf.GetString("batteryLevel")
 If batteryLevel = "" Then
  batteryLevel = 15
 End If
 If Level <= batteryLevel  Then
  slowScreen = inf.GetBoolean("stopMusic")
  stopMusic  = inf.GetBoolean("lowScreen") 
  turnoffGPS = inf.GetBoolean("turnoffGPS")
  turnoffWIFI  = inf.GetBoolean("turnoffWIFI")
  turnoffnbluetooth  = inf.GetBoolean("turnoffnbluetooth")
  lowSound   = inf.GetBoolean("lowSound")
  silentMobile  = inf.GetBoolean("silentMobile")
  If slowScreen.ToLowerCase = "true" Then
   Phone.SetScreenBrightness(10)
  End If
 
  End If
  If turnoffWIFI.ToLowerCase = "true" Then

  End If
  If turnoffnbluetooth.ToLowerCase = "true" Then
  End If
  If stopMusic.ToLowerCase = "true" Then
  End If
  If lowSound.ToLowerCase = "true" Then
   Phone.SetVolume(Phone.VOLUME_MUSIC,5,False)
   Phone.SetVolume(Phone.VOLUME_RING,5,False)
   Phone.SetVolume(Phone.VOLUME_VOICE_CALL,5,False)
  If silentMobile.ToLowerCase = "true" Then
   Phone.SetRingerMode(Phone.RINGER_SILENT)
End Sub

خطا

Error description: Missing Keyword: end if
Occurred on line: 47
End Sub

[bazaar 13]

آفرین آفرین

ج ج ج ج

[shahab.es 5,429]

تایپک فعلا قفله......