Need Help.. Again ;(

[top]

wrong code?

#include <file.au3>

$file = "random.txt"

FileOpen($file, 0)

$linecount = _FileCountLines($file)
$num = Random(1,$linecount,1)

$line = FileReadLine($file, $num)

opt("WinTitleMatchMode", 4)

HotKeySet("{ENTER}", "ff")

Run("notepad.exe")

While 1
sleep(300)
WEnd

Func ff()
HotKeySet("{ENTER}")
$bb=WinGetHandle("classname=Notepad")
ControlSetText("Untitled -", "", "Edit1", $line )
send("{ENTER}")
HotKeySet("{ENTER}", "ff")
EndFunc


FileClose($file)

[GaryFrost]

?

#include <file.au3>

$file = "random.txt"

FileOpen($file, 0)

$linecount = _FileCountLines($file)

Opt("WinTitleMatchMode", 4)

HotKeySet("{ENTER}", "ff")
HotKeySet("{ESC}","_Terminate")

Run("notepad.exe")

While 1
    Sleep(300)
WEnd

FileClose($file)

Func _Terminate()
    Exit
EndFunc

Func ff()
    HotKeySet("{ENTER}")
    $bb = WinGetHandle("classname=Notepad")
    $num = Random(1, $linecount, 1)

    $line = FileReadLine($file, $num)
    ControlSetText("Untitled -", "", "Edit1", $line)
    Send("{ENTER}")
    HotKeySet("{ENTER}", "ff")
EndFunc  ;==>ff

[Valuater]

maybe

#include <file.au3>

opt("WinTitleMatchMode", 4)

HotKeySet("{ENTER}", "ff")

Run("notepad.exe")

While 1
sleep(300)
WEnd

Func ff()
HotKeySet("{ENTER}")

$file = "lang.lng"
FileOpen($file, 0)
$linecount = _FileCountLines($file)
$num = Random(1,$linecount,1)
$line = FileReadLine($file, $num)
FileClose($file)

$bb=WinGetHandle("classname=Notepad")
ControlSend("Untitled -", "", "Edit1", $line )
send("{ENTER}")
HotKeySet("{ENTER}", "ff")
EndFunc

8)

phone rang...

Edited April 11, 2006 by Valuater

[Valuater]

notice i used

ControlSend("Untitled -", "", "Edit1", $line )

to "add" the text to the notepad

8)