Beiträge von Fast2
-
-
Es läuft!!! Der Fehler war so einfach: Diese Zeile:
[autoit]If not FileExists($KDP) Then FileMove(@TempDir&"\KOI.ini", $KDP, 9)
[/autoit]
hat verhindert dass die Datei, die gelesen wird, Aktualisiert wird, da die Datei schon vorhanden war. Datei einmal gelöscht und schon hat alles funktioniert.Danke an alle, die mir geholfen haben und die ich Tagelang mit so einem simplen Problem genervt habe.
-
Carsten8: Ha ha ich war schneller
-
Wie wärs mit dem :
[autoit]
[/autoit]
Func 2
$K = 0;Variable wird Definiert
While $K = 0; While mindestens einmal und nur solange bis einmal geklickt wurde
$P = PixelGetColor(689, 430)
If $P = 0x5a9714 Then
MouseClick("left", 689, 430, 1)
$K = 1
Else
;Hier muss nichts gemacht werden
EndIf
EndFunc -
Weiß denn keiner warum das Script nicht geht? Der Code von Xeno geht doch auch und ich kann keinen Unterschied feststellen(von der Schreibweiße her)
Und wießo stehen die Themen immer spätestens nach einem Post auf gelöst obwohl sie noch nicht gelöst sind. -
-
Ist es Absicht dass die Pfade in Klammern kommen? Ich muss es mir noch mal anschauen. Und wenn sie in Klammern kommen, dann kommt ein Leerzeichen vor und nach dem "=".
Ich denke du wolltest es so (von den Pfaden her, rest des Scripts wird noch angesehen.)So interpretiere ich das
[autoit]#include <GUI Constants.au3>
[/autoit]
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Kool Savas - Lyrics by Bustd", 431, 482, 261, 123)
$Songtext = GUICtrlCreateEdit("", 0, 115, 425, 329)
$Song = GUICtrlCreateCombo("-Song-", 275, 5, 145, 25)
$str = "Orakel|NA"
GUICtrlSetData($song,$str)
$Album = GUICtrlCreateCombo("-Album-", 5, 5, 145, 25)
GUICtrlSetData(-1,"Tot Oder Lebendig|","Album...")
;$Songtext = GUICtrlCreateEdit("", 0, 115, 425, 329)
GUICtrlSetData(-1, "Songtext")
$Group1 = GUICtrlCreateGroup("About", 5, 30, 145, 80)
$Lyrik = GUICtrlCreateLabel("Lyrik sammelung 2007", 10, 55, 109, 17)
$Label1 = GUICtrlCreateLabel("Kool Savas - Optik Records", 10, 75, 135, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Greetings", 275, 30, 145, 80)
$Label2 = GUICtrlCreateLabel("Sandra <3, Marco", 285, 45, 89, 17)
$Label3 = GUICtrlCreateLabel("Sebi, Paul, Aki, Andrè", 285, 65, 107, 17)
$Label4 = GUICtrlCreateLabel("D-T-O.eu", 285, 85, 48, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("- Show Me -", 5, 450, 420, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
#cs ------------------------------------------------------------------------------------
Exit Warum war das auskommentiert und
_gui() woher kommt diese Funktion? Falls du sie wirklich erst nach Exit haben willst,
dann musst du sie OnAutoItExit() nennen, die du dann auch mit Func deklarierst (Siehe Hilfe)
#ce ------------------------------------------------------------------------------------
Exit
Case $Button1
$datapic = GUICtrlRead($Album)
$datatxt = GUICtrlRead($Song)
;create the right paths to the file with extension
$dir = @ScriptDir
$pfadofpixp1 = "\ksl\ap\"
$pfadoftxtp1 = "\ksl\ly\"
$pfadpics = $dir & $pfadofpixp1
$pfadtxt = $dir & $pfadoftxtp1
;combination for the pics via combobox
$pip1 = ".jpg"
$pip2 = $datapic & $pip1
$picfinish = $pfadpics & $pip2
;combination for the lyrics via other combobox
$txtp1 = ".txt"
$txtp2 = $datatxt & $txtp1
$txtpfadfinish = $pfadtxt & $txtp2
;songfile read and set
$songfile= FileOpen("",& $txtpfadfinish 0)
$songtxt = FileReadLine($songfile)
GUICtrlSetData($Songtext, $songtxt)
GUICtrlCreatePic("",& $picfinish 155, 5, 115, 105, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
EndSwitch
WEnd -
Was soll denn das???!!!!!
Ich hab gestern meinen Beitrag extra hier noch mal geschrieben, jetzt nist der weg und dafür der hier da der eigentlich gelöscht werden sollte!?
-
Wieso liefert das erste IniRead immer den Defaultwert, obwohl der Wert doh in der Ini hinterlegt ist?
Das ist die INI
;Begin
[ACK]
XC=630
MA=610
HA=630
AA=650
[MAK]
M1=630
M2=645
M3=660
M3=675
M4=690
M5=705
[HAK]
H1=505
H2=520
H3=535
H4=550
H5=565
H6=580
H7=595
H8=610
[AAK]
A1=540
A2=555
A3=570
A4=585
A5=600
A6=615
A7=630
;EndDas ist der betreffende Quellcodeabschnitt
[autoit]$XC = IniRead($KDP, "ACK", "XC", "Du hast den Wert XC verändert! Frage Fast2 doch einmal ob er dir eine neue INI gibt.");Dieses hier liefert immer "Du hast den Wert XC verändert! Frage Fast2 doch einmal ob er dir eine neue INI gibt."
[/autoit]
$MC = IniRead($KDP, "ACK", "MA", "Du hast den Wert MA verändert! Frage Fast2 doch einmal ob er dir eine neue INI gibt.");Die hier das richtige
$HC = IniRead($KDP, "ACK", "HA", "Du hast den Wert HA verändert! Frage Fast2 doch einmal ob er dir eine neue INI gibt.")
$AC = IniRead($KDP, "ACK", "AA", "Du hast den Wert AA verändert! Frage Fast2 doch einmal ob er dir eine neue INI gibt.")
$MK = IniRead($KDP, "MAK", $MFIY, "Du hast den Wert "&$MFIY&" verändert! Frage Fast2 doch einmal ob er dir eine neue INI gibt.")
$HK = IniRead($KDP, "HAK", $HFIY, "Du hast den Wert "&$HFIY&" verändert! Frage Fast2 doch einmal ob er dir eine neue INI gibt.")
$AK = IniRead($KDP, "AAK", $AFIY, "Du hast den Wert "&$AFIY&" verändert! Frage Fast2 doch einmal ob er dir eine neue INI gibt.")
MsgBox(0, "INI", $XC);Hier sieht man die falsche Ausgabe von $XC
MsgBox(0, "INI", $MC)
MsgBox(0, "INI", $HC)
MsgBox(0, "INI", $AC)
MsgBox(0, "INI", $MK)
MsgBox(0, "INI", $HK)
MsgBox(0, "INI", $AK)
$NU = $XC&$MC&$HC&$AC&$MK&$HK&$AK
If not StringIsDigit($NU) = 1 Then MsgBox(0, "Test", "Test");Die kommt immer
Select
Case StringIsDigit($XC) = 0;Die auch
MsgBox(0, "Test", "Test1")
Case StringIsDigit($MC) = 0
MsgBox(0, "Test", "Test2")
Case StringIsDigit($HC) = 0
MsgBox(0, "Test", "Test3")
Case StringIsDigit($AC) = 0
MsgBox(0, "Test", "Test4")
Case StringIsDigit($MK) = 0
MsgBox(0, "Test", "Test5")
Case StringIsDigit($HK) = 0
MsgBox(0, "Test", "Test6")
Case StringIsDigit($AK) = 0
MsgBox(0, "Test", "Test7")
EndSelectDas ganze Script falls relevant
[autoit]#cs -----------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
AutoIt Version: 3.2.8.1
Von: Fast2Funktion:DragRacer3 Automatisierung
[/autoit]
#ce -----------------------------------------------------
;Anfang
#include <GUIConstants.au3>
#include <GUICombo.au3>
$MA = "Rock|Classic Rock|Hard Rock|Pop|HipHop|Rap"
$HA = "Speed|Graffiti|Skyline|Cityscape|Muscle|Money|Cash|Base"
$OA = "Outskirts (0Cr)|Hi-Rev Tuners Section (100 Cr)|'Pump It UP!' Section (100 Cr)|Luxury Section (200 Cr)|Food Court (200 Cr)|Main Floor (500 Cr)|Front Entrance(1000 Cr)"
$KDO = @AppDataCommonDir&"\XT\KD"
$KDP = $KDO&"\KOI.ini"
$OD = DirCreate($KDO)
FileInstall("C:\Dokumente und Einstellungen\Fabian\Desktop\AutoItDateien\Hilfsdateien\KOI.ini", @TempDir&"\KOI.ini", 1)
If not FileExists($KDP) Then FileMove(@TempDir&"\KOI.ini", $KDP, 9)
$G1 = GUICreate("Drag Racer Trainer", 600, 250)
GUISetFont(14)
GUICtrlCreateLabel("Dieser Trainer Automatisiert den Show Off Modus von Drag Racer v3", 20, 20)
GUICtrlCreateLabel("Achtung! Dieser Trainer wurde nur für die Auflösung 1280x1024 getestet", 60, 60)
GUICtrlCreateLabel("Bitte wählen sie im folgenden Fenster aus den Einstellungen", 60, 100)
$W1 = GUICtrlCreateButton("Weiter", 380, 210, 80)
$F1 = GUICtrlCreateButton(" Fertig", 500, 210, 75)
$Fa1 = GUISetBkColor(0x0000CD)
GUISetState(@SW_Show, $G1)
$G2 = GUICreate("Drag Racer Trainer Auswahl", 600, 150)
GUISetBkColor(0x0000CD)
$CBM = GUICtrlCreateCombo("Bitte wählen sie die Musik", 25, 20, -1 ,-1, BitOr($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))
GUICtrlSetData($CBM, $MA)
$CBH = GUICtrlCreateCombo("Bitte wählen sie den Hintergrund", 25, 65, -1 ,-1, BitOr($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))
GUICtrlSetData($CBH, $HA)
$CBA = GUICtrlCreateCombo("Bitte wählen sie den Ausstellungsort", 25, 110, -1 ,-1, BitOr($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))
GUICtrlSetData($CBA, $OA)
$R1 = GUICtrlCreateRadio("Das Spiel ist in einem Fenster ", 280, 25, 300)
$R2 = GUICtrlCreateRadio("Das Spiel ist in einem Task ", 280, 60, 300)
$B2 = GUICtrlCreateButton("Bestätigen", 425, 100, 110, 35)
$B3 = GUICtrlCreateButton("Abbrechen", 280, 100, 110, 35)
GUICtrlSetFont($R1, 14, 150)
GUICtrlSetFont($R2, 14, 150)
GUICtrlSetFont($B2, 14, 150)
GUICtrlSetFont($B3, 14, 150)
While 1
$msg = GUIGetMsg()
If $msg = $W1 Then
GUISetState(@SW_Show, $G2)
GUISetState(@SW_Hide, $G1)
EndIf
Select
Case $msg = $B3 Or $msg = $F1 Or $msg = $GUI_Event_Close
Exit
Case $msg = $B2
$CB1 = GUICtrlRead($CBM)
$CB2 = GUICtrlRead($CBH)
$CB3 = GUICtrlRead($CBA)
$RB1 = GUICtrlRead($R1)
$RB2 = GUICtrlRead($R2)
Select
Case $RB1 = 1
$FoT = 0
Case $RB2 = 1
$FoT = 25
Case Else
MsgBox(0, "Bitte Wählen", "Sie haben dem Programm nicht mitgeteilt," & @CRLF & "ob das Programm in einem Task ist oder nicht!")
EndSelect
$MFI = _GUICtrlComboGetCurSel($CBM)
$HFI = _GUICtrlComboGetCurSel($CBH)
$AFI = _GUICtrlComboGetCurSel($CBA)
$MFIY = "M"&$MFI
$HFIY = "H"&$HFI
$AFIY = "A"&$AFI
MsgBox(0, "Test", "Bei Musik haben sie das ausgewählt: "&$CB1&@CRLF&"Das entspricht: "&$MFIY)
MsgBox(0, "Test", "Bei Hintergrund haben sie das ausgewählt: "&$CB2&@CRLF&"Das entspricht: "&$HFIY)
MsgBox(0, "Test", "Bei Ausstellungsort haben sie das ausgewählt: "&$CB3&@CRLF&"Das entspricht: "&$AFIY)
$XC = IniRead($KDP, "ACK", "XC", "Du hast den Wert XC verändert! Frage Fast2 doch einmal ob er dir eine neue INI gibt.")
$MC = IniRead($KDP, "ACK", "MA", "Du hast den Wert MA verändert! Frage Fast2 doch einmal ob er dir eine neue INI gibt.")
$HC = IniRead($KDP, "ACK", "HA", "Du hast den Wert HA verändert! Frage Fast2 doch einmal ob er dir eine neue INI gibt.")
$AC = IniRead($KDP, "ACK", "AA", "Du hast den Wert AA verändert! Frage Fast2 doch einmal ob er dir eine neue INI gibt.")
$MK = IniRead($KDP, "MAK", $MFIY, "Du hast den Wert "&$MFIY&" verändert! Frage Fast2 doch einmal ob er dir eine neue INI gibt.")
$HK = IniRead($KDP, "HAK", $HFIY, "Du hast den Wert "&$HFIY&" verändert! Frage Fast2 doch einmal ob er dir eine neue INI gibt.")
$AK = IniRead($KDP, "AAK", $AFIY, "Du hast den Wert "&$AFIY&" verändert! Frage Fast2 doch einmal ob er dir eine neue INI gibt.")
MsgBox(0, "INI", $XC)
MsgBox(0, "INI", $MC)
MsgBox(0, "INI", $HC)
MsgBox(0, "INI", $AC)
MsgBox(0, "INI", $MK)
MsgBox(0, "INI", $HK)
MsgBox(0, "INI", $AK)
$NU = $XC&$MC&$HC&$AC&$HK&$AK
If not StringIsDigit($NU) = 1 Then MsgBox(0, "Test", "Test")
Select
Case StringIsDigit($XC) = 0
MsgBox(0, "Test", "Test1")
EndSelect
Select
Case StringIsDigit($MC) = 0
MsgBox(0, "Test", "Test2")
EndSelect
Select
Case StringIsDigit($HC) = 0
MsgBox(0, "Test", "Test3")
EndSelect
Select
Case StringIsDigit($AC) = 0
MsgBox(0, "Test", "Test4")
EndSelect
Select
Case StringIsDigit($MK) = 0
MsgBox(0, "Test", "Test5")
EndSelect
Select
Case StringIsDigit($HK) = 0
MsgBox(0, "Test", "Test6")
EndSelect
Select
Case StringIsDigit($AK) = 0
MsgBox(0, "Test", "Test7")
EndSelect
EndSelect
WEnd
Danke schonmal für jede Idee.
Fast2Edit: Es liegt wahrscheinlich nicht an der Ini (Tipp von Westi)
-
Ah! Danke, das ist doch mal nicht schlecht.
Endlich weiß ich mal was man damit machen kann. -
Was hat es eigentlich mit diesen Dummycontrols auf sich? Ich finde dazu irgendwie nix.
-
@Wolf: Danke, mal anschauen.
-
Warum muss es dann bei IniWrite dann angegeben werden und bei IniRead nicht? Dann kann man es doch gleich weglassen.
-
Ne eigentlich wegen dieser Zeile
[autoit]$pw2 = IniRead("text.ini", "Pw", "User", "ERROR")
[/autoit] -
Aha! Mal wieder was dazugelernt.
-
Cool das nenn ich doch mal nützlich (mich stört auch dass man nicht mehr Dekompilieren kann)
-
Muss
[autoit]Func _IniValueExists($sFile, $sIniSection, $sIniKey, $sIniValue)
[/autoit]
$var = IniRead($sFile, $sIniSection, $sIniKey, "error")
If $var = $sIniValue Then Return 1
Return 0
EndFunc
[autoit]
NichtFunc _IniValueExists($sFile, $sIniSection, $sIniKey, $sIniValue)
[/autoit]
$var = IniRead($sFile, $sIniSection, $sIniKey, "error")
If $var = $sIniValue Then Return 1
Else;<- Das hat gefehlt
Return 0
EndFunc
sein?
Edit:Ne doch nicht. -
Für was ist das jetzt genau gut? Ist das sio was wie Dekompilieren oder so was wie "Undo" ?
-
@Ini Read: Seit wann "merkt" sich AutoIt denn wo die Ini ist, in die geschrieben wurde?
-
Gibts auch was ähnlich gutes wie Photoshop, aber kostenlos? Ich möchte mir nämlich auch einen Avatar selbst machen und der von GTA sieht ja schon geil aus.