Новый участник
Сообщения: 2
Благодарности: 0
|
Профиль
|
Отправить PM
| Цитировать
Помогите со скриптами объеденить
Global $Paused,$hLog,$Time
#Include <Log.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>
Opt('MustDeclareVars', 1)
Вход под паролем
Код: 
читать дальше »
$bEncrypted = '0xB6A6144E1441' ; пароль Привет
Do
$pass=InputBox('Вход', 'Введите пароль', '', '*', 100, 130)
If @error=1 Then Exit
Until $pass == BinaryToString(_Crypt_DecryptData($bEncrypted, $pass, $CALG_RC4))
MsgBox(0, 'Вход', 'Пароль верный - '&$pass)
EndIf
Прогресс Бар
читать дальше »
Код: #Include <Log.au3>
Opt('MustDeclareVars', 1)
Global $hLog,$Time
$hLog = _Log_Open(@ScriptDir & '\MyProg.log', '###Event Log Files UDF Exaple###')
_Log_Report($hLog, 'Начало', 6)
ProgressOn("Началось", 'Выполнение супер операции', '',-1,-1,18)
; тут какой-то код. этап начало первых команд
Sleep(1000)
ProgressSet( 33, "Этап 1. Подключение к ядру")
; тут какой-то код. следующий этап выполнение каких-то команд
Sleep(1000)
ProgressSet( 66, "Этап 2. Отключение от ядра")
; тут какой-то код. следующий этап выполнение каких-то команд
Sleep(1000)
ProgressSet( 100, "Готово")
Sleep(100)
If $Time Then
_Log_Report($hLog, 'Ping is successful, Time = ' & $Time & ' ms', 1,2)
EndIf
_Log_Report($hLog, 'Выход', 2,1)
_Log_Close($hLog)
ProgressOff()
Отсчет в .txt ,просто надо скок раз скрипт прокручивался
читать дальше »
Код: $hLog = _Log_Open(@ScriptDir & '\MyProg.log', '###Event Log Files UDF Exaple###')
_Log_Report($hLog, 'Начало', 6)
If $Time Then
_Log_Report($hLog, 'Ping is successful, Time = ' & $Time & ' ms', 5)
Else
Switch @error
Case 1
_Log_Report($hLog, 'Ping is fails, host is offline', 1)
Case 2
_Log_Report($hLog, 'Ping is fails, host is unreachable', 2)
EndSwitch
EndIf
_Log_Report($hLog, 'Выход', 7)
_Log_Close($hLog)
Основной скрипт.
читать дальше »
Код: HotKeySet("{F4}", "_Pause")
HotKeySet("{F10}","Stop")
$a="1" ;Реклама
$b="2" ;Начало\Конец рекламы
$h = ("Окно - Хром")
Func stop()
Exit
EndFunc
Func _Pause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
While 1
WinActivate($h,"")
Sleep(Random(1000, 3000))
WinSetState($h,"",@SW_MAXIMIZE)
$hWin = WinGetHandle('Apeha - Хром')
$iX = 114
$iY = 988
$iColor = 0x0000FF
If PixelGetColor($iX, $iY, $hWin) = $iColor Then
MsgBox(0,"Пауза...","Время вышло :)")
Else
MouseClick("left",21,970)
EndIf
;...если есть
Sleep(Random(1000, 2000))
$hWin_1 = WinGetHandle('Окно - Хром')
$iX_1 = 82
$iY_1 = 974
$iColor_1 = 0x0000FF
If PixelGetColor($iX_1, $iY_1, $hWin_1) <> $iColor_1 Then
MouseClick("left",21,970)
EndIf
MouseClick("left", 164,977) ; клик в строку чата,подругому не получается
Sleep(Random(1000, 2000))
send($b)
ControlSend($h, "", "", "{Enter}") ;Отправка сообщ
$iX = 82
$iY = 974
$iColor = 0x0000FF
If PixelGetColor($iX, $iY, $hWin) <> $iColor Then
MouseClick("left",21,970)
EndIf
;...если есть
Sleep(Random(1000, 2000))
$hWin_1 = WinGetHandle('Apeha - Хром')
$iX_1 = 82
$iY_1 = 974
$iColor_1 = 0x0000FF
If PixelGetColor($iX_1, $iY_1, $hWin_1) <> $iColor_1 Then
MouseClick("left",21,970)
EndIf
Sleep(Random(1000, 2000))
send($a)
ControlSend($h, "", "", "{Enter}")
MouseClick("left", 342, 136) ;Клик на кнопку с перемещ в комнату
Sleep(Random(1000, 2000))
MouseClick("left", 356,167) ;;Клик на кнопку с перемещ в комнату
Sleep(Random(1000, 2000))
MouseClick("left", 164,977)
send($a)
ControlSend($h, "", "", "{Enter}")
Sleep(Random(1500, 2000))
MouseClick("left", 319,119)
Sleep(Random(1000, 2000))
MouseClick("left", 504,131)
Sleep(Random(1000, 2000))
MouseClick("left", 778,387)
Sleep(Random(1000, 2000))
MouseClick("left", 164,977)
Sleep(Random(1000, 2000))
send($b)
ControlSend($h, "", "", "{Enter}")
Sleep(Random(1000, 2000))
MouseClick("left", 318,113)
Sleep(Random(1000, 2000))
MouseClick("left", 507,224)
Sleep(Random(1000, 2000))
MouseClick("left", 794,509)
Sleep(Random(1000, 5000))
MouseClick("left", 791,503)
Sleep(Random(1000, 2000))
MouseClick("left", 164,977)
Sleep(Random(1000, 2000))
send($b)
ControlSend($h, "", "", "{Enter}")
MouseClick("left", 339,119)
Sleep(Random(1000, 2000))
MouseClick("left", 339,119)
Sleep(Random(1000, 2000))
MouseClick("left", 354,130)
Sleep(11*5000)
WEnd
и помогите ,чтоб в конце sleep отображался как прогресс бар примерно .
|
