|
You last visited: Today at 00:01
Advertisement
IniRead problem
Discussion on IniRead problem within the AutoIt forum part of the Coders Den category.
06/26/2010, 13:24
|
#1
|
elite*gold: 184
Join Date: Nov 2009
Posts: 158
Received Thanks: 43
|
IniRead problem
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
|
#2
|
elite*gold: 0
Join Date: Mar 2008
Posts: 1,524
Received Thanks: 285
|
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!
|
|
|
06/26/2010, 14:40
|
#3
|
elite*gold: 184
Join Date: Nov 2009
Posts: 158
Received Thanks: 43
|
kann auch geclosed werden problem wurde gefixt bevor ich deins gelesen habe aber danke für deine mühe
|
|
|
08/11/2010, 11:07
|
#4
|
elite*gold: 0
Join Date: Aug 2010
Posts: 13
Received Thanks: 0
|
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
|
#5
|
elite*gold: 99
Join Date: May 2009
Posts: 1,020
Received Thanks: 400
|
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
|
#6
|
elite*gold: 0
Join Date: Aug 2010
Posts: 13
Received Thanks: 0
|
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
|
#7
|
elite*gold: 0
Join Date: Aug 2010
Posts: 13
Received Thanks: 0
|
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
|
#8
|
elite*gold: 0
Join Date: Aug 2010
Posts: 13
Received Thanks: 0
|
bitte um Antworten pls!
|
|
|
|
Similar Threads
|
IniRead ohne IniWrite , Hilfe !
05/30/2010 - AutoIt - 3 Replies
Hi also ich wollte den Inhalt aus einer Ini/Txt datei auslesen ,iniRead("test.txt","","& quot;,"").Aber ohne den Befehl IniWrite vorher also wurden noch keine Sectionen oder so angelegt wie kann ich dann den Inhalt auslesen ?
Das hab ich jetzt und des geht ned
Help pls
Für die dies nich geblickt haben was ich brauche(is ja auch ned so toll erklärt:
|
IniRead~Input Problem
05/02/2010 - AutoIt - 2 Replies
mein 2ter thread,weil ich grad beim letzten Schritt daran verzweifel
Mein Ziel ist es die gewuenschte Realmlist abzuspeichern in der .ini datei und auf Buttondruck wieder hervorzurufen
und das 3 mal (sprich 3 Favoriten)
hier der Script
Es funktioniert alles soweit auch das speichern der Favoriten,nur das Aufrufen funktioniert nicht.
|
IniRead Frage
08/23/2009 - GW Bots - 17 Replies
Jedesmal wenn ich versuche einen Testlauf von meinem Login-Script zu starten kommt dieser Fehler: ERROR: IniRead() called with wrong number of args.
Local $accname = IniRead("acc.ini", "Account", "Accountname")
Doch was ist daran falsch? Ich habe schon in der AutoIT-Hilfe geschaut doch die konnte mir nicht weiterhelfen.
|
iniRead gibt -1 zurück
05/10/2009 - AutoIt - 2 Replies
So hab ein kleines Problem.
Ich arbeite gerade an einen Shortkey configurator.
Das ganze ist ziemlich kompliziert(hört sich leicht an aber wenn ich euch mein Script zeige das ich habe würdet ihr über die Länge staunen ;) ) und benutzt viele Variablen.
Aus diesen und und noch aus einen anderen Grund habe ich mich entschieden die Variablen,die die Werte aus der Ini erhalten, als Arrays zu arrangieren.
Problem: seitdem geben diese Variablen nur -1 zurück(jede, eigentlich sollten nur 2 -1...
|
All times are GMT +2. The time now is 00:01.
|
|