أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

إن المستعرض الذي تستخدمه غير معتمد

إنك تحتاج إلى تحديث المستعرض لاستخدام الموقع.

التحديث إلى أحدث إصدار من Internet Explorer

كيفية استدعاء الأسلوب Run() عنصر تحكم البرامج النصية ل Microsoft في c + +

هام: تمت ترجمة هذه المقالة باستخدام برامج مايكروسوفت للترجمة الآلية ومن المحتمل ان يتم تحريرها او تدقيقها بعد ذلك من خلال تكنولوجيا منصة مجموعات الترجمة(CTF) او من خلال مترجم بشري. تقدم لك شركة مايكروسوفت هذه المقالات المترجمة بشكل آلي او بالترجمة البشرية او بعد تحريرها وتدقيقها من قبل مجموعات الترجمة حتى تمكنكم من الوصول إلى جميع المقالات الموجودة في قواعد المعرفة لديها بلغات مختلفة. إلا أن المقالات المترجمة قد تحتوي على أخطاء في المفردات او بناء الجمل او النحو. وعليه، فإن شركة مايكروسوفت ليست مسؤولة عن اية أخطاء او عدم دقة في الترجمة او أية أضرار قد تحدث نتيجة أخطاء في ترجمة محتويات النص او استخدامه من قبل العملاء.

اضغط هنا لرابط المقالة باللغة الانجليزية229669
الموجز
توضح هذه المقالة كيفية استخدام عنصر تحكم البرامج النصية ل Microsoft لاستدعاء دوال أو روتين فرعي المعرفة في JavaScript أو VBScript.
معلومات أخرى
يحتوي عنصر التحكم البرنامج النصي الأساليب الأربعة. واحد منهم هو Run()، الذي يقوم بتشغيل روتين فرعي أو دالة. قبل استدعاء هذا الأسلوب، تعيين لغة البرنامج النصي وتعيين علوي، وإضافة البرنامج النصي التالي إلى عنصر تحكم البرنامج النصي:
//---------------------- Begin ---------------------------#include <stdio.h>#import "C:\winnt\system32\msscript.ocx"  // msscript.ocx using namespace MSScriptControl;int main(void){	HRESULT hr = CoInitialize(NULL);	IScriptControlPtr pScriptControl(__uuidof(ScriptControl));	// Create a VARIANT array of VARIANTs which hold BSTRs	LPSAFEARRAY psa;	SAFEARRAYBOUND rgsabound[]  = { 3, 0 }; // 3 elements, 0-based	int i;	psa = SafeArrayCreate(VT_VARIANT, 1, rgsabound);	if (!psa)	{		return E_OUTOFMEMORY;	}	VARIANT vFlavors[3];	for (i = 0; i < 3; i++)	{		VariantInit(&vFlavors[i]);		V_VT(&vFlavors[i]) = VT_BSTR;	}	V_BSTR(&vFlavors[0]) = SysAllocString(OLESTR("Vanilla"));	V_BSTR(&vFlavors[1]) = SysAllocString(OLESTR("Chocolate"));	V_BSTR(&vFlavors[2]) = SysAllocString(OLESTR("Espresso Chip"));	long lZero = 0;	long lOne = 1;	long lTwo = 2;	// Put Elements to the SafeArray:	hr = SafeArrayPutElement(psa, &lZero,&vFlavors[0]);	hr = SafeArrayPutElement(psa, &lOne,&vFlavors[1]);	hr = SafeArrayPutElement(psa, &lTwo,&vFlavors[2]);	// Free Elements from the SafeArray:	for(i=0;i<3;i++)	{		SysFreeString(vFlavors[i].bstrVal);	}	// Set up Script control properties	pScriptControl->Language = "JScript";	pScriptControl->AllowUI = TRUE;	pScriptControl->AddCode(		"function MyStringFunction(Argu1,Argu2,Argu3)\ 		{  return \"hi there\" ;}" );	//  Call MyStringFunction with the two args:	_variant_t outpar = pScriptControl->Run("MyStringFunction", &psa);		// Convert VARIANT to C string:	_bstr_t bstrReturn = (_bstr_t)outpar;	char *pResult = (char *)bstrReturn;	// Print the result out:	printf("func=%s\n",pResult);		//  Clean up:	SafeArrayDestroy(psa);	CoUninitialize();	return(0);}// --------------- End -----------------------				
مراجع
يمكن العثور على معلومات حول "عنصر التحكم البرنامج النصي" في موقع msdn التالي على البرمجة النصية.

يمكن العثور على معلومات إضافية في المقالات التالية في "قاعدة المعارف ل Microsoft":
184977 تصحيح: سكريبتكونترول تقارير لغة غير صالحة ل VBScript في MFC

165967 PRB: يحدث خطأ في البرنامج النصي عند الإشارة إلى صفيف غير متغيرة
تشغيل سكريبتكونترول SafeArray

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 229669 - آخر مراجعة: 07/20/2013 06:17:00 - المراجعة: 3.0

  • kbautomation kbhowto kbscript kbmt KB229669 KbMtar
تعليقات
did=1&t=">rosoft.com/c.gif?DI=4050&did=1&t=">1; var varCustomerTracking = 1; var Route = "76500"; var Ctrl = ""; document.write("