• 0
HnHn

هل تريد برنامجك يعمل في كل جهاز !

سؤال

هل تريد برنامجك يعمل في كل جهاز تفضل لتعرف الطريقة

منقول عن الاستاذ محمد الحفار

سوف نقوم بتصميم برنامج يعرفك على الملفات الضرورية التي سوف ترفقها مع برنامجك لكي يعمل

أولا : نقوم بكتابة الشفرة التالية في التعريف العام General

Public Function ReplaceIt(Original As String, Item As String, Replace As String, ReplaceAll As Boolean) As String 

If InStr(Original, Item) = False Then
ReplaceIt = Original
Exit Function
End If
If ReplaceAll = False Then
lSide$ = Left$(Original, InStr(Original, Item) - 1)
rSide$ = Right$(Original, (Len(Original) - Len(lSide$) - Len(Item)))
ReplaceIt = lSide$ & Replace & rSide$
Exit Function
End If

nStage$ = Original
Do Until InStr(nStage$, Item) = 0
lSide$ = Left$(nStage$, InStr(nStage$, Item) - 1)
rSide$ = Right$(nStage$, (Len(nStage$) - Len(lSide$) - Len(Item)))
nStage$ = lSide$ & Replace & rSide$
Loop
ReplaceIt = nStage$


End Function

ثم نقوم برسم أداة CommonDialog

و أداة L I S T

ثانياً نقوم بأدراج زر أمر Command

ثم نكتب الشفرة التالية

Private Sub Command1_Click()

CommonDialog1.Filter = "Applications (*.exe)|*.exe"
CommonDialog1.FilterIndex = 0
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.InitDir = App.Path
CommonDialog1.Action = 1

fName$ = CommonDialog1.FileName
If fName$ = "" Then Exit Sub

txtFile = fName$

'C????
If txtFile = "" Then Exit Sub
Dim tempFile As String
Dim Pos As Long
Dim StartPos As Long, EndPos As Long

List1.Clear

'exe هنا يقوم بفتح نافذة لأختيار البرنامج الذي قمت بتصميمه بعدما فمت بعمله على شكل
'HnHn
'[email protected]
'

Open txtFile For Binary As #1
tempFile = Space(LOF(1))
Get #1, , tempFile
Close #1

'
Pos = 1
Do Until InStr(Pos, tempFile, ".dll") = 0 And InStr(Pos, tempFile, ".DLL") = 0
tPos1 = InStr(Pos, tempFile, ".dll")
tPos2 = InStr(Pos, tempFile, ".DLL")

If tPos1 < tPos2 Then EndPos = tPos1 Else EndPos = tPos2
If tPos1 = 0 Then EndPos = tPos2
StartPos = EndPos - 8
Pos = EndPos + 4
For i = 1 To 8
If Asc(Mid$(tempFile, EndPos - i, 1)) = 32 Or Asc(Mid$(tempFile, EndPos - i, 1)) = 0 Then
StartPos = StartPos + (9 - i)
Exit For
End If
Next

rFile$ = LCase(Mid$(tempFile, StartPos, (EndPos - StartPos) + 4))
For i = 0 To List1.ListCount - 1
If List1.List(i) = rFile$ Then GoTo Skip_Dll
Next
List1.AddItem rFile$
Skip_Dll:
Loop

'Ocx C?E?E ?? ???CE
Pos = 1
Do Until InStr(Pos, tempFile, ".ocx") = 0 And InStr(Pos, tempFile, ".OCX") = 0
tPos1 = InStr(Pos, tempFile, ".ocx")
tPos2 = InStr(Pos, tempFile, ".OCX")
If tPos1 < tPos2 Then EndPos = tPos1 Else EndPos = tPos2
If tPos1 = 0 Then EndPos = tPos2

StartPos = EndPos - 8
Pos = EndPos + 4

For i = 1 To 8
If Asc(Mid$(tempFile, EndPos - i, 1)) = 32 Or Asc(Mid$(tempFile, EndPos - i, 1)) = 0 Then
StartPos = StartPos + (9 - i)
Exit For
End If
Next

rFile$ = LCase(Mid$(tempFile, StartPos, (EndPos - StartPos) + 4))
For i = 0 To List1.ListCount - 1
If List1.List(i) = rFile$ Then GoTo Skip_Ocx
Next
List1.AddItem rFile$
Skip_Ocx:
Loop

End Sub

OXC.zip

تم تعديل بواسطه HnHn
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

32 إجابة على هذا السؤال .

  • 0

مشكور أخي العزيز على المعلومات المهة جدا والضرورية الواجب معرفتها

تقبل تحياتي أستاذي الكريم أنت الاستاذ محمد الحفار

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا اخى HNHN

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

فعلاً انا مبهورة بهذا وجزاك الله الف خير اخى HnHn

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

great great great great great great great great great

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

طبعا بدون تجربه طالما للأستاذ محمد الحفار فلايحتاج لتجربه

وطالما انت نقلته فستفيدني فقد كنت أعرف موقع الأستاذ محمد ولكني فقدته فهل لديك موقعه حتي يمكنني زيارته ؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تفضل موقع الاستاذ

محمد الحفار

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك على هذا المجهود الطيب

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

B)

جزاك الله خيرا أخي HnHn على هذا المجهود الرائع ،،،،،،،،،،،،،،

تحياتي .......... :D

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شاكرلكم هذا التواصل تقبلوا

تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

البرنامج طلب الملفات التالية

msvbvm60.dll -1

msdbrptr.dll -2

vba6.dll -3

msflxgrd.ocx -4

mscomct2.ocx -5

msdatgrd.ocx -6

richtx32.ocx -7

msadodc.ocx -8

mscomctl.ocx -9

msmask32.ocx -10

mshflxgd.ocx -11

ontrolv2.ocx -12

crolling.ocx -13

msdatlst.ocx -14

comctl32.ocx -15

بس وين احطها عند تنصيب البرنامج بتاعي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

في الجلد System32

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بس المشكله ان برامج السيت اب setup لا تضع الملفات الا في الفايل بروقرام مجلد البرامج

هل برامج setup تسمح بخيار وضع الملفات في مجلد System32

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الاخ HnHn مشكور جدا علي هذه الفكرة الجميله والرائعه التي طالما عانيت منها

اما بخصوص الاخ العزيز : المهنا

يوجد برنامج يسمح لك بوضع الملفات في المجلد System اسمه SETUP FACTORY 6.0

ولو تريد شرح للبرنامج موجود ان شاء الله

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك أخي الفاضل HnHn

وجعل الله هذه المشاركة في ميزان أعمالك

بس سؤال حتى تقارير الكريستال ريبورت

تشتغل 100% بهذه الطريقة

..؟؟؟

بارك الله فيكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اشكركم جميعا

اخت رزان ردا على استفسارك حول

بس سؤال حتى تقارير الكريستال ريبورت

تشتغل 100% بهذه الطريقة

نــــعم لأن الكريستال ريبورت عبارة عن اداة وأذا قمتي بتثبيت الاداه في المكان المخصص

فلما لا تعمل

تحياتي B)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

وفقك الله أخي الفاضل هاني

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا جدا للاخ الكريم لقد فدتنا كثيرا

لا استطيع اقدم الشكر الكافى

انا اخوك من مصر محمد طنطاوى اذا اردت اى مساعدة فى احد هذه البرامج

flash

photoshop

html

php

hard ware

net work

او برامج صوت وتديل الصوت

ارجوك لا تتردد

[email protected]

[email protected]

[email protected]

www.alex-king.tk

مع جزيل الشكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الف شكر لك أخي الكريم على المجهود القيم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

:lol:

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .