[RaggiTech]

كاتب الموضوع : Islam Ibrahim

السلام عليكم ورحمة الله تعالى وبركاته

في هذا المقال سأحاول أن أوضح بعض النقاط التي قد تخفى عن الكثير, أثناء استخدام أداة التحكم Web browser. بصراحة لم أتعمق في الموضوع وتفاصيله, فبمجرّد أن اكتشفته سارعت بمشاركتكم به, لذلك فالدعوة عامة للمشاركة بالآراء, والأفكار, وتوضيح ما هو غامض.

هناك خاصية تمتاز بها أداة التحكم Web Browser وهي ActiveXInstance والتي تعيد أداة ActiveX لـ Internet Explorer الأصلية, والغريب في الأمر أنها تعيد كائن من النوع Object وهذا ما يثير الغموض حولها.

يمكن من خلال هذه الخاصية تنفيذ أوامر لا يمكن تنفيذها مباشرة من خلال أداة التحكم WebBrowser نفسه من خلال الأسلوب ExecWB الذي يمكن تمريره للخاصية ActiveXInstance, وإمرار معاملات إليها حسب الطلب, لكن يجب الحذر من استخدامها فالاستخدام الخاطئ لها يمكن أن يؤدي إلى حدوث استثناءات Exceptions لقدّر الله .

وهذا تركيب الدالة ExecWB:

كود :

Sub ExecWB(ByVal cmdID As Long, ByVal CmdExecopt As OLECMDEXECOPT, Optional ByVal pvaIn As Object = Nothing, Optional ByVal pvaOut As Object = Nothing)

المعلِّمات:
CmdId
من النوع Long, وهو يمثل الإجراء المطلوب تنفيذه وهو يأخذ أحد القيم التالية (بعض الأوامر غامضة لا أحد يعلمها, لكن منها ما هو معروف):

كود :

Public Enum OLECMDID
OLECMDID_OPEN = 1 ' إظهار مربع الحوار فتح
OLECMDID_NEW = 2 ' فتح صفحة جديدة
OLECMDID_SAVE = 3 ' حفظ الصفحة الحالية
OLECMDID_SAVEAS = 4 ' إظهار مربع الحوار حفظ باسم
OLECMDID_SAVECOPYAS = 5 ' حفظ نسخة باسم
OLECMDID_PRINT = 6 ' طباعة المستند الحالي
OLECMDID_PRINTPREVIEW = 7 ' عرض مربع الحوار معاينة قبل الطباعة
OLECMDID_PAGESETUP = 8 ' عرض مربع إعداد الصفحة
OLECMDID_SPELL = 9
OLECMDID_PROPERTIES = 10 ' عرض مربع الحوار خصائص
OLECMDID_CUT = 11 ' قص
OLECMDID_COPY = 12 ' نسخ
OLECMDID_PASTE = 13 ' لصق
OLECMDID_PASTESPECIAL = 14 ' لصق خاص
OLECMDID_UNDO = 15 ' تراجع
OLECMDID_REDO = 16 ' إعادة
OLECMDID_SELECTALL = 17 ' تحديد الكل
OLECMDID_CLEARSELECTION = 18 ' مسح التحديد
OLECMDID_ZOOM = 19 'تكبير
OLECMDID_GETZOOMRANGE = 20 ' لا أعلم وظيفتها
OLECMDID_UPDATECOMMANDS = 21 ' لا اعلم وظيفتها
OLECMDID_REFRESH = 22 ' الله أعلم لتحديث الصفحة
OLECMDID_STOP = 23 ' الله أعلم لإيقاف التحميل
OLECMDID_HIDETOOLBARS = 24 ' إخفاء شريط الأداوات يظهر التأثير فقط على Internet Explorer
OLECMDID_SETPROGRESSMAX = 25 ' تعيين أقصى خد لاداة التقدم
OLECMDID_SETPROGRESSPOS = 26
OLECMDID_SETPROGRESSTEXT = 27
OLECMDID_SETTITLE = 28
OLECMDID_SETDOWNLOADSTATE = 29
OLECMDID_STOPDOWNLOAD = 30
OLECMDID_ONTOOLBARACTIVATED = 31
OLECMDID_FIND = 32 ' البحث على ويب
OLECMDID_DELETE = 33 ' حذف عنصر ما
OLECMDID_HTTPEQUIV = 34
OLECMDID_HTTPEQUIV_DONE = 35
OLECMDID_ENABLE_INTERACTION = 36
OLECMDID_ONUNLOAD = 37
OLECMDID_PROPERTYBAG2 = 38
OLECMDID_PREREFRESH = 39
OLECMDID_SHOWSCRIPTERROR = 40
OLECMDID_SHOWMESSAGE = 41
OLECMDID_SHOWFIND = 42 ' عرض مربع الحوار Find
OLECMDID_SHOWPAGESETUP = 43
OLECMDID_SHOWPRINT = 44
OLECMDID_CLOSE = 45
OLECMDID_ALLOWUILESSSAVEAS = 46
OLECMDID_DONTDOWNLOADCSS = 47
OLECMDID_UPDATEPAGESTATUS = 48
OLECMDID_PRINT2 = 49
OLECMDID_PRINTPREVIEW2 = 50
OLECMDID_SETPRINTTEMPLATE = 51
OLECMDID_GETPRINTTEMPLATE = 52
OLECMDID_PAGEACTIONBLOCKED = 55
OLECMDID_PAGEACTIONUIQUERY = 56
OLECMDID_FOCUSVIEWCONTROLS = 57
OLECMDID_FOCUSVIEWCONTROLSQUERY = 58
OLECMDID_SHOWPAGEACTIONMENU = 59
OLECMDID_ADDTRAVELENTRY = 60
OLECMDID_UPDATETRAVELENTRY = 61
OLECMDID_UPDATEBACKFORWARDSTATE = 62
OLECMDID_OPTICAL_ZOOM = 63
OLECMDID_OPTICAL_GETZOOMRANGE = 64
OLECMDID_WINDOWSTATECHANGED = 65
End Enum

Cmdexecopt
من النوع CMDEXECOPT (ترقيم enumeration ) , وهو يمثل خيار التنفيذ.

كود :

Public Enum CMDEXECOPT
OLECMDEXECOPT_DODEFAULT = 0
OLECMDEXECOPT_PROMPTUSER = 1
OLECMDEXECOPT_DONTPROMPTUSER = 2
OLECMDEXECOPT_SHOWHELP = 3
End Enum

1. OLECMDEXECOPT_DODEFAULT المطالبة من المستخدم بإدخال كائن ما أم لا، وهو عادة الخيار الافتراضي.
   
2. LECMDEXECOPT_PROMPTUSER تنفيذ الأمر بعد الحصول على إدخال المستخدم.
   
3. OLECMDEXECOPT_DONTPROMPTUSER تنفيذ الأمر دون عرض مطالبة للمستخدم. على سبيل المثال، النقر فوق زر الطباعة في شريط الأدوات يؤدي إلى طباعة المستند مباشرةً دون تدخّل المستخدم.
   
4. OLECMDEXECOPT_SHOWHELP إظهار التعليمات المتعلّقة بالأمر, دون تنفيذه.
   

pvaIn اختياري, يستخدم لإدخال وسيطات خاصة حسب الأمر.
pvaOut اختياري, يستخدم لتعيين وسيطات الإخراج.

مثال: لتحديد كافة المستند.

كود :

WebBrowser1.ActiveXInstance.ExecWB(OLECMDID_SELECTALL,2,Nothing)

وللحديث بقية.