Что нового

Взять и вставить значение из одной формы в другую!

quickmouse

Новичок
Сообщения
13
Репутация
0
Ребята, кто шарит в коде и синтаксисе прошу помощи, написал скрипт, но он немного некорекктно работает, действия простейшие, прошу помочь, аська 207 три нуля 816, разумеется не за бесплатно!
 

MnM

Post-Hardcore
Сообщения
679
Репутация
90
Re: Помощь в 2х строках кода

Вы не туда пишите, если вы хотите оплачивать чьи то услуги, перейдите в платный раздел. Если уж совсем в 2-ух строчках нужна помощь, то выкладывайте, здесь вам могут и бесплатно помочь!
quickmouse сказал(а):
аська 207000816, разумеется не за бесплатно!
Или у вас есть что скрывать? ;)
 
Автор
Q

quickmouse

Новичок
Сообщения
13
Репутация
0
Re: Помощь в 2х строках кода

Код:
WinActivate("XRumer") 
ControlClick ( "XRumer", "", "[CLASS:TTeButton; INSTANCE:15]") 
Global $file=FileOpen ( "D:\xrumermail.txt", 1 ) 

For $emails = 1 To 1000 Step 1 
ControlClick ( "Просмотр проекта", "", "[CLASS:TTeButton; INSTANCE:5]") 
sleep(200)
[color=red]$xrumlogin=ControlGetText ( "Просмотр проекта", "", "TTeEdit18" ) [/color]
[color=yellow]$ran=String(Random(1,99,1)) [/color]
Sleep(500)
[color=blue]ControlSetText ("Просмотр проекта", "", "TTeEdit4", $xrumlogin & $ran ) [/color]
Sleep(500)
ControlClick ( "Просмотр проекта", "", "[CLASS:TTeButton; INSTANCE:2]") 
Sleep (5000)
$buttonvalue=ControlGetText ( "Просмотр проекта", "", "[CLASS:TTeButton; INSTANCE:2]" ) 
While $buttonvalue=="Registering…" 
Sleep (1000)
$buttonvalue=ControlGetText ( "Просмотр проекта", "", "[CLASS:TTeButton; INSTANCE:2]" )
WEnd
$buttonvalue=ControlGetText ( "Просмотр проекта", "", "[CLASS:TTeButton; INSTANCE:2]" )
Sleep (1000)

if $buttonvalue=="registered" or $buttonvalue=="registered other" Then
$emailpass=ControlGetText ( "Просмотр проекта", "", "[CLASS:TTeEdit; INSTANCE:3]" )
$emaillogin=ControlGetText ( "Просмотр проекта", "", "[CLASS:TTeEdit; INSTANCE:4]" )
FileWrite($file, $emaillogin & ";" & $emailpass & @CRLF)
EndIf
Sleep(2000)
Next



Действие из синей строки не выполняется во время работы( Выручайте!
 

MnM

Post-Hardcore
Сообщения
679
Репутация
90
Re: Помощь в 2х строках кода

Код:
ControlSetText ("Просмотр проекта", "", "TTeEdit4", $xrumlogin & $ran )

Дело в том, что вы указали TTeEdit4, к сожалению это не элемент!
Вам следует воспользоваться утилитой "AutoIt Window Info" которая включена в установку стандартного AutoIt. При использовании переведите указатель из окна на ваш элемент, после в кладке Control будет указан Id элемента, который вы доложны вписать вместо "TTeEdit4", в основном Id указан в цифрах
ID
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Re: Помощь в 2х строках кода

quickmouse

Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.


Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

"Помощь в 2х строках кода" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, ваш Администратор.










Предупреждение За нарушение правил форума (пункт В.11):
Любые отрывки AutoIt кода необходимо заключать в тег [autoit]
autoit.gif
(подробнее), а обычный код соответственно в тег [code]
code.gif
(подробнее). Также большие выдержки текста помещайте под тег [spoiler]
spoiler.gif
(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.


С уважением, ваш Администратор.
 

MnM

Post-Hardcore
Сообщения
679
Репутация
90
Re: Помощь в 2х строках кода

И еще обрамлять код тегами "autoit][/autoit" :smile:


Добавлено:
Сообщение автоматически объединено:

Код:
$xrumlogin=ControlGetText ( "Просмотр проекта", "", "TTeEdit18" )

Кстати, тут тоже ошибка - и снова в ID'е, TTeEdit18 такого ID нет :smile:
По вашим "ID" осмелюсь предположить что вы раннее программировали на ЯП C или еще каких ни будь подобных=)
 
Автор
Q

quickmouse

Новичок
Сообщения
13
Репутация
0
Re: Помощь в 2х строках кода

Заменил значения на цифры, вот как выглядит код сейчас, но ничего не изменилось :'(
Код:
WinActivate("XRumer") 
ControlClick ( "XRumer", "", "[CLASS:TTeButton; INSTANCE:15]") 
Global $file=FileOpen ( "D:\xrumermail.txt", 1 ) 

For $emails = 1 To 1000 Step 1 
ControlClick ( "Просмотр проекта", "", "[CLASS:TTeButton; INSTANCE:5]") 
sleep(200)
$xrumlogin=ControlGetText ( "Просмотр проекта", "", "7408840" ) 
$ran=String(Random(1,99,1)) 
Sleep(500)
ControlSetText ("Просмотр проекта", "", "3802934", $xrumlogin & $ran ) 
Sleep(500)
ControlClick ( "Просмотр проекта", "", "[CLASS:TTeButton; INSTANCE:2]") 
Sleep (5000)
$buttonvalue=ControlGetText ( "Просмотр проекта", "", "[CLASS:TTeButton; INSTANCE:2]" ) 
While $buttonvalue=="Registering…" 
Sleep (1000)
$buttonvalue=ControlGetText ( "Просмотр проекта", "", "[CLASS:TTeButton; INSTANCE:2]" )
WEnd
$buttonvalue=ControlGetText ( "Просмотр проекта", "", "[CLASS:TTeButton; INSTANCE:2]" )
Sleep (1000)

if $buttonvalue=="registered" or $buttonvalue=="registered other" Then
$emailpass=ControlGetText ( "Просмотр проекта", "", "[CLASS:TTeEdit; INSTANCE:3]" )
$emaillogin=ControlGetText ( "Просмотр проекта", "", "[CLASS:TTeEdit; INSTANCE:4]" )
FileWrite($file, $emaillogin & ";" & $emailpass & @CRLF)
EndIf
Sleep(2000)
Next

Прошу прощения, что нарушил правила! Больше такого не повторится!
 

MnM

Post-Hardcore
Сообщения
679
Репутация
90
Re: Помощь в 2х строках кода

Код:
ControlClick ( "XRumer", "", "[CLASS:TTeButton; INSTANCE:15]")

Попробуйте во всем скрипте изменить строки "[CLASS:TTeButton; INSTANCE:15]" и т.д. на ID который вы извлечёте из тех кнопок или элементов к которым требуется действие
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Re: Помощь в 2х строках кода

MnM [?]
И еще обрамлять код тегами "autoit][/autoit"
Да, это я ошибся предупреждением :whistle:.
 

MnM

Post-Hardcore
Сообщения
679
Репутация
90
Re: Помощь в 2х строках кода

Ой, забыл сказать вы ID заключили в кавычки. Этого делать не стоило бы.
Удалите кавычки и введите туда просто цифры от ID
 
Автор
Q

quickmouse

Новичок
Сообщения
13
Репутация
0
Re: Помощь в 2х строках кода

Вот так:
Код:
WinActivate("XRumer") 
ControlClick ( "XRumer", "", 2625864) 
Global $file=FileOpen ( "D:\xrumermail.txt", 1 ) 

For $emails = 1 To 1000 Step 1 
ControlClick ( "Просмотр проекта", "", 1512888) 
sleep(200)
$xrumlogin=ControlGetText ( "Просмотр проекта", "", 7408840 ) 
$ran=String(Random(1,99,1)) 
Sleep(500)
ControlSetText ("Просмотр проекта", "", 3802934, $xrumlogin & $ran ) 
Sleep(500)
ControlClick ( "Просмотр проекта", "", 10094116) 
Sleep (5000)
$buttonvalue=ControlGetText ( "Просмотр проекта", "", 10094116 ) 
While $buttonvalue=="Registering…" 
Sleep (1000)
$buttonvalue=ControlGetText ( "Просмотр проекта", "", 10094116 )
WEnd
$buttonvalue=ControlGetText ( "Просмотр проекта", "", 10094116 )
Sleep (1000)

if $buttonvalue=="registered" or $buttonvalue=="registered other" Then
$emailpass=ControlGetText ( "Просмотр проекта", "", 33951542 )
$emaillogin=ControlGetText ( "Просмотр проекта", "", 3802934 )
FileWrite($file, $emaillogin & ";" & $emailpass & @CRLF)
EndIf
Sleep(2000)
Next


и так:
Код:
WinActivate("XRumer") 
ControlClick ( "XRumer", "", "2625864") 
Global $file=FileOpen ( "D:\xrumermail.txt", 1 ) 

For $emails = 1 To 1000 Step 1 
ControlClick ( "Просмотр проекта", "", "1512888") 
sleep(200)
$xrumlogin=ControlGetText ( "Просмотр проекта", "", "7408840" ) 
$ran=String(Random(1,99,1)) 
Sleep(500)
ControlSetText ("Просмотр проекта", "", "3802934", $xrumlogin & $ran ) 
Sleep(500)
ControlClick ( "Просмотр проекта", "", "10094116") 
Sleep (5000)
$buttonvalue=ControlGetText ( "Просмотр проекта", "", "10094116" ) 
While $buttonvalue=="Registering…" 
Sleep (1000)
$buttonvalue=ControlGetText ( "Просмотр проекта", "", "10094116" )
WEnd
$buttonvalue=ControlGetText ( "Просмотр проекта", "", "10094116" )
Sleep (1000)

if $buttonvalue=="registered" or $buttonvalue=="registered other" Then
$emailpass=ControlGetText ( "Просмотр проекта", "", "33951542" )
$emaillogin=ControlGetText ( "Просмотр проекта", "", "3802934" )
FileWrite($file, $emaillogin & ";" & $emailpass & @CRLF)
EndIf
Sleep(2000)
Next


Вообще ничего не работает. В том варианте, что сделал я работало всё, не работали синяя и красная строки, но делалось!
 

MnM

Post-Hardcore
Сообщения
679
Репутация
90
Re: Помощь в 2х строках кода

Ну тогда я бессилен, и предлогаю CreatoR'у разобратся :-[


Добавлено:
Сообщение автоматически объединено:

А сможете выложить окно(программку) которая вас затрудняет?
 
Автор
Q

quickmouse

Новичок
Сообщения
13
Репутация
0
Re: Помощь в 2х строках кода

Помогите хоть кто-нибудь, у кого есть время. Для меня это очень важно! Могу включить тимвьювер!
А сможете выложить окно(программку) которая вас затрудняет?
Выложит скриншот проги, в которой мне нужна автоматизация? Я правильно понимаю?
 

MnM

Post-Hardcore
Сообщения
679
Репутация
90
Re: Помощь в 2х строках кода

Не совсем, саму программу :beer:
А еще вопросик не по теме =) что такое тимвьювер
 
Автор
Q

quickmouse

Новичок
Сообщения
13
Репутация
0
Re: Помощь в 2х строках кода

Смысл выкладывать? Вся задача сводится к тому, чтобы взять значение из одной заполненной формы и подставить в другую с добавлением генерированного числа. Грубо говоря 2 действия!


Добавлено:
Сообщение автоматически объединено:

62f9e04e788f.jpg

Ну вот, если это сильно что-то изменит!
 

MnM

Post-Hardcore
Сообщения
679
Репутация
90
Re: Помощь в 2х строках кода

Извините теперь я не "втыкаю" :smile:, почему у вас не получается
 
Автор
Q

quickmouse

Новичок
Сообщения
13
Репутация
0
Re: Помощь в 2х строках кода

Блин, я только вчера узнал о существовании AutoIt. Нужно взять значение(цифра 1 на скрине), которую я пытаюсь реализовать кодом
$xrumlogin=ControlGetText ( "Просмотр проекта", "", "TTeEdit18" )
Сгенерировать рандомное чило
И подставить в форму(цифра 2 на скрине) вместе со сгенерированным числом
ControlSetText ("Просмотр проекта", "", "TTeEdit4", $xrumlogin & $ran )
Я пытаюсь выяснить почему не выполняются эти действия! Т.е. либо я не правильно составил код, либо дело в чем-то другом, чего я не знаю и прошу помощи!
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Re: Помощь в 2х строках кода

quickmouse
отреагируй на предупреждения. в противном случае тема закроется а тебе я выдам предупреждение в профиль.
 
Автор
Q

quickmouse

Новичок
Сообщения
13
Репутация
0
Вроде всё исправил! По теме есть еще у кого соображения?
 

inververs

AutoIT Гуру
Сообщения
2,135
Репутация
465
Пишите все что в Summary утилиты Autoit Windows Info по этим двум контролам сюда.
 
Верх