Mohamed Khaled Galal قام بنشر يناير 16, 2022 مشاركة قام بنشر يناير 16, 2022 السلام عليكم لو سمحتم اريد طريقه اضافه ip جهاز المستخدم في صفحه تسجيل الدخول او اي فورم اخر وشكرا لكم رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يناير 16, 2022 مشاركة قام بنشر يناير 16, 2022 اتفضل Public Function getMyIP() Dim myWMI As Object, myobj As Object, itm Set myWMI = GetObject("winmgmts:\\.\root\cimv2") Set myobj = myWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each itm In myobj getMyIP = itm.IPAddress(0) Exit Function Next End Function 1 رابط هذا التعليق شارك More sharing options...
Mohamed Khaled Galal قام بنشر يناير 16, 2022 الكاتب مشاركة قام بنشر يناير 16, 2022 اضفها ازاي لوسمحت رابط هذا التعليق شارك More sharing options...
Mohamed Khaled Galal قام بنشر يناير 16, 2022 الكاتب مشاركة قام بنشر يناير 16, 2022 43 دقائق مضت, ابو جودي said: اتفضل Public Function getMyIP() Dim myWMI As Object, myobj As Object, itm Set myWMI = GetObject("winmgmts:\\.\root\cimv2") Set myobj = myWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each itm In myobj getMyIP = itm.IPAddress(0) Exit Function Next End Function اضفها ازاي لو سمحت في الفورم او التقرير رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يناير 16, 2022 مشاركة قام بنشر يناير 16, 2022 (معدل) اتفضل قم بالاطلاع على المرفق الاتى يتم وضع الروتين العام فى موديول ويتم استدعاءه من خلال اسمه حسب الحاجة كالاتى getMyIP() GetLocalIP.mdb تم تعديل يناير 16, 2022 بواسطه ابو جودي 1 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.