Серый форум — VBS Страница сайта с выбором элемента

Re: VBS Страница сайта с выбором элемента

null@example.com (Xameleon) — Fri, 06 Sep 2019 06:20:53 +0000

Malcev, подозрительными вещами занимаетесь, коллега.

+ открыть спойлер

Re: VBS Страница сайта с выбором элемента

null@example.com (alexii) — Thu, 05 Sep 2019 16:43:23 +0000

Malcev, разве ж я спорю с очевидным? Надо — так надо.

Re: VBS Страница сайта с выбором элемента

null@example.com (Malcev) — Thu, 05 Sep 2019 11:00:30 +0000

Когда мне надо было зарегистрировать 50000 имейлов с капчей, я таки потратил 50 евро, хоть и не контора.
К тому же есть сервисы с подпиской и наверняка есть народные версии платных решений.

Re: VBS Страница сайта с выбором элемента

null@example.com (Xameleon) — Thu, 05 Sep 2019 07:41:26 +0000

alexii, вынужден согласиться. ) Видимо Вы правы.

Re: VBS Страница сайта с выбором элемента

null@example.com (alexii) — Mon, 26 Aug 2019 13:59:24 +0000

Xameleon, Malcev, если честно, я слабо верю, что контора, где 1С-ники, пусть опосредованно, решают простую задачу на бесплатном форуме, станет тратить деньги на закупку таких приложений/сервисов (Xameleon, по ссылке — не бесплатно).

Re: VBS Страница сайта с выбором элемента

null@example.com (Malcev) — Mon, 26 Aug 2019 08:15:59 +0000

Если сервис не сработает, то можно отправлять на платные сервисы китайцам. Там копейки стоит.

Re: VBS Страница сайта с выбором элемента

null@example.com (KoTzzz) — Mon, 26 Aug 2019 03:55:37 +0000

Xameleon пишет:

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

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

Re: VBS Страница сайта с выбором элемента

null@example.com (KoTzzz) — Mon, 26 Aug 2019 03:54:18 +0000

alexii пишет:

Вот код на 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С.

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

Re: VBS Страница сайта с выбором элемента

null@example.com (Xameleon) — Sun, 25 Aug 2019 17:07:13 +0000

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

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

Re: VBS Страница сайта с выбором элемента

null@example.com (alexii) — Sun, 25 Aug 2019 16:11:07 +0000

Xameleon, а капчу кто распознавать будет?

Re: VBS Страница сайта с выбором элемента

null@example.com (Xameleon) — Sun, 25 Aug 2019 14:00:44 +0000

alexii, а еще можно создать wsc (Windows Script Component) и вызвать его из кода 1С. Тогда еще проще Ну и вдобавок можно попробовать обойтись без ie заменив ее отправкой http запросов через xmlhttp / winhttp

Re: VBS Страница сайта с выбором элемента

null@example.com (alexii) — Sun, 25 Aug 2019 10:55:38 +0000

Вот код на 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С.

Re: VBS Страница сайта с выбором элемента

null@example.com (KoTzzz) — Sat, 24 Aug 2019 19:38:39 +0000

wisgest пишет:

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

Re: VBS Страница сайта с выбором элемента

null@example.com (wisgest) — Sat, 24 Aug 2019 15:50:18 +0000

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()

Re: VBS Страница сайта с выбором элемента

null@example.com (KoTzzz) — Sat, 24 Aug 2019 12:20:12 +0000

Страница открывается, но пока не тыкается на элемент)

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