Super, Ich danke Euch ganz herzlich.
hat Funktioniert.
Auf die Func bin ich garnicht gekommen, ich hab mich so in die Theorie "Schleife" verbissen das ich das außer acht gelassen habe.
Super, Ich danke Euch ganz herzlich.
hat Funktioniert.
Auf die Func bin ich garnicht gekommen, ich hab mich so in die Theorie "Schleife" verbissen das ich das außer acht gelassen habe.
Vielen Dank für Eure hilfen.
Ich habe noch ein zusätzliches problem:
Da ich den Prozess nun mehrfach machen muss möchte ich gern, das ganze von forn beginnen lassen um eine neue Textdatei ins Fester ziehen zu können. Wie muss ich welche schleife ansetzen damit dies realisierbar wird?
gerne kann der Thread in ein Passendes Schema geschoben werden.
Hallo an alle, Ich habe mich nach sehr langer Zeit mal wieder an einem Script Probiert und hab da einige Probleme mit dem Aufbau.
Mein Ziel: ich möchte die Coodinaten für die Mauskicks aus einer .ini oder Textdatei lesen lassen.
Diese ist aktuell so aufgebaut:
920,530
bestsätigen
1089,510
Weiter
1089,510
Zur Eingabe
Deswegen möchte ich nur jede 2te Zeile gelesen haben(Also nur die mit den Coordinaten) und diese Variablen dann als diese angeben.
genau da liegt aber mein Problem ich bekomme diese Abfrage nicht hin.
Ich habe beabsichtigt auf Sachen wie Filegethandle und FF.au3 vesichtet.
Wie muss ich das besser oder schöner gestalten das mein Vorhaben gelingt?
#include <DateTimeConstants.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <FileConstants.au3>
#include <WinAPIFiles.au3>
#include <File.au3>
#include <ComboConstants.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <Misc.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
Const $style = BitOR($WS_OVERLAPPED, $WS_CAPTION, $WS_SYSMENU, $WS_VISIBLE, $WS_CLIPSIBLINGS, $WS_MINIMIZEBOX)
Global $hGUI = GUICreate("GC", 200, 200,-1, -1, $style, $WS_EX_ACCEPTFILES)
Global $Input_0 = GuiCtrlCreateInput("", 10, 35, 100, 20)
GUICtrlSetState($Input_0, $GUI_DROPACCEPTED)
Local $idButton_Close = GUICtrlCreateButton("Schließen", 10, 170, 85, 25)
Local $idDate = GUICtrlCreateDate("", 10, 10, 100, 20, $DTS_SHORTDATEFORMAT)
Local $idButton_Next = GUICtrlCreateButton("Weiter", 100, 170, 85, 25)
GuiSetState(@SW_SHOWNORMAL)
Do
Switch GuiGetMsg()
Case $idButton_Next
$file = FileOpen(@Scriptdir & "/Date.txt",10)
FileWrite($file, GUICtrlRead($idDate))
ExitLoop
Case $GUI_EVENT_CLOSE, $idButton_Close
ExitLoop
Case $GUI_EVENT_DROPPED
If @GUI_DropId = $Input_0 Then GUICtrlSetData($Input_0, @GUI_DragFile)
Case Else
;
EndSwitch
Until False
Local $zeile = FileReadLine($file)
GUIDelete($hGUI)
HotKeySet("{ESCAPE}", "esc")
$file = @ScriptDir&"\coord.ini" ;in dieser Datei sind die Coordinaten
FileOpen($file, 0)
Local $iCountLines = _FileCountLines(@ScriptDir&"\coord.ini")
$i=-1
For $i=-1 = 1 to _FileCountLines($file) ;fängt bei -1 an zu zählen
$line = FileReadLine($file, $i)
$i=$i+1
$line = FileReadLine($file, $i)
if $line = ("") then Exit ;sind keine Zeilen mehr da hört er auf
Global $aCoordinates1[2] = [$line]
msgbox(0,'ms1','the line ' & $i & ' is ' & $aCoordinates1[0],$aCoordinates1[1])
FileClose($file)
next
;hört aktuell hier auf weil ich nicht weiter komme
Sleep (2000)
ShellExecute("C:\Programme\Mozilla Firefox\firefox.exe")
Sleep (2000)
MouseClick($MOUSE_CLICK_LEFT,920,530);betsätigen
Sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1089,784);Weiter
Sleep(1000)
MouseWheel($MOUSE_WHEEL_DOWN, 100)
Sleep(1500)
MouseClick($MOUSE_CLICK_LEFT,1089,510);Zur Eingabe
Sleep(1000)
$date= FileReadLine(@Scriptdir & "/Date.txt", 1) ; Schreibt Datum aus Date.txt
Send ($date)
Send("{Enter}")
Sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1089,710);weitere mausclicks
$4=FileReadLine(@GUI_DragFile, 4)
If $4="W" then
MouseClick($MOUSE_CLICK_LEFT,350,287)
EndIf
If $4 = "M" then
MouseClick($MOUSE_CLICK_LEFT,350.330)
EndIf
Sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,350,570)
;...
Example()
Func Example()
Local $sAnswer = InputBox("Code", "Hier den Code Eintragen", "", "", _
- 1, -1)
MouseClick($MOUSE_CLICK_LEFT,600,560) ;codefenster
Sleep(1000)
Send($sAnswer) ;Schreibt code
EndFunc
sleep(1000)
Send("{Enter}")
Sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,600,590)
;...
Func esc()
Exit
EndFunc
Alles anzeigen
Guten Abend,
Also zu der Ersten Frage: Dies sollte auf dem Lokalen rechner kein Problem sein, mittels "Send"-Befehl aller 5 Min. die aktion "F5"-Drücken auszuführen.
bei dem Zweiten sehe ich da schon eher ein Problem. wie gehst Du denn in den Remote Rechner?
danke erstmal für Deine Antwort.
Aber genau da liegt die Arbeit die ich ümgehen möchte und zwar den Urlaub Manuell eintragen.
Ich suche eine Lösung bei der ich 09.01.2020-17.01.2020 Eintragen kann und mir es gleich einen Farblichen "Zeitstrahl" für diesen Zeitraum Gestaltet.
Meinetwegen Trage ich die Sachen, die in der Exceltabelle stehen auch in eine Textdatei um aus der sich Auoit bedienen kann
Bin da ganz offen, würde es aber schon gern über die Schiene realisieren wollen. ich glaube nur mit GUICtrlCreateListView wird das so nix. kann jemand weiter helfen?
$Form1 = GUICreate("Form1", 200, 200, 663, 317, -1, $WS_EX_TRANSPARENT) ;oder $GUI_BKCOLOR_TRANSPARENT
So vielleicht? oder meinst Du einen bestimmten Grad der Transparenz anpassen, also halbdurchlässig? Könnte dir vielleicht auch helfen: Hintergrundfarbe einer GDIplus Grafik durchsichtig machen oder Bild als Hintergrund
Hallo an alle hier mal wieder eine Frage an Euch,
ich wollte ein kleines Projekt Starten was jetzt irgendwie meinen Horizont überschritten hat und auch glaube das ich schon jetzt den ganz falschen Ansatz gewählt habe mit GUICtrlCreateListView.
Ich fang mal an:
Ich möchte einen Jahres-Urlaubsplan machen für Mitarbeiter an verschiedenen Standpunkten,
dopplungen sollten möglich sein. Quelle der Mitarbeiter und Standpunkte ist eine Exceltabelle
Im Plan ansich sollten Schulferien Gelb und Feiertage Rot dargestellt werden, m
Schulferien Gelb, Feiertage Rot. entweder fortlaufend oder zu Beginn des Jahres eintragbar.
Im Namensfeld sollen bei eingabe vorhandene Namensvorschläge beim Eintippen Erscheinen
Resttage automatisch abziehen außer Samstag und Sonntag
Wenn ein Urlaubszeitraum Eingetragen würde soll er für die Person in allen Spalten in denen er auftaucht eingetragen sein
Eine Farbauswahl soll Möglich sein: Urlaubstage Grün, Kranktage rot, geplanter Urlaub Blau, abfeiern Pink.
aktueller Tag Mit Rahmen.
Ich habe schon viele Projekte gesehen hier die die einzelnen Funktionen können, aber ich bekomme sie nicht so zusammen wie ich das gern hätte. hab auch laaaange nicht mehr geübt mit Autoit
Was ich bis her habe ist, wie gesagt eher Anfängerstatus und bestimmt der falsche Ansatz aber ich wollte euch es mal zeigen um ungefähr zu zeigen was ich haben möchte.
ich danke euch schon mal für Eure Hilfe.
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>
#include <GuiMonthCal.au3>
#include <DateTimeConstants.au3>
#include <ListViewConstants.au3>
#include <GuiListBox.au3>
Local $tRange, $idMonthCal
GUICreate("UrlaubsPlanung",1100,600,206,0)
Local $input1 = GUICtrlCreateInput("",5,5,190,25)
$input2 = GUICtrlCreateInput("",5,30,190,25)
$input3 = GUICtrlCreateInput("",5,55,190,25)
$Button=GUICtrlCreateButton("Eintragen",5,80,190,25)
$Button2=GUICtrlCreateButton("Eintragen",200,80,190,25)
Local $idDate = GUICtrlCreateDate("Anfang",200,30,-1,-1, $DTS_SHORTDATEFORMAT)
Local $idDate2 = GUICtrlCreateDate("Ende",200,55, -1, -1, $DTS_SHORTDATEFORMAT)
Local $idListview = GUICtrlCreateListView("Jahr "& @YEAR, 5, 110, 1090, 485,$LVS_SORTASCENDING);=Sortiert Aufsteigend $LVS_SORTDESCENDING =Sortiert Asteigend
Local $idListview = GUICtrlCreateListView("Monat "& @MON, 5, 135, 1090, 485,$LVS_SORTASCENDING);=Sortiert Aufsteigend $LVS_SORTDESCENDING =Sortiert Asteigend
Local $idListview = GUICtrlCreateListView("NAME |Objekt |Resttage | 1| 2| 3| 4| 5| 6|7| 8| 9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31", 5, 160, 1090, 485,$LVS_SORTASCENDING);=Sortiert Aufsteigend $LVS_SORTDESCENDING =Sortiert Asteigend
Local $idButtonlist = GUICtrlCreateButton("MA Anzeigen", 395,80,190,25)
Local $idItem1 = GUICtrlCreateListViewItem("item2|col22|col23", $idListview)
Local $idItem2 = GUICtrlCreateListViewItem("item1|col12|col13", $idListview)
Local $idItem3 = GUICtrlCreateListViewItem("item3|col32|col33", $idListview)
;GUICtrlSetData($idItem2, "ITEM1")
;GUICtrlSetData($idItem3, "||COL33")
;GUICtrlDelete($idItem1)
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Button
If GUICTRLREAD($input1) =false then
Msgbox(0,"Fehler - Name","Name darf nicht leer sein!",5)
ContinueLoop
else
IniWrite(@ScriptDir & "\Urlaub.txt", "Name", "",GUICtrlRead($input1)) ;Gui input mit ini Save
EndIf
If GUICTRLREAD($input2) =false then
Msgbox(0,"Fehler - Datum","Anfangsdatum darf nicht leer sein!",5)
ContinueLoop
else
IniWrite(@ScriptDir & "\Urlaub.txt", "Datum1", "",GUICtrlRead($input2))
EndIf
If GUICTRLREAD($input3) =false then
Msgbox(0,"Fehler - Datum","Enddatum darf nicht leer sein!",5)
ContinueLoop
else
IniWrite(@ScriptDir & "\Urlaub.txt", "Datum2", "",GUICtrlRead($input3))
EndIf
exitloop
Case $Button2
If GUICTRLREAD($input1) =false then
Msgbox(0,"Fehler - Name","Name darf nicht leer sein!",5)
ContinueLoop
else
IniWrite(@ScriptDir & "\Urlaub.txt", "Name", "",GUICtrlRead($input1)) ;Gui input mit ini Save
EndIf
If GUICTRLREAD($idDate) =false then
Msgbox(0,"Fehler - Datum","Anfangsdatum darf nicht leer sein!",5)
ContinueLoop
else
IniWrite(@ScriptDir & "\Urlaub.txt", "Datum1", "",GUICtrlRead($idDate))
EndIf
If GUICTRLREAD($idDate2) =false then
Msgbox(0,"Fehler - Datum","Enddatum darf nicht leer sein!",5)
ContinueLoop
else
IniWrite(@ScriptDir & "\Urlaub.txt", "Datum2", "",GUICtrlRead($idDate2))
EndIf
exitloop
Case $idButtonlist
MsgBox($MB_SYSTEMMODAL, "listview item", GUICtrlRead(GUICtrlRead($idListview)), 2)
Case $idListview
MsgBox($MB_SYSTEMMODAL, "listview", "clicked=" & GUICtrlGetState($idListview), 2)
EndSwitch
WEnd
Alles anzeigen
Aussehen soll es dann zum Schluss innerhalb des Fensters so wie in der Exeltabelle:
Als Dateianhang hab ich noch etwas hier aus dem Forum(von wem Genau weiß ich leider nicht mehr, bitte Entschuldigt)
Welche ich gut mega gut finde, Respekt dafür, im allgemeinen Ansatz aber irgendwie nicht zusammen mit meiner Idee bekomme.
Meine Eigentlicher Anreiz war, eine Datumsspanne von-bis mit einer Farbe einfach einzutragen ohne erst im Excel das ganze Jahr durch zu laufen und Zelle für Zelle in Farbe zu Tauchen.
okay ich werde Deinen Vorschlag mit Dem Spoiler natürlich berücksichtigen.
nur Leider versteh ich Dein Script nicht ganz.
Es Funktioniert zwar aber wo wird festgelegt welchen Wert $s_art und $s_max besitzt?
denn es wird ja zum ersten mal bei Func _rechnen($s_art, $s_max) benannt hat(für mich)
aber keinen bezug zum Array.
mir bringts ja nix, wenn ich Dein Vorschlag 1zu1 blind übernehme und nix Kapier.
braucht bei mir machnmal länger
Wie mache ich es, wenn ich nun nach den 5 Additionsaufgaben 5 Subtraktions Aufgaben lösen möchte und/oder ander Arten wie z.B. Lückenrechen-Aufgaben
Folgender Code Funktioniert Leider so Nicht, habe auch schon anderes Ausprobiert aber ich komme einfach nicht drauf:
[autoit]#region ;************ Includes ************
#include <GUIConstantsEx.au3>
#endregion ;************ Includes ************
Global $durchgang = 0
[/autoit][autoit][/autoit][autoit]Opt("GUIOnEventMode", 1)
$window_TR = GUICreate("MyGui", 500, 400)
GUISetOnEvent($GUI_EVENT_CLOSE, "Ende")
$buttonTRlsg = GUICtrlCreateButton("=", 320, 20, 70, 70)
GUICtrlSetFont(-1, 70, 400)
$LabelTR1 = GUICtrlCreateLabel("", 10, 10, 300, 100)
GUICtrlSetFont(-1, 70, 400)
$in1 = GUICtrlCreateInput("", 400, 10, 90, 90)
GUICtrlSetFont(-1, 55, 300)
GUICtrlSetOnEvent($buttonTRlsg, "calc")
GUISetState(@SW_SHOW, $window_TR)
_rechnen()
[/autoit][autoit][/autoit][autoit]Func _rechnen()
GUICtrlSetData($in1, "")
GUICtrlSetState($in1, $GUI_FOCUS)
For $x = 1 To 1
$i = Random(1, 10, 1)
Next
For $x2 = 1 To 1
$i2 = Random(1, 10, 1)
Next
GUICtrlSetData($LabelTR1, $i & " + " & $i2)
EndFunc ;==>_rechnen
While 1
Sleep(1000)
WEnd
Func calc()
$durchgang += 1
$Erg = Execute(GUICtrlRead($LabelTR1))
GUICtrlSetData($LabelTR1, $Erg)
If GUICtrlRead($in1) = $Erg Then
MsgBox(0, "Super", "Richtig gemacht :-D")
Else
MsgBox(0, "Schade", "Leider Falsch :-(")
EndIf
If $durchgang = 5 Then
GUICtrlSetOnEvent($buttonTRlsg, "calcminus")
_rechnenminus()
EndIf
_rechnen()
EndFunc ;==>calc
_rechnenminus()
[/autoit][autoit][/autoit][autoit]Func _rechnenminus()
GUICtrlSetData($in1, "")
GUICtrlSetState($in1, $GUI_FOCUS)
For $x = 1 To 1
$i = Random(1, 10, 1)
Next
For $x2 = 1 To 1
$i2 = Random(1, 10, 1)
Next
GUICtrlSetData($LabelTR1, $i & " - " & $i2)
EndFunc ;==>_rechnenminus
Func calcminus()
$durchgang += 5
$Erg = Execute(GUICtrlRead($LabelTR1))
GUICtrlSetData($LabelTR1, $Erg)
If GUICtrlRead($in1) = $Erg Then
MsgBox(0, "Super", "Richtig gemacht :-D")
Else
MsgBox(0, "Schade", "Leider Falsch :-(")
EndIf
If $durchgang = 10 Then exit
_rechnenminus()
EndFunc ;==>calcminus
Func Ende()
Exit
EndFunc ;==>Ende
super danke, das hilft mir extrem weiter. ich wollte die random Funktion auch erst in eine func setzen wusste dann aber nicht wie ich sie umsetzen sollte, und ich dachte mir, eh ich das script 5x neu ineinanderschreibe gibts bestimmt ne einfachere Lösung. und siehe da: $durchgang += 1.
dankeschön
Hallo an alle.
ich habe vor eine Gui zu gestalten mit der ich Rechenaufgaben (+ und - bis 10)
Lösen kann.
ich möchte also z.b. 2 zufallszahlen 5x Addieren und 5x Subtrahieren
wenn falsch gerechnet wrde, soll die Aufgabe wiederholt werden, wenn sie richtig ist, dann die Nächste
ich habe schon mal etwas versucht aber so komme ich nicht weiter, ich kann die erste Aufgabe lösen aber komme nicht zur nächsten.
hier mein Script, bitte nicht Lachen
ich hoffe mir kann jemand helfen.
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)
$window_TR = GUICreate( "MyGui", 500,400)
GUISetOnEvent($GUI_EVENT_CLOSE, "Ende")
For $x = 1 to 1
$i = Random(1,10,1)
Next
For $x2 = 1 to 1
$i2 = Random(1,10,1)
Next
$buttonTRlsg = GUICtrlCreateButton ("=", 320,20,70,70)
GUICtrlSetFont(-1,70,400)
$LabelTR1 = GUICtrlCreateLabel($i&" + "& $i2, 10, 10, 290, 100)
GUICtrlSetFont(-1,70,400)
$in1=GUICtrlCreateInput("",400, 10, 90, 90)
GUICtrlSetFont(-1,55,300)
GUICtrlSetOnEvent($buttonTRlsg, "calc")
GUISetState(@SW_SHOW, $window_TR)
While 1
sleep(1000)
WEnd
Func calc()
$Erg = execute(GUICtrlRead($LabelTR1))
GUICtrlSetData($LabelTR1, $Erg)
if GUICtrlRead($in1) = $Erg then
msgbox(0,"Super","Richtig gemacht :-D")
Else
msgbox(0,"Schade","Leider Falsch :-(")
EndIf
EndFunc
Func Ende()
Exit
EndFunc
Edit myself:
Ich habe es lösen können indem ich die Abfrage MW einfach nach der Aufgabenstellung gelegt habe;-)
hab ich ja in diesem bsp in die ini Drückmich_w.ini (Frauennamen und eigener Name) und Drückmich_m (Männernamen und eigener Name)
ich bekomme es nur nicht gehändelt, das ich Autoit nach dem wählen der Aufgabe klarmachen kann, aus welcher ini er einen zufallsnamen, gemäß des gewählten knopfes wählen soll
Genau da liegt der Hase im Pfeffer, ich bekomme die Arrays nicht hin.
das ist das Skript wie ich es bis jetzt habe, mehr als chaotisch, aber ich bin ja noch am lernen weil der
der dem Account gehört ja im urlaub ist
#include <GUIConstantsEx.au3>
$font="Comic Sans MS"
$mn1=IniRead("C:/DrueckMich_m.ini", @UserName, "Männlicher Name 1","")
$mn2=IniRead("C:/DrueckMich_m.ini", @UserName, "Männlicher Name 2","")
$mn3=IniRead("C:/DrueckMich_m.ini", @UserName, "Männlicher Name 3","")
$mn4=IniRead("C:/DrueckMich_m.ini", @UserName, "Männlicher Name 4","")
$mn5=IniRead("C:/DrueckMich_m.ini", @UserName, "Männlicher Name 5","")
$mn6=IniRead("C:/DrueckMich_m.ini", @UserName, "Männlicher Name 6","")
$playerm=IniRead("C:/DrueckMich_m.ini", @UserName, "Spieler","")
;
$wn1=IniRead("C:/DrueckMich_w.ini", @UserName, "Weiblicher Name 1", "")
$wn2=IniRead("C:/DrueckMich_w.ini", @UserName, "Weiblicher Name 2", "")
$wn3=IniRead("C:/DrueckMich_w.ini", @UserName, "Weiblicher Name 3", "")
$wn4=IniRead("C:/DrueckMich_w.ini", @UserName, "Weiblicher Name 4", "")
$wn5=IniRead("C:/DrueckMich_w.ini", @UserName, "Weiblicher Name 5", "")
$wn6=IniRead("C:/DrueckMich_w.ini", @UserName, "Weiblicher Name 6", "")
$playerw=IniRead("C:/DrueckMich_w.ini", @UserName, "Spieler","")
;Liste $ für Aufgaben eintragungen
$A1=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe1","")
$A2=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe2","")
$A3=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe3","")
$A4=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe4","")
$A5=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe5","")
$A6=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe6","")
$A7=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe7","")
$A8=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe8","")
$A9=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe9","")
$A10=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe10","")
$A11=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe11","")
$A12=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe12","")
$A13=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe13","")
$A14=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe14","")
$A15=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe15","")
$A16=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe16","")
$A17=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe17","")
$A18=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe18","")
$A19=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe19","")
$A20=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe20","")
$A21=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe21","")
$A22=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe22","")
$A23=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe23","")
$A24=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe24","")
$A25=IniRead("C:/DrueckMich_w.ini", @UserName, "Aufgabe25","")
;;;
$hGui = GUICreate("M/W - Liste", 250, 250)
GUICtrlCreateLabel("Männlicher Name:",10,10)
GUICtrlCreateLabel("Weiblicher Name:",130,10)
GUICtrlCreateLabel("Du Bist?",95,180)
$hInput1 = GUICtrlCreateInput(IniRead("C:/DrueckMich_m.ini","","Männlicher Name 1", $mn1), 10, 30, 100, 20)
$hInput2 = GUICtrlCreateInput(IniRead("C:/DrueckMich_m.ini","","Männlicher Name 2", $mn2), 10, 55, 100, 20)
$hInput3 = GUICtrlCreateInput(IniRead("C:/DrueckMich_m.ini","","Männlicher Name 2", $mn3), 10, 80, 100, 20)
$hInput4 = GUICtrlCreateInput(IniRead("C:/DrueckMich_m.ini","","Männlicher Name 2", $mn4), 10, 105, 100, 20)
$hInput5 = GUICtrlCreateInput(IniRead("C:/DrueckMich_m.ini","","Männlicher Name 2", $mn5), 10, 130, 100, 20)
$hInput6 = GUICtrlCreateInput(IniRead("C:/DrueckMich_m.ini","","Männlicher Name 2", $mn6), 10, 155, 100, 20)
;
$hInput7 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Weiblicher Name 1", $wn1), 130, 30, 100, 20)
$hInput8 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Weiblicher Name 2", $wn2), 130, 55, 100, 20)
$hInput9 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Weiblicher Name 3", $wn3), 130, 80, 100, 20)
$hInput10 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Weiblicher Name 4", $wn4), 130, 105, 100, 20)
$hInput11 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Weiblicher Name 5", $wn5), 130, 130, 100, 20)
$hInput12 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Weiblicher Name 6", $wn6), 130, 155, 100, 20)
$hInput13 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Spieler", $Playerw),70,195,100,20)
$Gui_Button=GUICtrlCreateButton("Top!",95,220,50)
GUISetState()
While 1
Switch GUIGetMsg()
Case $Gui_Button
IniWrite("C:/DrueckMich_m.ini",@UserName,"Männlicher Name 1",GUICtrlRead($hInput1))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Männlicher Name 2",GUICtrlRead($hInput2))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Männlicher Name 3",GUICtrlRead($hInput3))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Männlicher Name 4",GUICtrlRead($hInput4))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Männlicher Name 5",GUICtrlRead($hInput5))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Männlicher Name 6",GUICtrlRead($hInput6))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Spieler",GUICtrlRead ($hInput13))
;
IniWrite("C:/DrueckMich_w.ini",@UserName,"Weiblicher Name 1",GUICtrlRead($hInput7))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Weiblicher Name 2",GUICtrlRead($hInput8))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Weiblicher Name 3",GUICtrlRead($hInput9))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Weiblicher Name 4",GUICtrlRead($hInput10))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Weiblicher Name 5",GUICtrlRead($hInput11))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Weiblicher Name 6",GUICtrlRead($hInput12))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Spieler",GUICtrlRead ($hInput13))
ExitLoop
EndSwitch
WEnd
GUIDelete("M/W - Liste")
GUICreate("Aufgaben-Liste",550, 590)
GUICtrlCreateLabel("Ich möchte ...Aufgabe",170,5,550,30)
GUICtrlSetFont (-1, 18,400,"",$font)
$aInput1 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe1",$A1),10,40,100,100)
$aInput2 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe2",$A2),10,140,100,100)
$aInput3 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe3",$A3),10,240,100,100)
$aInput4 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe4",$A4),10,340,100,100)
$aInput5 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe5",$A5),10,440,100,100)
$aInput6 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe6",$A6),110,40,100,100)
$aInput7 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe7",$A7),110,140,100,100)
$aInput8 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe8",$A8),110,240,100,100)
$aInput9 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe9",$A9),110,340,100,100)
$aInput10 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe10",$A10),110,440,100,100)
$aInput11 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe11",$A11),210,40,100,100)
$aInput12 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe12",$A12),210,140,100,100)
$aInput13 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe13",$A13),210,240,100,100)
$aInput14 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe14",$A14),210,340,100,100)
$aInput15 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe15",$A15),210,440,100,100)
$aInput16 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe16",$A16),310,40,100,100)
$aInput17 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe17",$A17),310,140,100,100)
$aInput18 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe18",$A18),310,240,100,100)
$aInput19 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe19",$A19),310,340,100,100)
$aInput20 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe20",$A20),310,440,100,100)
$aInput21 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe21",$A21),410,40,100,100)
$aInput22 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe22",$A22),410,140,100,100)
$aInput23 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe23",$A23),410,240,100,100)
$aInput24 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe24",$A24),410,340,100,100)
$aInput25 = GUICtrlCreateInput(IniRead("C:/DrueckMich_w.ini","","Aufgabe25",$A25),410,440,100,100)
$nunaber=GUICtrlCreateButton(" nun aber! ",215,550)
GUISetState()
While 1
Switch GUIGetMsg()
Case $nunaber
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe1",GUICtrlRead($ainput1))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe2",GUICtrlRead($ainput2))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe3",GUICtrlRead($ainput3))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe4",GUICtrlRead($ainput4))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe5",GUICtrlRead($ainput5))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe6",GUICtrlRead($ainput6))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe7",GUICtrlRead($ainput7))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe8",GUICtrlRead($ainput8))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe9",GUICtrlRead($ainput9))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe10",GUICtrlRead($ainput10))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe11",GUICtrlRead($ainput11))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe12",GUICtrlRead($ainput12))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe13",GUICtrlRead($ainput13))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe14",GUICtrlRead($ainput14))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe15",GUICtrlRead($ainput15))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe16",GUICtrlRead($ainput16))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe17",GUICtrlRead($ainput17))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe18",GUICtrlRead($ainput18))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe19",GUICtrlRead($ainput19))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe20",GUICtrlRead($ainput20))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe21",GUICtrlRead($ainput21))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe22",GUICtrlRead($ainput22))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe23",GUICtrlRead($ainput23))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe24",GUICtrlRead($ainput24))
IniWrite("C:/DrueckMich_m.ini",@UserName,"Aufgabe25",GUICtrlRead($ainput25))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe1",GUICtrlRead($ainput1))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe2",GUICtrlRead($ainput2))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe3",GUICtrlRead($ainput3))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe4",GUICtrlRead($ainput4))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe5",GUICtrlRead($ainput5))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe6",GUICtrlRead($ainput6))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe7",GUICtrlRead($ainput7))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe8",GUICtrlRead($ainput8))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe9",GUICtrlRead($ainput9))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe10",GUICtrlRead($ainput10))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe11",GUICtrlRead($ainput11))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe12",GUICtrlRead($ainput12))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe13",GUICtrlRead($ainput13))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe14",GUICtrlRead($ainput14))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe15",GUICtrlRead($ainput15))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe16",GUICtrlRead($ainput16))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe17",GUICtrlRead($ainput17))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe18",GUICtrlRead($ainput18))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe19",GUICtrlRead($ainput19))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe20",GUICtrlRead($ainput20))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe21",GUICtrlRead($ainput21))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe22",GUICtrlRead($ainput22))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe23",GUICtrlRead($ainput23))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe24",GUICtrlRead($ainput24))
IniWrite("C:/DrueckMich_w.ini",@UserName,"Aufgabe25",GUICtrlRead($ainput25))
ExitLoop
EndSwitch
WEnd
GUIDelete("Aufgaben-Liste")
GUICreate("",250, 210)
GUICtrlCreateLabel("Ich möchte ...",60,10,250,30)
GUICtrlSetFont (-1, 18,400,"",$font)
$Button1 = GUICtrlCreateButton("Jungs", 25, 80,200)
$Button2 = GUICtrlCreateButton("Mädchen", 25, 140,200)
GUISetState()
While 1
Switch GUIGetMsg()
Case $Button1
;hier komm ich nicht weiter
ExitLoop
Case $Button2
;;hier komm ich nicht weiter
ExitLoop
EndSwitch
WEnd
GUIDelete("")
;...somit wird das alle noch schräger als es so schon ist
Func _Button1()
Dim $Dim1[6] = [iniRead("C:/DrueckMich_m.ini", @UserName, "Männlicher Name 1",""),IniRead("C:/DrueckMich_m.ini", @UserName, "Männlicher Name 2",""),IniRead("C:/DrueckMich_m.ini", @UserName, "Männlicher Name 3",""),IniRead("C:/DrueckMich_m.ini", @UserName, "Männlicher Name 4",""),IniRead("C:/DrueckMich_m.ini", @UserName, "Männlicher Name 5",""),IniRead("C:/DrueckMich_m.ini", @UserName, "Männlicher Name 6","")]
$DimM=$Dim1[Random(1,6,-1)]
MsgBox(0,"Drück mich", $playerm &" muss mit "& $DimM & " "&$A1)
EndFunc
Func _Button2()
Dim $Dim2[6] = [IniRead("C:/DrueckMich_w.ini", @UserName,"Weiblicher Name 1",""),IniRead("C:/DrueckMich_w.ini",@UserName,"Weiblicher Name 2",""),IniRead("C:/DrueckMich_w.ini",@UserName,"Weiblicher Name 3",""),IniRead("C:/DrueckMich_w.ini",@UserName,"Weiblicher Name 4",""),IniRead("C:/DrueckMich_w.ini",@UserName,"Weiblicher Name 5",""),IniRead("C:/DrueckMich_w.ini",@UserName,"Weiblicher Name 6","")]
$DimW=$Dim2[Random(1,6,-1)]
MsgBox(0,"Aufgabe", $playerw &" muss mit "& $DimW & " die aufgabe "&$aButon2&" machen")
EndFunc
GUICreate("Aufgaben",550, 555)
GUICtrlCreateLabel("Ich möchte mit Dieser Person...",100,5,550,30)
GUICtrlSetFont (-1, 18,400,"",$font)
$aButton1 = GUICtrlCreateButton($A1,10,40,100,100)
$aButton2 = GUICtrlCreateButton($A2,10,140,100,100)
$aButton3 = GUICtrlCreateButton($A3,10,240,100,100)
$aButton4 = GUICtrlCreateButton($A4,10,340,100,100)
$aButton5 = GUICtrlCreateButton($A5,10,440,100,100)
$aButton6 = GUICtrlCreateButton($A6,110,40,100,100)
$aButton7 = GUICtrlCreateButton($A7,110,140,100,100)
$aButton8 = GUICtrlCreateButton($A8,110,240,100,100)
$aButton9 = GUICtrlCreateButton($A9,110,340,100,100)
$aButton10 = GUICtrlCreateButton($A10,110,440,100,100)
$aButton11 = GUICtrlCreateButton($A11,210,40,100,100)
$aButton12 = GUICtrlCreateButton($A12,210,140,100,100)
$aButton13 = GUICtrlCreateButton($A13,210,240,100,100)
$aButton14 = GUICtrlCreateButton($A14,210,340,100,100)
$aButton15 = GUICtrlCreateButton($A15,210,440,100,100)
$aButton16 = GUICtrlCreateButton($A16,310,40,100,100)
$aButton17 = GUICtrlCreateButton($A17,310,140,100,100)
$aButton18 = GUICtrlCreateButton($A18,310,240,100,100)
$aButton19 = GUICtrlCreateButton($A19,310,340,100,100)
$aButton20 = GUICtrlCreateButton($A20,310,440,100,100)
$aButton21 = GUICtrlCreateButton($A21,410,40,100,100)
$aButton22 = GUICtrlCreateButton($A22,410,140,100,100)
$aButton33 = GUICtrlCreateButton($A23,410,240,100,100)
$aButton24 = GUICtrlCreateButton($A24,410,340,100,100)
$aButton25 = GUICtrlCreateButton($A25,410,440,100,100)
GUISetState()
While 1
Switch GUIGetMsg()
Case $aButton1
IniRenameSection ( "C:/DrueckMich_m.ini", @UserName, $A1,1)
IniRenameSection ( "C:/DrueckMich_w.ini", @UserName, $A1,1)
ExitLoop
Case $aButton2
_Button2()
EndSwitch
WEnd
MsgBox(0,"Drück mich", $playerw &" muss mit "& $DimW & " "$A1)
[/autoit]okay ich versuchs mal
ich möchte, das man in eine GIU jeweil 6 Männer- und 6 Frauennamen und seinen eigenen Namen Eintragen kann
diese werden in eine Ini gespeichert.
danach soll eine 2te Gui mit zwei knöpfen erscheinen auf der mir entweder nur Männer oder nur Frauen aussuchen kann.
wenn ich z.B. den Mädchen-Butten gedrückt habe, sollen nur die mädchennamen in das zufallsmuster fallen, beim Jungs-Button nur die jungs.
anschließen soll die dritte GUI die aufgaben anzeigen die jede einzeln in einem von 24 Knöpfen steht.
wähle ich eine Aufgabe, soll eine msgbox erscheinen, welche mir den zuvor festelegten festen namen anzeigt, den zufallsnamen gemäß des gedrückten knopfes und die ebend gewählte aufgabe.
ich bekomme es nur nicht hin, die jungs von den mädchen zu trennen, da ja die gewählte aufgabe auf nur einen von beiden ansprechen soll.
ich bekomm die aufgabe nicht mit dem ausgewählten geschlecht verknüpft.
Hallo an alle,
ich habe 2 Ini`s, mit je einem Festen Namen, 1 von 6 zufallsnamen, eine Geschlechter Auswahl und 25 Aufgaben!
mein ziel ist es, oder soll es mal werden, das ich zuerst einen von 2 Button Betätigen kann(die Geschlechterauswahl)
und dann auf einer anderen Gui mit den 25 Aufgaben treffe, deren Daten auch aus einer von beiden Ini's gelesen werden.
meine Frage richtet sich ferner daran:
wie kann ich es anstellen, dass ich beim drücken des Buttons 1, Geschlecht M eine Aufgabe 1-25 zuweisen kann und dann nochmal die selben Aufgabe 1-25 bei Button 2, dem Geschlecht W?!
Ziel des ganzen soll sein, das ein Männlicher Zufallsname aus der Ini 1 im zusammenhang mit der gewählten Aufgabe steht und einmal ein Weiblicher Zufallsname aus der Ini 2.
bei Button1 Msgbox(0,"Aufgaben","Du, "&$zufallsname Männlich &" sollst "&$Fester Name&" beim "&$Ausgewählte Aufgabe&" helfen!")
bei Button2 Msgbox(0,"Aufgaben","Du, "&$zufallsname Weiblich &" sollst "&$Fester Name&" beim "&$Ausgewählte Aufgabe&" helfen!")
Vielleicht mach ichs mir auch gerade Komplizierter als es sein muss oder seh es gerade nicht, aber wäre schön wenn Ihr Tipps für mich hättet.
Super, danke, genau so, wollte ich das ich habe es nur noch etwas geändert weil mir auf gefallen ist, das, sobald ein anderes Fenster im Vordergrund steht die Maus in diesem sdann Quasi gefangen ist. oder beim drücken der Windowstaste sich die maus auf der Startleiste bewegen lässt
[autoit]#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <GuiConstantsEx.au3>
#include <EditConstants.au3>
#include <Misc.au3>
;Opt("TrayIconHide", 1)
;Opt("WinTitleMatchMode", 2)
OnAutoItExitRegister("_Exit")
$user_dll = DllOpen("user32.dll")
$Passwort = IniRead(@DesktopDir & "\TestGUI.ini", "section", "key", 0)
[/autoit][autoit][/autoit][autoit]$GUI = GUICreate("TestGUI", 205, 60, 5, 5,"","")
$Input1 = GUICtrlCreateInput("", 5, 5, 190, 20, $ES_PASSWORD)
GUISetState()
$pStub_KeyProc = DllCallbackRegister("_KeyProc", "int", "int;ptr;ptr")
$hHookKeyboard = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($pStub_KeyProc), _WinAPI_GetModuleHandle(0), 0)
_Main()
Func _Main()
[/autoit][autoit][/autoit][autoit]Local $GUI, $coords[4]
[/autoit][autoit][/autoit][autoit]Do
$coords = WinGetPos($GUI)
;_MouseTrap($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])
_MouseTrap($coords); <-
Until GUICtrlRead($Input1) = $Passwort
_MouseTrap()
Exit
EndFunc
Func _KeyProc($nCode, $wParam, $lParam)
If $nCode < 0 Then Return _WinAPI_CallNextHookEx($hHookKeyboard, $nCode, $wParam, $lParam)
Local $tKEYHOOKS = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam)
Local $vkCode = DllStructGetData($tKEYHOOKS, "vkCode")
If $wParam = $WM_KEYDOWN And _WinAPI_GetDlgCtrlID(ControlGetHandle($GUI, "", "[CLASSNN:" & ControlGetFocus($GUI) & "]")) <> $Input1 Then
DllCall($user_dll, 'int', 'keybd_event', 'int', 0x0, 'int', 0, 'int', 0, 'ptr', 0)
Return -1
EndIf
Return _WinAPI_CallNextHookEx($hHookKeyboard, $nCode, $wParam, $lParam)
EndFunc
Func _Exit()
Exit
EndFunc
ich bin auch Stolz auf die Beiden
Danke Dir Stayawayknight, genau soetwas suche ich, nur leider weiß ich nicht wie ich den Focus setzen soll.
ich würde mit
[autoit];...
$GUI = GUICreate("TestGUI", 205, 60, 5, 5,"","")
$Input1 = GUICtrlCreateInput("", 5, 5, 190, 20, $ES_PASSWORD)
_WinAPI_SetFocus($Input)
GUISetState()
;...
Arbeiten nur leider bringt das in meinem Versuch nix.
Genauso wie den Versuch wie Folgt zu schreiben
[autoit];...
$GUI = GUICreate("TestGUI", 205, 60, 5, 5,"","")
$Input1 = GUICtrlCreateInput("", 5, 5, 190, 20, $ES_PASSWORD)
GUICtrlSetState(-1,$GUI_FOCUS)
GUISetState()
;...
was mach ich Falsch? oder hab ich das Problem mit dem Focus noch nicht verstanden?
Hallo, ich bitte um Hilfe.
ich möchte 2 Dateien, wobei ich gestehen muss, das die 2te nicht von mir ist, zusammen fügen.
Datei 1 = Eine Passwortabfrage über eine Ini-Datei die auf dem Desktop (@DesktopDir & "\TestGUI.ini", "section", "key", 0)
Datei 2 = diese Sperrt ohne Ausweg Tastatur und Maus!!!
Da weder die eine noch die andere allein von großem nutzen ist, möchte ich diese zusammenführen.
Ich habe mir Gedacht, das es möglich wäre, alle eingaben (Maus/Tastatur zu Blocken und nur in dem Passworteingabefenster Aktiv zu halten,
so das man das Gewählte Kennwort eingeben kann und mehr nicht.
Und nein, ich möchte kein Joke-Programm o.ä. Gestalten, ich möchte meinen PC und Dektop auf meine Weise vor fremden zugriff Schützen und Befehle von AutoIt verstehen.
könnte mir Jemand Beispiele Demonstrieren oder mir einfacheren Weg vorschlagen?
Danke Dir, finde ich auch.
War lediglich eine kleine Idde um mit Tastatur und Maus zu spielen und ich hatte keinen erzieherischen Aspekt im Auge sondern lediglich einen "relativen" schutz, fals man jemand auf die Tastatur oder Maus kommt, wie es auch gerne mal Kinder machen.