Beiträge von HDJanzen

Danke für die Antwort,
Tatsächlich funktioniert Strg+Alt+Entf nicht mehr! der PC muss neu gebootet werden!

sobald ich das erste Control einfüge, hängt das Programm - und nicht nur das Programm, sondern auch der Computer und muss neu gebootet werden.

Weiß jemand Rat?

Danke - HDJanzen

Ich habe neuerdings auch dieses Problem beim Ausführen einer mit Inno erstellten Setup-Routine mein Programm benutzt jedoch kein ShellExecuteEx, scheint also ein Problem von Inno zu sein.

Kann jemand helfen?

HDJanzen

Die erweiteren Attribute sind inkonsistent

Guten Tag,

ich habe ein Programm erstellt unter Windows XP, unter Inno eine Setup-Programm erstellt, das auch einwandfrei funktioniert.

Unter Windows 7 produziert das Setup-Programm die oben angegebene Fehlermeldung
Inno Setup Version 5.4.1
Autoit v3.3.6.1 - beide 32 bit

Kann jemand helfen? Vielen Dank
HDJanzen

Guten Tag,

Oscars Programm war für mich Anlass, etwas ähnliches zu entwickeln. Bei beiden stosse ich auf ein Problem mit Outlook: Wenn ich das Feld "An" anklicke, Buchstaben einfüge und dann auf das Feld "Betreff" oder zum Textfenster gehe, werden weitere Buchstaben weiterhin in das Feld "An" gesendet.

Übrigens: Mozilla Thunderbird zeigt dieses Benehmen nicht, ebensowenig wie Microsofts On-Screen Keyboard.

Weiß jemand Rat?
HDJanzen

Download: http://www.technik-hobby.de/AutoIt-Scripts…se-Keyboard.zip

Das hat funktioniert - vielen Dank!

'SetThemeAppProperties' - ist das irgenwo in der AutoIt-Hilfe erwähnt?

Grüsse

HDJanzen

Vielen Dank für die schnelle Antwort, aber:

In Koda habe ich diesen Wert eingestellt - ohne Erfolg

Dann habe ich das beigefügte Programm erstellt - ohne Erfolf

Was mache ich falsch?

Grüsse HDJanzen

#include <GUIConstants.au3> 
#include <EditConstants.au3> 
#include <GUIConstantsEx.au3> 
#include <StaticConstants.au3> 
#include <WindowsConstants.au3> 
#include <ButtonConstants.au3> 
#Region ### START Koda GUI section ### Form= 
$Form1 = GUICreate("Form1", 633, 447, 193, 125) 
$Combo1 = GUICtrlCreateCombo("Combo1", 72, 56, 161, 25, -1, $WS_EX_CLIENTEDGE) 
;~ $Combo1 = GUICtrlCreateCombo("Combo1", 72, 56, 161, 25, -1, 0x00000200) 
GUISetState(@SW_SHOW) 
#EndRegion ### END Koda GUI section ### 
While 1 
$nMsg = GUIGetMsg() 
Switch $nMsg 
Case $GUI_EVENT_CLOSE 
Exit 
EndSwitch 
WEnd

Guten Tag,

lange habe ich gesucht und nichts gefunden: ist es möglich, eine Combobox vertieft darzustellen, und wie?

Grüsse

HDJanzen

Es funktioniert jetzt - vielen Dank an alle, insbesondere Eukalyptus.

Noch eine Frage: wie kann ich "gelöst" einstellen?

Grüsse HDJanzen

Danke für die schnelle Antwort. Ich habe das Programm reduziert, es ist zwar jetzt ziemlich sinnlos, aber es zeigt das Problem. Achtung: zum Testen muss Notepad laufen.

Dieter Janzen

AutoItSetOption("MustDeclareVars", 1 )
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $Form1, $Label1, $msg, $MainApp = "Untitled - Notepad", $Mainstring = "1"
$Form1 = GUICreate("Test", 750, 74, 133, 33, BitOR($GUI_SS_DEFAULT_GUI,$DS_MODALFRAME), BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
$Label1 = GUICtrlCreateLabel($Mainstring, 20, 16, 700, 24, $SS_SUNKEN)
GUISetState(@SW_SHOW)
While 1 ;Message Loop
$msg = GUIGetMsg(1)
If $msg[0] = $GUI_EVENT_CLOSE Then
ExitLoop
EndIf
If $msg[0] = $Label1 Then
SendToNotepad($msg[3],$MainApp)
endif
WEnd
Func SendToNotepad($i,$App)
Local $j, $s
$j = ($i-25)/22.129 + 1
$j = round($j,0)
$j = $j * 2 - 1
$s = StringMid($MainString, $j,1)
WinActivate($App)
WinWaitActive($App)
Send($s, 1)
EndFunc

Guten Tag,

ich habe ein Programm erstellt, das nach Klicken auf bestimmte Zeichen in einem Label dieses Zeichen nach Notepad sendet. Das funktioniert auch, allerdings bleibt nach Doppelklicken das Programm hängen und muss abgebrochen werden.

Ich habe verschiedenes probiert: DblClick_For_Each_Ctrl.au3, SendKeyDelay, MouseClickDelay, Timer... ohne Ergebnis.

Folgend ein Auszug aus dem MessageLoop.

Weiß jemand Rat? Dieter Janzen

While 1 ;Message Loop
$msg = GUIGetMsg(1)
Select
Case $msg[0] = $GUI_EVENT_CLOSE
ExitLoop
Case $msg[0] = $Hilfe1
MsgBox(0,"","Hilfe: kommt noch / " & $MainApp)
Case $msg[0] = $Label1
SendToNotepad($msg[3],$MainApp)
EndSelect
WEnd

Bei meinem Script habe ich Probleme mit AutoItSetOption und WinActivate

Das geht:

AutoItSetOption("WinTitleMatchMode", 2)
MsgBox(0,"",WinExists("Notepad")) ; ergibt immer 1
WinActivate("Untitled - Notepad") ; funktioniert
WinWaitActive("Untitled - Notepad")
Send("testing")

Das geht nicht:

AutoItSetOption("MustDeclareVars", 1 )
AutoItSetOption("WinTitleMatchMode", 2)
MsgBox(0,"",WinExists("Notepad")) ; ergibt immer 1
WinActivate("Notepad"); funktioniert nicht!
WinWaitActive("Notepad")
Send("testing")

Was mache ich falsch?

MfG HDJanzen

Tagelang habe ich gesucht und probiert - vielleicht kann jemand helfen.

Ich möchte ein Programm zur Wiedergabe fremder Buchstaben erstellen: Nach dem Start schwebt ein Fenster über die aktuellen Anwendungen - Microsoft oder OpenOffice Word, Excel etc -, man wählt eine Sprache aus, es erscheinen die speziellen Buchstaben dieser Sprache, man klickt auf einen davon, und dieser wird in das aktuelle Dokument übertragen.

Übrigens: Es muss nicht Autoit sein. Ich habe auch schon mit Autohotkey gespielt, aber dieses Programm erscheint mit etwas wackelig.

MfG HDJanzen