Textdatei auslesen

[12345manu]

Hallo, undzwar hab ich ein kleines Login-Tool für Facebook gemacht, leider bekomm ich es nicht hin das die email adresse und das passwort gespeichert werden hier der code freue mich über tipps

$name = InputBox("Name", "Enter your Loginname")
$password = InputBox("Password", "Enter your Password")

DirCreate("@DesktopDir/lpfb")
$login = $name & @CRLF & $password & @CRLF
FileWrite("@DesktopDir/lpfb/lpfb.cfg", $login)

MouseClick("left", 608,172, 1)
MouseClick("left", 608, 172, 1)
send($name)
MouseClick("left", 768, 172, 1)
send($password)
MouseClick("left", 927, 172, 1)
exit

[BladeTiger12]

Wenn du soetwas wie @DesktopDir angibst, musst du mit & arbeiten.
Wenn hinterher noch ein String erfolgt dann musst du mit einem
\ arbeitet nicht mit einem /.

$name = InputBox("Name", "Enter your Loginname")
$password = InputBox("Password", "Enter your Password")

DirCreate(@DesktopDir & "\lpfb")
$login = $name & @CRLF & $password & @CRLF
FileWrite(@DesktopDir & "\lpfb\lpfb.cfg", $login)

MouseClick("left", 608,172, 1)
MouseClick("left", 608, 172, 1)
send($name)
MouseClick("left", 768, 172, 1)
send($password)
MouseClick("left", 927, 172, 1)
EndIf
EndFunc
exit

;Text Datei auslessen: $Read = FileRead(@DesktopDir & "\lpfb\lpfb.cfg")

[12345manu]

Danke
Bin nochn Noob hab das gestern zum ersten mal gemacht

Hab immer noch Probleme... und war da ;(


#include <IE.au3>

if fileexists( "lpfb/lpfb.txt" ) Then

$IE = _IECreate ("www.facebook.com" ,1)

FileOpen( "lpfb\lpfb.txt" ,1)
$name2 = FileReadLine( "lpfb\lpfb.txt" ,1)
$password2 = FileReadLine( "lpfb\lpfb.txt" ,2)

MouseClick("left", 608,124, 1)
MouseClick("left", 608, 124, 1)
send($name2)
MouseClick("left", 768, 124, 1)
send($password2)
MouseClick("left", 927, 124, 1)

Else
$name = InputBox("Name", "Enter your Loginname")
$password = InputBox("Password", "Enter your Password")

DirCreate(@DesktopDir & "\lpfb")
$login = $name & @CRLF & $password & @CRLF
FileWrite(@DesktopDir & "lpfb\lpfb.txt", $login

$IE = _IECreate ("www.facebook.com" ,1)

MouseClick("left", 610,124, 1)
MouseClick("left", 610, 124, 1)
send($name)
MouseClick("left", 770, 124, 1)
send($password)
MouseClick("left", 934, 124, 1)

EndIf
exit



Bitte nochmal helfen ;(

[[LS]Michael]

du hast bei FileWrite die Klammer zu vergessen und ein \ nach den &"

#include <IE.au3>

if fileexists( "lpfb/lpfb.txt" ) Then

$IE = _IECreate ("www.facebook.com" ,1)

FileOpen( "lpfb\lpfb.txt" ,1)
$name2 = FileReadLine( "lpfb\lpfb.txt" ,1)
$password2 = FileReadLine( "\lpfb\lpfb.txt" ,2)

MouseClick("left", 608,124, 1)
MouseClick("left", 608, 124, 1)
send($name2)
MouseClick("left", 768, 124, 1)
send($password2)
MouseClick("left", 927, 124, 1)

Else
$name = InputBox("Name", "Enter your Loginname")
$password = InputBox("Password", "Enter your Password")

DirCreate(@DesktopDir & "\lpfb")
$login = $name & @CRLF & $password & @CRLF
FileWrite(@DesktopDir & "lpfb\lpfb.txt", $login)

$IE = _IECreate ("www.facebook.com" ,1)

MouseClick("left", 610,124, 1)
MouseClick("left", 610, 124, 1)
send($name)
MouseClick("left", 770, 124, 1)
send($password)
MouseClick("left", 934, 124, 1)

EndIf
exit

[12345manu]

Oh, das ist mal extremst peinlich ...

Aber Danke!

[[LS]Michael]

sry wollte grade editieren und ein \ nach den &" bei den filewrite

[12345manu]

aber der erstellt jetzt nur den ordner und keine .txt? ;(

[[LS]Michael]

PHP Code:

#include <IE.au3>

if fileexists( "lpfb/lpfb.txt" ) Then

$IE = _IECreate ("www.facebook.com" ,1)

FileOpen( "lpfb\lpfb.txt" ,1) 
$name2 = FileReadLine( "lpfb\lpfb.txt" ,1)
$password2 = FileReadLine( "\lpfb\lpfb.txt" ,2)

MouseClick("left", 608,124, 1)
MouseClick("left", 608, 124, 1)
send($name2)
MouseClick("left", 768, 124, 1)
send($password2)
MouseClick("left", 927, 124, 1)

Else
$name = InputBox("Name", "Enter your Loginname")
$password = InputBox("Password", "Enter your Password")

DirCreate(@DesktopDir & "\lpfb")
$login = $name & @CRLF & $password & @CRLF
FileWrite(@DesktopDir & "\lpfb\lpfb.txt", $login)

$IE = _IECreate ("www.facebook.com" ,1)

MouseClick("left", 610,124, 1)
MouseClick("left", 610, 124, 1)
send($name)
MouseClick("left", 770, 124, 1)
send($password)
MouseClick("left", 934, 124, 1)

EndIf
exit 


das müsste gehen, sonst wen du skype hast adde mich da hanibal_1991

[12345manu]

Ich probiers mal

Danke! Klappt endlich :3