how to write next line from text

[LastSoul]

hey all   
 
i write code to auto login in pppoe from list of text  
 
the code is complete but i have problem with write next line  from file text to pppoe and go to next line
 
this is the code :

#include <file.au3>
$file = FileOpen("E:\Users\lord\Desktop\1.txt", 0)
$fil2 = FileOpen("E:\Users\lord\Desktop\1.txt", 0)


Local $soul =FileReadLine($file)


Local $sou2 =FileReadLine($fil2)


login()


Func login()

ControlMove ( "[CLASS:SysListView32; INSTANCE:1]", "", 1, 0, 0 )
Run("control ncpa.cpl")
WinWaitActive("Network Connections")
Send("{down}")
Send("{up}")
send("{enter}")
WinWaitActive("Connect Broadband Connection")
ControlSetText("[CLASS:Edit; INSTANCE:1]", "1104", "Edit1", send($soul))
send("{TAB}")
ControlSetText("[CLASS:Edit; INSTANCE:2]", "1104", "Edit2", send($sou2))
send("{enter}")
If WinWaitActive("Connecting to Broadband Connection...") Then
send("{Esc}")
Return login()
Else
Exit
EndIf
EndFunc

Thanks all .

 

[JohnOne]

Difficult to know your problem but it might be that you do not get what you expect..

ControlSetText("[CLASS:Edit; INSTANCE:1]", "1104", "Edit1", send($soul))

ControlSetText("[CLASS:Edit; INSTANCE:2]", "1104", "Edit2", send($sou2))

ControlSetText("[CLASS:Edit; INSTANCE:1]", "1104", "Edit1", $soul)

ControlSetText("[CLASS:Edit; INSTANCE:2]", "1104", "Edit2", $sou2)

[LastSoul]

thanks u johan

but this is not the problem

i just want every time Return login() its go to next line in the text FileReadLine.

 

[JohnOne]

Since your code runs only once then exits, there is no next line.

Perhaps you need to explain more precisely what you want to do.

[LastSoul]

look i need  to connect to pppoe from text file 

that mean getting the user and password from it

its try if its wrong it will try agine and if its right will stop

the user and password get from text but the problem its not go to next line in text to try anther user and password.

 

[JohnOne]

while 1
$soul =FileReadLine($file)


$sou2 =FileReadLine($fil2)


login()
wend

[LastSoul]

Thanks You JOHN 

i tried it 

its write only on character from text

anther solution ?

 

[JohnOne]

Difficult to know your problem but it might be that you do not get what you expect..

ControlSetText("[CLASS:Edit; INSTANCE:1]", "1104", "Edit1", send($soul))

ControlSetText("[CLASS:Edit; INSTANCE:2]", "1104", "Edit2", send($sou2))

ControlSetText("[CLASS:Edit; INSTANCE:1]", "1104", "Edit1", $soul)

ControlSetText("[CLASS:Edit; INSTANCE:2]", "1104", "Edit2", $sou2)

[LastSoul]

does autoit not support to go next line in FileReadLine ?

Edited August 17, 2013 by LastSoul

[JohnOne]

"If no line number to read is given, the "next" line will be read." <- help file.

[LastSoul]

then why wont go read next line in my code ? 

[JohnOne]

Sorry, You've completely lost me.

First you're reading text files and all of a sudden you're banging on about code.

Maybe someone else can understand you better than I.

[LastSoul]

i hope that   

anyway thanks John 

[Melba23]

LastSoul,

Would you care to explain why you appear to be cycling through a text file of usernames and passwords and trying to login to a network?

M23

[LastSoul]

Does its wrong to do that ?

[kylomas]

I see others are reading this thread.  Please do not reply till M23 has a satisfactory response.

 

kylomas

[LastSoul]

anyway thanks i complete the work with vb.net 

by command line with compile the code from vb.net and process to start