Beiträge von anno2008
-
-
Hi,
was steht nachher in der Datei drin?
Weil es gibt CommandLine tools von Windows, das dir diese Aufgabe abnimmt. -
So wie peethebee das gemacht hat ist das schon schöner, aber er hat die _ für newline vergessen.
[autoit]If Not FileExists("D:\Workflow\TRIAS Cover\10x16\*.*") _
[/autoit]
And Not FileExists("D:\Workflow\TRIAS Cover\12x19\*.*") _
And Not FileExists("D:\Workflow\TRIAS Cover\15x18\*.*") _
And Not FileExists("D:\Workflow\TRIAS Cover\16x21\*.*") _
And Not FileExists("D:\Workflow\TRIAS Cover\17x24\*.*") _
And Not FileExists("D:\Workflow\TRIAS Cover\22x23\*.*") _
And FileExists("D:\Workflow\Aktuell\cut\*.*") Then
AcrobatStapel("pdf150")
AcrobatStapel("jpg300")
Else
MsgBox(0, "nixda", "keinedatenzuverarbeiten", 3)
EndIf -
:D:D:D:D
Das liegt an Scite.
Sobald du nochmal Hallo sendest geht so ein Auswahlfenster auf. Wenn du dann enter drückst wird die Auswahl übernommen und keine neue Zeile angefügt.Im Editor z.B. gehts.
anno2008
/Edit: och menno :(, immer zu spät :P-
-
Meinst du den Style $WS_EX_TOOLWINDOW?
Bzw. was meinst du mit normalem GUI-Fenster? -
Hi,
[autoit]
noch ein paar Grundlegende Sachen...If IsArray($Variable) = True Then
[/autoit]
[autoit]
Das würde man so nie schreiben.If IsArray($Variable) Then ; das reicht
[/autoit]Genauso bei
[autoit]ElseIf IsArray($Variable) = False Then @error
[/autoit][autoit]ElseIf Not IsArray($Variable) Then @error ; wobei das @error unsinnig ist. Das ist eigentlich nur ein Rückgabewert.
[/autoit]Das hätte gereicht:
[autoit]HotKeySet("{ESC}", "_Exit")
[/autoit][autoit][/autoit][autoit]While 1
[/autoit][autoit][/autoit][autoit]
$Variable = PixelSearch(724, 865, 1068, 916, 0xFFFFE1)
If IsArray($Variable) Then Shutdown(1)
WEndFunc _Exit()
[/autoit]
Exit
EndFunc ;==>_Exitanno2008
-
Zitat
>Was könnte man noch verbessern bzw. hinzufügen?
ZitatDas skript soll erkennen wenn eine Meldung [...] auf meinem Bildschim erscheint
WinWait
[/autoit]Zitatper MouseMove und MouseClick der PC ausgeschaltet werden
[autoit]
Wie schon gesagtShutdown
[/autoit] -
Hi,
das kommt dann auf das Spiel an. Wahrscheinlich blockt das Game AutoIt.anno2008
-
Hi,
[autoit]
ohne dein ganzes Script kann man da nicht viel sagen.
Ich gehe mal davon aus, dass du die Sleeps in einer Funktion verwendest, dann Probier mal die Inputs Global zu deklarieren, also so:Global $Wartezeit = GUICtrlCreateInput("Wartezeit", 168, 80, 161, 24, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
[/autoit]
Wenn das nicht geht, dann musst du uns schon das ganze Script zeigen ;).anno2008
-
Hi,
[autoit]
meinst du so?$input = InputBox("test", "Gib einen Text ein :)", "Teeeeest")
[/autoit]
If Not @error Then
Send($input)
EndIf -
Mit der AutoIt Beta könntest du AdlibRegister ( "function" [, time] ) benutzen:
Irgendwie ist das schon sau blöd sich selber zu Zitieren ^^.
Wer lesen kann ...Und ich kann dir schon jetzt sagen, viel Spass bei c++ :D. Wenn du nicht mal AutoIt einigermaßen hinbekommst ...
Probier mal das, ich habs wieder nicht getestet...
Spoiler anzeigen
[autoit]WinWaitActive("Unbenannt - Editor")
[/autoit] [autoit][/autoit] [autoit]AdlibEnable("_testfunc1", 5000)
[/autoit] [autoit][/autoit] [autoit]Func _testfunc1()
[/autoit] [autoit][/autoit] [autoit]
$1 = 1
$2 = 1
$3 = 1
$test = 1
$test2 = 1
$test3 = 0
If $1 = $test And ($2 = $test2 Or $3 = $test3) Then
Send("Ich bin nicht da")
EndIf
Sleep(5000)
_testfunc2()
EndFunc ;==>_testfunc1Func _testfunc2()
[/autoit]
$1 = 1
$2 = 1
$3 = 1
$test = 1
$test2 = 1
$test3 = 0
If $1 = $test And ($2 = $test2 Or $3 = $test3) Then
Send("doch bist du")
EndIf
EndFunc ;==>_testfunc2 -
Hi,
das was du "Local Sleep" nennst gibts nicht :).Sleep pausiert das ganze Script, immer!
Mit der AutoIt Beta könntest du AdlibRegister ( "function" [, time] ) benutzen:kann leider gerade nicht testen
[autoit];~ #include <Sound.au3>
[/autoit] [autoit][/autoit] [autoit]WinWaitActive("Unbenannt - Editor")
[/autoit] [autoit][/autoit] [autoit];~ Local $sleepy = Sleep (10000) ; <-- das is quatsch ^^. Sleep hat keinen Rückgabewert. Die Variable $sleepy enthält also nix ...
[/autoit] [autoit][/autoit] [autoit]AdlibRegister("_testfunc1", 10000)
[/autoit] [autoit][/autoit] [autoit]
AdlibRegister("_testfunc2", 5000); die erste func
[/autoit] [autoit][/autoit] [autoit]
Func _testfunc1()
$1 = 1
$2 = 1
$3 = 1
$test = 1
$test2 = 1
$test3 = 0
If $1 = $test And ($2 = $test2 Or $3 = $test3) Then
Send("Ich bin nicht da")
EndIf
EndFunc ;==>_testfunc1Func _testfunc2()
[/autoit]
$1 = 1
$2 = 1
$3 = 1
$test = 1
$test2 = 1
$test3 = 0
If $1 = $test And ($2 = $test2 Or $3 = $test3) Then
Send("doch bist du")
EndIf
EndFunc ;==>_testfunc2anno2008
-
Spoiler anzeigen
[autoit]#include <Misc.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <WindowsConstants.au3>Global $Form1, $Label1, $Input1, $Label2, $Button1, $versuch = 3
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To 255
If _IsPressed(Hex($i, 2)) Then
_passwort()
EndIf
Next
Sleep(10)
WEndFunc _passwort()
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Kindersicherrung", 352, 126, 480, 263, $WS_POPUP)
$Label1 = GUICtrlCreateLabel("Bitte gib das Passwort ein.", 8, 8, 332, 17)
$Input1 = GUICtrlCreateInput("", 8, 40, 337, 21, $ES_PASSWORD)
$Label2 = GUICtrlCreateLabel("Sie haben noch " & $versuch & " Versuche !", 8, 72, 340, 17)
$Button1 = GUICtrlCreateButton("OK", 136, 96, 75, 25, $WS_GROUP)GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
_MouseTrap(480, 263, 352 + 480, 126 + 263)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
_enter()
EndSwitchIf _IsPressed("0D") Then
[/autoit] [autoit][/autoit] [autoit]
While _IsPressed("0D")
Sleep(10)
WEnd
_enter()
EndIf
WEnd
EndFunc ;==>_passwortFunc _enter()
[/autoit]
$in = GUICtrlRead($Input1)
If $in <> "test" Then
$versuch -= 1
GUICtrlSetData($Label2, "Sie haben noch " & $versuch & " Versuche !")
EndIf
If $in = "test" Then Exit
If $versuch = 0 Then
Shutdown(1)
Exit
EndIf
EndFunc ;==>_enter -
Hi,
"richtige" Zufallszahlen kann Random nicht generieren, weil das so nicht möglich ist. (Sie sind unter bestimmten Bedingungen zurückrechenbar).
Allerding sind die Zahlen für einen Würfel auf jeden Fall zufällig genug.
Das was du rausgefunden hast, entspricht doch genau dem was man in Mathe gelernt hat.
Die Wahrscheinlichkeit eine bestimmte Zahl zu treffen liegt bei 1/6. Auf Dauer werden sich die Wahrscheinlichkeiten aber angleichen. Führe dein Programm 1 Mio mal aus und du wirst sehen, die Wahrscheinlichkeiten werden immer gleicher Verteilt. Das ganze kannst du auch in der Realität ausprobieren. Nimm einen Würfel und würfele 100 mal. Du wirst sehen, jede Zahl kommt ungefähr gleich oft raus.Also einen Beweis, dass random nicht zufällig ist hast du nicht erbracht eher genau das gegenteil ;).
anno2008
/PS.
[autoit]
dein Programm finde ich aus etwas kompliziert :D.#Include <Array.au3>
[/autoit]
Global $array[7]
for $i = 0 to 10000000
$array[Random(1,6,1)] += 1
Next
_ArrayDisplay($array) -
Hi,
ja, es gibt auch eine "Seite" :). -
Bots sind hier nicht erlaubt .
-
Hi,
dann ist das ein Syntaxfehler. Das Script von Xeno so wie es ist funktioniert ja. Um den Fehler zu beheben musst du schon dein ganzes Script Zeigen.PS.
[autoit]
Wenn du wirklich nur das Datum willst, kannst du auch das nehmen:#include <Date.au3>
[/autoit][autoit][/autoit][autoit]
MsgBox(0, "", _NowDate()); oder
[/autoit][autoit][/autoit][autoit]MsgBox(0, "", @MDAY & "." & @MON & "." & @YEAR)
[/autoit] -
Hi,
Spoiler anzeigen
[autoit]; Authors: Manadar, GarryFrost
[/autoit] [autoit][/autoit] [autoit]
; Contributor: WideBoyDixon#include <WinAPI.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
#include <Array.au3>#include-once
[/autoit] [autoit][/autoit] [autoit]Dim $hHook
[/autoit] [autoit][/autoit] [autoit]
Dim $hStub_KeyProc = DllCallbackRegister("_KeyProc", "long", "int;wparam;lparam")
Dim $hmod = _WinAPI_GetModuleHandle(0)
Dim $hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hStub_KeyProc), $hmod)
Dim $buffer = ""
Dim $hotstrings[1]
Dim $hotfuncs[1]
Dim $hWnd = GUICreate("")
GUIRegisterMsg($WM_KEYDOWN, "_GUIKeyProc");; ==========================
[/autoit] [autoit][/autoit] [autoit]
;; This is your actual script.
;; ==========================;#include <HotString.au3>
[/autoit] [autoit][/autoit] [autoit]HotStringSet("CallMe","examplefunction")
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(10)
WEndFunc examplefunction()
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"","lolwat!")
EndFunc;; ==========================
[/autoit] [autoit][/autoit] [autoit]
;; End of actual script.
;; The part above the start of the actual script
;; and below this comment
;; script can be put in another
;; file and included.
;; ==========================Func HotStringSet($hotstring, $func)
[/autoit] [autoit][/autoit] [autoit]
_ArrayAdd($hotstrings, $hotstring)
_ArrayAdd($hotfuncs, $func)
EndFuncFunc EvaluateKey($keycode)
[/autoit] [autoit][/autoit] [autoit]
If (($keycode > 64) And ($keycode < 91)) _ ; A - Z
Or (($keycode > 47) And ($keycode < 58)) Then ; 0 - 9
$buffer &= Chr($keycode)
Print($buffer)
$a = _ArraySearch($hotstrings, $buffer)
If ( $a >= 0 ) Then
Call($hotfuncs[$a])
EndIf
ElseIf ($keycode > 159) And ($keycode < 164) Then
Return
Else
$buffer = ""
EndIf
EndFunc ;==>EvaluateKeyFunc _GUIKeyProc($hWnd, $Msg, $wParam, $lParam)
[/autoit] [autoit][/autoit] [autoit]
EvaluateKey(Number($wParam))
EndFunc;===========================================================
[/autoit] [autoit][/autoit] [autoit]
; callback function. This function must return as quickly as possible or it will stall and block user input
;===========================================================
Func _KeyProc($nCode, $wParam, $lParam)
Local $tKEYHOOKS
$tKEYHOOKS = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam)
If $nCode < 0 Then
Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
EndIf
If $wParam = $WM_KEYDOWN Then
$vkKey = DllStructGetData($tKEYHOOKS, "vkCode")
_WinAPI_PostMessage($hWnd, $WM_KEYDOWN, $vkKey, 0)
EndIf
Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
EndFunc ;==>_KeyProcFunc Print($s)
[/autoit] [autoit][/autoit] [autoit]
ConsoleWrite($s & @CRLF)
EndFuncFunc OnAutoItExit()
[/autoit]
_WinAPI_UnhookWindowsHookEx($hHook)
DllCallbackFree($hStub_KeyProc)
EndFunc ;==>OnAutoItExitDas kann ganze Wörter als Hotkey setzen...
Quelle: Hotstring
anno2008
-
Hi,
jemand der einigermaßen gut Assembler kann, dem wird es nicht so schwer fallen, deine Routine zu nehmen und daraus einen Keygen zu schreiben. Oder man überspringt einfach den ganze Teil der Abfrage, das wird auch nicht so sonderlich schwer fallen. Die Spiele, wofür Cracks geschrieben werden sind extra geschützt gegen solche Maßnahmen, aber sie halten trotzdem nicht sehr lang. Da kann der Algorithmus noch so gut sein, jemand der das will, wird es auch geknackt bekommen.
Trotzdem ist die Idee ja ganz nett und man kanns sich ja mal anschauen :).anno2008
-
Hi,
da stimmt was mit der Datei nicht (siehe Peethebee)...
Mit der Datei im Anhang gehts. (Gleicher Inhalt nur in neues Dokument kopiert)anno2008