نمایش نتایج: از شماره 1 تا 6 , از مجموع 6

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

  1. #1


    آخرین بازدید
    2014/09/29
    تاریخ عضویت
    May 2012
    نوشته ها
    16
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

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

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

  2.  

  3. #2


    آخرین بازدید
    2022/06/28
    تاریخ عضویت
    May 2010
    محل سکونت
    بلژیک
    نوشته ها
    174
    امتیاز
    108
    سپاس
    0
    سپاس شده
    119 در 53 پست
    تعیین سطح نشده است

    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


    آخرین بازدید
    2014/09/29
    تاریخ عضویت
    May 2012
    نوشته ها
    16
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

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

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

  6. #4


    آخرین بازدید
    2014/09/29
    تاریخ عضویت
    May 2012
    نوشته ها
    16
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

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

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

    Gateway

  7. #5


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

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

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

  8. سپاس ها (1)


  9. #6


    آخرین بازدید
    2021/02/22
    تاریخ عضویت
    May 2012
    محل سکونت
    تهران
    نوشته ها
    142
    امتیاز
    6
    سپاس
    50
    سپاس شده
    18 در 9 پست
    سطح اکسل
    35.00 %

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

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

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


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

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

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

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

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

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

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

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

علاقه مندی ها (Bookmarks)

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

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