Beiträge von Saft

Vielen Dank. Ziemlich umständlich aber klappt.

Zitat von xSunLighTx3

Das sieht ja vom Layout echt outdated aus, zumal AutoIt GUI's eh schon vom letzten Jahrtausend sind.

Aber bei mir funktioniert alles, autoBert

Ist nicht schön, aber einfach und tut was es soll

Hallo Community,

ich möchte einen Tab in einem Tab erstellen, aber scheinbar ist das nicht möglich.

Bei meiner Suche nach einer Lösung bin ich nur auf alte Themen gestoßen.

Vielleicht gibt es dafür mittlerweile eine Lösung?

Hier ein geshopptes Beispiel, wie es vom Prinzip her aussehen soll:

beispiel.jpg

Gruß,

Saft

#include <GUIConstantsEx.au3>

Example()

Func Example()
    ; Create a GUI with various controls.
    Local $hGUI = GUICreate("Example")

    GuiCtrlCreateTab(5,5,250,300)
    GUICtrlCreateTabItem("Tab 1")
        GuiCtrlCreateTab(15,15,200,200)
        GUICtrlCreateTabItem("Tab 1 - Tab 1")
        GUICtrlCreateTabItem("Tab 1 - Tab 2")
    GUICtrlCreateTabItem("Tab 2")

    Local $idOK = GUICtrlCreateButton("OK", 310, 370, 85, 25)

    ; Display the GUI.
    GUISetState(@SW_SHOW, $hGUI)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE, $idOK
                ExitLoop

        EndSwitch
    WEnd

    ; Delete the previous GUI and all controls.
    GUIDelete($hGUI)
EndFunc   ;==>Example

Doch so einfach, Danke

Hallo Zusammen,

ich möchte eine Funktion direkt ausführen, wenn auf einen Menüpunkt geklickt wird und nicht erst noch einen Unterpunkt auswählen müssen.

Als Beispiel hier das leicht modifizierte Skript aus der Hilfe. Ich versuche, dass bei einem Klick auf $idHelpmenu direkt z.B. eine Messagebox erscheint.

Könnt ihr mir helfen?

Gruß,

Saft

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <StaticConstants.au3>

Example()

Func Example()
    Local $sDefaultstatus = "Ready"

    GUICreate("My GUI menu", 300, 200)

    Local $idFilemenu = GUICtrlCreateMenu("&File")
    Local $idFileitem = GUICtrlCreateMenuItem("Open", $idFilemenu)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    Local $idHelpmenu = GUICtrlCreateMenu("?")
    GUICtrlCreateMenuItem("Save", $idFilemenu)
    GUICtrlSetState(-1, $GUI_DISABLE)
;~     Local $idInfoitem = GUICtrlCreateMenuItem("Info", $idHelpmenu)
    Local $idExititem = GUICtrlCreateMenuItem("Exit", $idFilemenu)
    Local $idRecentfilesmenu = GUICtrlCreateMenu("Recent Files", $idFilemenu, 1)

    GUICtrlCreateMenuItem("", $idFilemenu, 2) ; create a separator line

    Local $idViewmenu = GUICtrlCreateMenu("View", -1, 1) ; is created before "?" menu
    Local $idViewstatusitem = GUICtrlCreateMenuItem("Statusbar", $idViewmenu)
    GUICtrlSetState(-1, $GUI_CHECKED)
    GUICtrlCreateButton("OK", 50, 130, 70, 20)
    GUICtrlSetState(-1, $GUI_FOCUS)
    Local $idCancelbutton = GUICtrlCreateButton("Cancel", 180, 130, 70, 20)

    Local $idStatuslabel = GUICtrlCreateLabel($sDefaultstatus, 0, 165, 300, 16, BitOR($SS_SIMPLE, $SS_SUNKEN))

    GUISetState(@SW_SHOW)

    Local $sFile
    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $idFilemenu
                MsgBox("","","test")
            Case $idFileitem
                $sFile = FileOpenDialog("Choose file...", @TempDir, "All (*.*)")
                If @error <> 1 Then GUICtrlCreateMenuItem($sFile, $idRecentfilesmenu)
            Case $idViewstatusitem
                If BitAND(GUICtrlRead($idViewstatusitem), $GUI_CHECKED) = $GUI_CHECKED Then
                    GUICtrlSetState($idViewstatusitem, $GUI_UNCHECKED)
                    GUICtrlSetState($idStatuslabel, $GUI_HIDE)
                Else
                    GUICtrlSetState($idViewstatusitem, $GUI_CHECKED)
                    GUICtrlSetState($idStatuslabel, $GUI_SHOW)
                EndIf
            Case $GUI_EVENT_CLOSE, $idCancelbutton, $idExititem
                ExitLoop
            Case $idHelpmenu
                MsgBox($MB_SYSTEMMODAL, "Info", "Only a test...")
        EndSwitch
    WEnd
    GUIDelete()
EndFunc   ;==>Example

Ich habe die Lösung scheinbar gefunden.
Zusätzlich zur "falschen" Anzeige in Notepad++ muss ich den Text noch mit StringToBinary($String) konvertieren, bevor ich ihn in die Datei schreibe.
Der Fehler lag scheinbar an meinen Quelldaten.

Vielen Dank für eure Unterstützung.

Das ging ja fix mit Antworten. Leider habe ich keine wirkliche Ahnung von Zeichensätzen.
Ich hatte es gar nicht erwähnt, es geht um die ganzen Umlaute wie ä ö ü etc.

FileGetEncoding liefert 512. Ist es dann nur ein Anzeige-Problem von Notepad++?
Ich prüfe es nochmal . Vielen Dank schon mal.

Edit:
Das war leider doch nicht der Fall. Kann es mit den Daten zusammenhängen, die ich mit FileWrite in die Datei schreibe?

Hallo Community,

ich habe die eigentlich einfache Aufgabenstellung eine Textdatei in ANSI zu erstellen.
Mit diesem Code versuche ich es, aber es ist laut Notepad++ immer eine UTF-8 Datei.

FileOpen(@ScriptDir&"\ansi.csv",  1 + 512)

Hat jemand eine Idee, was ich falsch mache?

Gruß,
Saft

Genau was ich gebraucht habe, danke

Hallo Community,

ich möchte gerne die Prozessauslastung eines einzelnen bestimmten Prozess auslesen.

Hintergrund ist, dass wir auf Grund eines Software-Fehlers einen Prozess haben, der manchmal über 90% steigt und dauerhaft so bleibt. Diesen möchte ich dann automatisch abschießen.

Ciao
Saft

Hallo Zusammen,

ich verzweifel gerade daran, einen Link (?) zu klicken. Der Quelltext lautet

Zitat

...
<td id="AKTEN_IMPORTIEREN" class="MENUTD" bgcolor="#f1f1f1" onclick="Javascript:parent.content.location.href='Akten_Importieren.asp';selectThisElement(this);" onmouseout="getMouseOut(this)" onmouseover="getMouseOver(this)" colspan="2">
<table width="100%" cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td class="MENUTD" width="40%"> </td>
<td class="MENUTD" width="60%">- Importieren </td>
</tr>
</tbody>
</table>
</td>
...

Alles anzeigen

So sieht es live aus (roten Kasten hab ich gemacht )
[Blockierte Grafik: http://s7.directupload.net/images/121002/65lzppkm.png]

Leider kann ich euch keinen Link geben.

Die Seite besteht aus mehreren Frames.
Direktes Ansteuern des Ziels funktioniert leider nicht, dann läuft der Import irgendwie ins nichts.
Habe bereits einiges versucht, aber keine Lösung gefunden.

Vielen Dank,
Saft

Vielleicht noch als Anmerkung. Es gibt diverse Dateien im Netz mit unzähligen Vornamen. Mit einem Script könntest du das über deine Kontakte laufen lassen und immer, wenn im Vornamen etwas steht, was nicht in dieser Datei ist, kannst du Vor- und Nachnamen tauschen.

Dei Funktion StringIsInt sieht auch gut aus.

Da schreib ich noch grad ein Beispiel-Script und schon ist mein Problem gelöst. Der Vorschlag von name22 funktioniert, vielen Dank

Hallo Community,

klingt einfach, aber irgendwie haut es nicht hin. Ich lese eine Inputbox aus und möchte prüfen, ob eine Zahl oder Text eingegeben wurde. Aber mit zB isString oder isNumber gibt er mir immer aus, es wäre ein Text, auch wenn ich eine Zahl in die Inputbox schreibe

Was mach ich falsch?

Ciao
Saft

Die UDF habe ich jetzt erfolgreich eingebaut. Nur es blinkt leider nichts bzw. ändert auch die Farbe des Tabs nicht, wenn ich einen Alarm auslösen möchte.
Vielleicht ne Idee dazu?

_OwnTab_SetAlarm($Tab, 1, 0xFF0000)

Könnte es damit zusammenhängen, dass ich das aus einer Funktion aus aufrufe?

EDIT
Ok, hatte vergessen noch das

_OwnTab_AlarmInit()

einzubauen, vielen Dank, läuft wie gewünscht

Hm, wie wäre es mit den Scheduled Tasks von Windows?

Hallo Community,

ist es möglich, die Farbe der Lasche eines Tabs zu ändern? ich möchte, sollte ein bestimmtes Ereignis eintreten, die Farbe anpassen.

Vielen Dank,
Saft

Vielen Dank.

Super, das funktioniert soweit.

Der Termin wird nicht bei dem zusätzlichen Teilnehmer eingetragen, sondern nur im Termin selber wird es hinterlegt, ist das richtig?
Wünschenswert wäre eine Verknüpfung der beiden Termine, damit, wenn einer den Termin verschiebt, der andere es mitbekommt.

_OL_ItemRecipientAdd($oOutlook, $objAppt, Default, 1, "testuser")

Hallo Community,

ich erstelle derzeit OutlookTermine mit dieser Funktion:

Func _OutlookCreateAppointmentOtherUser($oOutlook, $sBody,$User, $sSubject, $sStartDate, $sEndDate, $sLocation = "", $fAllDayEvent = False)
Local $iRc = 0
If $fAllDayEvent = "" Then Return SetError(1, 0, 0)
$objDummy = $oOutlook.CreateItem(0)
$objNS = $oOutlook.GetNamespace("MAPI")
;MsgBox("","","User zum 2.: " & $User)
$objRecip = $objDummy.Recipients.Add($User)
if ($objRecip.Resolve <> True) then
MsgBox("","","Termin konnte nicht eingetragen werden!" & chr(10) & "Benutzer " & $User & " konnte im Outlook Adressbuch nicht gefunden werden, oder der Name ist nicht eindeutig?" )
Exit
EndIf
$objFolder = $objNS.GetSharedDefaultFolder($objRecip, 9)
$objAppt = $objFolder.Items.Add
$objAppt.Subject = $sSubject
$objAppt.Location = $sLocation
$objAppt.Body = $sBody
$objAppt.Start = $sStartDate
$objAppt.End = $sEndDate
$objAppt.AllDayEvent = False
$objAppt.ReminderSet = False
$objAppt.Save
EndFunc

Ich möchte aber noch zusätzlich diverse Teilnehmer einplanen. Leider bin ich bisher daran gescheitert, kann mir hier jemand weiterhelfen?

Vielen Dank,
Saft