-
اطلاعیه ها
-
جذب نیرو پنجشنبه, 10 فروردین 1396
درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید -
تغییر نام کاربری دوشنبه, 28 فروردین 1396
درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند -
کسب درآمد پنجشنبه, 31 فروردین 1396
دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند -
راه اندازی وبلاگ برای انجمن دوشنبه, 18 اردیبهشت 1396
درود به همه دوستان عزیز از این پس کاربران ویژه - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
-
برای دنبال کردن، ابتدا وارد شوید
دنبال کنندگان
0

برنامه نویسی برای کلید صدا در ای او اس با basic4ios
توسط
H@mid.RS، در IOS سورس کد
-
مطالب مشابه
-
توسط H@mid.RS
چند چیز رو می تونید بگیرید که در زیر کد هاشونو اوردم،
مدل دستگاه، اسمش و ...
Sub GetDeviceSystemName As String
' get the system name of the device
Dim device As NativeObject
device = device.Initialize("UIDevice").RunMethod("currentDevice", Null)
Dim name As Object = device.GetField("systemName").AsString
Return name
End Sub
Sub GetDeviceModel As String
' get the device model
Dim device As NativeObject
device = device.Initialize("UIDevice").RunMethod("currentDevice", Null)
Dim name As Object = device.GetField("model").AsString
Return name
End Sub
Sub GetDeviceName As String
' get the device name
Dim device As NativeObject
device = device.Initialize("UIDevice").RunMethod("currentDevice", Null)
Dim name As Object = device.GetField("name").AsString
Return name
End Sub
Sub GetIMEI As String
' get device unique identifier
Dim device As NativeObject
device = device.Initialize("UIDevice").RunMethod("currentDevice", Null)
Dim name As String = device.GetField("identifierForVendor").AsString
Return name
End Sub
Sub GetPackageName As String
' get your app package name
Dim no As NativeObject
no = no.Initialize("NSBundle").RunMethod("mainBundle", Null)
Dim name As Object = no.RunMethod("objectForInfoDictionaryKey:", Array("CFBundleIdentifier"))
Return name
End Sub
Sub GetAppName As String
' get app name
Dim no As NativeObject
no = no.Initialize("NSBundle").RunMethod("mainBundle", Null)
Dim name As Object = no.RunMethod("objectForInfoDictionaryKey:", Array("CFBundleDisplayName"))
Return name
End Sub
Sub GetVersion As String
Dim no As NativeObject
no = no.Initialize("NSBundle").RunMethod("mainBundle", Null)
Dim name As Object = no.RunMethod("objectForInfoDictionaryKey:", Array("CFBundleShortVersionString"))
Return name
End Sub
در پناه حق