alexii, а в чём беда ? )
1) Можно распарсив документ через HTMLDocument (htmlfile) найти ссылку на капчу, выкачать её и показать в окне юзеру, теми же средствами 1C.
2) Можно воспользоваться бесплатными сервисами для распознавания капчи типа ссылка.
И тогда от юзера вообще ничего не потребуется.

Наверное как-то так )

Не сталкивался еще с сервисами распознавания капч, спасибо. Попробуем, очень интересно.

Вот код на WSH:

Option Explicit

Const READYSTATE_COMPLETE = 4


With WScript.CreateObject("InternetExplorer.Application")
	.Navigate "https://check1.fsrar.ru/"
	
	Do
		WScript.Sleep 100
	Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
	
	With .document
		.getElementById("tab-title2").click()
		.getElementById("code_wb").value = "0123456789"
		.getElementById("owner_r1").value = "9876543210"
		.getElementById("CaptchaCode").focus()
	End With
	
	.Visible = True
End With

WScript.Quit 0

Вы можете напрячь своих программистов 1С, чтобы они тупо перевели это на язык 1С. Кроме того, можно в саму форму 1С вставить элемент управления WebControl в форму 1С и получить готовую страницу прямо на форме 1С.

Спасибо большое.

Наверное как-то так )

Option Explicit

Const READYSTATE_COMPLETE = 4


With WScript.CreateObject("InternetExplorer.Application")
	.Navigate "https://check1.fsrar.ru/"
	
	Do
		WScript.Sleep 100
	Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
	
	With .document
		.getElementById("tab-title2").click()
		.getElementById("code_wb").value = "0123456789"
		.getElementById("owner_r1").value = "9876543210"
		.getElementById("CaptchaCode").focus()
	End With
	
	.Visible = True
End With

WScript.Quit 0

Вы можете напрячь своих программистов 1С, чтобы они тупо перевели это на язык 1С. Кроме того, можно в саму форму 1С вставить элемент управления WebControl в форму 1С и получить готовую страницу прямо на форме 1С.

KoTzzz, оформляй код соответствующим тегом!

KoTzzz пишет:

For Each a In ie.document.getElementById("tab-title2")
If InStr(a.href, "viewtopic.php") > 0 Then
      a.click
  Exit For
  End If
  next

document.getElementById() возвращает элемент, а не коллекцию, какое For Each?!

Set a = ie.document.getElementById("tab-title2")
If InStr(a.href, "viewtopic.php") > 0 Then a.click()

Я тупень, извиняюсь.

Ошибка: Требуется объект 'document'
Код 800А01А8

document.getElementById() возвращает элемент, а не коллекцию, какое For Each?!

Set a = ie.document.getElementById("tab-title2")
If InStr(a.href, "viewtopic.php") > 0 Then a.click()

Set ie = CreateObject("InternetExplorer.Application")
Set WshShell = WScript.CreateObject("WScript.Shell")
ie.Visible = True
ie.Navigate "https://check1.fsrar.ru"

While ie.ReadyState <> 4 : WScript.Sleep 100 : Wend

For Each a In ie.document.getElementById("tab-title2")
If InStr(a.href, "viewtopic.php") > 0 Then
      a.click
  Exit For
  End If
  next