Textdatei auslesen

03/23/2013 16:59 12345manu#1
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
03/23/2013 17:37 BladeTiger12#2
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 /.

Code:
$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")
03/23/2013 17:53 12345manu#3
Danke :D
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 ;(
03/23/2013 21:12 [LS]Michael#4
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
03/23/2013 21:14 12345manu#5
Oh, das ist mal extremst peinlich ...

Aber Danke!
03/23/2013 21:15 [LS]Michael#6
sry wollte grade editieren und ein \ nach den &" bei den filewrite
03/23/2013 21:31 12345manu#7
aber der erstellt jetzt nur den ordner und keine .txt? ;(
03/23/2013 21:40 [LS]Michael#8
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
03/23/2013 21:47 12345manu#9
Ich probiers mal :)

Danke! Klappt endlich :3