quickmouse
Новичок
- Сообщения
- 13
- Репутация
- 0
Ребята, кто шарит в коде и синтаксисе прошу помощи, написал скрипт, но он немного некорекктно работает, действия простейшие, прошу помочь, аська 207 три нуля 816, разумеется не за бесплатно!
Или у вас есть что скрывать? ;)quickmouse сказал(а):аська 207000816, разумеется не за бесплатно!
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
ControlSetText ("Просмотр проекта", "", "TTeEdit4", $xrumlogin & $ran )
$xrumlogin=ControlGetText ( "Просмотр проекта", "", "TTeEdit18" )
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
ControlClick ( "XRumer", "", "[CLASS:TTeButton; INSTANCE:15]")
Да, это я ошибся предупреждением :whistle:.И еще обрамлять код тегами "autoit][/autoit"
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
Выложит скриншот проги, в которой мне нужна автоматизация? Я правильно понимаю?А сможете выложить окно(программку) которая вас затрудняет?
Сгенерировать рандомное чило$xrumlogin=ControlGetText ( "Просмотр проекта", "", "TTeEdit18" )
И подставить в форму(цифра 2 на скрине) вместе со сгенерированным числом$ran=String(Random(1,99,1))
Я пытаюсь выяснить почему не выполняются эти действия! Т.е. либо я не правильно составил код, либо дело в чем-то другом, чего я не знаю и прошу помощи!ControlSetText ("Просмотр проекта", "", "TTeEdit4", $xrumlogin & $ran )