Wenn es keine gibt, dann mach die Datei doch selber:
[autoit]If FileExists(@TempDir & '\~AdobeAcrobat.tmp') Then
FileDelete(@TempDir & '\~AdobeAcrobat.tmp')
EndIf
WinWaitActive('Adobe Acrobat')
$File = FileOpen(@TempDir & '\~AdobeAcrobat.tmp', 2)
FileWrite($File, Chr(0))
FileClose($File)
FileSetAttrib(@TempDir & '\~AdobeAcrobat.tmp', '-RASH+T')
MfG, James
Das erste was du machen solltest ist die Tabellen mit Excel in dem .CSV-Format zu speichern.
Dieses Format lässt sich leicht auslesen, was das Skript stark vereinfachen sollte.
MfG, James
Ich hab 3.3.6.1 und 3.3.7.14 installiert, es ging aber auch bei früheren Versionen bei mir.
MfG, James
Bei mir funktioniert das genau so, bei ihm heute um 11 nicht.
So kann man nur bestimmt oft an einem Tag Credits bekommen, und selbst wenn man das Programm knackt kann man das nicht umgehen.
Du solltest in dem DllCall den Namen der Funktion angeben, die du aufrufen willst.
MfG, James
So geht es:
[autoit]#include <misc.au3>
[/autoit]
_MouseTrap(100,100,200,200)
Sleep(10000)
So war der Code in Post #1 am Anfang auch.
Ich habe Windows 7 Home Premium Service Pack 0A,v.1 64bit und es funktioniert.
MfG, James C.
Wie wärs mit einem einfachen Spiel, z.B. ein Auto in einem Rundkurs.
(Brauch ich zwar nicht, aber wenns dem Verbessern der Fähigkeiten dient.)
MfG, James C.
Edit:
Es muss ja keine gute Grafik haben, ein mit Paint gezeichnetes Bild reicht völlig.
Edit2:
Als ersten Versuch vielleicht die Grafiken komplett weglassen und nur mit Formen arbeiten.
Ein Bemühen der Forumssuche hätte dir den Wettbewerb dazu geliefert. Hier der Ergebnispost: [Beendet] µitLight März
Ich weis, das ist nichts neues, oder aufregendes (, oder gutes), aber mir war langweilig.
PenGuin: Das ist eigentlich so wie mein Skript, nur das es in Funktionen aufgeteilt wurde.
MfG, James
Also ich habe jetzt lange Zeit darüber nachgedacht und denke, dass man es einfach nicht sicher gestalten kann. Dadurch dass das AutoIt Programm reversed werden kann, ist es meiner Meinung nach nicht möglich, die Surfbar zu sichern.
Würde ich so nicht sagen:
Jeder Client muss sich doch irgendwie authentifizieren, oder?
Dann brauchst du nur einen Server, der jeden Tag um Mitternacht für jeden Benutzer einen Key erstellt, und dieser Key nach dem 3. mal (oder 1. mal) benutzen deaktiviert wird und der Benutzer dann auf einen neuen Key warten muss.
MfG, James C.
Ja klar, schau dir mal die "au3.keywords.properties" in SciTE unter "Options" an.
Da kannst du dann bei "au3.keywords.udfs" deine Funktion einfügen.
Das würde ich allerdings nicht bei jeder Funktion machen, nur wenn die Funktion wirklich, wirklich gut ist.
MfG, James C.
Für die einfachen Sachen (also ohne Frames, Videos, ...) würde doch auch ein Rich-Edit zur Darstellung reichen.?
MfG, James
Dein Skript zeigt auch die 1 an
Man sollte ja auch immer bei >=2 anfangen.
Jetzt nicht mehr. 
Vielen Dank, Luki
Ich habe das 2. Skript geändert.
MfG, James
Edit:
Das 1. Skript ist jetzt auch aktuell.
Es überprüft jetzt keine ungeraden Zahlen mehr.
Danke, hier Version 2:
[autoit]#NoTrayIcon
[/autoit][autoit][/autoit][autoit]GUICreate('autoit.de Primzahlen-Generator von James', 400, 300)
$ListView = GUICtrlCreateListView('Zahl |Status ', 20, 20, 360, 220)
$gVon = GUICtrlCreateInput(2, 20, 260, 50, 20, 0x2000)
$gBis = GUICtrlCreateInput(100, 80, 260, 100, 20, 0x2000)
$gAlle = GUICtrlCreateCheckbox('Alle Zahlen anzeigen', 190, 260, 120, 20)
$Start = GUICtrlCreateButton('Start', 320, 260, 60, 20)
GUISetState(@SW_SHOW)
Do
$Msg = GUIGetMsg()
If $Msg = $Start Then
$Von = GUICtrlRead($gVon)
$Bis = GUICtrlRead($gBis)
$Alle = GUICtrlRead($gAlle)
GUICtrlDelete($ListView)
$ListView = GUICtrlCreateListView('Zahl |Status ', 20, 20, 360, 220)
For $n = $Von To $Bis Step 1
$prime = 0
For $x = 2 To Ceiling($n^0.5) Step 1
If $x > 2 And Mod($x, 2) = 0 Then
Else
If Mod($n, $x) == 0 And ($n/$x > 1) Then
If $Alle = 1 Then
GUICtrlCreateListViewItem($n & '|' & $x & ' * ' & $n/$x, $ListView)
EndIf
$prime = 1
ExitLoop
EndIf
If GUIGetMsg() = -3 Then Exit
EndIf
Next
If $n > 1 And $prime = 0 Then
GUICtrlCreateListViewItem($n & '|Primzahl', $ListView)
EndIf
Next
EndIf
Until $Msg = -3
Hier mal ein kleines Skript zum Berechnen der Primzahlen bis 1000:
[autoit]For $n = 2 To 100 Step 1
$prime = 0
For $x = 2 To Ceiling($n/0.5) Step 1
If $x > 2 And Mod($x, 2) = 0 Then
Else
If Mod($n, $x) == 0 And ($n/$x > 1) Then
ConsoleWrite($n & ' equals ' & $x & ' * ' & $n/$x & @CRLF)
$prime = 1
ExitLoop
EndIf
EndIf
Next
If $n > 1 And $prime = 0 Then
ConsoleWrite($n & ' is a prime number' & @CRLF)
EndIf
Next
Wenn man den Kommentar in Zeile 7 entfernt, erhält man gleich die Information, weshalb die andern Zahlen keine Primzahlen sind.
Ich weis, das ist nichts neues, oder aufregendes (, oder gutes), aber mir war langweilig.
MfG, James C.
