كود الحصول على الايبي للراوتر

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

وكل عام وانتم بخير

بعد اظهار رقم الآي بي للراوتر وحفظه في الجدول هل تريد الإحتفاظ بهذا الرقم او حذفه اذا ظهر لك آي بي جديد

بالتوفيق

الاستاذة / زهرة ارجو افادتنا بكلا الامرين 

وجزاك الله خيرا

ابوجمانة2009 كتب:

الاستاذة / زهرة ارجو افادتنا بكلا الامرين 

وجزاك الله خيرا

اخي الفاضل : ابو جمانه

السلام عليكم ورحمة الله وبركاته

وكل عام وانتم بخير

لقد احببت ان اتأكد من صاحب السؤال عن رغبته في ابقاء العنوان من عدمه لأنني اضفت كود استعلام حذف العناوين السابقة في حدث عند فتح النموذج

فإن اردت الإبقاء على العناوين السابقة فكل ما عليك هو ايقاف استعلام الحذف من النموذج

عموما هذا هو المثال الخاص بإستخراج عنوان الراوتر الداخلي وعنوان الأي بي الخاص بالأنترنت وسيتم حفظهما في الجدول

za-IP Address Router.rar

بالتوفيق

السلام عليكم

كل عام والجميع بالف خير

فكرة رائعة بارك الله في الجميع

اللهم ارزقها وبارك فيها

استاذتى العزيزة / ام عهود 

جزاك الله خيرا وان قلتها مدى عمرى ما اكفيك ولك كل الامتنان فكم علمتينا من روائع الاكسيس ما يكفينا ولكنى للعلم شرهة ومريد للمزيد

استاذتى / ام عهود

عند محاولة تشغيل البرنامج يعطينى خطأ فى اكواد الvba  ومرفق صورة له 

واشكر لك سعة صدرك

اخي الفاضل : ابو جمانه

البرنامج  بشكل صحيح 100 %  على جميع نسخ الأكسيس  2003 و 2007 و 2010 ولا يوجد به اي مشكلة

يظهر لك هذا الخطأ عندما لا تكون متصل بالأنترنت لأن البرنامج يقوم اولا بتحميل عنوان الإتصال من الأنترنت ثم يتم جلب العنوان الى البرنامج

لذا قم بتفعيل الإتصال وستجد ان البرنامج يعمل معك بدون اي مشاكل

بالتوفيق

السلام عليكم و رحمة الله و بركاته

اولاً اشكر الاخت زهرة على الموضوع الرائعة و بارك الله فيها و في علمها

ثانياً بعد فتح البرنامج ظهر عندي نفس مشكلة  كما عند ابو جمانة في ويندوز سفن  ثم قمت بالتغير اسم الدرايف سي الى الدرايف دي في الكود و ضبط مئة في المئة

ملاحظة:لون احرف المغيرة أحمر في كود التالي والمثال في المرفق.

Private Sub Form_Open(Cancel As Integer)
DownloadFile "http://api.exip.org/?call=ip", "D:\IPAddress.txt"

Dim strSQL As String
strSQL = "DELETE Table.[External_IP_ Address], Table.Internal_Router_IP_Address FROM [Table]"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
Me.Requery

Dim db As DAO.Database, i As Integer
Dim RS1 As DAO.Recordset, RS2 As DAO.Recordset, RetVal
Dim SourceDoc As String, str1 As String

Set db = CurrentDb
Set RS1 = db.OpenRecordset("Table")
SourceDoc = "D:\IPAddress.txt"
Open SourceDoc For Input As #1
i = 0
Do While Not EOF(1)
Line Input #1, str1
RS1.AddNew
RS1(0) = GetIPAddress()
RS1(1) = str1
RS1.Update
RetVal = SysCmd(acSysCmdSetStatus, i)
i = i + 1
Loop
Close #1
RS1.MoveFirst
RS1.Close
Me.Requery
End Sub

za-IP Address Router.rar

بارك الله بك اخي الفاضل : ابو شفيق

وكل عام وانتم بخير

ونشكرك جزيل الشكر على التنبيه

عندما يكون أمان المستخدمين او المسئولين في ويندوز 7 مرتفع جدا فلا يمكن حفظ او انشاء اي ملف إلا بعد الموافقة على ذلك

ولهذا يتعين عليكم تخفيض امان المستخدمين الى ادني ما يمكن  بهذه الطريقة

الآن يمكنكم استخدام البرنامج ليحفظ في الدرايف C  بدون التغيير في الكود البرمجي لأنه قد يكون هناك بعض الأشخاص ليس لديهم درايف D  

بسبب عدم تقسيم الهارد دسك وقد يكون الدرايف D هو السواقة الليزريه  CD-DVD

بالتوفيق

شكرا لكم جميعا على سرعة التجاوب وزادكم الله علما نافعا للناس وجعله فى ميزان حسناتكم وجزاكم الله خيرا