read lines from file and include un script at runtime

[COD3369]

I have a txt. the txt has this two strings.

in first line: www.mysite.com

in second: mymail@gmail.com

I am executing this script.

ShellExecute (" wget.exe" , " -r www.mysite.com" )

and i also need this string too mymail@gmail.com

to send email with attachment to dis id

I want to read these two strings by script.. when scripts run this function..

any idea about this?? like need this solution please provide me a code

[water]

FileReadLine?

[COD3369]

yeah something like that want to read those two lines from txt file and then include these limestone to my functions like : Shellexecute.

[water]

What have you tried so far?

[COD3369]

I want that script read these line and executes the script that it Bro I didnt anything yet bcoz i have no idea about it..

[JLogan3o13]

Water has already given you the answer. Look up FileReadLine in the help file.

[water]

That's why I suggested FileReadLine. Read a line and assign it to a variable.

Don't expect us to write the script for you

[COD3369]

yeah bro but i dont know how to use this?? please help provide a code please

[JLogan3o13]

There is an example in the help file. We do not hand out code, as Water mentioned. Take the time to read the help file, and try it for yourself.

[water]

Click on the link I provided above. It takes you to the help file entry for FileReadLine. At the end you'll find an example.

Writing scripts needs some effort from your side too!

[COD3369]

ok its good if you tell me that How read the line and make that line to vireable.

[water]

Excuse me, did your dog eat the help file?

The example script in the help file for function FileReadLine tells you everything we could tell you.

[COD3369]

yeah i cnt understand the that example..

[JLogan3o13]

Then you will not understand anything we provide you, as it would be exactly the same thing. If you plan on putting in no effort, best just to move along now.

Edited October 12, 2012 by JLogan3o13

[COD3369]

[JLogan3o13]

What we're trying to explain is, you can't explain it any more simply than that example. Instead of just throwing your arms up and saying you can't do it, why not try it for yourself? You may be surprised what you accomplish.

[water]

Read the help file, try to understand what the example tells you and start to code.

If you get any errors post again (your code plus error message) and we will try to help.

But first we need to see some effort fromy our side. We don't hand feed users on this forum!

[COD3369]

ok guys thanks I,try to code if got any error that I fix I will post here anyways you guys supportive

[caleb41610]

If you can use an ini instead of txt it would be easy with IniRead( )

[COD3369]

Successfully done my code: here is my code reading my config from ini. thanks to all you..

expandcollapse popup

$webd = IniRead(@ScriptDir & "users_data.ini", "UsersDataBase", "CustomersWebsite", "d")



ShellExecuteWait('"' & @ScriptDir & 'Wget.exe"', $webd)



#Include

$email = IniRead(@ScriptDir & "users_data.ini", "UsersDataBase", "CustomersEmail", "")

$sendrfrm = IniRead(@ScriptDir & "users_data.ini", "UsersDataBase", "SenderEmail", "")

$senderfrmpas = IniRead(@ScriptDir & "users_data.ini", "UsersDataBase", "SenderPass", "")

$smtp = IniRead(@ScriptDir & "users_data.ini", "UsersDataBase", "SMTP", "")



$SmtpServer = $smtp

$FromName = "MalwareScanner Server"

$FromAddress = $sendrfrm

$ToAddress = $email

$Subject = "Your Website Scanned Report"

$Body = "Dear Custom,your website has successfully scanned by our server please find the attached report for the Detail scanned."

$AttachFiles = ""

$CcAddress = ""

$BccAddress = ""

$Importance = "Normal"

$Username = $sendrfrm

$Password = $senderfrmpas

$IPPort = 465

$ssl = 1



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



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(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console

If FileExists($S_Files2Attach[$x]) Then

$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



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



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



$objEmail.Send

If @error Then

SetError(2)

Return $oMyRet[1]

EndIf

$objEmail=""

EndFunc



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)

Return

EndFunc

my ini code

[UsersDataBase]
CustomersWebsite= -r www.mysite.com
CustomersEmail=mail@gmail.com
SenderEmail=mail@gmail.com
SenderPass=!mypass
SMTP=smtp.gmail.com

works very very fine.. thanks to water and special thanks to caleb41610