پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 6 , از مجموع 6

موضوع: خواند IP با ویژوال بیسیک

  1. #1


    آخرین بازدید
    29 _ 09 _ 2014
    تاریخ عضویت
    May_2012
    نوشته ها
    16
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست

    خواند IP با ویژوال بیسیک

    سلام
    یه برنامه نوشتم برای اینکه امنیت ان بالا بره میخوام قبل از اجرا IP سیستم رو چک کنه اگه درست بود اجرا کنه
    کسی میدونه چجوری میشه از ویژوال بیسیک تحت اکسل اطلاعات سیستم رو خواند.
    ممنون
    اشکان
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    31 _ 03 _ 2017
    تاریخ عضویت
    May_2010
    محل سکونت
    بلژیک
    نوشته ها
    175
    امتیاز
    92
    سپاس
    0
    سپاس شده
    103 در 45 پست

    RE: خواند IP با ویژوال بیسیک

    سلام دوست عزیز.
    این تابع کد تمام اطلاعات مورد نیاز شما درباره IP کامپیوتر رو بهت برمیگرداند.

    Function GetIPAddress()
    Const strComputer As String = "." ' Computer name. Dot means local computer
    Dim objWMIService, IPConfigSet, IPConfig, IPAddress, i
    Dim strIPAddress As String

    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set IPConfigSet = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

    For Each IPConfig In IPConfigSet
    IPAddress = IPConfig.IPAddress
    If Not IsNull(IPAddress) Then
    strIPAddress = strIPAddress & Join(IPAddress, ", ")
    End If
    Next

    GetIPAddress = strIPAddress
    End Function

    Sub a()
    MsgBox GetIPAddress
    End Sub


  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    29 _ 09 _ 2014
    تاریخ عضویت
    May_2012
    نوشته ها
    16
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست

    RE: خواند IP با ویژوال بیسیک

    ممنون عزیز کارم راه افتاد امید وارم خیر ببینی

  6. #4


    آخرین بازدید
    29 _ 09 _ 2014
    تاریخ عضویت
    May_2012
    نوشته ها
    16
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست

    RE: خواند IP با ویژوال بیسیک

    سلام
    میشه اطلاعات دیگری غیر از IP رو هم از کامپی.تر خواند؟ چیزی که مختص اون باشه مثل Default

    Gateway

  7. #5


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    October_2011
    محل سکونت
    Sheet1!A1
    نوشته ها
    4,149
    امتیاز
    11585
    سپاس
    4,476
    سپاس شده
    10,967 در 2,948 پست

    RE: خواند IP با ویژوال بیسیک

    سلام
    تو فایل پیوست میشه برخی دیگه از اطلاعات سیستمی رو هم بدست اورد
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm info.xlsm اطلاعات (15.7 کیلو بایت, 10 نمایش)

  8. سپاس ها (1)


  9. #6


    آخرین بازدید
    02 _ 04 _ 2017
    تاریخ عضویت
    May_2012
    محل سکونت
    تهران
    نوشته ها
    134
    امتیاز
    5
    سپاس
    47
    سپاس شده
    17 در 9 پست

    sohrabahmadi به Yahoo ارسال پیام

    RE: خواند IP با ویژوال بیسیک

    با درود به اساتيد و دوستان گرامي كدي رو كه جنلب داوري زحمتش رو كشيدن تو ويندوز 7 جواب نميده آ. اگه از دوستان براشون امكان داره لطف كنن بگن تو ويندوز سون 64 بيتي براي تشخيص ip چكار بايد كرد ؟ با تشكر


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. استفاده از فرمول ها در ویژوال بیسیک اکسل
    توسط anahita در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 9
    آخرين نوشته: 01 _ 06 _ 2013, 17:42
  2. find در ویژال بیسیک اکسل
    توسط khorasan66 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 8
    آخرين نوشته: 23 _ 02 _ 2013, 12:44
  3. پسوردگذاری روی قسمت ویژوال بیسیک اکسل
    توسط m.estreji در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 09 _ 12 _ 2012, 17:59
  4. چگونگی بسته شدن کامل اکسل با ویژوال بیسیک
    توسط mahmood007 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 18 _ 05 _ 2011, 09:03
  5. یادگیری ویژوال بیسیک
    توسط khakzad در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 7
    آخرين نوشته: 10 _ 08 _ 2010, 11:36

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

آموزش ip ویژوال بیسیک

ip در ویژوال بیسیک

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است