Beiträge von blubbstar
-
-
Aber das geht ja eig. garnicht, da der Code ja bei der MsgBox nicht weiter ausgeführt wird. Höchstens mit Adlibenable oder so Aber wozu eigentlich? Wenn du die MsgBox aufrufst, ist sie da. Ist doch logisch ;).
-
-
Zeig uns mal deine EditBox
Oder setzt mal $ES_WANTRETURN als style. -
Manuell starten übern Task-Manager :D?
-
Du meinst den Button, der unter dem Slider bei "Steuern einstellen" ist? Das liegt daran das der Slider zu hoch ist und anschließend den Button überdeckt.
Mach den Slider in Zeile 77 so:
[autoit]Global $steuerslider = GUICtrlCreateSlider(105, 300, -1, 50)
[/autoit] -
-
-
-
-
Hallo, das ist so nicht ganz richtig.
Wenn du die Taste während des sleeps von 50ms drückst, wird der Tastendruck im Regelfall trozdem erkannt, da du die Taste i.d.R. locker 50ms lange drückst. Wenn die Schleife also wieder das _IsPressed erreicht und du noch auf der Taste bist, wird diese als gedrückt erkannt. Im Regelfall sollte jeder Tastendruck bei 50ms erkannt werden. Es ist sogar z. T. fast das Gegenteil der Fall. Es kann passieren das er 2x den Tastendruck erkennt, du musst halt dafür sorgen das die _IsPressed Bedingung auch seine Zeit benötigt und nicht sofort wieder zu Ende ist. Hier mal ein Beispiel, beim Code immer rechtes ctrl drücken:Spoiler anzeigen
[autoit]#include <Misc.au3>
[/autoit] [autoit][/autoit] [autoit]$dll = DllOpen("user32.dll")
[/autoit]
$a = 0
ToolTip($a)
While 1
If _IsPressed("A3", $dll) Then
$a += 1
ToolTip($a)
Sleep(50)
EndIf
Sleep(50)
WEnd -
Und welchen Sinn hat das Ganze?
-
-
-
1. _FileCountLines
-
[autoit]
#include <array.au3>
[/autoit]
$str = '</td>' & @CRLF & _
'<td class="nowrap" align="right">' & @CRLF & _
'3.74 GB </td>' & @CRLF & _
'<td class="nowrap">' & @CRLF & _
'a.b.nl<br/> </td>' & @CRLF & _
'<td class="nowrap" align="right">' & @CRLF & _
'13.7 dagen </td>' & @CRLF & _
'</tr>'
$regexp = StringRegExp($str, "<td.+>\r\n(.+)</td>", 3)
_ArrayDisplay($regexp) -
Hej, ich glaube das liegt daran, das der die File mit dem Namen des ganzen Pfades abspeichern möchte und nicht nur den Namen alleine. Bin mir da aber nicht so sicher
Edit: Mach die RunFunktion mal so, dann dürfte es klappen:
Spoiler anzeigen
[autoit]Func _Run()
[/autoit]
FileDelete(IniRead(@ScriptDir & "\config.ini", "Pfad", "Temp", ""))
If @error > 0 Then
MsgBox(16, "Tutorial-Engine", "Es ist ein Fehler beim Resetten der temporären Datei aufgetreten!")
Exit
EndIf
_FileCreate(IniRead(@ScriptDir & "\config.ini", "Pfad", "Temp", ""))
If @error > 0 Then
MsgBox(16, "Tutorial-Engine", "Es ist ein Fehler beim Resetten der temporären Datei aufgetreten!")
Exit
EndIf
$Pfadsplit = StringSplit(IniRead(@ScriptDir & "\config.ini", "Pfad", "Temp", ""), "\")
$FileName = $Pfadsplit[UBound($Pfadsplit) - 1]
$FilePath = StringTrimRight(IniRead(@ScriptDir & "\config.ini", "Pfad", "Temp", ""), StringLen($FileName))
Run(IniRead(@ScriptDir & "\config.ini", "Pfad", "SciTE", "") & " " & $FileName, $FilePath)
Sleep(200)
WinSetState("[CLASS:SciTEWindow]", "", @SW_MAXIMIZE)
WinMove("[CLASS:SciTEWindow]", "", 0, 0, @DesktopWidth - 215, @DesktopHeight - 25)
$Tut_Form1 = GUICreate("Tutorial-Engine", 200, @DesktopHeight - 60, @DesktopWidth - 210, 5, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE))
GUISetBkColor(0xFFFFFF)
GUISetOnEvent($GUI_EVENT_CLOSE, "Tut_Form1Close")
Local $Pos = WinGetClientSize($Tut_Form1)
$tut_Label1 = GUICtrlCreateLabel($Titel, 0, 0, 200, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$tut_Edit1 = GUICtrlCreateEdit("", 0, 25, 200, $Pos[1] - 130, BitOR($ES_READONLY, $ES_WANTRETURN, $WS_HSCROLL, $WS_VSCROLL))
GUICtrlSetBkColor(-1, 0xFFFFFF)
$tut_Button1 = GUICtrlCreateButton("Weiter", 0, $Pos[1] - 100, 200, 25, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent(-1, "tut_Button1Click")
$tut_Button2 = GUICtrlCreateButton("Tipp", 0, $Pos[1] - 70, 200, 25, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetOnEvent(-1, "tut_Button2Click")
$tut_Label2 = GUICtrlCreateLabel("", 0, $Pos[1] - 34, 200, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$tut_Label3 = GUICtrlCreateLabel("(c) " & $autor & ", " & $Datum & ".", 0, $Pos[1] - 17, 200, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUISetState()
_steigerung()
EndFunc ;==>_Run -
Naja, also das mit den Keys, haha, versteckte ini-Datei. Das Spiel ist bei mir total buggy, ich glaube ich schaff es nichtmal 5 Sekunden ohne Absturz zu spielen. Die Controls könnten mMn. auch etwas zentriert werden. Ist also noch deutlich verbesserungsbedürftig. Für den Anfang aber ganz in Ordnung :).
-
[Heute, 18:22] peethebee: Helptranslation ist gerade mal down, ich muss was am Server machen. Es kann eine Weile dauern.
[Heute, 18:26] peethebee: Und die Downloadbox. -
Spoiler anzeigen
[autoit]$datei = @ScriptDir & "\Datei.ini"
[/autoit]
$Selektions = IniReadSectionNames($datei)
If Not IsArray($Selektions) Then
$Anzahl = 1
Else
$Anzahl = $Selektions[0] + 1
EndIf
IniWrite($datei, $Anzahl, "Farbe", $Xfarbe)
IniWrite($datei, $Anzahl, "Name", $sname)
IniWrite($datei, $Anzahl, "x", $sxist)
IniWrite($datei, $Anzahl, "y", $syist)