ich würds per switch machen (is iwie sauberer^^)
Ich denke, das ist nicht der Punkt 
- wichtiger (wenn auch in dem Bsp. nicht von Belang) ist die Geschwindigkeit. Und da ist das If-Statement eine absolute Performancebremse.
Kann mich noch gut an µit-BigInteger erinnern. Mit jedem entfernten If..Then wurde das Skript deutlich schneller. 
stimmen die parameter???? und das mit dem strlen??
Du mußt natürlich auch den betreffenden Wert des Rückgabe array auslesen.
$string = "das ist ein test"
$len = StringLen($string)*2
$ret = DllCall("netapi32.dll", "int", "NetMessageBufferSend", _
"wstr", 0, _ ;servername
"wstr", 0, _ ;msgname
"wstr", "TEST", _ ;fromname
"wstr", $string, _ ;buf
"int", $len) ;buflen
;~ $ret[0] = Erfolgswert (0 = Fehler)
;~ $ret[1] = Param1 = servername
;~ $ret[2] = Param2 = msgname
;~ $ret[3] = Param3 = fromname
;~ $ret[4] = Param4 = buf
;~ $ret[5] = Param5 = buflen
MsgBox(0, "RETURN", 'from: ' & $ret[3] & @LF & $ret[4])
Edit: Törö -- Das war mein Post Nr. 3333 ==> Ihr dürft ein Glas Milch auf mein Wohl trinken 
Habe das Bsp. noch etwas nachgebessert. Die gemischte Ausgabe wird jetzt innerhalb jedes Stapels sortiert.
Die Reihenfolge der Farben und Karten habe ich auch berichtigt. Hätte eigentlich Sinn gemacht, wenn diese in der Dll nach Farben und Werten aufsteigend enthalten sind. Aber Kreuz als erste Farbe und As als erste Karte... In Redmond ticken die Uhren halt doch anders.
Als XPI kann man es nicht verwenden, das wird von K-Meleon nicht unterstützt. Ich probier mal ob es per Hand geht.
Edit: Wie erwartet blieb die Installation per Hand ohne Wirkung. Ich habe mal im K-Meleon Forum eine Anfrage gesetzt.
Laß dir mal den Wert von
[autoit]$hInstance = _WinAPI_LoadLibraryEx ($ressource, $LOAD_LIBRARY_AS_DATAFILE)
[/autoit]in die Konsole ausgeben. Falls $hInstance = 0 ist, dann hast du die cards.dll nicht auf dem PC. Allerdings ist die ab Win98 definitiv dabei, bei Vista weiß ich nicht.
Ooch, da fällt mir schnell ein Bsp. ein. Z.B. wird mal eben schnell das Messenger-Fenster eingeblendet, weil Mama Bescheid sagt, dass Essen gleich fertig ist - Und schon ist OnTop wech...
funkey: Das ist wirkungslos, wenn sich ein anderes Fenster OnTop setzt.
Hier mal ein Muster, brauchst nur deine Werte einsetzen.
[autoit]HotKeySet('!e', '_ende')
Global $arBereich[2][2] = [[50,100],[200,200]] ; von x=50, y=100 bis x=200, y=200
While True
$pos = MouseGetPos()
If ($pos[0] >=$arBereich[0][0]) And ($pos[0] <=$arBereich[1][0]) And _
($pos[1] >=$arBereich[0][1]) And ($pos[1] <=$arBereich[1][1]) Then _
MouseMove($arBereich[0][0], $arBereich[0][1])
Sleep(100)
WEnd
Func _ende()
Exit
EndFunc
Ja prima, warte sehnsüchtig drauf.
Er möchte nur das Klicken sperren.
Ja eben, und das simpelste ist es deshalb, die Maus nicht in den verbotenen Bereich zu lassen. Denn wenn ich dort nicht klicken darf, brauche ich dort auch nicht sein.
Wenn du die Position kennst, kannst du diese ständig mit der Mausposition vergleichen. Sollte die Maus in den Bereich kommen setzt du sie einfach mit MouseMove woanders hin.
Das würde aber im Widerspruch zu seinem Sofort-Löschen-Wollen stehen.
Aber da können wir lange sinnieren, alle Möglichkeiten sind aufgezeigt - alles andere liegt bei ihm.
Vlt will er alles direkt löschen
Mach ich immer - aber trotzdem nutze ich dazu den Papierkorb ( SHIFT+Ziehen ), die Sicherheitsabfrage kannst du deaktivieren.
Versteh denn Sinn nicht, dann kannst du doch gleich alles in den Papierkorb schieben.. 
Hi,
für all jene, die gern Kartenspiele programmieren: Windows hält ja bereits Karten und Deckblätter bereit.
Hier mal ein kleines Bsp., wie man das nutzen kann:
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <Array.au3>
Opt ("MustDeclareVars", 1)
_Main ( )
_Main (True)
Func _Main ($mixed=False)
Local $a_hBMP[52][3], $a_hBitmap[52], $hGraphic, $hGUI, $hInstance
Local $ressource = "cards.dll"
; Load ressource dll as datafile
$hInstance = _WinAPI_LoadLibraryEx ($ressource, $LOAD_LIBRARY_AS_DATAFILE)
; Load bitmap's from library
; Farben sind in der Dll falsch angeordnet, ebenso die Asse
; im Array [i][0]=dll-Indx, [i][1]=echte Reihenfolge, [i][2]=BMP-Handle
Local $j = 15
For $i = 0 To 38
If $i = 12 Or $i = 25 Or $i =38 Then
$a_hBMP[$i][0] = $j -13
$a_hBMP[$i][1] = $i +1
$a_hBMP[$i][2] = _WinAPI_LoadBitmap ($hInstance, $a_hBMP[$i][0])
Else
$a_hBMP[$i][0] = $j
$a_hBMP[$i][1] = $i +1
$a_hBMP[$i][2] = _WinAPI_LoadBitmap ($hInstance, $a_hBMP[$i][0])
EndIf
$j += 1
Next
$j = 2
For $i = 39 To 50
$a_hBMP[$i][0] = $j
$a_hBMP[$i][1] = $i +1
$a_hBMP[$i][2] = _WinAPI_LoadBitmap ($hInstance, $a_hBMP[$i][0])
$j += 1
Next
$a_hBMP[51][0] = 1
$a_hBMP[51][1] = 52
$a_hBMP[51][2] = _WinAPI_LoadBitmap ($hInstance, $a_hBMP[51][0])
If $mixed Then
; Get random order
Local $aImagesIndex[52], $RandomIndex
For $i = 0 To 51
Do
$RandomIndex = Random(0, 51, 1)
_ArraySearch($aImagesIndex, String($RandomIndex))
If @error Then $aImagesIndex[$i] = String($RandomIndex)
Until $aImagesIndex[$i]
Next
; Set BMP-Handle to random order
Local $aTmp[52][3]
For $i = 0 To UBound($aTmp) -1
$aTmp[$i][0] = $a_hBMP[$aImagesIndex[$i]][0]
$aTmp[$i][1] = $a_hBMP[$aImagesIndex[$i]][1]
$aTmp[$i][2] = $a_hBMP[$aImagesIndex[$i]][2]
Next
; Group by partial sort
_ArraySort($aTmp, 0, 0, 12, 1)
_ArraySort($aTmp, 0, 13, 25, 1)
_ArraySort($aTmp, 0, 26, 38, 1)
_ArraySort($aTmp, 0, 39, 51, 1)
$a_hBMP = $aTmp
$aTmp = 0
EndIf
; Create GUI
Local $title='Karten reinfarbig'
If $mixed Then $title = 'Karten gemischt sortiert'
$hGUI = GUICreate ($title, 710, 350)
GUISetBkColor(0x008000)
GUISetState ()
; Initialize GDI+ library
_GDIPlus_Startup ()
; Create bitmap object's from bitmap handle's
For $i = 0 To UBound($a_hBitmap) -1
$a_hBitmap[$i] = _GDIPlus_BitmapCreateFromHBITMAP ($a_hBMP[$i][2])
Next
; Create a Graphics object from a window handle
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hGUI)
; Draw all bitmap object's
Local $x = 20, $y = 20, $count
For $i = 0 To UBound($a_hBitmap) -1
$count = $i +1
_GDIPlus_GraphicsDrawImage ($hGraphic, $a_hBitmap[$i], $x, $y)
If $i > 1 And Mod($count, 13) = 0 Then
$x += 100
Else
$x += 20
EndIf
If $i = 25 Then
$x = 20
$y += 140
EndIf
Next
; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
; Clean up resources
For $i = 0 To UBound($a_hBitmap) -1
_GDIPlus_ImageDispose ($a_hBitmap[$i])
_WinAPI_DeleteObject ($a_hBMP[$i][2])
Next
_WinAPI_FreeLibrary ($hInstance)
; Shut down GDI+ library
_GDIPlus_ShutDown ()
GUIDelete()
EndFunc ;==>_Main
Edit: Habe (nur im geposteten Skript, nicht im Anhang) mal erweitert, dass die gemischten Karten in den Blöcken sortiert sind. Sieht besser aus
Edit2: Neue Version: die Karten befinden sich nun farblich und wertemäßig in der (in DE) üblicherweise verwendeten Reihenfolge. Also Karo-Rot-Pik-Kreuz und 2 bis As. Die gemischten Karten sind jetzt innerhalb des jeweiligen Stapels sortiert.
DL bisher: 17
Schade, dann ist es schwieriger.
Die Dateien, die den Eintrag von Betreff, Autor etc. zulassen, können mit Property Sets bearbeitet werden. Hier mal der Link zu MSDN: http://msdn.microsoft.com/en-us/library/aa380376.aspx.
Ist sicher möglich, darauf auch mit AutoIt zuzugreifen, aber mit einigem Aufwand verbunden die Funktionen zu erstellen. Kannst dich gern dran versuchen.
Eine Frage noch: Sind das evtl. Office-Dateien (also Word, Excel..) ? Dafür hatte ich letztens eine Lösung in VB gesehen. Ließe sich dann anpassen.
Setz doch gleich $opendb als Global.
Im Moment deklarierst du $opendb als Local und weist in der nächsten Zeile diesen Wert der Globalen Variable $sDBFile zu.
Local $opendb = FileOpenDialog("Bitte auswählen", @ScriptDir & "\Datenbanken\", "Text (*.txt)")
Global $sDBFile = $opendb
Also entweder $opendb als Global oder und $sDBFile weglassen (dafür $opendb verwenden) oder nur $sDBFile verwenden.
alle Dateien die im Ordner C:\PRJ\60507800\OUT\ liegen in der Registerkarte "Dateiinfo" unter Titel den Dateiname einzutragen?
Alle hängt sicher davon ab, wieviele es sind. Denn ich gehe mal davon aus, dass nur limitierter Platz in diesem Feld zur Verfügung steht.
