IniRead problem

06/26/2010 13:24 Syst3m Down#1

Hab mich weiter durch etliche tuts gequ�lt auch in nem autoit forum gefragt aber so richtig bekommt keiner das hin

Code:

HotKeySet("{ESC}","EXITT") 


$ini = "config.ini"
$iniread = IniRead($ini,"Nutzung","ja/nein","ja","NotFound")
If $iniread = "ja" Then
    $name = IniRead($ini,"Login","Name")
    $pw = IniRead($ini,"Login","PW")
Else
    Global $input[2]
    $input[0] = InputBox("Username","Bitte geben sie hier bla bla bla:")
    $input[1] = InputBox("Password","Bitte geben sie hier bla bla bal:")
    IniWrite($ini,"Login","Name",$input[0])
    IniWrite($ini,"Login","PW",$input[1])
    IniWrite($ini,"Nutzung","ja/nein","ja")
EndIf




$post = "username=" & $name1 & "&password=" & $pw1 & "&x=" & Random(10, 40, 1) & "&y=" & Random(5, 18, 1) 
GuiCreate("Wrestlegame.de-Bot",218,478,987,37) 
$Start=GuiCtrlCreateButton("Start",16,55,185,130) 
$Exit=GuiCtrlCreateButton("EXIT [ESC]",16,199,184,127) 
$credits=GuiCtrlCreateButton("Credits",12,438,187,25) 
$info=GuiCtrlCreateButton("Info",15,343,187,78) 
$label1=GuiCtrlCreateLabel("Wrestlegame.de",63,12,80,15) 
GuiSetState() 

While 1 
$msg=GuiGetMsg() 
If $msg=-3 Then Exit 
If $msg=$Start Then Start() 
If $msg=$Exit Then EXITT() 
If $msg=$credits Then Credits() 
If $msg=$info Then Info() 
Wend 




Func EXITT() 

    MsgBox (0, "Exit", "Bot wird beendet") 
    Exit 
EndFunc 

Func Credits() 
    MsgBox (0, "Credits", "Shadow992 "&@CRLF&"Skollhunter") 
EndFunc 

Func Info() 
    MsgBox (0, "Info", "Release xx.06.2010") 
EndFunc 


Func Start() 

TCPStartup() 
$ip = TCPNameToIP("www.wrestlegame.de") 
TCPShutdown() 

$source = TCPRequest($ip, "www.wrestlegame.de", "/login.php", $post) 
$cookies = GetCookies($source) 
Endfunc 
Func GetCookies($sQuellcode) 
    Local $sCookies, $i, $aCookies 
    $sCookies = '' 
    $aCookies = _StringBetween($sQuellcode, 'Set-Cookie: ', ';', 1) 
    For $i = 0 To UBound($aCookies) - 1 
        $sCookies &= $aCookies[$i] & ';' 
    Next 
    Return $sCookies 
EndFunc   ;==>GetCookies 

Func TCPRequest($sIp, $sHost, $sSeite = "", $sPost = '', $sCookies = '', $sReferer = '', $iMaxTime = 10000) 
    Local $sPacket, $iSocket, $iTimer 

    If $sPost = '' Then 
        $sPacket = 'GET /' & $sSeite & ' HTTP/1.1' & @CRLF 
    Else 
        $sPacket = 'POST /' & $sSeite & ' HTTP/1.1' & @CRLF 
    EndIf 
    $sPacket &= 'Host: ' & $sHost & @CRLF & _ 
            'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.1.10) Gecko/20100504 Firefox/3.5.10 (.NET CLR 3.5.30729)' & @CRLF & _ 
            'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' & @CRLF & _ 
            'Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3' & @CRLF & _ 
            'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' & @CRLF & _ 
            'Keep-Alive: 300' & @CRLF & _ 
            'Content-Type: application/x-www-form-urlencoded' & @CRLF & _ 
            'Connection: keep-alive' & @CRLF 
    If $sReferer <> '' Then 
        $sPacket &= 'Referer: ' & $sReferer & @CRLF 
    EndIf 
    If $sCookies <> '' Then 
        $sPacket &= 'Cookie: ' & $sCookies & @CRLF 
    EndIf 
    If $sPost <> '' Then 
        $sPacket &= 'Content-Length: ' & StringLen($sPost) & @CRLF 
    EndIf 
    $sPacket &= @CRLF 
    If $sPost <> '' Then 
        $sPacket &= $sPost 
    EndIf 

    TCPStartup() 
    If @error Then Return SetError(1, 0, "") 
    $iSocket = TCPConnect($sIp, 80) 
    If @error Then Return SetError(2, 0, "") 
    TCPSend($iSocket, $sPacket) 
    If @error Then Return SetError(3, 0, "") 
    $iTimer = TimerInit() 
    Do 
        $sRecv = TCPRecv($iSocket, 1024) 
        If TimerDiff($iTimer) > $iMaxTime Then Return SetError(4, 0, "") 
    Until $sRecv <> "" 
    Do 
        $sRecv &= TCPRecv($iSocket, 1024) 
    Until @error Or StringInStr($sRecv, '</html>') 
    TCPCloseSocket($iSocket) 
    TCPShutdown() 
    Return $sRecv 
EndFunc   ;==>TCPRequest 


Func Change($string) 
    $string = StringReplace($string, "%", "%25") 
    $string = StringReplace($string, "�", "%E2%80%A0") 
    $string = StringReplace($string, "�", "%C3%A4") 
    $string = StringReplace($string, "�", "%C3%B6") 
    $string = StringReplace($string, "�", "%C3%BC") 
    $string = StringReplace($string, "!", "%21") 
    $string = StringReplace($string, '"', "%22") 
    $string = StringReplace($string, "�", "%C2%A7") 
    $string = StringReplace($string, "$", "%24") 
    $string = StringReplace($string, "&", "%26") 
    $string = StringReplace($string, "/", "%2F") 
    $string = StringReplace($string, "+", "%2B") 
    $string = StringReplace($string, " ", "+") 
    $string = StringReplace($string, "(", "%28") 
    $string = StringReplace($string, ")", "%29") 
    $string = StringReplace($string, "=", "%3D") 
    $string = StringReplace($string, "?", "%3F") 
    $string = StringReplace($string, "[", "%5B") 
    $string = StringReplace($string, "]", "%5D") 
    $string = StringReplace($string, "{", "%7B") 
    $string = StringReplace($string, "}", "%7D") 
    $string = StringReplace($string, "�", "%C3%9F") 
    $string = StringReplace($string, ",", "%2C") 
    $string = StringReplace($string, ":", "%3A") 
    $string = StringReplace($string, ";", "%3B") 
    $string = StringReplace($string, "#", "%23") 
    $string = StringReplace($string, "~", "%7E") 
    $string = StringReplace($string, "�", "%C2%B2") 
    $string = StringReplace($string, "�", "%C2%B3") 
    $string = StringReplace($string, "<", "%3C") 
    $string = StringReplace($string, ">", "%3E") 
    $string = StringReplace($string, "|", "%7C") 
    $string = StringReplace($string, "^", "%5E") 
    $string = StringReplace($string, "�", "%C2%B0") 
    $string = StringReplace($string, "�", "%C2%B4") 
    $string = StringReplace($string, "@", "%40") 
    $string = StringReplace($string, "�", "%E2%82%AC") 
    Return $string 
EndFunc   ;==>Change

also der fehler liegt glaub bei der Ini Read aber ich kriegs einfach nicht raus

06/26/2010 13:50 bladerofdarknes#2

das problem liegt doch auf der hand:

Quote:

$ini = "config.ini"
$iniread = IniRead($ini,"Nutzung","ja/nein","ja","NotFound")
If $iniread = "ja" Then
$name = IniRead($ini,"Login","Name")
$pw = IniRead($ini,"Login","PW")

du liest aus einer .ini die garnicht existiert, du solltest zuerst ein gui machen mit inputboxen und diese dann auslesen und in die ini schreiben,

Quote:

$read1=GuiCTRLRead($Input1)
Iniwrite("config.ini", "Nutzung", "ja/nein", $read1)

so in der art sollte es aussehen, falls dir das nicht weiter hilft in meinem source release wird sehr viel mit iniread und iniwrite gearbeitet! [Only registered and activated users can see links. Click Here To Register...]

06/26/2010 14:40 Syst3m Down#3

kann auch geclosed werden problem wurde gefixt bevor ich deins gelesen habe aber danke f�r deine m�he

08/11/2010 11:07 b�serjunge#4

hi leute ich h�tte da noch ne Frage wie man jetz zum beispiel macht dass man sich einloggen muss und so mit allem drum und dran dass er passwort und benutzer aus der .ini datei liest und dann kontrolliert??
bitte nich zu kompliziert antworten bin n ziemlicher NoOb
Danke schon im voraus!

08/11/2010 12:09 DraaaKe#5

Quote:

Originally Posted by b�serjunge

hi leute ich h�tte da noch ne Frage wie man jetz zum beispiel macht dass man sich einloggen muss und so mit allem drum und dran dass er passwort und benutzer aus der .ini datei liest und dann kontrolliert??
bitte nich zu kompliziert antworten bin n ziemlicher NoOb
Danke schon im voraus!

So also ich schreib dir maal ein Beispiel:

[CODE]$Passwort = Iniread("DeineIni.ini","Accountdaten","Passwort",1 )
$ID = IniRead("DeineIni.Ini","Accountdaten","ID",1)
Dann brauchst du halt eine GUI mit 2 Inputs und einem Okay Button, bzw noch einem abbrechen Button. Dann leitest du den Okay Button zur Funktion OKAY

Func OKAY()
$Input1Auslesen = GuiCtrlRead($Input1)
$Input2Auslesen = GuiCtrlRead($Input2)
If $Input1Auslesen = $ID and $Input2Auslesen = $Passwort Then
Guidelete($LoginGUI)
EigentlicheFunktion(); hier leitest du dann auf dein Programm weiter
Else
Msgbox(0,"Error","Deine Eingaben stimmen nicht!")
Endif
Endfunc

Ich werde das nachher noch sch�ner schreiben weil ich gerade am iPod schreibe.

08/11/2010 17:06 b�serjunge#6

und wie siht des dann aus wenn auch mehrere user sich anmelden k�nnen sollen?
also bei mir sieht des jetz ungef�hr so aus: (nich wundern isn verhau und noch nich fertig)

Quote:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <File.au3>

$richtigstat=IniRead("statistik.ini", "stats", "richtig",0)
$falschstat=IniRead("statistik.ini", "stats", "falsch",0)

#Region ### START Koda GUI section ### Form=c:\program files\autoit3\scite\koda\forms\vokabel.kxf
$Form1_1 = GUICreate("Erstmal Anmelden...", 450, 250, 286, 127,-1, 0x10)
GUISetBkColor(0x808080)
$file = GUICtrlCreateGroup("Bitte Benutzernamen eingeben", 8, 8, 337, 57)
$i_benutzer = GUICtrlCreateInput("", 24, 30, 217, 21)
guictrlsetstate(-1,8)
$b_pwforgot = GUICtrlCreateButton("Passwort vergessen", 320, 95, 110, 35, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Bitte passwort eingeben", 8, 80, 300, 57)
$i_Input2 = GUICtrlCreateInput("", 24, 104, 217, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Schmidt\Desktop\Spiele\vokabeltraine r\Daumen hoch.jpg", 70, 155, 40, 36, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Schmidt\Desktop\Spiele\vokabeltraine r\Daumen hoch.jpg", 285, 155, 40, 36, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$b_regist = GUICtrlCreateButton("Jetzt Registrieren", 110, 155, 175, 38, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$b_weiter = GUICtrlCreateButton("Weiter zum Vokabeltrainer", 250, 210, 170, 25, $WS_GROUP)
$b_abbrechen = GUICtrlCreateButton("Abbrechen", 40, 210, 75, 25, $WS_GROUP)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $b_pwforgot

#include <GUIConstants.au3>

Opt("GUIDataSeparatorChar", "")
#Region ### START Koda GUI section ### Form=
$pwforgot = GUICreate("Passwort vergessen", 420, 368, 347, 343)
GUISetIcon("D:\009.ico")
$GroupBox1 = GUICtrlCreateGroup("", 14, 22, 375, 281)
$Label1 = GUICtrlCreateLabel("Geben sie ihren Benutzernamen ein", 106, 38, 172, 17)
GUICtrlCreateInput("", 135, 64, 121, 21)
$Label2 = GUICtrlCreateLabel("Was war ihre Sicherheitsfrage bei der Registrierung?", 17, 100, 251, 17)
$Label3 = GUICtrlCreateLabel("Antwort:", 294, 146, 43, 17)
GUICtrlCreateInput("", 255, 195, 121, 21)
GUICtrlCreateRadio("Wann ist ihr Geburtstag?", 26, 126, 139, 17)
GUICtrlCreateRadio("Was ist ihr Lieblingstier?", 26, 147, 139, 17)
GUICtrlCreateRadio("Wie ist der Name ihrer Mutter?", 26, 168, 166, 17)
GUICtrlCreateRadio("Wie ist der Name ihres Vaters?", 26, 189, 177, 19)
GUICtrlCreateRadio("Was ist ihre gro�e Angst?", 27, 278, 144, 17)
GUICtrlCreateRadio("Was ist ihr zweiter Name?", 27, 256, 155, 17)
GUICtrlCreateRadio("Wie hei�t ihr Haustier?", 26, 212, 139, 17)
GUICtrlCreateRadio("Was ist ihre gro�e Liebe?", 27, 235, 139, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$weiter = GUICtrlCreateButton("Weiter>>>", 304, 330, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $weiter
check()
[CODE]$Passwort = Iniread("DeineIni.ini","Accountdaten","Passwort",1 )
$ID = IniRead("config.ini","Accountdaten","ID",1)
MsgBox ( 64, "Ihr Passwort ist: " & $i_Input2 )
EndSwitch
WEnd

case $b_regist
#include <GUIConstants.au3>

Opt("GUIDataSeparatorChar", "")
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form2", 454, 666, 372, 249)
$Group0 = GUICtrlCreateGroup("Geben sie ihren gew�nschten Benutzernamen ein", 18, 25, 287, 105)
$benutzer = GUICtrlCreateInput("", 31, 68, 250, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
checkit()
$Label1 = GUICtrlCreateLabel("frei", 330, 69, 32, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Swis721 Blk BT")
GUICtrlSetColor(-1, 0x00FF00)
$Label2 = GUICtrlCreateLabel("vergeben", 315, 70, 66, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Swis721 Blk BT")
GUICtrlSetColor(-1, 0xFF0000)
$Group1 = GUICtrlCreateGroup("Geben sie ihr gew�nschtes Passwort ein (mid. 6 Buchstaben)", 19, 142, 320, 142)
$passw = GUICtrlCreateInput("", 40, 186, 272, 21)
$passw2 = GUICtrlCreateInput("", 42, 243, 270, 21)
$Label3 = GUICtrlCreateLabel("Passwort wiederholen...", 47, 218, 116, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Sicherheitsfrage w�hlen (falls sie ihr Passwort vergessen)", 29, 321, 375, 281)
$Label6 = GUICtrlCreateLabel("Antwort:", 300, 406, 43, 17)
GUICtrlCreateInput("", 269, 477, 121, 21)
GUICtrlCreateRadio("Wann ist ihr Geburtstag?", 40, 370, 139, 17)
GUICtrlCreateRadio("Was ist ihr Lieblingstier?", 40, 394, 139, 17)
GUICtrlCreateRadio("Wie ist der Name ihrer Mutter?", 40, 417, 166, 17)
GUICtrlCreateRadio("Wie ist der Name ihres Vaters?", 40, 442, 177, 19)
GUICtrlCreateRadio("Was ist ihre gro�e Angst?", 42, 546, 144, 17)
GUICtrlCreateRadio("Was ist ihr zweiter Name?", 41, 520, 155, 17)
GUICtrlCreateRadio("Wie hei�t ihr Haustier?", 40, 469, 139, 17)
GUICtrlCreateRadio("Was ist ihre gro�e Liebe?", 41, 495, 139, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Fortfahren>>>", 318, 622, 96, 29, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
checkpw()

EndSwitch
WEnd

Case $inidelete
IniWrite("statistik.ini", "stats", "richtig", 0)
quote()
IniWrite("statistik.ini", "stats", "falsch", 0)
quote()
MsgBox ( 64, "l�schen erfolgreich", "l�schen war erfolgreich!" )
Case $loesung
MsgBox ( 48, "l�sung", "Die richtige L�sung w�re " & $word[2] & " gewesen" )
$falschstat +=1
IniWrite("statistik.ini", "stats", "falsch", $falschstat)
quote()
guictrlsetdata($Input3,"")
vokabel()

EndSwitch
WEnd

[CODE]$Passwort = Iniread("DeineIni.ini","Accountdaten","Passwort",1 )
$ID = IniRead("config.ini","Accountdaten","ID",1)

Func OKAY()
$Input1Auslesen = GuiCtrlRead($Input1)
$Input2Auslesen = GuiCtrlRead($Input2)
If $Input1Auslesen = $ID and $Input2Auslesen = $Passwort Then
Guidelete($LoginGUI)
EigentlicheFunktion(); hier leitest du dann auf dein Programm weiter
Else
Msgbox(0,"Error","Deine Eingaben stimmen nicht!")
Endif
Endfunc

08/12/2010 11:03 b�serjunge#7

isses vllt. so richtig?

PHP Code:


			
Case $weiter

    $Passwort = Iniread("config.ini","Accountdaten","Passwort",$123 )

    $ID = IniRead("config.ini","Accountdaten","ID",$1234)

    Do $123 +=1 And $1234 +=1 Until $123 = $benutz123

    MsgBox ( 64, "Ihr Passwort ist: " &  $1234 )

EndSwitch

WEnd

08/13/2010 12:16 b�serjunge#8

bitte um Antworten pls!