Beiträge von eukalyptus

OK sorry

mir ist soeben etwas aufgefallen (bei Notepad):
Wenn das Fenster NICHT aktiv ist, dann funktioniert ControlSend($Handle,"","","Test") nicht!
Mit WinActivate davor schon...

aber auf jeden Fall geht es, wenn man noch den Control angibt: ControlSend($Handle,"","Edit1","Test")

vielleicht hilft dir das mal weiter...

lgE

Hi

Es sollte eigentlich funktionieren!

Wie kommst du eigentlich zu dem Handle?

wenn ich nun aber nur die handle weiß, wie kann ich dann etwas an das fenster senden?

Info: WinHandles sind jedesmal anders!

Run("notepad.exe")
WinWait("Unbenannt")
$Handle=WinGetHandle("Unbenannt")
WinClose($Handle)
WinWaitClose($Handle)

Run("notepad.exe")
WinWait("Unbenannt")
$Handle2=WinGetHandle("Unbenannt")
WinClose($Handle2)

MsgBox(0,"",$Handle & @CRLF & $Handle2)

lgE

I must me also kringeln...

In die Kategorie "Tirolerbriefe" fällt auch folgendes: http://phantastischewelten.de/gelacht/brief-…om-lande-tirol/

Hi

Du kannst Programmen Daten via Std übergeben/entnehmen!
ConsoleRead: ließt den StdIn
ConsoleWrite: schreibt den StdOut

(immer erstes script als exe kompilieren!)

Version 1:
Du startes ein Autoit-Prog, welches via Stdout Daten übermittelt.
Das gestartete Prog schreibt die Daten via ConsoleWrite in den Stdout:

Script1.exe

While 1
ConsoleWrite(Random(0,9,1))
Sleep(100)
WEnd

$prog=Run(@ScriptDir & "\script1.exe",@ScriptDir,0,2)
While 1
ToolTip("Stdoutread: " & StdoutRead($prog))
Sleep(100)
WEnd

Version 2:
Du startest ein Autoit-Prog und willst es mit Daten füttern.

script3.exe

While 1
ToolTip("Consoleread: " & ConsoleRead())
Sleep(100)
WEnd

$prog=Run(@ScriptDir & "\script3.exe",@ScriptDir,0,1)
While 1
StdinWrite($prog,Random(0,9,1))
Sleep(100)
WEnd

alles klar?

Ist auf den ersten Blick etwas kompliziert, aber eigentlich ganz einfach

lgE

Edit: Du kannst ConsoleWrite auch zum debuggen benutzten - wird dann nämlich in SciTe unten angezeigt...(bestes Beispiel: µIt-September-Testprogramm von Pee )

Hi

hast du es schon mit der Registry versucht?

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr = 1

Also so geht es:

MsgBox(0,"Seitenanzahl",_GetExtProperty(@ScriptDir & "\multipage.tif",13))

;===============================================================================
; Function Name: GetExtProperty($sPath,$iProp)
; Description: Returns an extended property of a given file.
; Parameter(s): $sPath - The path to the file you are attempting to retrieve an extended property from.
; $iProp - The numerical value for the property you want returned. If $iProp is is set
; to -1 then all properties will be returned in a 1 dimensional array in their corresponding order.
; The properties are as follows:
; Name = 0
; Size = 1
; Type = 2
; DateModified = 3
; DateCreated = 4
; DateAccessed = 5
; Attributes = 6
; Status = 7
; Owner = 8
; Author = 9
; Title = 10
; Subject = 11
; Category = 12
; Pages = 13
; Comments = 14
; Copyright = 15
; Artist = 16
; AlbumTitle = 17
; Year = 18
; TrackNumber = 19
; Genre = 20
; Duration = 21
; BitRate = 22
; Protected = 23
; CameraModel = 24
; DatePictureTaken = 25
; Dimensions = 26
; Width = 27
; Height = 28
; Company = 30
; Description = 31
; FileVersion = 32
; ProductName = 33
; ProductVersion = 34
; Requirement(s): File specified in $spath must exist.
; Return Value(s): On Success - The extended file property, or if $iProp = -1 then an array with all properties
; On Failure - 0, @Error - 1 (If file does not exist)
; Author(s): Simucal ([email='Simucal@gmail.com'][/email])
; Note(s):
;
;===============================================================================
Func _GetExtProperty($sPath, $iProp)
Local $iExist, $sFile, $sDir, $oShellApp, $oDir, $oFile, $aProperty, $sProperty
$iExist = FileExists($sPath)
If $iExist = 0 Then
SetError(1)
Return 0
Else
$sFile = StringTrimLeft($sPath, StringInStr($sPath, "\", 0, -1))
$sDir = StringTrimRight($sPath, (StringLen($sPath) - StringInStr($sPath, "\", 0, -1)))
$oShellApp = ObjCreate ("shell.application")
$oDir = $oShellApp.NameSpace ($sDir)
$oFile = $oDir.Parsename ($sFile)
If $iProp = -1 Then
Local $aProperty[35]
For $i = 0 To 34
$aProperty[$i] = $oDir.GetDetailsOf ($oFile, $i)
Next
Return $aProperty
Else
$sProperty = $oDir.GetDetailsOf ($oFile, $iProp)
If $sProperty = "" Then
Return 0
Else
Return $sProperty
EndIf
EndIf
EndIf
EndFunc ;==>_GetExtProperty

lgE

Hi

Steht bei den Eigenschaften die richtige Seitenanzahl? (Rechte Maustaste -> Eigenschaften -> DateiInfo)
Dann kannst du das vielleicht mit der ExtProp.au3 UDF auslesen:

Habs nicht getestet, da ich keine mehrseitige Tif hab (und auch nicht weiß, wie man sowas erstellt ;))

lgE

Ich hätte das so gemacht:

lgG

Edit: Geht auch mit Klick auf den Text...

Hi

Wenn ich ein Datum eingegeben hab und dann nur den Tag verändern will, wird nach der Tag-Eingabe der Monat gelöscht.
Sollte eigentlich so sein, daß der Monat erst gelöscht wird, wenn man hier eine Eingabe macht.

Genau das gleiche, wenn man mit der Maus reinklickt: sollte erst gelöscht werden, wenn man eine Zahl drückt...

lgE

Ich hab mit dem Obfuscator auch noch kein Script lauffähig bekommen...

Ohne O. läuft die Exe super, mit O. bricht sie mit einem Error ab!

Fehlersuche hab ich mir bisher erspart, da die Scripte immer mehr als 1000 Zeilen hatten (ohne includes) und ich nicht unbedingt obfuscaten wollte

lgE

Hi

$Name1="BERND MUSTERMANN"
$Name2="bErNd mUsTeR mAnN"

MsgBox(0,$Name1,_UPCFIRST($Name1))
MsgBox(0,$Name2,_UPCFIRST($Name2))

Func _UPCFIRST($String)
Local $Temp=StringSplit($String," ") ;Splittet bei Leerzeichen
Local $Return=""
For $i=1 To $Temp[0] ;$Temp[0] = Anzahl der Namen
$Return&=StringUpper(StringLeft($Temp[$i],1)) & StringLower(StringTrimLeft($Temp[$i],1)) & " " ;StringUpper 1 Zeichen + StringLower Rest
Next
Return $Return
EndFunc

lgE

http://vvvv.org

ist jedoch ein ziemlich mächtiges programm, für was genau brauchst du sowas?

lgE

Hat sich für mich grad erledigt!
Hatte für eine Dll ein .Net-Beispiel und wußte nicht mehr weiter...

Hab jedoch eine andere Lösung gefunden

Trotzdem Danke
E

Hi

hat irgendjemand eine Ahnung, was Marshal.Copy genau macht, bzw. wie würde das in Autoit aussehen?
http://msdn.microsoft.com/de-de/library/ms146626(VS.80).aspx

thx

Soll das etwa heißen, ich seh alt aus!?!

Dann will ich mich auch mal zeigen...

Na mit einem Edding Plakatschreiber

nein im Ernst, was genau willst du machen?

Nun hat sich BrettF ausm englischen Forum drangemacht eine UDF für die Bass.dll zu schreiben:
http://www.autoitscript.com/forum/index.php?showtopic=83481

daraus werden in weiterer Zukunft noch großartige Dinge entstehen!
(wenn man eine Ahnung davon hat, was mit Bass alles möglich ist ;))

Ich hab das (wieder) mal für ein kleines MP3-Recording Script verwendet...

lgE