[Maza Faka]

amel27,

Вообще, случай с этим HH забавный »

Хмм.. интересная информация, как я понял функция HtmlHelp вызывается отдельным потоком и вероятно это вызывает ошибку? Может в будущих версиях AutoIt-а эта функция будет работать нормально...

[Котяра]

Maza Faka, а как после этого запустить fontinst.exe? Добавить в конец батника
fontinst.exe /f fontinst.inf
?

Проблема решилась созданием файла clickme.bat

Код:

call fontinst.cmd
fontinst.exe /f fontinst.inf

[DENoszone]

помогите скрипт перестал вставлять title . и пустое окно делает.

PHP код:

#include <IE.au3>                While 1      $oIE = _IECreate ("http://www.yandex.ru/yandsearch?random=071215722&stype=www&randomtext=1&lr=187", 0, 1, 0)      WinWait("[Class:IEFrame]")  WinSetState("[Class:IEFrame]", "", @SW_MAXIMIZE)      _IELoadWait ($oIE)      Send("{F5}")        $oIE_2 = _IECreate ("http://nigma.ru")       WinWait("[Class:IEFrame]")        WinSetState("[Class:IEFrame]", "", @SW_MAXIMIZE)        _IELoadWait ($oIE_2)      $oForm = _IEFormGetObjByName ($oIE_2, 0)      $oQuery = _IEFormElementGetObjByName ($oForm, 0)        $sTitle = StringReplace(_IEPropertyGet($oIE,"title"), "Яндекс:", "")      $sTitle = StringStripWS($sTitle, 3)              _IEFormElementSetValue ($oQuery, $sTitle)      _IEFormSubmit ($oForm)      Sleep(5000)  MouseClick("left", 69, 293, 1, 1)   Sleep(2000)  MouseClick("left", 394, 329, 1, 1)   Sleep(2000)  MouseClick("left", 379, 355, 1, 1)   Sleep(5000)    Do      WinClose("[Class:IEFrame]")  Until Not WinExists("[Class:IEFrame]")      ;~ RunWait(@ComSpec & " /c " & 'taskkill /im iexplore.exe /f', "", @SW_HIDE)        Sleep(1000)  WEnd 

[amel27]

DENoszone

скрипт перестал вставлять title »

не улавливаю смысл скрипта, но титул окна можно менять и без _IE-функций:

Код:

#include <IE.au3>

$oIE = _IECreate ("http://www.yandex.ru/yandsearch?random=071215722&stype=www&randomtext=1&lr=187", 0, 1, 0, 0)
WinSetState("", "", @SW_MAXIMIZE)

_IELoadWait($oIE)
$sTitleOld = _IEPropertyGet($oIE, "title")
$sTitleNew = StringStripWS(StringReplace($sTitleOld,"Яндекс:", ""), 3)
WinSetTitle($sTitleOld, "", $sTitleNew)

[DENoszone]

берет тайтл с яндекса и вставляет в поиск нигмы

[amel27]

берет тайтл с яндекса и вставляет в поиск нигмы »

как вариант:

Код:

#include <IE.au3>

$oIE = _IECreate("http://www.yandex.ru/yandsearch?random=071215722&stype=www&randomtext=1&lr=187", 0, 0, 0)
_IENavigate ($oIE, "http://www.yandex.ru/yandsearch?random=071215722&stype=www&randomtext=1&lr=187")

$sTitle = _IEPropertyGet($oIE, "title")
$sTextFind = StringStripWS(StringReplace(_IEPropertyGet($oIE, "title"),"Яндекс:", ""), 3)

$oIE = _IECreate("http://nigma.ru", 0, 1, 0, 0)
WinSetState("", "", @SW_MAXIMIZE)
_IELoadWait($oIE)

$oForm = _IEFormGetCollection($oIE, 0)
$oElement = _IEFormElementGetObjByName($oForm, "s")
_IEFormElementSetValue($oElement, $sTextFind)
_IEFormSubmit($oForm)

тот же вариант, оптимизированный по скорости загрузки:

Код:

#include <IE.au3>

_IEErrorHandlerRegister ("MyErrFunc")

$oIE = _IECreate("http://www.yandex.ru/yandsearch?random=071215722&stype=www&randomtext=1&lr=187", 0, 0, 0)
_IENavigate ($oIE, "http://www.yandex.ru/yandsearch?random=071215722&stype=www&randomtext=1&lr=187", 0)
Do
    Sleep(100)
    $iError = 0
    $sTitle = _IEPropertyGet($oIE, "title")
Until $iError=0

$sTextFind = StringStripWS(StringReplace(_IEPropertyGet($oIE, "title"),"Яндекс:", ""), 3)
$oIE = _IECreate("http://nigma.ru", 0, 1, 0, 0)
WinSetState("", "", @SW_MAXIMIZE)
Do
    Sleep(100)
    $oForm = _IEFormGetCollection($oIE, 0)
Until @error=0
Do
    Sleep(100)
    $oElement = _IEFormElementGetObjByName($oForm, "s")
Until @error=0

_IEFormElementSetValue($oElement, $sTextFind)
_IEFormSubmit($oForm)

Func MyErrFunc()
    $iError = $oIEErrorHandler.number
EndFunc

[DENoszone]

эээ не пашет

[nevson]

Подскажите,пожалуйста,как средствами AutoIT можно узнать количество байт,принятых через Dial-Up соединение?

[Creat0R]

Нужна помошь по ускорению работы функции:

Код:

Func __UTF8ToUnicode($Utf8String)
    Local $BufferSize = StringLen($Utf8String) * 2
    Local $Buffer = DllStructCreate("byte[" & $BufferSize & "]")

    DllCall("Kernel32.dll", "int", "MultiByteToWideChar", _
        "int", 65001, _
        "int", 0, _
        "str", $Utf8String, _
        "int", StringLen($Utf8String), _
        "ptr", DllStructGetPtr($Buffer), _
        "int", $BufferSize)

    Local $UnicodeBinary = DllStructGetData($Buffer, 1)
    Local $UnicodeHex1 = StringReplace($UnicodeBinary, "0x", "")
    Local $StrLen = StringLen($UnicodeHex1)
    Local $UnicodeString, $UnicodeHex2, $UnicodeHex3

    For $i = 1 To $StrLen Step 4
        $UnicodeHex2 = StringMid($UnicodeHex1, $i, 4)

        If $UnicodeHex2 = "0000" Then ContinueLoop

        $UnicodeHex3 = StringRegExpReplace($UnicodeHex2, "(..).(.)", "\2\1")
        $UnicodeString &= ChrW(Dec($UnicodeHex3))
    Next

    $Buffer = 0

    Return $UnicodeString
EndFunc

С большими блоками текста довольно медленно отрабатывает, всё дело в цикле, я уже пробовал разные комбинации вместо String*, но ничего значительно не ускорялось.. Или быть можеть есть другой вариант преобразовать UTF-8 в юникод? (UTF-16?)

Самое странное это то, что с одним и тем же текстом с файла, обрабатывает быстро, но текст с которым я работаю, получается с сети (вот кстати ссылка для желающих потестить, можно использовать _InetGetSource(), хотя я использую TCP функции, но результат тот же). Т.е сохранив текст в файл, и проверив с него (используя отдельный скрипт), функция быстрее (намного) обрабатывает чем саму переменную)...

[Creat0R]

“Век живи, век учись! © ”

Оказывается, любая обработка строк (функции String*) будет в несколько раз замедлена если вы используете «Opt("ExpandEnvStrings", 1)» или «Opt("ExpandVarStrings", 1)» .

Я в скрипте как раз использую Opt("ExpandEnvStrings", 1), поэтому обработка была медленнее, проверял же в другом скрипте, который создаётся и запускается из этого родительского скрипта.