Beiträge von dabronko1

Hallo an alle,

ich habe folgende formel entworfen:

If Not WinExists("Kontakt-Historie") Or Not WinExists("Contact History") Then
$wincheck = MsgBox(0, XXXXXXXXXX", "Please open in XXXX the Contact History")
If $wincheck = 0 Then
WinActivate("XXXXXXXXX")
EndIf
Else

Leider funktioniert sie nicht, wie sie soll.
Ich habe das Fenster mit dem Titel Kontakt-Historie nicht geöffnet, das Fenster mit dem Titel Contact History ist aber geöffnet!
Dann sollte es doch eigrenlich keine Meldung geben!
Habt Ihr eine Idee?

Danke und Gruß
dabronko1

ja, das hab ich vergessen:

While 1
$nMsg = GUIGetMsg()

ich wollte das Traymenu ähnlich meinem normalen Menu aufbauen, aber das scheint nicht ganz so einfach zu gehen.

Gruß

Hi Liebe Community,

ich habe ein Traymenu geschrieben und möchte gern Run & Send befehle damit ausführen, nur leider klappt das nicht. Es passiert nichts wenn ich die befehle anklicke.
Habt Ihr einen Tipp für mich?

Opt("TrayMenuMode", 1+2)
$Open = FileOpen(@ScriptDir & "\RUNTIMES\position.txt")
$x = FileReadLine ($Open,1)
$y = FileReadLine ($Open,2)
GUISetState(@SW_SHOW)
Global Const $hGUI = GUICreate("CASE LOGGER 1.2.01.01", 527, 460, $x, $y) ;Start GUI
GUISetFont(13, 400, 0, "HelveticaNeueRoman")
GUISetBkColor(0xFFFFFF)
$menu50 = TrayCreateMenu("SUPPORTTOOLS")
$tool1 = TrayCreateItem("RUN", $menu50)
$tool5 = TrayCreateItem("COMMAND CMD", $menu50)
$tool10 = TrayCreateItem("MSTSC", $menu50)
$tool15 = TrayCreateItem("MSTSC /CONSOLE", $menu50)
$tool20 = TrayCreateItem("NOTEPAD", $menu50)
$tool25 = TrayCreateItem("OnScreenKeyboard", $menu50)
$Exit = TrayCreateItem("Exit")

If TrayGetMsg() = $Exit Then
If Not WinActive ($hGUI) Then WinActivate($hGUI)
$Pos = WinGetPos($hGUI)
$Open = FileOpen(@ScriptDir & "\RUNTIMES\position.txt",2)
FileWrite($Open,$Pos[0] & @CRLF & $Pos[1])
FileClose($Open)
Exit
EndIf

If $nMsg = $tool1 Then
Send("#r")
EndIf
If $nMsg() = $tool5 Then
ShellExecute("cmd")
EndIf
If $nMsg() = $tool10 Then
RUN("mstsc")
EndIf
If $nMsg() = $tool5 Then
Run("mstsc /console")
EndIf
If $nMsg() = $tool20 Then
ShellExecute("notepad")
EndIf
If TrayGetMsg() = $tool25 Then
ShellExecute("osk")
EndIf

vielen Dank an euch...

Gruß dabronko1

Hallo an die Community,

ich suche einen Weg in meiner GUI einen Button zu erstellen der rund ist!
Ich habe mich bereits durch zahlreiche foren gelesen und bisher immernur die Möglichkeit gefunden mit einem Bild zu arbeiten.
Ich brauche aber einen richtigen Button!

Habt Ihr eine Idee wie ich das umsetzten kann?

Gruß
dabronko1

Hi,

hat super geklappt, ich habe die Idee von K4z genommen, konnte ich mich schneller reinfinden.
Vielen Dank aber an alle

Gruß

Ja sehr cool, funktionert bestents!.

Vielen Dank an alle

Hallo nochmal,

ein Sache habe ich noch dazu, wenn jetzt nicht genau diese werte ausgelesen werden können kommt logischerweise eiene Fehlermeldung.
Mir fehlt gerade der gedanke, wie ich diese mit einer MSGBOX umgehen kann!

If $nMsg=$PWB1 Then
$sString1 = GUICtrlRead($npw1)
$aStringRegEx1 = StringRegExp($sString1, "(?i)Username\: (.+?)[\r\n]|Password\: (.+?)[\r\n]", 3)
Send("{ALT DOWN}")
Send("{TAB}")
Send("{ALT UP}")
Send($aStringRegEx1[0])
Send("{TAB}")
Send($aStringRegEx1[2])
Send("{ENTER}")
EndIf

Also wenn jetzt nichts im EDIT steht oder ein schreibfehler(warum auch immer) sich einschleichen sollte möchte ich gern eine einfache MSGBOX.
z.B.

ElseIf $sString1 = <> Or ERROR Then
MsgBox(1, "TITLE", "Please insert your Text in the following Format:"& @CRLF & _
& @CRLF & _
"Schema: XXXXX-SuperUserPool" & @CRLF & _
"username: XXXXXXXXXX" & @CRLF & _
"Password: YYYYYYYYY" & @CRLF & _
"Valid until: XX/XX/XXX XX:XX:XX" & @CRLF
EndIf

Vielen Dank an Euch

Gruß
dabronko1

das sieht schonmal sehr gut aus,

werde ich heut nacht mal testen, ich weiss nur nocht nicht genau an welche stelle ich was setzten muss aber das wird schon.
Habe ich richtig gesehen, das $hWnd ersetzten muss mit der Bezeichnung meiner GUI? ($hGUI)?

Vielen Dank

Hi AutoIT Community,

gibt es eine Möglichkeit die Positionsdaten der GUI in einer .ini oder .txt beim schliessen zu speichern?
Ziel ist es das jeder der das Programm nutzt, beim zweiten start, das Programm an der von Ihm gewählten stelle wiederfindet!

hier ein Auszug aus meinem script:

Global Const $hGUI = GUICreate("CASE LOGGER 1.1.03.04", 527, 460, 259, 211) ;Start GUI
GUISetFont(13, 400, 0, "Calibri")
GUISetBkColor(0xFFFFFF)
$MenuItem1 = GUICtrlCreateMenu("&Menü") ;Menü
$MenuItem10 = GUICtrlCreateMenuItem("Save Notes", $MenuItem1)
$

Vielen Dank schon jetzt.

Gruß
dabronko1

Super, vielen Dank, das habe ich gesucht!

Funktioniert Wunderbar! Ziel des ganzen ist es den usernamen und das Passwort per BUTTON in die Zeile USERNAME und PASSWORT eintragen zu lassen und danach enter zu drücken!
Ich muss aus einem Passwort Pool immer neu generierte Passwörter abrufen und kann mir so nicht am Tag 20 Passwörter merken.
Jetzt kann ich diese 6 stunden Passwörter zwischenspeichern und per BUTTON mich einloggen!

Vielen Dank an alle

Gruß
dabronko1

p.s.
so sieht es dann aus:

If $nMsg=$PWB1 Then
$sString1 = GUICtrlRead($npw1)
$aStringRegEx1 = StringRegExp($sString1, "(?i)Username\: (.+?)[\r\n]|Password\: (.+?)[\r\n]", 3)
Send("{ALT DOWN}")
Send("{TAB}")
Send("{ALT UP}")
Send($aStringRegEx1[0])
Send("{TAB}")
Send($aStringRegEx1[2])
Send("{ENTER}")
EndIf

Hi Leutz,

das sieht schonmal sehr gut aus!
Jetzt habe ich die Daten:

$sString = "Schema: XXXXX-SuperUserPool" & @CRLF & _
"username: XXXXXXXXXX" & @CRLF & _
"Password: YYYYYYYYY" & @CRLF & _
"Valid until: 23/03/2012 22:40:00" & @CRLF

allerdings in einem EDIT Feld liegen, und dachte mir das ich einfach nur folgendes schrieben muss;

$sString = $npw1

leider funzt das nicht so richtig und ich bekomme eine Fehlermeldung: Subscript used with non-Array variable.
Wie kannich das Lösen?

Vielen schon Dank schon jetzt

Gruß
dabronko1

Hi, mir geht es darum wie ich in dem textblock:
Schema: XXXXX-SuperUserPool
username: XXXXXXXXXX
Password: YYYYYYYYY
Valid until: 23/03/2012 22:40:00

nur den usernamen und nur das passwort extrahiere!

Hallo liebe AutoIT Rocker ,

ich habe ein Edit Feld und möchte gern wie in dem Programm "Keepass" auf Knopfdruck erste den Usernamen und dann mit einem TAB weiter das Passwort und dann einen TAB weiter ENTER drücken!
So wird mein Edit Feld gefüllt: Der Username und das Passwort unterscheiden sich immer wieder!

Schema: XXXXX-SuperUserPool
username: XXXXXXXXXX
Password: YYYYYYYYY
Valid until: 23/03/2012 22:40:00

Habt Ihr eine Idee wie ich das bewerkstelligen könnte?
Vielen Dank und beste grüße bereits jetzt schon.

dabronko1

Sehr cool, das funzt.

Riesen Dank

Hallo AutoIT´ler,

wie setze ich IF EDITFIELD NOT EMPTY THEN in autoIT um?
Ich will also eine bestimmte aktion nur durchführen wenn ein bestimmtes Edit feld in meiner GUI gefüllt ist.
Wenn nicht dann soll auch nicht passieren.
Allerdings ist in diesem Feld immer ein anderer, userabhängiger Wert!
Habe schon stunden auf google verbracht aber nichts anständiges gefunden.
Mein Idee hängt aktuell bei:

If GUICtrlRead ($edit7) = XXX Then
ClipPut(GuiCtrlread($edit7))
Send("{CTRLDOWN}v{CTRLUP}{ENTER}")
Send("Directline: ")
Send($sNewNumber)
Send("{ENTER}")
Else

Vielen Dank euch AutoIT´lern

ja cool, danke

Hi AutoIT ROCKER ,

wie ist es Möglich das wenn ich bei einer GUI oben rechts auf das x klicke eine bestimmte Aktion ausgeführt wird?
Also z.b. eine MSGBOX aufgeht mit der ich dann den Inhalt eines edit feldes speichern kann!
Wenn ich momentan auf das x klicke geht mein fenster einfach zu.

Ich denke das man "Exit" einen Wert zuweisen muss, aber wie?

Danke und Grüße
Bronko

Hallo UEZ,

sehr Geil, Hammer, Danke dafür.
Habe das script eben in meines Implementier und es läuft genau so wie ich es mir Vorgestellt haben.

Riesen Dank und Beste Grüße

dabronko1

Hallo und einen schönen guten Abend,

ich möchte ein EDIT Fenster aus meiner GUI immer beim schliessen in einer .txt in einem bestimmten pfad abspeichern und beim öffnen des Programmes soll genau der Inhalt aus dieser .txt wieder in das EDIT Fenster geschrieben werden.

Habt Ihr eine Idee oder einen Vorschlag wie ich das angehen kann?

Beste Grüße und vielen Dank
dabronko

Test