Beiträge von McPoldy

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$oForm = GUICreate("Anmeldung", 366, 129, 192, 124)
$Label1 = GUICtrlCreateLabel("Username:", 16, 16, 55, 17)
$Label2 = GUICtrlCreateLabel("Passwort:", 16, 56, 50, 17)
$txtUser = GUICtrlCreateInput("", 88, 16, 257, 21)
$txtPassword = GUICtrlCreateInput("", 88, 48, 257, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$cmdLogin = GUICtrlCreateButton("Anmelden", 48, 88, 129, 25, $WS_GROUP)
$cmdESC = GUICtrlCreateButton("Abbrechen", 192, 88, 137, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Local $username,$password

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $cmdESC
Exit
Case $cmdLogin
$username = GUICtrlRead($txtUser)
$password = GUICtrlRead($txtPassword)
GUISetState(@SW_HIDE)
ExitLoop
EndSwitch
WEnd

; Ab hier kannst du mit den beiden Variablen weiterarbeiten ($username, $password)

MsgBox(64,'User und Passwort',$username & @LF & $password)

Global Const $File_Pfad = 'ID.txt'
Global Const $File_Pfad1 = 'PW.txt'
;If FileExists($File_Pfad) Then ;HIER NOCH BEARBEITEN

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("ID", 251, 93, -1, -1)
GUISetIcon("D:\008.ico")
$IDEdit = GUICtrlCreateInput("password", 8, 32, 233, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$ButtonOk = GUICtrlCreateButton("&OK", 86, 64, 75, 25, 0)
$ButtonCancel = GUICtrlCreateButton("&Cancel", 167, 64, 75, 25, 0)
$EnterPassLabel = GUICtrlCreateLabel("ID eingeben", 8, 12, 94, 17)
GUISetState(@SW_SHOW,$Form1) ; Die Form mit angegeben

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ButtonCancel
Exit
Case $ButtonOk
FileWrite($File_Pfad, GUICtrlRead($IDEdit))
; Winclose("ID") ; Weg damit
ExitLoop ; Schleife verlassen
EndSwitch
WEnd
GUISetState(@SW_HIDE,$Form1) ; Erste From ausblenden

#cs Doppelt gemoppelt
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#ce

$Form = GUICreate("PW", 251, 93, -1, -1)
GUISetIcon("D:\008.ico")
$PasswordEdit = GUICtrlCreateInput("password", 8, 32, 233, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$ButtonOk = GUICtrlCreateButton("&OK", 86, 64, 75, 25, 0)
$ButtonCancel = GUICtrlCreateButton("&Cancel", 167, 64, 75, 25, 0)
$EnterPassLabel = GUICtrlCreateLabel("Passwort eingeben", 8, 12, 94, 17)
GUISetState(@SW_SHOW,$Form)

While 2
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ButtonCancel
Exit
Case $ButtonOk
FileWrite($File_Pfad1, GUICtrlRead($PasswordEdit))
Winclose("PW")

EndSwitch
WEnd

Zitat

MouseClick ( "button" [, x, y [, clicks [, speed ]]] )

Parameter

button Die Maustaste die gedrückt werden soll: "left" (links), "right" (rechts), "middle" (mitte), "main" (haupt), "menu" (Menü), "primary" (primär), "secondary" (sekundär).
x, y [optional] Die x,y-Koordinaten, an der die Klicks ausgeführt werden sollen. Sind keine x,y-Koordinaten angegeben, wird standardmäßig die gegenwärtige Mausposition verwendet.
clicks [optional] Anzahl der Klicks. Standardwert ist 1.
speed [optional] Geschwindigkeit der Mausbewegung von 1 (schnellste) bis 100 (langsamste). Eine Geschwindigkeit von 0 führt den Klick (an den x,y-Koordinaten) sofort aus. Standardgeschwindigkeit ist 10.

Alles anzeigen

[Blockierte Grafik: http://s3.amazonaws.com/ember/e3SZKSMpQQ6ygsWRXzk7Kozir4FIUiDm_m.png]

[Blockierte Grafik: http://s3.amazonaws.com/ember/TaXI92kw1XZy3sfZjjva5SBXiecbXSgy_m.png]

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.0.0
Author: Jens Kröger (McPoldy)

Script Function:
Beispielskript, wie man auch Fenster steuern kann, die auf @SW_HIDE
gesetzt wurden.

F1 = Fenster verstecken
F2 = Fenster anzeigen
F3 = Etwas anderes schreiben
F4 = Skript beenden und aufräumen

Was mache ich hier?
===================
Ich prüfe ob eine Datei mit dem Namen versteck.txt in meinem Skript Verzeichnis
vorhanden ist, falls nein, erstelle ich sie. Dann rufe ich Notepad mit dieser
Datei auf. Wenn das Fenster vom Notepad da ist, hole ich mir den Titel des Fensters
und Verstecke es dann. Wenn der Titel bereits bekannt ist, kann man sich das
sparen und ihn direkt in der Variablen $titel speichern und das betreffende
Programm auch gleich mit @SW_HIDE starten.
Dann lasse ich eine Schleife laufen, welche im Sekundentakt immer die Uhrzeit
in das Notepad-Fenster mittels ControlSend schreibt. Nun kann man mit den
oben stehenden Tastenkombis Aktionen ausführen: verstecken, anzeigen, was
anderes schreiben oder das Programm beenden.
Wenn das Programm beendet wird, wird auch die Datei versteck.txt wieder gelöscht,
damit alles schön sauber ist.

Wozu ist das nun gut?
=====================
So, oder so ähnlich, könnte man das mit anderen Programmen auch machen, sie sind
zwar nicht sichtbar, können aber trozdem gesteuert werden.

#ce ----------------------------------------------------------------------------

; Umschalt und F-Tasten
HotKeySet('+{F1}','hWin')
HotKeySet('+{F2}','sWin')
HotKeySet('+{F3}','schreibwas')
HotKeySet('+{F4}','ProgEnde')

#Region Wenn man den Fenstertitel auslesen will
;#cs
; Prüfe ob Datei vorhanden ist, sonst erstelle sie
checkFile()
; Starte Notepad
Local $pid = run("notepad.exe versteck.txt",@ScriptDir,@SW_SHOWMAXIMIZED)
; Warten bis Programm gestartet ist
Sleep(1000)
; Den Fenstertitel in $titel speichern
local $titel = WinGetTitle("[active]")
; Fenster ausblenden
hWin()
;#ce
#EndRegion <== Wenn man den Fenstertitel auslesen will

#Region Wenn der Fenstertitel direkt in einer Variablen gespeichert wird
#cs
; Prüfe ob Datei vorhanden ist, sonst erstelle sie
checkFile()
; Starte Notepad
Local $pid = run("notepad.exe versteck.txt",@ScriptDir,@SW_HIDE)
; Den Fenstertitel in $titel speichern
local $titel = 'versteck.txt - Editor'
#ce
#EndRegion <== Wenn der Fenstertitel direkt in einer Variablen gespeichert wird

; Schleife, die jede Sekunde die Zeit schreibt
While True
$zeit = StringFormat('%s:%s:%s',@HOUR,@MIN,@SEC) & @CR
ControlSend($titel,'','[CLASS:Edit; INSTANCE:1]',$zeit)
Sleep(1000)
WEnd

; Fenster verstecken = Umschalttaste und F1
Func hWin()
WinSetState($titel,'',@SW_HIDE)
EndFunc

; Fenster anzeigen = Umschalttaste und F2
Func sWin()
WinSetState($titel,'',@SW_SHOW)
EndFunc

; Etwas anderes schreiben = Umschalttaste und F3
Func schreibwas()
ControlSend($titel,'','[CLASS:Edit; INSTANCE:1]','Mal etwas anderes....' & @CR)
EndFunc

; Prozess beenden, die Datei löschen und das Skript beenden = Umschalttaste und F4
Func ProgEnde()
ProcessClose($pid)
FileDelete('versteck.txt')
Exit
EndFunc

; Funktion zum prüfen ob die Datei vorhanden ist, ggf. erzeugen der Datei.
Func checkFile()
If Not FileExists('versteck.txt') Then
$f = FileOpen('versteck.txt',10)
FileClose($f)
EndIf
EndFunc

; Client
; ======================================================================================

; HotKeys für die Funktionen
HotKeySet('{F1}','NeueNachricht')
HotKeySet('{F2}','IPsetzen')
HotKeySet('{F3}','ProgrammEnde')

; Variablen
Local $ip, $client

; TCP starten
TCPStartup()

; Endlosschleife zum warten
While 1
Sleep(100)
WEnd

; IP setzen
Func IPsetzen()
$ip = InputBox("IP","Server IP:",@IPAddress1)
EndFunc

; Das Skript beenden
Func ProgrammEnde()
TCPShutdown()
Exit
EndFunc

; Neue Nachricht senden
Func NeueNachricht()
$client = TCPConnect(@IPAddress1,65432)
TCPSend($client,InputBox("Nachricht senden:","Gib deine Nachricht ein:"))
TCPCloseSocket($client)
EndFunc

; Server
; ======================================================================================

; Konstanten setzen
Const $ip = @IPAddress1
Const $nPort = 65432

; Variablen
Local $socket, $ConnectedSocket, $MainSocket,$szIP_Accepted

; TCP starten
TCPStartup()

$socket = TCPListen(@IPAddress1,65432)
If $socket = -1 Then Exit

; Funktion für das warten auf eine Verbindung
WarteAufVerbindung()

; Diese Funktion wartet auf eine neue Verbindung
Func WarteAufVerbindung()
$ConnectedSocket = -1
Do
$ConnectedSocket = TCPAccept($socket)
Until $ConnectedSocket <> -1
EmpfangeNachricht()
EndFunc

; Diese Funktion nimmt die Nachricht entgegen und gibt sie aus
; anschliessend wartet er wieder auf eine neue Verbindung indem er
; wieder die Funktion WarteAufVerbindun aufruft.
Func EmpfangeNachricht()
$recv = ''
while 1
$recv &= TCPRecv($ConnectedSocket, 2048)
If @error Then ExitLoop
WEnd
MsgBox(64,'',$recv)
WarteAufVerbindung()
EndFunc