Welcome to بیسیک فور ایکس

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.

H@mid.RS

گرفتن اطلاعات گوشی ios در بیسیک فور ای او اس

1 ارسال در این موضوع قرار دارد

چند چیز رو می تونید بگیرید که در زیر کد هاشونو اوردم،


مدل دستگاه، اسمش و ...



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

در پناه حق


پسند شده توسط nasim و Sina

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری