إعـــــــلان

**فرح صالحي فرح صالحي** · 22-01-2015, 03:25 PM

كود:

Application.SaveValue("abou_belkiss2015", "10", "20");("11", "21");("12", "22");

**الحارث بن فيصل الحارث بن فيصل** · 22-01-2015, 04:55 PM

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

**ثامر أبو بلقيس ثامر أبو بلقيس** · 22-01-2015, 05:02 PM

أخي فرح صالحي
الكود الذي أرسلت ياحبذا لو ترسله في ملف مفتوح
شكرا

**ثامر أبو بلقيس ثامر أبو بلقيس** · 22-01-2015, 05:03 PM

المشاركة الأصلية بواسطة الحارث بن فيصل مشاهدة المشاركة

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

شكرا أخي مرور عطر

**فرح صالحي فرح صالحي** · 22-01-2015, 05:50 PM

السلام عليكم ورحمة الله وبركاته
اعتذر
الكود غير صحيح ولا يعمل
أتأكد يوما بعد يوم انني لم اخلق للبرمجة .
موفق بإذن الله ..

. لك مني أجمل تحية .

**ثامر أبو بلقيس ثامر أبو بلقيس** · 22-01-2015, 05:58 PM

موفق بإذن الله ... لك مني أجمل تحية .

**الجارف الجارف** · 22-01-2015, 06:36 PM

جرب هذا الكود أستاذ ثامر
وسيتم حفظ القيم key و value

كود PHP:


Application.SaveValue("abou_belkiss2015", "", ""); 



a ="" 

b = "Registry.GetKeyNames (HKEY_CURRENT_USER, *Software\\Indigo Rose\\ACData"..a.."*)"; 

bel="" 

if b then 

d = Registry.GetKeyNames(HKEY_CURRENT_USER, "Software\\Indigo Rose\\ACData"..a) 

if d ~= nil then 

total = Table.Count(d);     

t = 0;   

r = total; 

belkiss = 0; 

for dd = t, r do 

belkiss = belkiss + 1; 

natiga = Table.Concat(d, "", belkiss, belkiss); 

bel=bel..natiga.."\r\n" 

end 

end 

end 

Dialog.Message("Notice",bel);

**عبود عبود عبود عبود** · 22-01-2015, 07:10 PM

الحفظ يكون فى النظام " الرجيسترى "

**ثامر أبو بلقيس ثامر أبو بلقيس** · 22-01-2015, 08:23 PM

المشاركة الأصلية بواسطة الجارف مشاهدة المشاركة

جرب هذا الكود أستاذ ثامر
وسيتم حفظ القيم key و value

كود PHP:


Application.SaveValue("abou_belkiss2015", "", ""); 



a ="" 

b = "Registry.GetKeyNames (HKEY_CURRENT_USER, *Software\\Indigo Rose\\ACData"..a.."*)"; 

bel="" 

if b then 

d = Registry.GetKeyNames(HKEY_CURRENT_USER, "Software\\Indigo Rose\\ACData"..a) 

if d ~= nil then 

total = Table.Count(d);     

t = 0;   

r = total; 

belkiss = 0; 

for dd = t, r do 

belkiss = belkiss + 1; 

natiga = Table.Concat(d, "", belkiss, belkiss); 

bel=bel..natiga.."\r\n" 

end 

end 

end 

Dialog.Message("Notice",bel);

سلمت أناملك أستاذ فقط وجبت الاشارة إلى جعل البرنامج مسؤولا
في غير الــ xp

بارك الله فيك

----------------
:shokr:

**ثامر أبو بلقيس ثامر أبو بلقيس** · 22-01-2015, 08:26 PM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

الحفظ يكون فى النظام " الرجيسترى "

الأكواد السابقة في مشاركة الأخ الجارف أثبتت ذلك أستاذي الكريم

:abc_9:

**الجارف الجارف** · 23-01-2015, 01:54 AM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

الحفظ يكون فى النظام " الرجيسترى "

**الجارف الجارف** · 23-01-2015, 01:57 AM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

سلمت أناملك أستاذ فقط وجبت الاشارة إلى جعل البرنامج مسؤولا
في غير الــ xp

بارك الله فيك

----------------
:shokr:

أصبح من الضروري عند استخدام أي اصدار أعلى من الـ XP

أن يكون المستخدم Administrator

بالتوفيق أستاذ ثامر

**الجارف الجارف** · 23-01-2015, 12:25 PM

بما أن السؤال عبارة عن تمرين ..

هل يمكننا استدعاء أسماء معينة دون غيرها ؟
ما الشرط الذي يمكن أن نضعه قبل التخزين حتى يتم لنا ذلك ؟؟؟

أرك لك التفكير في ذلك

**ثامر أبو بلقيس ثامر أبو بلقيس** · 23-01-2015, 12:45 PM

نعم أخي الجارف عند تطبيق الكود سيتم استدعاء كل الاسماء
المخزنة في هذا المجلد ACData سواء كان التخزين تم من برنامجنا
أو هي قيمة سابقة عرفنا نصف الطريق ووجب التفكير في كيفية
استخلاص ما تم تخزينه دون غيره .... هناك لمسة برمجية غائبة أين ؟ متى ؟ كيف سيتم التغلب
على المشكلة ؟ لا أدري
هل نخزن أسماء المجلدات قبل العملية ثم تتم المقارنة و ترك الأسماء الأولى؟
هل نشترط أن يكون التخزين أرقاما و من ثمة يسهل عند الاستدعاء اشتراط الاسماء الرقمية ؟
كثيرة هي التساؤلات لكن يعلم الله أني لا أملك حلا و ما أشرت له فعلا معضلة بالنسبة لي
إن شاء الله ... يوفق أحدنا يوما في ذلك

تقديري

إعـــــــلان

تمرين : استدعاء بيانات

تمرين : استدعاء بيانات

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك