• اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
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

در پناه حق


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

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


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

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

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

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

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


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

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

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


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