[الحائطي]

السلام عليكم اخواني المهندسين

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



Private Sub Command2_Click()
Dim obj As Object
Set obj = CreateObject("InternetExplorer.Application")
obj.Navigate2 App.Path & "\index.htm"
obj.Visible = True
End Sub

[khodor1985]

السلام عليكم أخي العزيز ورحمة الله وبركاته
يمكنك التعديل على وضعية ActiveX Prompt من خلال عنصر الخيارات لصفحة Internet Explorer دون الحاجة إلى كتابة أكواد، والخطوات هي :
Internet Options > Security > Custom Level > and Set ActiveX Controls and Plugins to Disable

[khodor1985]

عذرا أخي الكريم لم ألتفت للقسم، فأنا لا أجيد Visual basic 6،
أتمنى لك التوفيق

[الحائطي]

اخي khodor1985  اشكر تفاعلك

تفاعلك للموضوع اكبر مساعده لي جزاك الله خير

---

مطلوب نفس الطريق للاخ khodor1985 ولاكن عن طريق الاكواد

[الحائطي]

ارجو المساعده

[khodor1985]

شكرا لك أخي العزيز، هيدا من ذوقك

[الحائطي]

?????? مساعده

[السيد الغالي]

جرب الكود التالي
Dim x As String
x = App.Path & "\index.html"
AppActivate Shell("C:\Program Files\Internet Explorer\IExplore.exe " & x, vbMaximizedFocus)

[الحائطي]

السيد الغالي

اشكر تفاعلك نفس المشكله