Hallo Oscar
Ich kann nur sagen 
macht Spass für zwischendurch. Ich glaube das Programm mag mich nicht wenn ich mal ein paar Punkte habe kommt immer NULL -.-
Was mir noch aufgefallen ist wenn man das Rad dreht und mehrmals auf den Button klickt dreht es soviel mal hintereinander wie man geklickt hat, ohne das man den Schub einstellen kann.
mfg Storyteller
Ich habe mir die Scource und emu8086 mal runtergeladen.
Ich habe mit Emu8086 die File erstellt, aber beim compillieren kommen immer errors.
ist die Source in post 1 aktuell, oder muss ich noch irgenwas bei EMU8086 einstellen?Noch zu meien Vorgehen ich habe mit emu 2 neue Files erstellt(BIN format) und den Codereinkopiert dann kommen flogende Fehlermeldungen:
Loader
kernel
So long Storyteller
Hallo Darter
Ich benutze zum bearbeiten von Videos Lightworks (http://www.lightworksbeta.com/ )
Finde das Programm sehr gut, und mann kann fast alles damit machen.
Sonst gibt es auf Wikipedia (http://de.wikipedia.org/wiki/Videoschnittsoftware ) eine grosse Auswahl von verschiedenen Produkten.
So long Storyteller
So habe gestern versucht das Problem zu beheben, leidrt ohne Erfolg. Des weiteren habe ich festgestellt, das Ubuntu 11.04 Probleme mit mehreren Monitoren (3 Stück) hat. Ich vermute das liegt an Unity, aber auch wenn ich nur Gnome laufen lasse funktioniert es nicht richtig mit mehreren Monitoren, das hat mich dazu bewegt wieder Ubuntu 10.10 zu instalieren. Bei welchem sowohl Flash auch Mehrere monitore ohne Probleme laufen.
Noch zum Test mit Flash: Ich habe einerseites nur das aktuelle Plugin von Adobe verwendet, ältere versionen getestet, als auch alternative flash plugins. Alles ohne Erfolg. ich bin zum ersten mal von der neuen erweiterung von Ubuntu entäuscht. Schade eigentlich hat bis anhin immer alles gut funktioniert.
So long
Storyteller
Hallo Kev
ich habe mir gestern auch Ubuntu 11.04 drauf gepackt, ich habe das gleiche Problem. und ein kollege hat es auch.
ich vermute das das Flash plugin ein bisschen rumspackt., konnte es aber noch nicht testen, da es gestern schon spät war.
ich werde mich heute abend mal drannsetzen, und schauen ob ich hinkriege, gebe dann bescheid über Erfolg oder Misserfolg.
So long Storyteller
Hallo ThrLuBu
Das mit dem Copyright kläre ich bereits mit Pegasus ab, die das spiel vermarkten.
Aber ich denke das ich mir das Spiel gekauft gabe und wenn das Spiel irgendwann mal läut, will ich es eh nicht verkaufen, sondern nur mit
meinen Freunden zocken, welche auch alle das Spiel haben.
Meine Kentnisse von Gdi+ sind auch ned die besten, daher frage ich mich ob es noch alternativen gibt.
Bei der TCP kenne ich mich recht gut aus, somit ist das nicht das Prolme. aber zuerst einen Einzelspieler zu machen finde ich
eine Gute Idee. Mein Freund hat mir grad geschrieben wir könnten das uch mit Flash machen, aber ich weis nicht
ob das eine Gute Idee ist.
Ich setze mich am WE falls es meine Zeit zulässt mal drann. Melde mich am Montag oder so mal.
Hallo zusammen
Meine Freunde und ich haben ein neues Lieblingsspiel Munchkin.
Dabei handelt es sich um ein Kartenspiel. Wir wollen zusammen probieren, ob das umzusetzen ist in Autoit umzusetzen.
Ziel des Speils ist es auf Stufe 10 aufzusteigen. Mann bekommt immer eine Stufe, wenn man ein Monster besiegt.
Hier mal der Spielablauf:
0. Beginn des Zugs
Du darfst nach Belieben Gegenstände oder andere Karten ausspielen, handeln etc.
1. Tür öffnen
Ziehe eine Dungeon-, Tür-, Stations- oder Gassenkarte, und zwar offen, d.h. so, dass sie jeder sehen kann. (Im Folgenden wird diese Kartengruppe der Einfachheit halber nur noch Türkarte genannt.)
Dahinter ist
ein Monster:
Handelt es sich um ein Monster, das dich nicht angreift, weiter bei 2. (Das ist etwas anderes als ein Monster, das dich nicht verfolgt!)
Handelt es sich um ein ganz normales Monster, weiter bei 3.
ein Fluch oder eine Falle: Die Wirkung der Karte tritt sofort ein, es sei denn, du hast ein Gegenmittel oder bist immun. Weiter bei 2.
ein Portal: Befolge die Anweisung auf der Karte und öffne gleich noch eine Tür (weiter bei 1).
ein Raum: Der Raum wirkt sofort. Spielt ein Gegner ein Wanderndes Monster in den Raum, weiter bei 3, sonst weiter bei 2.
eine andere Karte: Nimm sie auf die Hand, wenn sie nicht sofort gespielt werden muss. Weiter bei 2.
2. Auf Ärger aus sein
Wenn du möchtest, kannst du jetzt ein Monster von deiner Hand spielen und es bekämpfen. Weiter bei 3.
Hast du kein Monster auf deiner Hand oder möchtest du keines davon bekämpfen, weiter bei 5a).
3. Kampf
Die Stärke des Monsters entspricht seiner Stufe plus Boni, besondere Kräfte und Verstärkungen, plus eventueller weiterer Monster, die von deinen Gegnern dazugespielt werden. Das/die Monster kann/können durch weitere Karten stärker oder schwächer werden.
Deine Stärke entspricht deiner Stufe plus Boni durch Gegenstände, die du bei dir trägst und benutzt, sowie weitere Verstärkungen durch Handlanger, einmal benutzbare Gegenstände etc.
Durch Aktionen der Mitspieler kannst du oder das/die Monster noch stärker oder schwächer werden.
a) Bist du jetzt stärker als das Monster, weiter bei b).
Bist du jetzt nicht stärker als das Monster, weiter bei c).
Kannst du das Monster besiegen oder verschwinden lassen, ohne es zu töten, weiter bei 5b).
b) Du hast das Monster getötet. Du steigst eine Stufe auf, bei ganz besonders gefährlichen Monstern auch zwei Stufen. Weiter bei 5b).
c) Du kannst jemanden um Hilfe bitten. Du kannst ihn mit Karten, die bei dir ausliegen, oder mit Schatzkarten des Monsters bestechen.
Seid ihr zusammen stärker als das (eventuell noch weiter verstärkte) Monster, weiter bei b).
Hilft dir niemand, musst du weglaufen. Weiter bei 4, es sei denn das Monster verfolgt dich nicht – dann weiter bei 6.
Seid ihr zusammen immer noch nicht stärker als das Monster, müsst ihr beide getrennt voneinander weglaufen. Beide weiter bei 4.
Kann einer von euch das Monster besiegen oder verschwinden lassen, ohne es zu töten, weiter bei 5b).
4. Flucht
a) Hast du einen Mietling, Lakai, Handlanger oder Mook und möchtest, dass er sich für dich opfert, dann lege ihn auf den Ablagestapel. Weiter bei 6.
Andernfalls würfle für jedes Monster einzeln:
Bei einer 5 oder 6 kommst du davon. Weiter bei 6.
Bei einer 1 bis 4 fängt dich das Monster und tut dir Schlimme Dinge an. Falls du dadurch stirbst, weiter bei b), sonst weiter bei 6.
b) Du behältst nur deine Stufe, deine Rasse(n) und Klasse(n), Stil(e), Kräft(e), Loyalität(en), Training(s) sowie deine(n) Akzent(e) und auch (permanente) Flüche, die auf dich gespielt wurden.
Die anderen Spieler werden nun die Leiche ausplündern: Du verlierst deine gesamte Ausrüstung, deine Herkünfte und deine Handkarten. Lege alle Karten vor dich hin. Jeder Spieler, angefangen bei dem mit der höchsten Stufe, darf nun eine deiner Karten nehmen. Der Rest wird abgelegt.
Dein Charakter erscheint sofort wieder. Du kannst ab sofort im Rahmen deiner Möglichkeiten in die Kämpfe anderer Spieler eingreifen. Erst zu Beginn deines nächsten Zuges ziehst du je vier Tür- und Schatzkarten.
Weiter bei 7.
5. Den Raum ausplündern
a) Ziehe verdeckt eine weitere Karte vom Türstapel und nimm sie auf die Hand. Weiter bei 6.
b) Nimm so viele Schätze, wie auf der Monsterkarte angegeben sind. Hat dir jemand geholfen, musst du die Karten offen ziehen. Weiter bei 6.
6. Milde Gabe
Du kannst nun so viele Karten von deiner Hand ausspielen, wie du willst.
Hast du danach mehr als 5 Handkarten, gib die überschüssigen Karten an den oder die lebenden Spieler mit der niedrigsten Stufe. Hat keiner deiner Gegner eine niedrigere Stufe als du, lege die überschüssigen Karten auf die Ablage.
Weiter bei 7.
7. Zugende
Der nächste Spieler ist an der Reihe.
So jetzt frage ich mich ob sowas in Autoit überhaupt möglich ist. Ich dachte da an GDiPlus, aber weil wir das Speil auch übers Netzwerk zocken wollen, könnte es Glaube ich ziemlich langsam werden.
So long Storyteller
Hallo Alina
Zu Frage 1: Wie du schon gesagt hast einfach ein iso von Microsoft ziehen. Wenn du bei der Installation von Windows 7 die Version nicht
aussuchen kannst, dann must du zum Beispiel mit Ultaiso das Iso anpassen. Wenn man im iso sources/ei.cfg löscht, dann kannst du bei der Installation die Version auswählen (Home, Pro ect).
Zu Frage 2: Um ein Backup der HDD zu machen empfele ich dir Acronis True Image Home 2011 empfelen.
Zu Frage 3: alles Runter, dann installieren. Ich würde dir wie schon erwähnt von meinen Vorpostern, PC platt machen und neu installieren.
Ist einfach sauber.
Zu Frage 4: Hier kann ich nur Vermutungen anstellen. Wenn die Treiber installiert sind sollte es eigentlich klappen. Hatte noch nie Probleme mit KVM Switches.
So long
Storyteller
Danke misterspeed
Manchmal sieht man die Parameter vor lauter Funktionen nicht 
So long
Storyteller
Hallo zusammen
Ich schreibe gerade ein Script zur Verwaltung meiner Programme auf dem Server. Der Grundgedanke ist, das ich alle Ordner auf dem Server
Aufliste und später Die Pfadie in eine MySQL Datenbank speichere. Dort werden zu jedem Programm noch zusatzinformationen gespeichert (Katigorie, Beschreibung).
Mein Problem ist im Moment, dass ich beim Schreiben, des Arrays immer die selbe Fehlermeldung bekomme. Ich vermute es kommt von
_FileWriteFromArray. bin mir aber nicht ganz sicher.
Zu dem Verzeichnis ist soch zu sagen, dass es etwa 12'000 Tausend Ordner umfasst. also ziemlich gross.
Hier mal ein Auszug von meinem Code, Printscreen der Fehlermeldund und was der Editor so auswirft
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.6.0
Author: Storyteller
Script Function:
Programmverwaltung von instdisk.
Das Progamm ist zur übersicht übder die Programme
auf dem Server gedacht.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include "FileConstants.au3"
#include "File.au3"
#Region ### START Koda GUI section ### Form=
$Programmverwaltung = GUICreate("Programmverwaltung instdisk", 451, 264, 194, 113)
$g_beschreibung = GUICtrlCreateGroup("Beschreibung", 8, 80, 433, 137)
$e_beschreibung = GUICtrlCreateEdit("", 16, 100, 417, 105, $ES_READONLY)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$bt_dir = GUICtrlCreateButton("Verzeichnis öffnen", 8, 224, 137, 33, $WS_GROUP)
$bt_update = GUICtrlCreateButton("Update", 300, 224, 137, 33, $WS_GROUP)
$l_title = GUICtrlCreateLabel("Programmverwaltung", 8, 8, 171, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("Programmauswahl", 8, 32, 433, 49)
$c_type = GUICtrlCreateCombo("Typ", 16, 52, 200, 25)
$c_prog = GUICtrlCreateCombo("Programm", 233, 52, 200, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;~ Case $bt_dir
;~ Call ("_OpenDir")
Case $bt_update
Call ("_Update")
EndSwitch
WEnd
;==============================================================================
; Name: _Update
; Description: Liest rekursiv alle Ordner im Verzeochnis X:\
; aus und speichert sie in ein Textfile
;==============================================================================
Func _Update()
;Auflisten der Verzeichnisse
$ret = _GetFilesFolder_Rekursiv('X:\','', 1, 1)
If IsArray($ret) Then
_FileWriteFromArray("C:\div\autoit\__Programmverwaltung\projekt\path.txt",$ret, 0)
Else
MsgBox(0, 'Fehler', $ret & @CRLF)
ConsoleWriteError( @error)
EndIf
MsgBox(0,"Update","Update erfolgreich")
EndFunc ;==>_Update
;==================================================================================================
; Function Name: _GetFilesFolder_Rekursiv($sPath [, $sExt='*' [, $iDir=-1 [, $iRetType=0]]])
; Description: Rekursive Auflistung von Dateien und/oder Ordnern
; Parameter(s): $sPath der Basispfad für die Auflistung ('.' -aktueller Pfad, '..' -Parentpfad)
; $sExt Erweiterung für Dateiauswahl '*' oder -1 für alle (Standard)
; $iDir -1 Dateien+Ordner(Standard), 0 nur Dateien, 1 nur Ordner
; optional: $iRetType 0 gibt Array, 1 gibt String zurück (Einträge @LF-getrennt)
; Return Value(s): Array (Standard) od. String mit den gefundenen Pfaden der Dateien und/oder Ordner
; Array[0] enthält die Anzahl der gefundenen Dateien/Ordner
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;==================================================================================================
Func _GetFilesFolder_Rekursiv($sPath, $sExt='*', $iDir=-1, $iRetType=0)
Global $oFSO = ObjCreate('Scripting.FileSystemObject')
Global $strFiles = ''
If ($iRetType < 0) Or ($iRetType > 1) Then $iRetType = 0
If $sExt = -1 Then $sExt = '*'
If ($iDir < -1) Or ($iDir > 1) Then $iDir = -1
_ShowSubFolders($oFSO.GetFolder($sPath),$sExt,$iDir)
If $iRetType = 0 Then
Local $aOut
$aOut = StringSplit(StringTrimRight($strFiles,1), @LF)
If $aOut[1] = '' Then
ReDim $aOut[1]
$aOut[0] = 0
EndIf
Return $aOut
Else
Return StringTrimRight($strFiles,1)
EndIf
EndFunc
Func _ShowSubFolders($Folder, $Ext='*', $Dir=-1)
If ($Dir = -1) Or ($Dir = 0) Then
For $file In $Folder.files
If $Ext <> '*' Then
If StringRight($file.Name, StringLen($Ext)) = $Ext Then _
$strFiles &= $file.Path & @LF
Else
$strFiles &= $file.Path & @LF
EndIf
Next
EndIf
For $Subfolder In $Folder.SubFolders
If ($Dir = -1) Or ($Dir = 1) Then $strFiles &= $Subfolder.Path & '\' & @LF
_ShowSubFolders($Subfolder, $Ext, $Dir)
Next
EndFunc
>"C:\Program Files\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\div\autoit\__Programmverwaltung\projekt\main_nc.au3" /autoit3dir "C:\Program Files\AutoIt3" /UserParams
+>16:42:02 Starting AutoIt3Wrapper v.2.0.1.24 Environment(Language:0407 Keyboard:00000807 OS:WIN_7/Service Pack 1 CPU:X64 OS:X86)
>Running AU3Check (1.54.19.0) from:C:\Program Files\AutoIt3
C:\div\autoit\__Programmverwaltung\projekt\main_nc.au3(108,50) : WARNING: $strFiles possibly not declared/created yet
$strFiles &= $file.Path & @LF
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\div\autoit\__Programmverwaltung\projekt\main_nc.au3 - 0 error(s), 1 warning(s)
->16:42:02 AU3Check ended.rc:1
>Running:(3.3.6.1):C:\Program Files\AutoIt3\autoit3.exe "C:\div\autoit\__Programmverwaltung\projekt\main_nc.au3"
0+>16:46:28 AutoIT3.exe ended.rc:0
>Exit code: 0 Time: 266.870
Danke schon im Voraus
So long
Storyteller
Probier mal "Desktop Restore" (Freeware) . einfach danach googlen.
Mit dem kannst du Profile anlegen, für verschiedene auflösungen und abspeichern.
Ich benutze es weil ich manmal PC oder Notebook mit Verschiedenen auflösungen an meinen Monitor anschliesse,
und mir die Icons, ann auch immer verstellt hat. mir dem Tool gibt es keine Probleme mehr.
MfG Storyteller
Hallo zusammen
Ich möche eine Programmverwaltung erstellen. Ich habe auf einem Netzwerkshare alle Programme die ich immer benötige.
Da es inzwischen ziemlich viele sind möchte ich ein Programm schreiben welches mir alle Ordner rekursiv ausliest und dann in eine Access Datenbank schreibt. Dank der Funktion von BugFix ist das auslesen kein Problem. Mein Problem ist im Moment das Schreiben in die Access Datenbank.
Ich möchte den Pfad in Acces Datenbank schreiben, um später das Verzeichnis aufzurufen.
Hier mal mein Script
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.6.0
Author: Storyteller
Script Function:
Programmverwaltung von instdisk.
Das Progamm ist zur übersicht übder die Programme
auf dem Server gedacht.
Im Hintergrund läuft eine MS Access Datenbank.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Access.au3>
#include <_Loginbox.au3>
#include <Array.au3>
#Region ### START Koda GUI section ### Form=
$Programmverwaltung = GUICreate("Programmverwaltung instdisk", 451, 264, 194, 113)
$g_beschreibung = GUICtrlCreateGroup("Beschreibung", 8, 80, 433, 137)
$e_beschreibung = GUICtrlCreateEdit("", 16, 100, 417, 105, $ES_READONLY)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$bt_dir = GUICtrlCreateButton("Verzeichnis öffnen", 8, 224, 137, 33, $WS_GROUP)
$bt_update = GUICtrlCreateButton("Update", 300, 224, 137, 33, $WS_GROUP)
$l_title = GUICtrlCreateLabel("Programmverwaltung", 8, 8, 171, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("Programmauswahl", 8, 32, 433, 49)
$c_type = GUICtrlCreateCombo("Typ", 16, 52, 200, 25)
$c_prog = GUICtrlCreateCombo("Programm", 233, 52, 200, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;~ Case $bt_dir
;~ Call ("_OpenDir")
Case $bt_update
Call ("_Update")
EndSwitch
WEnd
;==============================================================================
; Name:_Update
; Description:Liest rekursiv alle Ordner im Verzeochnis X:\
;aus und speichert sie in die MS Access Datenbank
;==============================================================================
Func _Update()
; Hier kommt eine Login Box
;Auflisten der Verzeichnisse
$ret = _GetFilesFolder_Rekursiv('C:\Test\','', 1, 1)
If IsArray($ret) Then
_ArrayDisplay($ret, 'Rekursiv alle Ordner')
Else
MsgBox(0, 'Fehler', $ret & @CRLF)
ConsoleWrite($ret & @CRLF)
EndIf
$aCount = 0
For$j = 0 to 100 Step 1
_accessAddRecord('C:\Test\prog_db.mdb','Test',$ret[$aCount],'path')
$aCount =$aCount +1
Next
EndFunc ;==>_Update
;==================================================================================================
; Function Name: _GetFilesFolder_Rekursiv($sPath [, $sExt='*' [, $iDir=-1 [, $iRetType=0]]])
; Description: Rekursive Auflistung von Dateien und/oder Ordnern
; Parameter(s):$sPath der Basispfad für die Auflistung ('.' -aktueller Pfad, '..' -Parentpfad)
; $sExt Erweiterung für Dateiauswahl '*' oder -1 für alle (Standard)
; $iDir -1 Dateien+Ordner(Standard), 0 nur Dateien, 1 nur Ordner
; optional: $iRetType 0 gibt Array, 1 gibt String zurück (Einträge @LF-getrennt)
; Return Value(s): Array (Standard) od. String mit den gefundenen Pfaden der Dateien und/oder Ordner
; Array[0] enthält die Anzahl der gefundenen Dateien/Ordner
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;==================================================================================================
Func _GetFilesFolder_Rekursiv($sPath, $sExt='*', $iDir=-1, $iRetType=0)
Global $oFSO = ObjCreate('Scripting.FileSystemObject')
Global $strFiles = ''
If ($iRetType < 0) Or ($iRetType > 1) Then $iRetType = 0
If $sExt = -1 Then $sExt = '*'
If ($iDir < -1) Or ($iDir > 1) Then $iDir = -1
_ShowSubFolders($oFSO.GetFolder($sPath),$sExt,$iDir)
If $iRetType = 0 Then
Local $aOut
$aOut = StringSplit(StringTrimRight($strFiles,1), @LF)
If $aOut[1] = '' Then
ReDim $aOut[1]
$aOut[0] = 0
EndIf
Return $aOut
Else
Return StringTrimRight($strFiles,1)
EndIf
EndFunc
Func _ShowSubFolders($Folder, $Ext='*', $Dir=-1)
If ($Dir = -1) Or ($Dir = 0) Then
For $file In $Folder.files
If $Ext <> '*' Then
If StringRight($file.Name, StringLen($Ext)) = $Ext Then _
$strFiles &= $file.Path & @LF
Else
$strFiles &= $file.Path & @LF
EndIf
Next
EndIf
For $Subfolder In $Folder.SubFolders
If ($Dir = -1) Or ($Dir = 1) Then $strFiles &= $Subfolder.Path & '\' & @LF
_ShowSubFolders($Subfolder, $Ext, $Dir)
Next
EndFunc
Ich habe Access 2007 und Windows 7 32-bit
Ich habe noch die Access-Datenbank und eine kleines ordner verzeichnis zum testen angefüght.
Danke für eure Hilfe
Storyteller
Edit: Fehlende Dateien angehängt, Errorcode angefüght
>"C:\Program Files\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\div\autoit\__Programmverwaltung\main.au3" /autoit3dir "C:\Program Files\AutoIt3" /UserParams
+>17:11:00 Starting AutoIt3Wrapper v.2.0.1.24 Environment(Language:0407 Keyboard:00000807 OS:WIN_7/ CPU:X64 OS:X86)
>Running AU3Check (1.54.19.0) from:C:\Program Files\AutoIt3
C:\div\autoit\__Programmverwaltung\main.au3(117,50) : WARNING: $strFiles possibly not declared/created yet
$strFiles &= $file.Path & @LF
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\div\autoit\__Programmverwaltung\main.au3 - 0 error(s), 1 warning(s)
->17:11:00 AU3Check ended.rc:1
>Running:(3.3.6.0):C:\Program Files\AutoIt3\autoit3.exe "C:\div\autoit\__Programmverwaltung\main.au3"
0C:\div\autoit\__Programmverwaltung\main.au3 (71) : ==> Subscript used with non-Array variable.:
_accessAddRecord('C:\Test\prog_db.mdb','Test',$ret[$aCount],'path')
_accessAddRecord('C:\Test\prog_db.mdb','Test',$ret^ ERROR
->17:11:02 AutoIT3.exe ended.rc:1
>Exit code: 1 Time: 3.168
Zuer genaueren Beschreibung: Es wird nicht in die Datenbank geschrieben und ich seh gerade keinen Fehler
Wenn es nicht zuviele Viren drauf hat, geht ein scan je nach PC/Grösse der Festplatte so 20 min. Eine Reperatur dauer viel länger.
Wichtig dann noch zusagen bevor du zum 2 scannst die Systemwiederherstellung auszuschalten, sonst bringt das ganze nicht, weil sich der Trojaner wiederherstellt.
Ich würde dir empfelen einen Offlinescan mit Malwarebytes zu machen => Festplatte ausbauen, An einen anderen PC hängen und scannen.
Danach sollte das meise Zeug weg sein. Danach nochmals Mit Malwarebytes scannen und zusätzlich noch mit Spybot S&D. Wenn beide Programme nicht mehr finden sollte es OK sein.
Zu überprüfen vlt. noch ein netstat -a ausführen und schauen, ob noch komische VErbindungen offen sind.
MfG Storyteller
Danke euch.
Habe mal wieder etwas gelernt.
Storyteller
Hallo zusammen
Ich habe eine Webcam die mir jede Minute ein Bild macht und es auf meiner Festplatte ablegt. Jedes Bild wird in einen neuen Ordner abgelegt.
Dabei macht die Kamera einen Ordner legt ein Bild hinein und dazu noch ein info.jpg.
Nun habe ich zum sortieren und zusammenziehn der Bilder folgendes Script geschrieben:
#include <file.au3>
Global $movedir = "c:\jpg\"
;Starte dir Dos Befehl mit Parameter /s (Unterverzeichnisse) /b (einfaches Format) und speichere in Datei kamera_jpg.txt im Scriptverzeichnis
;warte auf Beendigung
RunWait (@ComSpec & " /c dir c:\sort\*.jpg /s /b >" & @ScriptDir & "\kamera_jpg.txt")
;zeige Textdatei und warte auf ende von notepad
ShellExecuteWait ("notepad.exe", @ScriptDir & "\kamera_jpg.txt")
;Öffne Datei im Read Mode
$file = FileOpen (@ScriptDir & "\kamera_jpg.txt", 0)
;Schleife von 1 bis Zeilenanzahl von Datei
For $i = 1 To _FileCountLines (@ScriptDir & "\kamera_jpg.txt")
;lies Zeile in Variable
$line = FileReadLine ($file, $i)
;Kopiere, wenn Datei nicht info.jpg und benenne um
If Not StringInStr ($line, "info.jpg") Then FileCopy ($line, $movedir & $i & ".jpg")
Next
;schliesse Datei
FileClose ($file)
Nun musste ich die Einstellungen der Kamera ändern und es macht jetzt mehr Bilder, die ich aber nicht benötige( Bug in der Kamera Software ist dafür verantwortlich.)
Nun zu meiner Frage:
Wie kann ich
If Not StringInStr ($line, "info.jpg") Then FileCopy ($line, $movedir & $i & ".jpg")
[/autoit]
umschreiben, damit neben info.jpg auch A.jpg und B.jpg rausfilltert.
Ich habe es schon mit & verknüpfungen versucht bin aber nicht auf das Ergebnis gekommen.
Bin im mom ratlos und hoffe ihr könnt mir helfen.
So long Storyteller
Hallo Antispeed
Programme legen .part Dateien an, wenn sie etwas herunterladen. Wie die Endung schon sagt, sind das Teile (Parts) der Gesamtdatei.
Ich vermute mal, dass das Programm richtig funktionert, aber wie du schon sagst kann das an deiner Inetverbindung liegen, da es länger dauern kann mit dieser Geschwindigkeit ein mp3 herunterzuladen. Also einfach warten bis das ganze File heruntergeladen wurde.
MfG Storyteller
Würde mich auch gerne beteiligen klingt sehr interessant.
Kentnisse in HTML und CSS (recht gut). (Refferenz: raya-tech.ch )
PHP (Grundlagen)
hab nur TS3
MfG Storyteller
Ich verweise dich auf die Forenregeln
Also kein Support von unserer Seite. MfG
hab beide script getestet unter Win 7 32bit.
erstellt folgende Dateien bzw. läd sie herunter:
Data-Ordner
changelog.txt
Data.ini
Stadtfest logo.png
