[Автоматизация] Как правильно вставить цикл (While 1 и WEnd)в данный скрипт

komorov74 · 25 Янв 2012

Версия AutoIt: 3.

Описание:
В принципе все должно работать- но я не могу разобраться в структуре циклов.
Интересуют две строчки номер 31 (начало цикла) и номер 143 (конец).
вставил как написано в инструкции. при проверке скрипта начинает жаловаться на функции-вот тут мой мозг начинает кипеть.Цикл (скрипт) должен прекращать работать по условию $a=$num

Что в принципе делает скрипт. Вытягивает из html странички емайл адреса -складывает в текстовой файлик и пытается методом перебора адресов отсылать емайл.Скрипт Великолепно работает когда адрес один в текстовом файле. Нужно запустить цикл на вытягивания адреса их текстового файла и отправки емайла и так пока не кончаться адреса в текстовом файле.
Все адреса передаются в переменной $f - и вставляются как скрытая копия

Я не буду убирать логин и пароль на емайл -он тестовый , да и Вам удобней тестить.

Код:

;##################################
; Include
;##################################
#Include<file.au3>
;##################################
; Variables
;##################################
#Include <Array.au3>
#include <Inet.au3>
#include "IE.au3"

$sUrl = ClipGet() ; получаем ссылку на страничку через буфер обмена
;$oIE = _IECreate($sUrl,0,0,1,0); без параметров открывает указанную страницу
$oIE = _IECreate($sUrl)
$sHTML = _IEDocReadHTML ($oIE)



$array = StringRegExp($sHTML, '([A-Za-z0-9._-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,4})', 3); поиск емайла
$s=_ArrayToString($array,@CRLF) ;задает параметры вывода (в данном случаи через запетую в разных клиентах разные параметры)
;ConsoleWrite($s & @CRLF)
$dd=$s

DirCreate("C:\r\")
$sev =FileOpen ( "c:\r\adr.txt", 2 );
FileWrite ( "c:\r\adr.txt", $s )
FileClose($sev)
$num=_FileCountLines( "c:\r\adr.txt")
$sdsd=0
$a=0
;While 1 - Начало моего цикла!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  $a=$a+1 

$f=FileReadLine ("c:\r\adr.txt",$a)

$SmtpServer = "smtp.mail.ru"              ; address for the smtp-server to use - REQUIRED
$FromName = "[email protected]"                      ; name from who the email was sent
$FromAddress = "[email protected]" ; address from where the mail should come
$ToAddress = "[email protected]"   ; destination address of the email - REQUIRED
$Subject = "Привет"                   ; subject from the email - can be anything you want it to be
;$Body = "Test"                              ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = ""                       ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed
$CcAddress = ""       ; address for cc - leave blank if not needed
$BccAddress = $f     ; address for bcc - leave blank if not needed
ConsoleWrite($BccAddress & @CRLF)
Sleep(2000)
$Importance = "Normal"                  ; Send message priority: "High", "Normal", "Low"
$Username = "nikita-vasilev78"                    ; username for the account used from where the mail gets sent - REQUIRED
$Password = "197451nokia1"                  ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 25                            ; port used for sending the mail
$ssl = 0                                ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465                          ; GMAIL port used for sending the mail
;~ $ssl=1                               ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

$Body = "Добрейшего дня.Всем привет"
;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
    MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
EndIf
;
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $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($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_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])
;~          ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
                $objEmail.AddAttachment($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                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
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    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
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail=""
	
EndFunc   ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description, 3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc   ;==>MyErrFunc
;WEnd - Конец моего цикла!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Примечания:
Обращяюсь сюда не однократно -большое спасибо кто помогает!!!!

madmasles · 25 Янв 2012

Re: Помогите доделать в скрипте правильный цикл

Предупреждение За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Данные правила могут пополняться локальными правилами раздела.Как правильно называть темы"Помогите доделать в скрипте правильный цикл" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.С уважением, ваш Модератор.

---Zak--- · 25 Янв 2012

Только тут без файла... В переменную "$f" загоняются сразу все адреса через "; " и одним письмом отправляются
ЗЫ: не проверял...

Код:

#Include <Array.au3>
#include <Inet.au3>
#include "IE.au3"

$sUrl = ClipGet() ; получаем ссылку на страничку через буфер обмена
;$oIE = _IECreate($sUrl,0,0,1,0); без параметров открывает указанную страницу
$oIE = _IECreate($sUrl)
$sHTML = _IEDocReadHTML ($oIE)
$array = StringRegExp($sHTML, '([A-Za-z0-9._-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,4})', 3); поиск емайла
$f = ""
For $i = 0 To UBound($array)-1
   $f = $f&""&$array[$i]&"; "
Next
;~ ConsoleWrite($f)

$SmtpServer = "smtp.mail.ru"              ; address for the smtp-server to use - REQUIRED
$FromName = "[email protected]"                      ; name from who the email was sent
$FromAddress = "[email protected]" ; address from where the mail should come
$ToAddress = "[email protected]"   ; destination address of the email - REQUIRED
$Subject = "Привет"                   ; subject from the email - can be anything you want it to be
;$Body = "Test"                              ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = ""                       ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed
$CcAddress = ""       ; address for cc - leave blank if not needed
$BccAddress = $f     ; address for bcc - leave blank if not needed
ConsoleWrite($BccAddress & @CRLF)
Sleep(2000)
$Importance = "Normal"                  ; Send message priority: "High", "Normal", "Low"
$Username = "nikita-vasilev78"                    ; username for the account used from where the mail gets sent - REQUIRED
$Password = "197431nokia1"                  ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 25                            ; port used for sending the mail
$ssl = 0                                ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465                          ; GMAIL port used for sending the mail
;~ $ssl=1                               ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

$Body = "Добрейшего дня.Всем привет"
;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
    MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
EndIf
;
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $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($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_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])
;~          ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
                $objEmail.AddAttachment($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                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
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    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
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail=""
    
EndFunc   ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description, 3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc   ;==>MyErrFunc

Тут так же без файла: 1 письмо = 1 mail на страничке, т.е. сколько ящиков нашел - столько писем и отправил

Код:

#Include <Array.au3>
#include <Inet.au3>
#include "IE.au3"

$sUrl = ClipGet() ; получаем ссылку на страничку через буфер обмена
;$oIE = _IECreate($sUrl,0,0,1,0); без параметров открывает указанную страницу
$oIE = _IECreate($sUrl)
$sHTML = _IEDocReadHTML ($oIE)
$array = StringRegExp($sHTML, '([A-Za-z0-9._-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,4})', 3); поиск емайла


$SmtpServer = "smtp.mail.ru"              ; address for the smtp-server to use - REQUIRED
$FromName = "[email protected]"                      ; name from who the email was sent
$FromAddress = "[email protected]" ; address from where the mail should come
$ToAddress = "[email protected]"   ; destination address of the email - REQUIRED
$Subject = "Привет"                   ; subject from the email - can be anything you want it to be
;$Body = "Test"                              ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = ""                       ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed
$CcAddress = ""       ; address for cc - leave blank if not needed

$Importance = "Normal"                  ; Send message priority: "High", "Normal", "Low"
$Username = "nikita-vasilev78"                    ; username for the account used from where the mail gets sent - REQUIRED
$Password = "197431nokia1"                  ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 25                            ; port used for sending the mail
$ssl = 0                                ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465                          ; GMAIL port used for sending the mail
;~ $ssl=1                               ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

$Body = "Добрейшего дня.Всем привет"

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

For $i = 0 To UBound($array)-1
   $BccAddress = $array[$i]
   ConsoleWrite($BccAddress & @CRLF)
   Sleep(2000)
   ;##################################
   ; Script
   ;##################################
   $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
   If @error Then
	  MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
   EndIf
Next
;
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $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($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_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])
;~          ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
                $objEmail.AddAttachment($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                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
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    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
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail=""
    
EndFunc   ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description, 3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc   ;==>MyErrFunc

Medic84 · 25 Янв 2012

Код:

For $i = 0 To UBound($array)-1
   $f = $f&""&$array[$i]&"; "
Next

Заменяетсчя простым

Код:

For $i = 0 To UBound($array)-1
   $f &= $array[$i] & "; "
Next

---Zak--- · 25 Янв 2012

1

Medic84

OffTopic:
Пасиб, что напомнили, а то я туда и "+" и "." - память уже не та =)))

komorov74 · 25 Янв 2012

большое СПАСИБО --Zak--- . Все работает. Выбрал второй вариант. Первый не подходил изначально-сервер не принимает сразу столько адресатов (10 максимум).

НО!!!!!!!!!!

Я так и не понял в чем была моя ошибка!!!!!!!

Medic84 · 25 Янв 2012

komorov74 [?]

Я так и не понял в чем была моя ошибка!!!!!!!

Зацикливать объявление функций нельзя по определению.
При составлении программы у Вас больжно быть как минимум 4 блока:
1. Include файлы
2. Объявление переменных.
переменные Global всегда описываются в начале скрипта, а не в середине и тем более в цикле...
3. Код программы
4. Объявления функций

Еще - Вы делали много лишней работы. Если у Вас есть массив - зачем его записывать в текстовый файл? А потом еще считывать этот файл построчно?

komorov74 · 25 Янв 2012

Я не волшебник ,я только учусь :smile:

Записывать в файл - это для логирования(хоть наверное и не надо).
У меня ещё одна просьбачка!!!!!!! я у ZAKa его переделанный скрипт стянул.
Но как говориться аппетит приходит во время возни.
Смысл просьбы.

Допустим есть ссылка типа http://autoit-script.ru/index.php?action=post;topic=8500.0;num_replies=6
надо только перебирать последнюю 6 допустим от 1 до 60

Код:

$sUrl = ClipGet() ; получаем ссылку на страничку через буфер обмена
;$oIE = _IECreate($sUrl,0,0,1,0); без параметров открывает указанную страницу
$oIE = _IECreate($sUrl)
$sHTML = _IEDocReadHTML ($oIE)
$array = StringRegExp($sHTML, '([A-Za-z0-9._-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,4})', 3); поиск емайла

Опять же как правильно это реализовать в цикле ?интересует строчка $sUrl = ClipGet() как вставить переменную вместо ClipGet() ,а то это гадасть (серная в голове) опять не бум бум

вот весь скрипт

Код:

#Include <Array.au3>
#include <Inet.au3>
#include "IE.au3"

$sUrl = ClipGet() ; получаем ссылку на страничку через буфер обмена
;$oIE = _IECreate($sUrl,0,0,1,0); без параметров открывает указанную страницу
$oIE = _IECreate($sUrl)
$sHTML = _IEDocReadHTML ($oIE)
$array = StringRegExp($sHTML, '([A-Za-z0-9._-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,4})', 3); поиск емайла


$SmtpServer = "smtp.mail.ru"              ; address for the smtp-server to use - REQUIRED
$FromName = "[email protected]"                      ; name from who the email was sent
$FromAddress = "[email protected]" ; address from where the mail should come
$ToAddress = "[email protected]"   ; destination address of the email - REQUIRED
$Subject = "Привет"                   ; subject from the email - can be anything you want it to be
;$Body = "Test"                              ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = ""                       ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed
$CcAddress = ""       ; address for cc - leave blank if not needed

$Importance = "Normal"                  ; Send message priority: "High", "Normal", "Low"
$Username = "nikita-vasilev78"                    ; username for the account used from where the mail gets sent - REQUIRED
$Password = "197431nokia1"                  ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 25                            ; port used for sending the mail
$ssl = 0                                ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465                          ; GMAIL port used for sending the mail
;~ $ssl=1                               ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

$Body = "Добрейшего дня.Всем привет"

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

For $i = 0 To UBound($array)-1
   $BccAddress = $array[$i]
   ConsoleWrite($BccAddress & @CRLF)
   Sleep(2000)
   ;##################################
   ; Script
   ;##################################
   $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
   If @error Then
      MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
   EndIf
Next
;
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $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($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_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])
;~          ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
                $objEmail.AddAttachment($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                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
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    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
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail=""
   
EndFunc   ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description, 3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc   ;==>MyErrFunc

---Zak--- · 26 Янв 2012

Допустим есть ссылка типа http://autoit-script.ru/index.php?action=post;topic=8500.0;num_replies=6
надо только перебирать последнюю 6 допустим от 1 до 60

Не совсем понял, что означает надо перебирать только последнюю "6" -

num_replies=6

- эту "6" что ли ?

Код:

#Include <Array.au3>
#include <Inet.au3>
#include "IE.au3"
#include <Date.au3>
;~ ===================== ВСЕ ПЕРЕМЕННЫЕ В СКРИПТЕ
Global $oMyRet[2]

$SmtpServer = "smtp.mail.ru"              						; address for the smtp-server to use - REQUIRED
$FromName = "[email protected]"                      	; name from who the email was sent
$FromAddress = "[email protected]" 						; address from where the mail should come
$ToAddress = "[email protected]"   						; destination address of the email - REQUIRED
$Subject = "Привет"                   							; subject from the email - can be anything you want it to be
$Body = "Добрейшего дня.Всем привет"                            ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = ""                       						; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed
$CcAddress = ""       											; address for cc - leave blank if not needed

$Importance = "Normal"                  						; Send message priority: "High", "Normal", "Low"
$Username = "nikita-vasilev78"                 				    ; username for the account used from where the mail gets sent - REQUIRED
$Password = "197431nokia1"                  					; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 25                            						; port used for sending the mail
$ssl = 0                                						; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465                          						; GMAIL port used for sending the mail
;~ $ssl=1                               						; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

;~ ===================== НАЧИНАЕМ СКРИПТ
;~ ОТКРЫВАМ ИЕ с чистого листа
$oIE = _IECreate("about:blank")
;~ ОПРЕДЕЛЯЕМ ФАЙЛ ДЛЯ ЛОГОВ (новый день - новый файл)
$Logs = FileOpen ("logs-"&_NowDate()&".txt", 1 );
FileWriteLine($Logs, "Начало скрипта: "&_NowCalc())
;~ Сколько раз выполнять скрипт
For $i_for = 1 To 60
;~ ПО КАКОЙ ССЫЛКЕ ЗАХОДИМ
   _IENavigate($oIE, "http://autoit-script.ru/index.php?action=post;topic=8500.0;num_replies="&$i_for)
;~    Читаем все со странички
   $sHTML = _IEDocReadHTML ($oIE)
;~    Находим все почтовые ящики
   $array = StringRegExp($sHTML, '([A-Za-z0-9._-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,4})', 3); поиск емайла
;~    Перебираем каждый ящик по отдельности
   For $i = 0 To UBound($array)-1
	  $BccAddress = $array[$i]
;~ 	  Пишем в лог имя ящика
	  FileWrite($Logs, $BccAddress)
	  ConsoleWrite($BccAddress & @CRLF)
	  Sleep(2000)
	  ;##################################
		 $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
		 If @error Then
;~ 			Если ошибка - пишем в лог
			FileWrite($Logs, " - error: "&@error)
		 Else
;~ 			Если ошибки нет - пишет в лог ОК
			FileWrite($Logs, " - ok")
		 EndIf
	  ;##################################
	  FileWrite($Logs, @CRLF)
   Next
Next
;~ Завершаем писать лог и закрываем файл
FileWriteLine($Logs, "Завершение скрипта: "&_NowCalc())
FileClose($Logs)
;~ ===================== КОНЕЦ СКРИПТА


Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $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($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_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])
;~          ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
                $objEmail.AddAttachment($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                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
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    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
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail=""
    
EndFunc   ;==>_INetSmtpMailCom
; Com Error Handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description, 3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc   ;==>MyErrFunc

$sUrl = ClipGet() как вставить переменную вместо ClipGet()

Код:

$sUrl = ClipGet()

заменить на

Код:

$sUrl = "http://www.****.ru/"

komorov74 · 27 Янв 2012

ZAK -дружище ,в очередной раз в точку!!!!!! Не хочу хвастаться но вроде бы начинаю потихоньку втыкать!!!!

Спасибо что понял идею логирования.Вот ещё встречный вопрос как сделать так ,что бы если адреса уже есть в логе-на них не отправлялось заново сообщение.
p.s столкнулся с не пониманием администрации mail.ru -адрес рассылки блокируют в раз.
Выход - сделал рандом на тему письма и тело письма -перестали блокировать.Остается только что бы на один и тот же ящик не отправлялось подряд куча писем -о чем и прошу помощи!!!!

Medic84 · 27 Янв 2012

komorov74 [?]

p.s столкнулся с не пониманием администрации mail.ru -адрес рассылки блокируют в раз.

Конечно. То что ты делаешь - называется спам рассылка. И не важно какая у тебя в письме информация.

Спасибо что понял идею логирования

Проверяй в файле вхождение ящика с помощью

Код:

StringInStr($File,$Email)
;Где $File это прочитанный файл лога с помощью FileRead(), а $Email - текущий Email в цикле

Т.е. твой код проверки будет таким

Код:

If StringInStr($File,$Email) Then ContinueLoop ; Если в файле есть уже такой Емейл, то переходим к следующему.

komorov74 · 27 Янв 2012

То что это спамерство , я в курсе.Просто Спам Спаму рознь.
Повторяется принцип работы атома -можно города взрывать ,а можно и энергией обеспечивать.
Но все равно всем спасибо!!!!!
Тему пока закрывать не буду -по тестю , может еще чего НАХАЧУ!!!!

Автор темы	Похожие темы	Форум	Ответы	Дата
M	[Автоматизация] как правильно прописать условие и какой поставить разделитель	Общие вопросы по AutoIt	10	14 Дек 2015
G	[Автоматизация] Проверка правильности выдаваемого результата калькулятором	Стол заказов	1	7 Апр 2014
P	[Автоматизация] Как правильно ввести свой емейл и после нажать кнопку Paypal	Автоматизация IE и Web-интерфейса	0	28 Фев 2014
K	[Автоматизация] Как правильно построить таблицу с динамическими данными?	Общие вопросы по AutoIt	1	23 Фев 2012
A	[Автоматизация] Как правильно: EnvUpdate ( ) ставить ДО или ПОСЛЕ #Include <...	Общие вопросы по AutoIt	8	10 Сен 2010

Поиск

Поиск

[Автоматизация] Как правильно вставить цикл (While 1 и WEnd)в данный скрипт

komorov74

Новичок

madmasles

Модератор

---Zak---

Скриптер

Medic84

Омега

---Zak---

Скриптер

komorov74

Новичок

Medic84

Омега

komorov74

Новичок

---Zak---

Скриптер

komorov74

Новичок

Medic84

Омега

komorov74

Новичок