» AutoIT

ViSiToR

Цитата:

смотрю по списку все функции, делая логические выводы

а я в таком случае "расплываюсь", т.е. функций 5 может и "загружу", а дальше начну "мечтать"

Цитата:

если честно не представляю зачем оно кому то понадобится

это из категории "тише едеш дальше будеш" и связана со специфичностью устройства NTFS

Цитата:

Я наверное раза 3 уже приводил ссылки

так так, нашёл старую версию...
судя по лицензии я немогу изменить (даже из тех "слёз", что имеются) исходный код и выложить здесь на форуме. печально...

LEX1
Привет ! А уж думал тебя и не увидеть в этой теме.

Цитата:

А в чём проблема? Открываешь AutoIt_VC6.dsw в шестой студии

VC6 - нету такого
есть только то ,что доступно

Код: [no]Visual Studio .NET Enterprise Architect 2003
Borland C# Builder 1.0 Enterprise Edition
Borland C++ BuilderX 1.0 Enterprise
Borland Together Edition for C Plus Plus BuilderX
Borland C++ Builder Enterprise 6.0
Borland C++ Compiler 5.5
Intel C Plus Plus Compiler
Parasoft C++ Test 6.0.0.4
ASE ChartDirector C++ 3.0.4[/no]

mark4s
16:50 22-12-2007
Цитата:

Хотелось бы чтобы все делалось через tcp функции автоита, а не через IE.au3.

Конвертишь post-форму в get и посылаешь полученную строку с помощью _INetGetSource(). Из ответа достаёшь ссылку. Тебе же файл надо залить, а это только POST может. Поищи готовые функции.

euheny
08:39 24-12-2007
Цитата:

Visual Studio .NET Enterprise Architect 2003

Там есть проект (AutoIt_VC7.vcproj) и для неё.


Цитата:

Посмотрю, а что там с лицензией ?

GPL.


Цитата:

и кстакти - я ничего не нашёл на русском

С этим плохо, да.

LEX1

НУ явот я с колько не искал, так и ненашел такой функии ни где, единственное что было найдено так вот это http://www.autoitscript.com/forum/index.php?s=&showtopic=41610&view=findpost&p=309600
но эта функция не пашет! м ((

mark4s
Как вариант

Цитата:

$dll = DllOpen("UploadFile.dll")
$return = DllCall($dll, "str", "UploadFile","str","http://localhost/rt.htm", "str","fileupload", "str","C:\My_doc\pic26.png")
DllClose($dll)
msgbox(0, "", $return[0])

На выходе текст страницы.

LEX1

Цитата:

Как вариант

А реализацию можно увидеть? - Странно что на AutoIt это не так просто, вроде обычное(?) обращение с Post-запрсом... я на оф. форуме всё обыскал, так и не нашёл ничего работающего.

Я например хотел бы иметь доступ в файловый архив на http://my.opera.com/files/ (в мою учётную запись естественно), т.е чтобы можно было туда заливать файлы используя AutoIt скрипт... но видимо это не так уж просто.

ViSiToR
02:28 26-12-2007
Цитата:

А реализацию можно увидеть?

Код: library UploadFileTo;

uses KOL, HttpSend;

function UploadFile(Url, FieldName, FileName: PChar): PChar; stdcall;
var strim: PStream;
StLst: PStrList;
begin
StLst := NewStrList;
strim := NewReadFileStream( FileName );
HttpPostFile(Url, FieldName, ExtractFileName(FileName), strim, StLst);
Result := PChar(StLst.Text);
end;

exports
UploadFile name 'UploadFile';
begin
end.

LEX1
Спасибо, будем изучать

ViSiToR
02:28 26-12-2007
Цитата:

Странно что на AutoIt это не так просто, вроде обычное(?) обращение с Post-запрсом

Если речь про IE.au3, то причина может быть в безопасности. Скажем отправить файл средствами javascript-а нельзя ни в одном браузере.
Можно кстати, посмотреть ещё в сторону использования wininet.dll и HttpSendRequest.


Цитата:

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

«чего-то ссылка не пашет
Доблестные норвежцы проверяют реферрер. Если перейти из закладок, то работает, а если с другого сайта, то облом.»
Или с какими-то типами файлов это работает?
А реализацию можно посмотреть в oSync-e.

Ну этот спомоб не совсем удобен тем что нада гдето брать UploadFile.dll
поэтому уже не почучится уплоадэра одним exe

Вот нашел библиотеку HTTP.au3, она отправляет POST запросы, но как прикрутить к ней отправку файлов, ведь файлы вроде загоняются в base64 и передаются на сервер, также есть либа base64.au3

LEX1

Цитата:

Если речь про IE.au3, то причина может быть в безопасности

Как раз с использованием IE.au3 это гораздо проще (если не считать ограничения безопасности).


Цитата:

Можно кстати, посмотреть ещё в сторону использования wininet.dll и HttpSendRequest.

Скорее всего так оно и делается, видимо ни укого (у меня в том числе) до сих пор не хватало приоритета на то чтобы реализовать это


Цитата:

с какими-то типами файлов это работает?

У меня и с Html работает, мне кажется это только для тех файлов, которые скачиваются (exe-шники и т.п).

mark4s

Цитата:

нада гдето брать UploadFile.dll

Что значит где то? LEX1 там не просто разукрасил "UploadFile.dll" (это ссылка ).


Цитата:

нашел библиотеку HTTP.au3

Я уже всю распотрашил, мне кажется она не приспособлена для подобных задач.


Цитата:

файлы вроде загоняются в base64

Мне казалось в Binary... - хотя это вроде неважно во что там файл загоняется, при запросе нужно путь к файлу указывать (вроде бы, так логичнее по крайней мере).

я чет просто не понял что это ссылка.

А есть ли что-либо подобное процедуре Seek() для работы с bin-файлами?

а вот нельзя ли в этой dll поменять Application/octet-string на image/jpeg, а то скрипт на серваке отфудболивает загружаемый файл по типу Application/octet-string
а если в идеале, то былобы хорошо если тип менялся в зависимости от расширения файла(jpg,png,gif,jpeg) на:

image/jpeg
image/pjpeg
image/gif
image/png
image/x-png

mark4s
Обновил

Код: $dll = DllOpen("UploadFile.dll")
$return = DllCall($dll, "str", "UploadFile", "str","http://localhost/rt.htm", "str","fileupload", "str","image/jpeg", "str","C:\My_doc\pic26.png")
DllClose($dll)
msgbox(0, "", $return[0])

LEX1

Такой вот сприпт, но файлы не хочет заливать картинки, вываливается сообщение
"AVektor: [] out of bounds".
При чем если запускать код

Код: $dll = DllOpen("UploadFile.dll")
$rez1 = DllCall($dll, "str", "UploadFile", "str", "http://nassi.hut2.ru/eph/upload.php", "str","userfile", "str","image/gif", "str", "E:\1.gif")
DllClose($dll)
EndIf

mark4s
22:18 27-12-2007

Цитата:

$rez1 = DllCall

Цитата:

$url = StringRegExp($rez[0], '(?i)value="(.*?)"><br><br>', 3)

Объявление переменных избавляет от таких ошибок

Код: #include <Array.au3>

Run(@WindowsDir & "\Notepad.exe")
WinWait("[CLASS:Notepad]")

$aHandles = _WinGetCtrlHandlesList("[CLASS:Notepad]")

_ArrayDisplay($aHandles, "Notepad's Control's Handles List")

Func _WinGetCtrlHandlesList($sTitle, $sText="")
Local $aRetHandles[1][1]
Local $aClassList = StringSplit(_WinGetNumeratedClassList($sTitle), @CRLF, 1)

For $i = 1 To $aClassList[0]
$aRetHandles[0][0] += 1
ReDim $aRetHandles[$aRetHandles[0][0]+1][2]

$aRetHandles[$aRetHandles[0][0]][0] = $aClassList[$i]
$aRetHandles[$aRetHandles[0][0]][1] = ControlGetHandle($sTitle, "", $aClassList[$i])
Next

Return $aRetHandles
EndFunc

Func _WinGetNumeratedClassList($sTitle, $sText="")
Local $sClassList = WinGetClassList($sTitle, $sText)
Local $aClassList = StringSplit($sClassList, @CRLF)
Local $sRetClassList = "", $sHold_List = "|"
Local $aiInHold, $iInHold

For $i = 1 To UBound($aClassList) - 1
If $aClassList[$i] = "" Then ContinueLoop

If StringRegExp($sHold_List, "\|" & $aClassList[$i] & "~(\d+)\|") Then
$aiInHold = StringRegExp($sHold_List, ".*\|" & $aClassList[$i] & "~(\d+)\|.*", 1)
$iInHold = Number($aiInHold[UBound($aiInHold)-1])

If $iInHold = 0 Then $iInHold += 1

$aClassList[$i] &= "~" & $iInHold + 1
$sHold_List &= $aClassList[$i] & "|"

$sRetClassList &= $aClassList[$i] & @CRLF
Else
$aClassList[$i] &= "~1"
$sHold_List &= $aClassList[$i] & "|"
$sRetClassList &= $aClassList[$i] & @CRLF
EndIf
Next

Return StringReplace(StringStripWS($sRetClassList, 3), "~", "")
EndFunc

И ни фига не работает, все та же ошибка или я чего то не то поправил.


Код: #include <GUIConstants.au3>
$Form1 = GUICreate("ImageUpload", 340, 110, 193, 125)
$Input1 = GUICtrlCreateInput("", 5, 7, 251, 21)
$Button1 = GUICtrlCreateButton("Картинка 1", 260, 5, 75, 21, 0)
$Button6 = GUICtrlCreateButton("Загрузить ", 5, 30, 330, 21, 0)
$Edit1 = GUICtrlCreateEdit("", 5, 55, 330, 50, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUISetState(@SW_SHOW)
Dim $file1, $url, $rez1, $dll
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
exitloop
case $Msg = $Button1
$file1 = FileOpenDialog("file", "F:\1\skrin\", "Images (*.jpg;*.jpeg;*.png;*.gif)", 1)
GUICtrlSetData($Input1,$file1, " ")
case $Msg = $Button6
If $file1 Then
$dll = DllOpen("UploadFile.dll")
$rezult = DllCall($dll, "str", "UploadFile", "str", "http://nassi.hut2.ru/eph/upload.php", "str","userfile", "str",_SpFilePath($file1),"str", $file1)
DllClose($dll)
EndIf

if $file1 then
$url = StringRegExp($dt[0], '(?i)value="(.*?)"><br><br>', 3)
GUICtrlSetData($Edit1,"[img]" & $url[2] & "[/img]" & @CRLF & @CRLF, " ")
endif
endselect
WEnd

Func _SpFilePath($path)
Local $ContextType, $rez
$rez = StringSplit($path,"\",0)
$rez = $rez[$rez[0]]
$rez = StringSplit($rez,".",0)
$rez = $rez[$rez[0]]

If $rez = "jpg" Then
$ContextType = "image/jpeg"
ElseIf $rez = "gif" Then
$ContextType = "image/gif"
ElseIf $rez = "png" Then
$ContextType = "image/png"
EndIf
Return $ContextType
EndFunc

mark4s

Цитата:

все та же ошибка

Слишком много отпущенных хвостов в скрипте, у меня работает для Imageshack, вот расширенный пример применения:


Код: #include <GUIConstants.au3>

$GUI = GUICreate("Image Upload", 340, 140)

$Image_Input = GUICtrlCreateInput("", 5, 7, 300, 21)
$SF_Button = GUICtrlCreateButton("...", 310, 5, 25, 23)

$Progress = GUICtrlCreateProgress(5, 30, 300, 18, $PBS_SMOOTH)

$Upload_Button = GUICtrlCreateButton("Загрузить ", 5, 50, 330, 21, 0)

$Edit = GUICtrlCreateEdit("", 5, 75, 330, 55, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))

GUISetState(@SW_SHOW)

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $SF_Button
$sFile = FileOpenDialog("Open File", "", "Images (*.jpg;*.jpeg;*.png;*.gif)", 1)
GUICtrlSetData($Image_Input, $sFile)
Case $Upload_Button
$Read_Input = GUICtrlRead($Image_Input)
If Not FileExists($Read_Input) Then ContinueLoop

GUISetState(@SW_DISABLE, $GUI)
$pHwnd = ProgressCreate($GUI)

$aRet = DllCall(@ScriptDir & "\UploadFile.dll", "str", "UploadFile", _
"str", "http://www.imageshack.us/index.php", _
"str", "fileupload", _
"str", _GetContentType($Read_Input), _
"str", $Read_Input)
$Extract_URL = StringRegExp($aRet[0], '(?i)(?s).*value="(.*)"/>.*', 1)

GUICtrlSetData($Edit, $Extract_URL[UBound($Extract_URL)-1] & @CRLF & @CRLF)
GUICtrlSetData($Progress, 100)

GUISetState(@SW_ENABLE, $GUI)
GUIDelete($pHwnd)
FileDelete(@TempDir & "\Temp_Prgrs_Script.au3")
EndSwitch
WEnd

Func ProgressCreate($hWnd)
Local $Ret_hWnd = GUICreate("__Progress_GUI__")

Local $aPos = WinGetPos($hWnd)

Local $iLeft = $aPos[0] + 7
Local $iTop = $aPos[1] + 52

Local $sScript = '#NoTrayIcon' & @CRLF
$sScript &= '$Gui = GuiCreate("", 300, 18, ' & $iLeft & ', ' & $iTop & ', ' & $WS_POPUP & ')' & @CRLF
$sScript &= '$Progress = GUICtrlCreateProgress(0, 0, 300, 18, ' & $PBS_SMOOTH & ')' & @CRLF
$sScript &= 'GUISetState()' & @CRLF
$sScript &= 'While WinExists("__Progress_GUI__")' & @CRLF
$sScript &= ' $ReadProgress = GUICtrlRead($Progress, 1) + 2' & @CRLF
$sScript &= ' If $ReadProgress >= 100 Then $ReadProgress = 0' & @CRLF
$sScript &= ' GUICtrlSetData($Progress, $ReadProgress)' & @CRLF
$sScript &= ' Sleep(50)' & @CRLF
$sScript &= 'WEnd' & @CRLF
$sScript &= 'GUIDelete($Gui)'

$hFile = FileOpen(@TempDir & "\Temp_Prgrs_Script.au3", 2)
FileWrite($hFile, $sScript)
FileClose($hFile)

Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @TempDir & '\Temp_Prgrs_Script.au3"')

Return $Ret_hWnd
EndFunc

Func _GetContentType($sPath)
Return "image/" & StringRegExpReplace($sPath, "^.*\.", "")
EndFunc

народ, помогите решить задачу

Есть сеть из 10 пользователей, который в свои папки(имена на русском) на сетевом компе сбрасывают doc pdf и сканы-jpg.

Задача такая - рекрурсивно периодичсеи обходить каталоги и отбирать по словарю, что делать с этим типом файлов. Что-то вроде этого:

rules.ini
[doc]
hello copy d:\doc\hello\
wbr copy d:\doc\wbr
анекдот DELETE

[pdf]
hello copy d:\pdf\hello\
wbr copy d:\pdf\wbr
анекдот DELETE

Вопросы:
1. Как рекурсивно обходить подкаталоги для поиска файлов?
2.Как наиболее грамотно читать конфиг файла rules.ini, можно ли это делать в таком формате вообще.
3. как наиболее грамотно искать в файлах - с помощью какой функции? Все будет искаться в txt файлах, я буду делать из pdf и jpg с помощью pdf2txt и файнридера соответственно, как в пакетном режиме конвертировать doc в txt?
4. можно ли изменить иконку в трее от стандартной?

Подтолкните хотя бы в нужном направлении

zero1632
Привет.

Цитата:

1. Как рекурсивно обходить подкаталоги для поиска файлов?

Полистай несколько страниц назад, приводилось несколько примеров.


Цитата:

2.Как наиболее грамотно читать конфиг файла rules.ini, можно ли это делать в таком формате вообще.

В справке по AutoIT-у очень грамотно описано. А формат должен быть такой hello copy=d:\doc\hello\


Цитата:

3. как наиболее грамотно искать в файлах - с помощью какой функции? Все будет искаться в txt файлах, я буду делать из pdf и jpg с помощью pdf2txt и файнридера соответственно, как в пакетном режиме конвертировать doc в txt?

Смотри в справке FileRead(); FileReadLine; _FileReadToArray()


Цитата:

4. можно ли изменить иконку в трее от стандартной?

Конкретней пожалуйста, с примерами.

zero1632

Цитата:

Как наиболее грамотно читать конфиг файла rules.ini, можно ли это делать в таком формате вообще.

Стандартный формат ini файла:

Код: rules.ini
[doc]
hello=copy d:\doc\hello\
wbr=copy d:\doc\wbr
анекдот=DELETE

[pdf]
hello=copy d:\pdf\hello\
wbr=copy d:\pdf\wbr
анекдот=DELETE

zero1632
По вопросам...

1. Тут уже пару раз приводил/и функцию для рекусривного поиска подкаталогов, теперь она есть и в шапке (под Общие вопросы и решения на Autoit:).

2. IniRead().

3. [more=Функция для поиска в файле]

Код: #cs --------------------------------------------------------------------------------------------------------------------
Author: Function _FindTextInFile() was modified by G.Sandler a.k.a CreatoR (originaly by Sanja Alone)
Script Function: Find Text in file (matching whole word)
#ce --------------------------------------------------------------------------------------------------------------------

#include <Array.au3>

$File = "Test.txt|My File.ini"
$Text = "Some text"

$FindVar = _FileFindText($File, $Text, 0, 1)

If Not @error Then
For $i = 1 To $FindVar[0][0]
MsgBox(262144+64, "Found №" & $i, _
"The Text <" & $Text & "> was found [" & $FindVar[0][0] & "] times totaly in file(s)..." & @LF & _
"Current search results (" & $i & " from " & $FindVar[0][0] & ") for file: " & @LF & _
"<" & $FindVar[$i][0] & ">" & @LF & @LF & _
"This line include the needed text: <" & $FindVar[$i][1] & ">" & @LF & _
"The № of line is: <" & $FindVar[$i][2] & ">" & @LF & _
"The position of founded text in line is: <" & $FindVar[$i][3] & ">")
Next
ElseIf @error = 1 Then
MsgBox(262144+16, "Error", "Unable to locate the File:" & @LF & "[" & $File & "]")
ElseIf @error > 0 Then
MsgBox(262144+48, "Error", "The Text [" & $Text & "] was not found in file(s):" & @LF & "[" & $File & "]")
EndIf

;===============================================================================
; Description: Find text in file.
; Parameter(s): $iFile - File name to search in, $Text - text to find.
; $MatchWholeWordFlag - flag that defines if serch will match whole word, or search all occurrences.
; $CaseSense - Defines if the search will be case sensitive.
; Requirement(s): AutoIt 3.2.2.0.
; Return Value(s): On seccess - Returns 2-d array, that include fallowing elements:
; $RetArr[$n][0] = The actualy whole line that include $Text.
; $RetArr[$n][1] = The number of line that $text was found in.
; $RetArr[$n][2] = The position in line that $Text was found in.
; On failure - If given file not exists, set @error to 1 and return -1...
; If the $Text was non found, then returns 0 (zero) and set @error on 2.
;
; Author(s): G.Sandler a.k.a CreatoR
;===============================================================================
Func _FileFindText($sFile, $sFindText, $MatchWholeWordFlag = 0, $iCaseSense = 0)
If Not StringInStr($sFile, "|") And Not FileExists($sFile) Then Return SetError(1, 0, -1)

Local $aFilesArr = StringSplit($sFile, "|"), $hFile
Local $iCount = 0, $iLineN = 0, $sCurrentLine, $iMatch = 1, $iStrPos, $aRetArr[1][1]

For $i = 1 To UBound($aFilesArr)-1
If FileExists($aFilesArr[$i]) Then
$hFile = FileOpen($aFilesArr[$i], 0)
While 1
$sCurrentLine = FileReadLine($hFile)
If @error = -1 Then ExitLoop
$iLineN += 1
If StringIsASCII($sFindText) Then
$iStrPos = StringInStr($sCurrentLine, $sFindText)
Else
$sCurrentLine = StringLower($sCurrentLine)
$iStrPos = StringInStr($sCurrentLine, StringLower($sFindText))
$sFindText = StringLower($sFindText)
EndIf
If StringInStr($sCurrentLine, $sFindText, $iCaseSense) Then
If $MatchWholeWordFlag = 1 Then
If StringStripWS(StringMid($sCurrentLine, $iStrPos - 1, 1), 2) = "" And _
StringStripWS(StringMid($sCurrentLine, $iStrPos + StringLen($sFindText), 1), 2) = "" Then
$iMatch = 1
Else
$iMatch = 0
EndIf
EndIf
If $iMatch = 1 Then
$aRetArr[0][0] += 1
ReDim $aRetArr[$aRetArr[0][0]+1][4]
$aRetArr[$aRetArr[0][0]][0] = $aFilesArr[$i]
$aRetArr[$aRetArr[0][0]][1] = $sCurrentLine
$aRetArr[$aRetArr[0][0]][2] = $iLineN
$aRetArr[$aRetArr[0][0]][3] = $iStrPos
EndIf
EndIf
WEnd
FileClose($hFile)
EndIf
Next
If UBound($aRetArr) <= 1 Then Return SetError(2, 0, 0)
Return $aRetArr
EndFunc

Господа, стоит задача автоматически формировать html - файл из скрипта. С точки зрения скорости как лучше будет - формируемые строки сразу писать в конец html (FileWrite или FileWriteLine), или добавлять их в конец массива (_ArrayAdd), а затем этот массив разом писать в файл (_FileWriteFromArray)?
И чем отличается FileWrite от FileWriteLine?

Tipulatoid
Операционка кэширует операции записи, т.ч. особой разницы быть не должно. Да и эта функция использует тот же FileWrite.

Цитата:

И чем отличается FileWrite от FileWriteLine?

Во втором случае в конец строк добавляется CRLF.

Может кто подскажет, где найти редактор для AutoIt (только не SCITE, и не PSPad, UltraEdit), чтобы тоже был суфлер кода, подсветка и т.д.

Kauffman

Цитата:

где найти редактор для AutoIt

AutoItPad?


Цитата:

только не SCITE

Чем он плох?

Как открыть в едиторе скрипт ,имеющий в своем имени пробелы ( 'Пример 1.au3') ?

ShellExecute("C:\Program Files\SciTE\SciTE.exe ",'Пример 1.au3')
и
RunWait("C:\Program Files\SciTE\SciTE.exe "&'Пример 1.au3')

пытаются открыть 2 файла : 'Пример' и '1.au3'

gregaz
Кавычки добавь Это абсолютно стандартное поведение для винды.

Код: [no]RunWait("C:\Program Files\SciTE\SciTE.exe " & '"Пример 1.au3"')[/no]

LEX1,спасибо