[Solved] Copy texts from file and paste to WebBrowser

[Queener]

Sorry for the noobie question, but I'm planning to copy text from file to inputbox on web browser. I get error saying that I did not declare $sFile?

$sFile = FileOpen(@ScriptDir & "\config.txt")
$sRead = FileRead($sFile)

$aString = StringSplit($sRead, @CRLF, 1)

If $aString[0] < 11 Then Exit

$sResult = ""

For $i = 11 To $aString[0]
    $sResult &=$aString[$i] & @CRLF
Next
 
WinActivate($Title)
FileWrite($Title, $sResult)
 

Isn't $sFile = FileOpen(@ScriptDir & "config.txt") declaring it already?

Edited May 13, 2013 by asianqueen

[Nessie]

Please post the full code. What $Title is? This seems not to be a file.

Hi!

[BrewManNH]

If that's how your script is written in the full script, then you would be declaring $sFile in the first line. The problem I have is with $Title, but that may be because you only posted a part of the script.

[Queener]

Please post the full code. What $Title is? This seems not to be a file.

Hi!

Let's not worry about $title for now. $title = inputbox1 from web browser. Let's start off by why it doesn't accept $sFile as it's being declare.

[jdelaney]

Paste in the exact scite error, and the exact line number of this:

$sFile = FileOpen(@ScriptDir & "config.txt")

[mrflibblehat]

Let's not worry about $title for now. $title = inputbox1 from web browser. Let's start off by why it doesn't accept $sFile as it's being declare.

 

Please post the full script, you need to help us help you

[JLogan3o13]

Added something for $Title, and the code below works just fine. It has to be something else in the unshared portion of your script.

$Title = @ScriptDir & "\Title.txt"
$sFile = FileOpen(@ScriptDir & "\config.txt")
$sRead = FileRead($sFile)

$aString = StringSplit($sRead, @CRLF, 1)

If $aString[0] < 11 Then Exit

$sResult = ""

For $i = 11 To $aString[0]
    $sResult &=$aString[$i] & @CRLF
Next

WinActivate($Title)
FileWrite($Title, $sResult)

Edited May 13, 2013 by JLogan3o13

[Queener]

I change the code a little bit to see if I still get the same error, but it still the same thing.

expandcollapse popup

$Title = "InputBox1"

Func start()
Run(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe" & " " & "(Site)")
EnterJob()
EndFunc

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
        Exit
        Case $Button
        start()

    EndSwitch
WEnd

Func EnterJob()
While 2
   sleep(2000)
If WinActive($Title) Then
        ControlClick($Title,"","MozillaWindowClass1","Left",1,85,60)
GetPass()
Sleep(5000)
Endif
WEnd
EndFunc

Func GetPass()
    
$File = FileOpen("\config.txt",0)
$Read = Fileread($File)
$String = StringSplit($Read, @CRLF, 1)

If $String[0] < 11 Then Exit
$Result = ""

For $i = 11 To $String[0]
    $Result &=$String[$i] & @CRLF
Next

  Send("{ALT}{TAB}")
FileWrite($Title, $Result)

Exit

EndFunc

There are still code left that I didn't include because it contain my user/pass. I notice that there are method such as mailslot, but thats too hard to get it right so I'm going this route.

Edited May 13, 2013 by asianqueen

[BrewManNH]

You can't use FileWrite to paste text to a Window.

 

[Nessie]

As i suspected, you are tring to FileWrite a control and that of course can't be done. Take a look to you can do the same job with _IE function as well.

Hi!

[Queener]

Got it....

I did it a different way. It's not real time if you keep the program open. If you make any modification to config.txt; you'll need to close the program.exe and re-open. Does not need to recompile with this method.

$sRead = Fileread(@ScriptDir & "\config.txt")
 
Func Test()
        ControlClick($Title,"","MozillaWindowClass1","Left",1,85,83)
        Send($sRead,1)
Send("{ENTER}")
EndFunc

Edited May 13, 2013 by asianqueen