كيفية صنع ملف بامتداد خاص لبرنامجك

تمام الف شكر . تحيه الى الاخ رغيد

اقتباس

سؤال واحد فقط اسأله :

حاولت ان اقوم بعمل تشفير للنص بحيث لا يتم فتح الملف الخاص إلا من خلال البرنامج

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

ولكن نجت بنسبة 80% وفشلت فى تطبيق الكود

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

ارجو الاطلاع من الاخوة على الكود وتعديله

up

up

up

up

up

:(

جزاك الله خير

السلام عليكم

شكرا لك على الكود

اريد تعديل بسيط علة

وهو عدم فتح اكثر من نسخة من البرنامج

وعند فتح ملف جديد يفتح فى نفس النافذة

انا استخدمت App.PrevInstance = True

ولكنى فشلت

فكيف افعل ذلك

هل من حل ؟؟؟؟

الظاهر أنك لم تعرف طريقة إستخدامها

تفضل:

Private Sub Form_Load()
If App.PrevInstance = True Then End

End Sub

(مشاركة فارغة)

بالنسبة لمشكلة التشفير أستخدم أى لوغاريتم تشفير سريع.

بالنسبة للمشكلة التانية قبل ما النسخة التانية تفقل بالكود لازم تبعت للنسخة الأولى مسار الملف التانى لفتحة و ده عن طريق DDE أو أرسال Command Line Arguments للبرنامج المفتوح أبحث فى موقع http://www.vbaccelerator.com/home/VB/index.asp ستجد الحل.

أعتقد ياأخ Ahmed_fouad أن الفكرة قد وضحت الآن

أي أنك تريد إغلاق البرنامج الأول عند فتح البرنامج الثاني

msayed2004 كتب:

قبل ما النسخة التانية تفقل بالكود لازم تبعت للنسخة الأولى مسار الملف التانى لفتحة و ده عن طريق DDE أو أرسال Command Line Arguments

شكرا لك اخى الكريم

الآن تريد كود لإغلاق البرنامج من إنهاء المهمة

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

وإذا كان هناك أعضاء يعرفون ذلك فليتفضلوا

و الأخ amawi يطلب نفس الكود على الرابط:

/index.php?showtopic=116315

السلام عليكم

انا وجدت هذا الكود واستخدمة الان وهو لاغلاق نافذة بواسطة الاسم

Public Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)
Public Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)

Public Const WM_CLOSE = &H10


Public Sub CloseAppByTitle(strTitle As String)
  Dim lngHwnd As Long

  lngHwnd = FindWindow(vbNullString, strTitle)

  SendMessage lngHwnd, WM_CLOSE, 0, 0
End Sub

ولتنفيذ الامر استخدم هذا

CloseAppByTitle (اسم البرنامج)