wenn alles wie gewollt läuft
bitte Deinen ersten Thread auf "gelöst" setzen.
Danke 
Beiträge von Schnuffel
-
-
bitte schön:
Spoiler anzeigen
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_outfile=Flashfile.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]
Opt("GUICloseOnEsc", 1)Global $red = 0x990000, $blue = 0x003366, $purple = 0x663366, $green = 0x006600, $black = 0x000000
[/autoit] [autoit][/autoit] [autoit]
Global $Runner, $title = "Test", $step = 4, $returnHotKeySet("{ESC}", "terminate")
[/autoit] [autoit][/autoit] [autoit]If RegRead("HKCR\CLSID\{D27CDB6E-AE6D-11cf-96B8-444553540000}","") = "Shockwave Flash Object" Then
[/autoit] [autoit][/autoit] [autoit]Else
[/autoit] [autoit][/autoit] [autoit]
If Not FileExists(@ScriptDir & "\flash.ocx") Then FileInstall("flash.ocx",@ScriptDir & "\flash.ocx")
RunWait("regsvr32.exe /s flash.ocx",@ScriptDir)
$return = 1
EndIf$oFlash = ObjCreate("ShockwaveFlash.ShockwaveFlash")
[/autoit] [autoit][/autoit] [autoit]$GUI = GUICreate($title, @DesktopWidth, @DesktopHeight -30, -1, -1)
[/autoit] [autoit][/autoit] [autoit]
GUISetOnEvent($GUI_EVENT_CLOSE, "terminate")
$GUIObj = GUICtrlCreateObj($oFlash, 0, 0, @DesktopWidth, @DesktopHeight-40)With $oFlash
[/autoit] [autoit][/autoit] [autoit]
.bgcolor = 0x000000
.Movie = "http://nlc-de.chatango.com/group"
.Loop = True
.wmode = "Opaque"
EndWithGUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(10)
WEndFunc terminate()
[/autoit] [autoit][/autoit] [autoit][/autoit]
If $return = 1 Then
RunWait("regsvr32.exe /s /u flash.ocx",@ScriptDir)
FileDelete(@ScriptDir & "\flash.ocx")
EndIf
Exit
EndFunc ;==>terminate
du brauchst dazu noch den Anhang Flash.ocx ... -
mal als Beispiel...
mit Strg-a wird der Status der Inputs geprüft ...Spoiler anzeigen
[autoit]HotKeySet("^a",'_nurzumTest')
[/autoit] [autoit][/autoit] [autoit]
Global $myID = 0
$zeitblock = 300 ; Gibt an, wie viele Millisekunden lang das Script nach einer Controllereingabe pausiert wird
$runde = 0$Form1 = GUICreate("USB-Lock", 356, 331, -1, -1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Input1 = GUICtrlCreateInput("test", 8, 130, 145, 34);, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 17, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 202, 130, 145, 34);, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 17, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Wilkommen im Konfigurationasistenten für Spielecontroller. Bitte drücken", 8, 8, 344, 17)
$Label2 = GUICtrlCreateLabel("Sie einige Tasen auf Ihrem Controller, so dass sich das Eingabefeld mit", 8, 24, 336, 17)
$Label3 = GUICtrlCreateLabel("Punkten füllt. Wiederholen Sie dann Ihre Eingabe. Hinweis: Um", 8, 40, 302, 17)
$Label4 = GUICtrlCreateLabel("Eingabe:", 8, 112, 46, 17)
$Label5 = GUICtrlCreateLabel("Wiederholung:", 204, 112, 73, 17)
$Label6 = GUICtrlCreateLabel("Merken Sie sich die Tastenkombination auf dem Controller gut! Ohne", 8, 184, 328, 17)
$Label7 = GUICtrlCreateLabel("diese können Sie Ihren PC später nicht entsperren. Entfernen Sie dann", 8, 200, 338, 17)
$Label8 = GUICtrlCreateLabel("den Controller um sicherzustellen, dass niemand durch bloses", 8, 216, 292, 17)
$Label9 = GUICtrlCreateLabel("Ausprobieren von Tastenkombinationen Ihren PC entsperren kann.", 8, 232, 322, 17)
$Label10 = GUICtrlCreateLabel("Bitte geben Sie nichts von der Tastatur aus ein! Falls Sie keine Eingaben", 8, 56, 350, 17)
$Label11 = GUICtrlCreateLabel("täigen können, wird Ihr Controller leider nicht unterstützt. Sperren Sie", 8, 72, 350, 17)
$Label12 = GUICtrlCreateLabel("Ihren PC dann doch einfach per USB-Stick.", 8, 88, 450, 17)
$Button1 = GUICtrlCreateButton("Sperren (ich habe mir die Tastenkombination gemerkt)", 9, 256, 337, 33);, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Eingabefelder prüfen", 77, 296, 201, 25);, $WS_GROUP)
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
If $msg = -3 Then
Exit
EndIfIf $msg = $Button1 Then
[/autoit] [autoit][/autoit] [autoit]
$tke = GUICtrlRead ($Input1)
$tkwdh = GUICtrlRead ($Input2)
If $tke <> $tkwdh Then
MsgBox (16,"USB-Lock","Die beiden eingegebenen Tastenkombinationen stimmen nicht überein.")
Else
ExitLoop
EndIf
EndIfWEnd
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _nurzumTest()
[/autoit]
Switch ControlGetFocus($Form1); hier den Variablennamen der GUI eintragen
Case 'Edit1'
MsgBox(0, '', 'Den Fokus hat der 1. Input')
Case 'Edit2'
MsgBox(0, '', 'Den Fokus hat der 2. Input')
EndSwitch
EndFunc -
einfacher: ja
aber ich bin kein Freund davon ganze Sammlungen von Funktionen zu includen,
wenn ich nur eine brauche (und jetzt nich --> da gibt es doch Organize Includes)
das macht den Aufwand nur noch größer.Und wenn Du Dir _FileListToArray ansiehst, dann arbeitet das auch nur mit FileFindFirstFile ...
Aber ich gebe Dir Recht. Bequemer ist es allemal.
-
Zitat
Beim Skriptstart mit IniReadSectionNames alle Sektionen ermitteln
BugFix ,
Ilse schreibt doch, dass Sie eine unbekannte Anzahl an ini-Dateien hat, deren Namen Sie erstml ermitteln muss.
-
Hier ein Beispiel:
Spoiler anzeigen
[autoit]#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]
Global $a_IniFiles[1] = [0]
Global $search = FileFindFirstFile(@ScriptDir & '\ini\*.ini')If $search = -1 Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "Error", "No files/directories matched the search pattern")
EndIfWhile 1
[/autoit] [autoit][/autoit] [autoit][/autoit]
$file = FileFindNextFile($search)
If @error Then ExitLoop FileClose($search)
_ArrayAdd($a_IniFiles,$file)
$a_IniFiles[0] +=1
WEnd
_ArrayDisplay($a_IniFiles) -
Du kannst über WM_Messages erfahren, was gerade mit Deinen Controls "passiert".
Dazu müssten wir aber ein Script von Dir sehen, damit man das als Beispiel einbauen kann -
eigene (AutoIt) Gui?
-
Einzige Hilfe:
BugFix hat hier im Forum mal was gepostet in der Richtung.
Musst aber selber danach suchen.Da es für das "umbiegen" von Tastatureingaben eigentlich keine sinnvolle Anwendung gibt,
denke ich, dass Du ohne vernünftige Erklärung kaum Support dafür bekommen wirst. -
Du musst als Erstes den Titel des Fensters angeben. In dem Fall "Drucken"
[autoit]ControlCommand ("Drucken", "", "Combobox1", "SetCurrentSelection", "Adobe PDF")
[/autoit] -
Zitat
ich weiß aber nicht recht, wie ich meine Idee damit umsetzen soll.
Was ist denn Deine Idee?
Vielleicht gibt es ja dann eher einen Ansatz ... -
-
vielleicht solltest Du uns erstmal erklären, was Du womit machen willst,
damit wir Dir sagen können was am ehesten zum Ziel führt -
da ja so mancher alles als "bot" bezeichnet habe ich das Thema erstmal freigegeben.
Muss ja kein Bot in unserem Sinne sein.
gemäß dem Sinn nach: In dubio pro reo (lat.) -
Hallo Stonerrock,
damit Deine Anfrage viele Antworten erhält wäre es hilfreich,
wenn Du alle notwendigen Dateien wie Deine test.txt mit einstellen würdest.Es wird sich kaum einer die Mühe machen selber eine test.txt zu erstellen.
Außerdem kann der "Fehler" ja auch an der test.txt liegen. -
bitte unterscheide zwischen den Eingabegeräten: "Maus" und dem Mauszeiger auf dem Bildschirm.
Mäuse kannst Du an den PC anschließen soviele Du willst.
Steuern werden aber alle immer nur den einen Mauszeiger -
okay,
also erstmal grundsätzlich: in Windows gibt es IMMER nur eine Maus.Ich denke damit ist der Thread beantwortet
-
darf ich Deine Frage neu formulieren so wie ich sie verstanden habe, da ich mit Deiner Frage nicht viel anfangen kann.
Du möchtest an mehreren Stellen nacheinander automatisiert die Maus etwas anklicken lassen?
Richtig?
-
_StringBetween liefert ein Array zurück
vielleicht so:
Spoiler anzeigen
[autoit]#include <GuiConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#Include <File.au3>
#Include <WinAPI.au3>
#include <Constants.au3>
#include <IE.au3>
#include <Misc.au3>
#include <Array.au3>
#include <String.au3>#NoTrayIcon
[/autoit] [autoit][/autoit] [autoit]dim $termGUI = ""
[/autoit] [autoit][/autoit] [autoit]
dim $oIE1 = _IECreateEmbedded()$hGUI_1 = GUICreate("Test-Anzeige", 600, 600, 0, 0)
[/autoit] [autoit][/autoit] [autoit]
$termGUI = GUICtrlCreateInput("", 5, 5, 300, 25, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NOHIDESEL))
GUICtrlSetState($termGUI, $GUI_FOCUS)
$hButton_1 = GUICtrlCreateButton("Search", 310, 5, 50, 25, 0)
$hButton_2 = GUICtrlCreateButton("Clear", 365, 5, 50, 25, 0)$Tab1 = GUICtrlCreateTab(5, 40, 590, 535)
[/autoit] [autoit][/autoit] [autoit]
$TabSheet1 = GUICtrlCreateTabItem("Tab1")
$GUIemb1 = GUICtrlCreateObj($oIE1, 15, 65, 570, 595);~ $TabSheet2 = GUICtrlCreateTabItem("Tab2")
[/autoit] [autoit][/autoit] [autoit]GUISetState()
[/autoit] [autoit][/autoit] [autoit];##########################################
[/autoit] [autoit][/autoit] [autoit]Do
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
Select
Case $msg = $hButton_2
GUICtrlSetData($termGUI, "")
GUICtrlSetState($termGUI, $GUI_FOCUS)
Case $msg = $hButton_1
$sHTML = BinaryToString(InetRead("http://blog.fefe.de/"))
;~ $aMatch = StringRegExp($sHTML, ????????????????????????????????????????????)
$sHTMLcut = _StringBetween($sHTML, '<b>', '</b>')_IENavigate($oIE1, "about:blank", 0)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_IEDocWriteHTML ($oIE1, $sHTMLcut[0])EndSelect
[/autoit]
Until $msg = $GUI_EVENT_CLOSE;To be able to close the Window!
Exit -
Hi Jam00,
dieser Reg-Key könnte helfen:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\SizeName100% sollte sein: NormalSize
120% sollte sein: LargeSize (oder so ähnlich)Nachtrag für Win7:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\LastLoadedDPI
andert sich von 96 (100%) bis hin zu 144(150%)