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


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

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


الملفات المرفقة
.rar   noort2.rar (الحجم : 8.87 ك ب / التحميلات : 30)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 23)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 212)

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

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


الكود كاملا

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 

بالتوفيق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
#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
يا ابن أخي
كيف يصبح الكود لا استطيع التنبؤ بذلك
لان الامر يعود للخيارات ما هي الخيارات التي تود زيادتها؟
بمعرفة الخيارات يصبح تخيل شكل الكود ممكناً
وفقك الله
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] هل يمكن العمل من برنامجي على قاعدة بيانات داخل ملف ضغظ ؟؟ Microformt 1 17 اليوم, 12:12 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] كيف استخدم علامة الاستفهام المجوده اعلاء الفورم في برنامجي المرفق؟؟ Microformt 4 84 18-11-17, 03:37 PM
آخر رد: Microformt
Question [vb6.0] كيف اغلاق ملف قاعدة بيانات اكسس مفتوحة من خلال برنامجي ؟؟ Microformt 3 94 21-09-17, 04:20 PM
آخر رد: Amir_alzubidy
  امل ان اجد احد فيكم من اعضاء المنتدى الكريم يقوم بالعديل لي علا المثال المرفق wolf1120 9 329 21-09-17, 02:06 PM
آخر رد: wolf1120
  من يقدر استبدال قاعد بيانات المثال المرفق ب (sqlite) scsi7000 1 100 19-09-17, 01:06 PM
آخر رد: Amir_alzubidy
Question [vb6.0] كيف يتم تعطيل عمل ازارار ctrl+Ait+Delete عند تشغيل برنامجي ؟؟ Microformt 4 150 13-09-17, 08:17 AM
آخر رد: Amir_alzubidy
  [سؤال] مشكلة في برنامجي أرجو حلها suzoki 1 106 08-09-17, 06:06 AM
آخر رد: suzoki
Question [vb6.0] الاستعلام برقم الموظف في برنامجي المرفق ؟ Microformt 9 245 27-08-17, 01:44 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟ Microformt 4 190 22-08-17, 07:00 PM
آخر رد: Microformt
  [vb6.0] ارجو المساعدة في حل مشكلة في البرنامج المرفق larbihamri 2 150 23-07-17, 03:19 AM
آخر رد: larbihamri

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


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