Код

ЗагрузитьВнешнююКомпоненту("EventProxy.dll");
ЗагрузитьВнешнююКомпоненту("RBrowser.dll");

Браузер = СоздатьОбъект("RBrowser");
Браузер.Open("http://robert.by.ru");

Обработчик = Браузер.WebBrowser.Document;

ОбработчикСобытий = СоздатьОбъект("Addin.EventProxy");
ОбработчикСобытий.ГлубинаБуфераСобытий = 200;
ОбработчикСобытий.Источник(Обработчик, "RBrowser.Document.1", "RB"); 

Код

Перем Д;
Перем Скрипт;
Перем гРФорма;
//***************************************************************
//***************************************************************
Процедура ПриОткрытии()
	Форма.Заголовок("Проверка гарантийности Qtek");
КонецПроцедуры
//***************************************************************
//***************************************************************
Процедура ПослеОткрытия()
	Попытка
		_Форма = СоздатьОбъект("Форма");
		Д = _Форма.СоздатьЭлементУправленияНаФорме(Форма, СоздатьОбъект("АктивИкс"), "HTTP");
		Д.СоздатьЭУ("Shell.Explorer.2");
		Д.Объект.Visible = - 1;
		Д.Объект.Navigate2("http://service.myqtek.com/rmsLoginBPFI.asp", 4 + 8);
		Д.Объект.StatusBar = -1;
	Исключение
	КонецПопытки;
КонецПроцедуры
//***************************************************************
//***************************************************************
Процедура HTTP_DocumentComplete()
	Если (Д.Объект.Document.URL = "http://service.myqtek.com/rmsLoginBPFI.asp") И (Д.Объект.Document.ReadyState = "complete") Тогда
		Док = Д.Объект.Document;
		IMEI = Док.getElementsByName("txtIMEI");
		IMEI.item(0).Value = Форма.Параметр;

		Отправка = Док.getElementById("cmdSearch");
		Скрипт.Reset();
		Скрипт.AddObject("Отправка", Отправка);
		Скрипт.Eval("Отправка.click()");
	ИначеЕсли (Д.Объект.Document.URL = "http://service.myqtek.com/rmsVerifyIMEI.asp") И (Д.Объект.Document.ReadyState = "complete") Тогда
		Док = Д.Объект.Document;
		Если Найти(Д.Объект.Document.body.innertext, "The IMEI number was confirmed") > 0 Тогда
			Форма.Параметр = "QTEKBP";
		Иначе
			Форма.Параметр = "";
		КонецЕсли;
		Форма.Закрыть();
	КонецЕсли;
КонецПроцедуры
//***************************************************************
//***************************************************************
Скрипт = СоздатьОбъект("MSScriptControl.ScriptControl");
Скрипт.Language = "javascript";
 

Код

	Грид = СоздатьОбъект("АктивИкс") ;
	АтрФормы.УстановитьАтрибут(Форма,"тАтрГрид");
	АтрФормы.СоздатьЭлементУправления(Грид);
	ОбъектГрид = Грид.СоздатьЭУ("MSDataGridLib.DataGrid.1");
	Грид.ОбработкаСобытий = 1;

	Данные = СоздатьОбъект("АктивИкс") ;
	АтрФормы.УстановитьАтрибут(Форма,"тАтрДанные");
	АтрФормы.СоздатьЭлементУправления(Данные);
	ОбъектДанные = Данные.СоздатьЭУ("MSAdodcLib.Adodc");
	Данные.ОбработкаСобытий = 1;
    
	ОбъектДанные.ConnectionString = "Driver={SQL Server};Server=(local); Database=prj1;Trusted_Connection=Yes;";
	ОбъектДанные.CommandType = 1;
	ОбъектДанные.RecordSource = "select * from table";
	ОбъектДанные.Refresh();

	Скрипт = СоздатьОбъект("MSScriptControl.ScriptControl");
	Скрипт.Language="vbscript";
	Скрипт.AddObject("o1", ОбъектГрид);
	Скрипт.AddObject("o2", ОбъектДанные);
	Скрипт.ExecuteStatement("set o1.DataSource = o2");