Jump to content
Sign in to follow this  
COD3369

read lines from file and include un script at runtime

Recommended Posts

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

Share this post


Link to post
Share on other sites
water

FileReadLine?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
COD3369

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

Share this post


Link to post
Share on other sites
water

What have you tried so far?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
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..

Share this post


Link to post
Share on other sites
JLogan3o13

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


√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
Share on other sites
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 <_<


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
COD3369

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

Share this post


Link to post
Share on other sites
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.


√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
Share on other sites
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!


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
COD3369

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

Share this post


Link to post
Share on other sites
water

Excuse me, did your dog eat the help file? :rolleyes:

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


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
COD3369

yeah i cnt understand the that example..

Share this post


Link to post
Share on other sites
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 by JLogan3o13

√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
Share on other sites
COD3369
:(

Share this post


Link to post
Share on other sites
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.


√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
Share on other sites
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!


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
COD3369

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

Share this post


Link to post
Share on other sites
COD3369

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

$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 :D

[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 :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×