Недавние сообщения

Страницы: 1 2 [3] 4 5 ... 10
21
Стол заказов / Re: [Автоматизация] Автоматическая корректировка файла Excel
« Последний ответ от Yriy_07 Отправлен Апрель 19, 2018, 11:50:27 »
3.3.0.0
22
Стол заказов / Re: [Автоматизация] Автоматическая корректировка файла Excel
« Последний ответ от gunter123 Отправлен Апрель 19, 2018, 09:30:05 »
Какая у вас версия Autoit?
23
Стол заказов / Re: [Автоматизация] Парсинг сайта УТМ для ЕГАИС
« Последний ответ от hedji Отправлен Апрель 19, 2018, 08:56:57 »
Почитайте про StringRegExp
1 - означает, что он не нашел нужную строку, надо поиграться с регулярным выражением.
24
Стол заказов / Re: [Автоматизация] Автоматическая корректировка файла Excel
« Последний ответ от Yriy_07 Отправлен Апрель 19, 2018, 05:44:18 »
>"C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Users\ILANYURI\Desktop\autoit\as\as.au3" /UserParams   
+>08:39:23 Starting AutoIt3Wrapper v.2.2.0.3 SciTE v.3.4.1.0   Keyboard:00000409  OS:WIN_81/  CPU:X64 OS:X64    Environment(Language:0419)
+>         SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE   UserDir => C:\Users\ILANYURI\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper   SCITE_USERHOME => C:\Users\ILANYURI\AppData\Local\AutoIt v3\SciTE
>Running AU3Check (1.54.14.0)  from:C:\Program Files (x86)\AutoIt3  input:C:\Users\ILANYURI\Desktop\autoit\as\as.au3
C:\Users\ILANYURI\Desktop\autoit\as\as.au3(11,23) : ERROR: _Excel_Open(): undefined function.
$oExcel = _Excel_Open()

Ошибка выходит при запуске
25
Стол заказов / Re: [Автоматизация] Парсинг сайта УТМ для ЕГАИС
« Последний ответ от Glass4217 Отправлен Апрель 19, 2018, 04:05:17 »
Прошу прощения что долго не отвечал, отвлекся на другие задачи
Я предположил, что вы её сами в свой код добавите и докрутите.
Вместо $sUrl подставьте готовую ссылку и проверьте что получается

Про этот момент я догадался, но
Код: AutoIt [Выделить]
MsgBox(0, "", $cheks[0])
 

не работает
Код: AutoIt [Выделить]
MsgBox(0, "", $cheks)
 

работает но выдает один и тот же результат 1
26
Стол заказов / Re: [Автоматизация] Переподключиться к интернету
« Последний ответ от Dima1337 Отправлен Апрель 18, 2018, 23:54:12 »
Раз тема еще актуальна то вот пример:
Код: AutoIt [Выделить]
Global $interface = '"Беспроводная сеть"', $string = ''

While 1
    If InetGetSize("http://www.ya.ru/") = 0 Then ; Проверяем соединение, при потере продолжаем
        RunWait('netsh.exe wlan disconnect interface=' & $interface, '', @SW_HIDE)  ; Отключаемся от текущей Wifi
        Sleep(1000)

        _find_wifi() ; Ищем wifi сети ==> $wifi2

        For $i = 2 To $wifi2[0]
            RunWait('netsh.exe wlan connect name="' & $wifi2[$i] & '" interface=' & $interface, '', @SW_HIDE)  ; Подключиться
            Sleep(5000)
            If InetGetSize("http://www.ya.ru/") <> 0 Then ExitLoop
        Next
    EndIf
WEnd

Func _find_wifi()
    $iPid = Run(@ComSpec & " /c netsh wlan show networks", @ScriptDir, Default, 2) ; Запускаем коммандную строку и ищем wifi сети

    For $i = 0 To 200000
        $aRead = StdoutRead($iPid)
        If $aRead <> '' Then
            $string = $string & @CRLF & _Encoding_CyrillicTo1251($aRead) ; Парсим коммандную строку на wifi сети в прямом доступе и расшифровываем
        EndIf
    Next

    $string = StringSplit($string,@CRLF) ; Разделяем по строкам
    Global $wifi = ''

    For $i = 0 To $string[0]
        If StringInStr($string[$i], "SSID") Then ; Выбираем ТОЛЬКО SSID c WPA2 шифрованием
            If StringInStr($string[$i + 4], "WPA2") Then
                $string[$i] = StringTrimLeft($string[$i], 8)
                If StringLeft($string[$i], 1) = ' ' Then
                    $string[$i] = StringTrimLeft($string[$i], 1)
                EndIf
                $wifi = $wifi & '\' & $string[$i]
            EndIf
        EndIf
    Next

    Global $wifi2 = StringSplit($wifi,'\')
EndFunc

#Region Encoding.au3 ;==>Следующие функции необходимы для обеспечения работы скрипта

Func _Encoding_CyrillicTo1251($sString)
    Local $sEncoding = _Encoding_GetCyrillicANSIEncoding($sString)

    If $sEncoding = 'IBM-866' Then
        Return _Encoding_866To1251($sString)
    EndIf
EndFunc ;==>_Encoding_CyrillicTo1251

Func _Encoding_GetCyrillicANSIEncoding($sString)
    Local $iWIN = 0, $iDOS = 0, $iKOI = 0, $iISO = 0
    Local $aStr = StringSplit($sString, '')

    For $i = 1 To $aStr[0]
        Switch Asc($aStr[$i])
            Case 192, 224, 200, 232, 206, 238, 210, 242
                $iWIN += 1
            Case 128, 160, 136, 168, 142, 174, 146
                $iDOS += 1
            Case 225, 193, 233, 201, 239, 207, 244, 212
                $iKOI += 1
            Case 176, 208, 184, 216, 190, 222, 194
                $iISO += 1
            Case 226
                $iDOS += 1
                $iISO += 1
        EndSwitch
    Next

    If $iDOS > $iKOI And $iDOS > $iWIN And $iDOS > $iISO Then
        Return 'IBM-866'
    EndIf
EndFunc ;==>_Encoding_GetCyrillicANSIEncoding

Func _Encoding_866To1251($sString)
    Local $sResult = '', $iCode
    Local $aSplit = StringSplit($sString, '')

    For $i = 1 To $aSplit[0]
        $iCode = Asc($aSplit[$i])

        Switch $iCode
            Case 128 To 175
                $aSplit[$i] = Chr($iCode + 64)
            Case 224 To 239
                $aSplit[$i] = Chr($iCode + 16)
            Case 240
                $aSplit[$i] = Chr(168)
            Case 241
                $aSplit[$i] = Chr(184)
            Case 252
                $aSplit[$i] = Chr(185)
        EndSwitch

        $sResult &= $aSplit[$i]
    Next

    Return $sResult
EndFunc ;==>_Encoding_866To1251

#EndRegion

Скрипт будет перебором подключаться к сети.
27
Общие вопросы по AutoIt / [Процессы] Назначение прав на службу
« Последний ответ от Dellroc Отправлен Апрель 18, 2018, 23:31:59 »
Здравствуйте. Прошу помочь в разрешении проблемы: не получается назначить права на службу. Где я ошибся в коде?
Код: AutoIt [Выделить]
#include <Array.au3>
#include <Permissions.au3>
#include <Security.au3>
#RequireAdmin
Opt('MustDeclareVars',1)
Opt('TrayIconHide',1)

_InitiatePermissionResources()
Global $gDACL
Global $gPerm[0][3]
Global $tAr
Global $tAr = _Security__LookupAccountName('Test')
;~ Global $tPerm[1][3]=[[$tAr[0],1,131581]]
Global $tPerm[1][3]=[['Test',1,983551]]

;~ _ArrayDisplay($tPerm,'$tPerm')

If _SetObjectPermissions('AdobeARMservice', $SE_SERVICE, $tPerm) = 1 Then ConsoleWrite('Good'&@error&@CRLF)
If _SetObjectPermissions('AdobeARMservice', $SE_SERVICE, $tPerm) <>1 Then ConsoleWrite('Bad '&@error&@CRLF)

$gDACL = _GetObjectDACL('\\'&@ComputerName&'\AdobeARMservice',$SE_SERVICE)
_MergeDaclToArray($gDACL, $gPerm)
For $i=0 To UBound($gPerm)-1
    $gPerm[$i][0] = _Security__SidToStringSid($gPerm[$i][0])
    $tAr = _Security__LookupAccountSid($gPerm[$i][0])
    $gPerm[$i][0] = $tAr[1]&'\'&$tAr[0] ; Domain\Username
Next

_ArrayDisplay($gPerm,'$gPerm')
_ClosePermissionResources()

29
Все дело в Точке или отсутствии флага "(?s)".
Можно пример, чтобы считать текст Это item2
30
Все дело в Точке или отсутствии флага "(?s)".
Страницы: 1 2 [3] 4 5 ... 10