Как с помощью AutoIt узнать что директория, а что файл? Я сделал так, но может можно проще

Код:

If FileChangeDir("C:\Windows") Then
 MsgBox (0, "Info", "This is Directory!", "")
Else
MsgBox (0, "Info", "This is File!", "")
EndIF

[Sanja Alone]

Paki

Можно ли сделать например какой нибудь ini файл или что нибудь такое, откуда будет тянуться значение клавиши

Ес-но, можно - FAQ (раздел "Работа с ini-файлами"). Код буде выглядеть примерно так:

Код:

$ini=@ScriptDir & '\my.ini'
$HotKey=IniRead($ini,"Section","HotKey","{F1}") ;последний параметр - значение по ум. (если параметр HotKey отсутствует в файле или ini-файла вообще нет)
HotKeySet("'"&$HotKey&"'", "go")

[amel27]

Snejok

Так же, как из командной строки - используя обратный слэш в конце имени, пример:

Код:

; Прием параметра из командной строки
If $CmdLine[0]=0 Then
  Exit
Else
  $file=$CmdLine[1]
EndIf

Код:

; Убираем оконечные слэши
While StringRight($file,1)="\"
  $file=StringLeft($file,StringLen($file)-1)
Wend
; Определяем тип
If FileExists ($file & "\") Then
  MsgBox(0,"","This is Directory!")
Else
  If FileExists ($file) Then
   MsgBox(0,"","This is File!")
  Else
   MsgBox(0,"","File or Directory Not Exist!")
  EndIf
EndIf

Уточнение получения объекта AutoIt3X при технологии VBScript.

Запись из AutoIt_ru.chm для AutoIt3X, которая приведена ниже, машина
в моем случае применения метода CreateObject() воспринимает как 429-ю
ошибку -- не может создать объект! Поэтому надо ли указывать путь к
autoit3.exe? Или запись, которая ниже, позволяет найти autoit3.exe где
угодно, даже на съемном диске (USB-диске)? Или моя первая строка для
"fso" обладает недостатком, который приводит к невозможности создания
объекта "oAutoIt" при записи из AutoIt_ru.chm? Также есть ли какая-л.
литература на рус. языке с примерами применения AutoIt3Х? Пожалуйста,
подскажите решение для CreateObject(" ???? ").

Код:

Dim fso, oAutoIt
Set fso = GetObject("c:\windows\wscript.exe", "WScript.Application")
Set oAutoIt = fso.CreateObject("AutoItX3.Control")
oAutoIt.WinClose "Microsoft Internet Explorer", ""

[amel27]

rhtu

Set oAutoIt = WScript.CreateObject("AutoItX3.Control") oAutoIt.WinClose "Untitled - Notepad", ""

Пример взят из справки

[nsergeip]

Не сталкивался, но, если ты здесь приведешь инфу о той кнопке, полученную с пом. AutoIt Window Info ("%ProgramFiles%\AutoIt3\AU3Info.exe"), то, скорее всего, решение найдется (для фиксации показаний в окне AutoIt Window Info нужно нажать Ctrl+Alt+F). А для начала можешь попробовать способ из FAQ (раздел "Вввод данных / работа с элементами управления", пункты 5, 6, 7).

Код:

Вот информация полученная autoit

>>>>>>>>>>>> Window Details <<<<<<<<<<<<<
Title:	pdfFactory Pro
Class:	#32770
Size:	X: 420    Y: 206    W: 524    H: 133

>>>>>>>>>>> Mouse Details <<<<<<<<<<<
Screen:	X: 675	Y: 311
Cursor ID:	2

>>>>>>>>>>> Pixel Color Under Mouse <<<<<<<<<<<
RGB:	Hex: 0xECE9D8	Dec: 15526360

>>>>>>>>>>> Control Under Mouse <<<<<<<<<<<
Size:		X: 221    Y: 67    W: 75    H: 23
Control ID:	2
ClassNameNN:	Button1
Text:		ОК

>>>>>>>>>>> Status Bar Text <<<<<<<<<<<


>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
ОК
pdfFactory Pro was successfully installed!

To use pdfFactory Pro, just print to the pdfFactory Pro printer from any Windows application.

>>>>>>>>>>> Hidden Window Text <<<<<<<<<<<

скрипт вот такой писал, не работает почему-то

Код:

WinWaitActive("pdfFactory Pro","OK")
Send("{TAB}")
Send("{ENTER}")

[dark_n]

Имеется такой скрипт.

run("\\neiwton\auditscaner\ina32.exe") sleep(200) WinActivate("") sleep(200) send("{Enter}") sleep(200) WinWaitActive("Inventory Analyzer") sleep(200) send("{Enter}")

Когда я запускаю его ,все работает ,как надо.
1) Когда я закидываю его в автозапуск : ina32.exe при входе в систему появляется ,но на окне нет фокуса, соответственно я не могу послать в окно нажатие клавиши.Даже не представляю почему WinActivate("") не срабатывает(у окна нет заголовка т.е. title). !!??
2)как можно послать {Enter} определенной кнопке на окне?

Заранее спасибо.

[nsergeip]

Вот скрипт

Код:

Run("Setup.exe")
WinWaitActive("pdfFactory Pro","Да")
Send("{ENTER}")
WinWaitActive("pdfFactory Pro License Agreement","accept the terms")
Send("{TAB}")
Send("{ENTER}")
WinWait("pdfFactory Pro")
if WinWaitActive("pdfFactory Pro","Да",2) Then
Send("{TAB}")
Send("{ENTER}")
WinWaitActive("pdfFactory Pro","ОК")
Send("{TAB}")
Send("{ENTER}")
Else
WinWaitActive("pdfFactory Pro","ОК")
Send("{TAB}")
Send("{ENTER}")
EndIf

Этим скриптом я устанавливаю pdfFactory/ Проблема в том что если на компе установлена уже эта программа то окно

Код:

Press CTRL-ALT-F to pause the display.

>>>>>>>>>>>> Window Details <<<<<<<<<<<<<
Title:	pdfFactory Pro
Class:	#32770
Size:	X: 429    Y: 341    W: 620    H: 126

>>>>>>>>>>> Mouse Details <<<<<<<<<<<
Screen:	X: 536	Y: 431
Cursor ID:	2

>>>>>>>>>>> Pixel Color Under Mouse <<<<<<<<<<<
RGB:	Hex: 0xECE9D8	Dec: 15526360

>>>>>>>>>>> Control Under Mouse <<<<<<<<<<<
Size:
Control ID:
ClassNameNN:
Text:

>>>>>>>>>>> Status Bar Text <<<<<<<<<<<


>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
&Да
&Нет
Setup found settings from a previous installation of pdfFactory Pro.  Would you like to import those settings now?

>>>>>>>>>>> Hidden Window Text <<<<<<<<<<<

появляется, но если уже программа была у становлена то оно не появляется.
ВОПРОС: как написать этот скрипт правильно, так чтобы было предусмотрено то что программа уже имеется, и то что ее еще нет.

[Sanja Alone]

All
На этом форуме принято приводить листинги внутри тэга code !
По теме - Прочтите FAQ !!!


nsergeip

не работает почемуто

Да потому, что у тебя (скорее всего) в каждом окне текст "ОК" есть Попробуй так (это очень перестраховочный способ):

Код:

WinWait("pdfFactory Pro","successfully installed")
WinActivate("pdfFactory Pro","successfully installed")
WinWaitActive("pdfFactory Pro","successfully installed")
Send("{TAB}")
Send("{ENTER}")

А на эту кнопку можно и сразу нажать: ControlClick("pdfFactory Pro","successfully installed","Button1")

Вот скрипт

фрагмент:

Код:

if WinWaitActive("pdfFactory Pro","Да",2) Then
Send("{TAB}")
Send("{ENTER}")
WinWaitActive("pdfFactory Pro","ОК")
Send("{TAB}")
Send("{ENTER}")
Else
WinWaitActive("pdfFactory Pro","ОК")
Send("{TAB}")
Send("{ENTER}")
EndIf

заменить на:

Код:

if WinWait("pdfFactory Pro","Да",2) Then
WinActivate("pdfFactory Pro","Да")
WinWaitActive("pdfFactory Pro","Да")
Send("{TAB}")
Send("{ENTER}")
EndIf
WinWaitActive("pdfFactory Pro","ОК")
Send("{TAB}")
Send("{ENTER}")

Этот способ (наряду с другими) описан в FAQ, а вопрос неоднократно разбирался в старой теме - начни с этого поста и прочитай ответы на него.


dark_n

WinActivate("")

1. Пустые кавычки в кач-ве аргумента означают последнее активное окно, а при старте из автозапуска вполне возможно, что нужное тебе окно не является таковым. Нужно вписать хотя-бы что-то из этого окна (если нет заголовка, то можно написать WinActivate("","Текст")).
2. ControlClick, ControlSend.

[dark_n]

Код:

run("\\neiwton\auditscaner\ina32.exe")
sleep(2000)
WinActivate("", "Inventory Anlyzer")
sleep(200)
WinWaitNotActive("","Inventory Anlyzer")
send("{Enter}")
sleep(200)
WinActive("Inventory Analyzer")
sleep(200)
send("{Enter}")

почему-то при первом входе в систему(exe-шник скрипта выполняется при входе в систему)

Код:

WinActivate("", "Inventory Anlyzer")

не срабатывает,окно не активно
когда я делаю выход из системы а
затем вход- фокус появляется и все нормально.Почему так?.