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

[HnHn 17]

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

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

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

أولا : نقوم بكتابة الشفرة التالية في التعريف العام 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

تم تعديل 24 Sep 2004 بواسطه HnHn

[فنكشن 0]

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

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

[khaled_helal 1]

شكرا اخى HNHN

[اهداء 0]

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

[g-johnny 0]

great great great great great great great great great

[remono84 0]

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

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

[HnHn 17]

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

محمد الحفار

[الليث 0]

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

[المبدعه الصغيره 0]

ما شاء الله عليك اخي HnHn

[الغنام 0]

B)

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

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

[بن حسن 8]

جزاك الله خيرا يا أخي

[eng_ashraf 9]

حياك الله

[HnHn 17]

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

تحياتي

[h_h_zone 0]

شكرا

[المهنا 1]

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

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

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

[HnHn 17]

في الجلد System32

[المهنا 1]

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

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

[صقر الزمان 2]

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

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

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

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

[رزان 0]

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

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

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

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

..؟؟؟

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

[HnHn 17]

اشكركم جميعا

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

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

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

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

فلما لا تعمل

تحياتي B)

[رزان 0]

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

[ringojet 1]

مشكووور أخى HnHn

[alexking 0]

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

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

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

flash

photoshop

html

php

hard ware

net work

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

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

[email protected]

[email protected]

[email protected]

www.alex-king.tk

مع جزيل الشكر

[seaprince46 2]

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

[HnHn 17]

:lol:

[hazzoom 158]

السلام عليكم ورحمة الله ...

شكرا علي الكود وفكرته رائعه جدا والرجاء القاء نظره علي الرابط التالي :

حل مشكلة أخطاء ال Run time errors...,