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

Страницы: 1 ... 8 9 [10]
91
Общие вопросы по AutoIt / Re: Помогите с проверкой текста и добавление даты
« Последний ответ от hedji Отправлен Апрель 16, 2018, 17:40:58 »
С этой разобрался теперь выдает в самом начале. Unknown function name. :
$aList = FileReadToArray(@ScriptDir & '/123.txt')
$aList = ^ERROR

В начале кода указаны инклюды? Файлы Array.au3, File.au3, Date.au3 есть в папке C:\Program Files (x86)\AutoIt3\Include ?

Код: AutoIt [Выделить]
#include <Array.au3>
#include <File.au3>
#include <Date.au3>
 


Функция пишется с нижнего подчеркивания:
Код: AutoIt [Выделить]
92
Общие вопросы по AutoIt / Re: Помогите с проверкой текста и добавление даты
« Последний ответ от Serega1383 Отправлен Апрель 16, 2018, 17:33:07 »
Все вручную печатал. Уже переписал не помогает
93
Общие вопросы по AutoIt / Re: Помогите с проверкой текста и добавление даты
« Последний ответ от gunter123 Отправлен Апрель 16, 2018, 17:21:04 »
Бывает такая проблема при копировании кода с форума, попробуйте вручную напечатать эту строчку и следующие где будет такая же ошибка
94
Общие вопросы по AutoIt / Re: Помогите с проверкой текста и добавление даты
« Последний ответ от Serega1383 Отправлен Апрель 16, 2018, 17:05:02 »
С этой разобрался теперь выдает в самом начале. Unknown function name. :
$aList = FileReadToArray(@ScriptDir & '/123.txt')
$aList = ^ERROR
95
Стол заказов / Re: [Автоматизация] Переподключиться к интернету
« Последний ответ от CRD Отправлен Апрель 16, 2018, 15:39:20 »
Либо лыжи не едут, толи весна пришла ...

Dima1337, твой метод сработал, спасибо. Только как подключаться не к одной сети, а к списку сохраненных на пк, не перечисляя их имена ?

96
Общие вопросы по AutoIt / Re: Помогите с проверкой текста и добавление даты
« Последний ответ от gunter123 Отправлен Апрель 16, 2018, 15:27:24 »
Похоже, вы скопировали не весь код.
97
Общие вопросы по AutoIt / Re: Не отправляется сообщение на почту
« Последний ответ от Dima1337 Отправлен Апрель 16, 2018, 14:28:38 »
Получилось но только через google
https://myaccount.google.com/lesssecureapps

Код: AutoIt [Выделить]
#include <File.au3>

$SmtpServer = 'smtp.gmail.com'
$FromAddress = '********@gmail.com'
$Username = '*********'
$Password = '*********'
$ToAddress = '*********@yandex.ru'
$Subject = 'Просто письмо'
$Body = 'Буквы в письме'
$IPPort = 465

_INetSmtpMailCom($SmtpServer, '', $FromAddress, $ToAddress, $Subject, $Body, '', '', '', $Username, $Password, $IPPort)

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $s_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "", $IPPort = 465, $ssl = 1)
    $objEmail = ObjCreate("CDO.Message")

    Global $g_eventerror = 0 ; для проверки, чтобы знать, что COM ошибка произошла. Необходимо сбросить после обработки.
    Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") ; Инициализация обработчика ошибок COM

    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($s_Body, "<") And StringInStr($s_Body, ">") Then
        $objEmail.HTMLBody = $s_Body
    Else
        $objEmail.Textbody = $s_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment($S_Files2Attach[$x])
            Else
                $i_Error_desciption = $i_Error_desciption & @LF & 'File not found to attach: ' & $S_Files2Attach[$x]
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    $objEmail.Configuration.Fields.Update
    $objEmail.Send

    If $g_eventerror Then
    $g_eventerror = 0
        MsgBox(0, "Тест AutoItCOM", "Тест пройден: Мы получили код ошибки: " & @error)
    Else
        MsgBox(0, "Тест AutoItCOM", "Тест не удался!")
    EndIf

    If @error Then
        SetError(2)
    EndIf
EndFunc   ;==>_INetSmtpMailCom

Func MyErrFunc()
    MsgBox(4096, "Тест AutoItCOM", "Мы перехватили COM ошибку !" & @CRLF & @CRLF & _
            "err.description is: " & @TAB & $oMyError.description & @CRLF & _
            "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
            "err.number is: " & @TAB & Hex($oMyError.number, 8) & @CRLF & _
            "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
            "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
            "err.source is: " & @TAB & $oMyError.source & @CRLF & _
            "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
            "err.helpcontext is: " & @TAB & $oMyError.helpcontext _
            )

    Local $err = $oMyError.number
    If $err = 0 Then $err = -1

    $g_eventerror = $err ; для проверки после того как эта функция сработает
EndFunc
 

98
Стол заказов / Re: [Автоматизация] Переподключиться к интернету
« Последний ответ от Dima1337 Отправлен Апрель 16, 2018, 14:10:02 »
Зачем отрубать адаптер если можно по новой подключиться к сети?  :o
Код: AutoIt [Выделить]
Global $interface = '"Беспроводная сеть"'
Global $wifipoints = '"PROXIMUS_FON"'

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

99
Стол заказов / Re: [Автоматизация] Переподключиться к интернету
« Последний ответ от hedji Отправлен Апрель 16, 2018, 14:03:21 »
Добавил комменты:
Код: AutoIt [Выделить]
#RequireAdmin
TCPStartup()
$iSocket = TCPConnect("8.8.8.8", "80") ;пробуем подключиться к гугловскому серверу
If @error Then ;если подключиться не удалось
    $CMD1 = 'netsh interface set interface "Подключение по локальной сети 2" DISABLED'
    $CMD2 = 'netsh interface set interface "Подключение по локальной сети 2" ENABLED'
    RunWait(@ComSpec & " /c " & $CMD1) ;выключаем сетевой адаптер с именем 'Подключение по локальной сети 2'
    Sleep(5000)
    RunWait(@ComSpec & " /c " & $CMD2) ;включаем сетевой адаптер с именем 'Подключение по локальной сети 2'
EndIf
TCPShutdown()
 


для тестирования что скрипт работает:
Код: AutoIt [Выделить]
#RequireAdmin
TCPStartup()
$iSocket = TCPConnect("888.8.8.8", "80") ;пробуем подключиться к несуществующему адресу
If @error Then ;если подключиться не удалось
    $CMD1 = 'netsh interface set interface "Подключение по локальной сети 2" DISABLED'
    $CMD2 = 'netsh interface set interface "Подключение по локальной сети 2" ENABLED'
    RunWait(@ComSpec & " /c " & $CMD1) ;выключаем сетевой адаптер с именем 'Подключение по локальной сети 2'
    Sleep(30000) ;ждем 30 секунд, в это время можно увидеть, что сетевой адаптер выключен
    RunWait(@ComSpec & " /c " & $CMD2) ;включаем сетевой адаптер с именем 'Подключение по локальной сети 2'
EndIf
TCPShutdown()
 


Тестирую на win 7.
100
Общие вопросы по AutoIt / Re: Помогите с проверкой текста и добавление даты
« Последний ответ от Serega1383 Отправлен Апрель 16, 2018, 13:53:21 »
Выдаёт ошибку "If" statements must have a "Then"  keywords. :
If _DateDiff ('d',
Страницы: 1 ... 8 9 [10]