تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فتح صفحة ويب بدون رساله ActiveX
#1
السلام عليكم اخواني المهندسين

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

[صورة مرفقة: 148802484587041.jpg]

Private Sub Command2_Click()
Dim obj As Object
Set obj = CreateObject("InternetExplorer.Application")
obj.Navigate2 App.Path & "\index.htm"
obj.Visible = True
End Sub
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم أخي العزيز ورحمة الله وبركاته
يمكنك التعديل على وضعية ActiveX Prompt من خلال عنصر الخيارات لصفحة Internet Explorer دون الحاجة إلى كتابة أكواد، والخطوات هي :
Internet Options > Security > Custom Level > and Set ActiveX Controls and Plugins to Disable
واعبد ربك حتى يأتيك اليقين
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#3
عذرا أخي الكريم لم ألتفت للقسم، فأنا لا أجيد Visual basic 6،
أتمنى لك التوفيق
واعبد ربك حتى يأتيك اليقين
الرد }}}
تم الشكر بواسطة:
#4
اخي khodor1985  اشكر تفاعلك

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

مطلوب نفس الطريق للاخ khodor1985 ولاكن عن طريق الاكواد
الرد }}}
تم الشكر بواسطة:
#5
ارجو المساعده
الرد }}}
تم الشكر بواسطة:
#6
شكرا لك أخي العزيز، هيدا من ذوقك
واعبد ربك حتى يأتيك اليقين
الرد }}}
تم الشكر بواسطة:
#7
?????? مساعده
الرد }}}
تم الشكر بواسطة:
#8
جرب الكود التالي
Dim x As String
x = App.Path & "\index.html"
AppActivate Shell("C:\Program Files\Internet Explorer\IExplore.exe " & x, vbMaximizedFocus)
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد }}}
#9
السيد الغالي

اشكر تفاعلك نفس المشكله
الرد }}}
تم الشكر بواسطة:



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


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