تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف احفظ خيارات برنامجي المرفق في ملف ini ؟
#1
Question 
بسم الله الرحمن الرحيم


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

كيف احفظ خيارات برنامجي المرفق في ملف ini  ؟
نامل من الله المساعده والله يحفظكم ويرعاكم
 تحياتي


الملفات المرفقة
.rar   noort2.rar (الحجم : 8.87 ك ب / التحميلات : 45)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:
#2
اخي الكريم ارفع على موقع رفع اخر انظر للصورة
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Ahmed_Mansoor
#3
(02-09-16, 02:05 PM)سعود كتب : اخي الكريم ارفع على موقع رفع اخر انظر للصورة

اخي الكريم
 الصورة موجوده مرفقة مع البرنامج ؟؟
 تحياتي
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:
#4
الاهم يااخي الكريم ان ترفع على مواقع ليست خطيرة ...
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#5
Question 
(02-09-16, 02:30 PM)سعود كتب : الاهم يااخي الكريم ان ترفع على مواقع ليست خطيرة ...

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


الملفات المرفقة
.rar   noort2.rar (الحجم : 8.87 ك ب / التحميلات : 35)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:
#6
(02-09-16, 03:11 PM)Microformt كتب :
(02-09-16, 02:30 PM)سعود كتب : الاهم يااخي الكريم ان ترفع على مواقع ليست خطيرة ...

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

ياخي كل ماادخل موضوعك ينبهني برنامج الحماية بان الموقع احتيالي كيف لو  دخل واحد ماعنده برنامج حماية؟؟
صعب عليك تشوف موقع رفع اخر؟؟؟
لاحول ولا قوة الا بالله العلي  العظيم.
http://www.m5zn.com/
https://postimage.org/
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , أبو عمر , Ahmed_Mansoor , Ahmed_Mansoor
#7
اهلا و سهلا

صنعت لك مثالا آخر بعيداً عن المرفق السابق لوجود الفايروس
اتمنى تجربة المثال والاستفادة منه


.rar   حفظ الاعدادات Options.rar (الحجم : 34.04 ك ب / التحميلات : 225)

على الرحب  والسعة
الرد }}}
#8
تجربتي على المرفق
يجب عمل تنفيذي exe
وتجربته 

.zip   noort2.zip (الحجم : 14.06 ك ب / التحميلات : 32)
لان في اعادة التشغيل بعد غلق البرنامج ستحتاج لمساعدة من خارج التطبيق


الكود كاملا

PHP كود :
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As StringByVal lpszShortPath As StringByVal cchBuffer As Long) As Long

Private Function GetDosPath(LongPath As String) As String
Dim s 
As StringAs Long
Dim PathLength 
As Long
Len(LongPath) + 1
String(i0)
PathLength GetShortPathName(LongPathsi)
GetDosPath Left$(sPathLength)
End Function
Private 
Sub Command1_Click()
Open App.Path "\soft.ini" For Output As #1
If Me.Option1.Value True Then
Print #1, "True"
Else
Print 
#1, "False"
End If
Close #1
If Option1.Value True ThenEnd: Else Call restart
End Sub
Sub restart
()
Dim Mm As String
Mm 
Replace(App.Path "\", "", "")
Open Mm & "
Restart.bat" For Output As #1
Print #1, "
@echo"
Print #1, "
start " & GetDosPath(Mm & App.EXEName & ".exe")
Print #1, "
del " & GetDosPath(Mm & "restart.bat")
Close #1
Shell Mm & "
Restart.bat"
End
End Sub
Private Sub Form_Load()
Dim tb As Integer
Open App.Path & "
\soft.ini" For Input As #1
While Not EOF(1)
Input #1, StringHold
Option1.Value = StringHold
Wend
Close #1
If Option1.Value = False Then Option2.Value = True
End Sub 

بالتوفيق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
#9
(02-09-16, 04:35 PM)أبو عمر كتب : تجربتي على المرفق
يجب عمل تنفيذي exe
وتجربته 

لان في اعادة التشغيل بعد غلق البرنامج ستحتاج لمساعدة من خارج التطبيق


الكود كاملا

PHP كود :
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As StringByVal lpszShortPath As StringByVal cchBuffer As Long) As Long

Private Function GetDosPath(LongPath As String) As String
Dim s 
As StringAs Long
Dim PathLength 
As Long
Len(LongPath) + 1
String(i0)
PathLength GetShortPathName(LongPathsi)
GetDosPath Left$(sPathLength)
End Function
Private 
Sub Command1_Click()
Open App.Path "\soft.ini" For Output As #1
If Me.Option1.Value True Then
Print #1, "True"
Else
Print 
#1, "False"
End If
Close #1
If Option1.Value True ThenEnd: Else Call restart
End Sub
Sub restart
()
Dim Mm As String
Mm 
Replace(App.Path "\", "", "")
Open Mm & "
Restart.bat" For Output As #1
Print #1, "
@echo"
Print #1, "
start " & GetDosPath(Mm & App.EXEName & ".exe")
Print #1, "
del " & GetDosPath(Mm & "restart.bat")
Close #1
Shell Mm & "
Restart.bat"
End
End Sub
Private Sub Form_Load()
Dim tb As Integer
Open App.Path & "
\soft.ini" For Input As #1
While Not EOF(1)
Input #1, StringHold
Option1.Value = StringHold
Wend
Close #1
If Option1.Value = False Then Option2.Value = True
End Sub 

بالتوفيق
اخي العزيز
 سوال اخير
 في حال  زيادة خيار ات البرنامج كيف يصبح الكود ؟؟
 نامل المساعده والله يحفظكم ويرعاكم
 تحياتي
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
#10
يا ابن أخي
كيف يصبح الكود لا استطيع التنبؤ بذلك
لان الامر يعود للخيارات ما هي الخيارات التي تود زيادتها؟
بمعرفة الخيارات يصبح تخيل شكل الكود ممكناً
وفقك الله
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اجعل تقرير برنامجي تكون السجلات ملونه مثل الذي في الصورة التأليه ؟ Microformt 0 276 29-10-23, 07:37 PM
آخر رد: Microformt
  اختصار الكود حسب المثال المرفق abde6726 2 282 29-10-23, 11:00 AM
آخر رد: abde6726
  اختصار الكود حسب المثال المرفق abde6726 0 220 28-10-23, 05:01 PM
آخر رد: abde6726
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 241 23-10-23, 12:11 AM
آخر رد: Taha Okla
Question [vb6.0] هل هناك ادوات جديده يمكن استخدمها في تصميم برنامجي بدل ادوات فجوال البيسك ؟ Microformt 0 220 21-10-23, 07:34 PM
آخر رد: Microformt
  كيف يمكن تشغيل برنامجي على اكثر من جهاز بنفس الوقت princeofislam 1 291 14-10-23, 08:18 PM
آخر رد: princeofislam
Question [vb6.0] كيف استخدم هذه الخوارزمية في برنامجي نامل المساعدة العاجله؟ Microformt 0 224 04-10-23, 11:44 PM
آخر رد: Microformt
Question [vb6.0] كيف اعرف رقم الخطاء عند ظهور هذه الرسالة في برنامجي؟ Microformt 0 398 07-10-22, 09:51 PM
آخر رد: Microformt
Question ريد كود يجعل واجهة برنامجي فوف نوافذ البرامج عند التشغيل البرنامج ؟؟ Microformt 2 699 03-10-22, 11:26 PM
آخر رد: Microformt
Question كيف يمكن فتح ملف exe من خلال برنامجي ؟؟ Microformt 2 872 02-05-22, 12:21 AM
آخر رد: Microformt

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم