Beiträge von Tweaky

  • Eingabefeld bei einer Internetseite auswählen

    will leider nicht so ganz

    Wenn ich eingeloggt bin, wird auf "Meine Rechnung" geklickt.
    Jedoch habe ich im Link keine ID wie du geschrieben hast :(

    Wie bekomme ich den Rechnungslink raus ?(

    Spoiler anzeigen
    [autoit]

    #include<IE.au3>
    #include<Array.au3>
    #include<Inet.au3>
    #include<String.au3>

    Opt("WinTitleMatchMode", 2)

    $internet_adresse = "https://kundenservice.klarmobil.de/privateservice.php?action=uebersicht"

    $nummer = "131231321"
    $pw = "xxx"

    $oIE = _IECreate ($internet_adresse, 0, 1, 1, 0)
    If @error >0 Then Exit
    WinSetState("Microsoft Internet Explorer", "", @SW_MAXIMIZE) ;maximieren

    $oForm = _IEFormGetCollection($oIE, 0)
    $oName = _IEFormElementGetObjByName($oForm, "username")
    $oPW = _IEFormElementGetObjByName($oForm, "password")
    _IEFormElementSetValue($oName, $nummer)
    _IEFormElementSetValue($oPW, $pw)
    _IEFormSubmit ($oForm)

    _IELinkClickByText ($oIE, "Meine Rechnung")

    $url = _IEPropertyGet($oIE, "locationurl")
    $source_hauptseite = _INetGetSource ($url)

    [/autoit]

  • Eingabefeld bei einer Internetseite auswählen

    So hier ist er

    Spoiler anzeigen

  • Eingabefeld bei einer Internetseite auswählen

    hat von auch jemand Klarmobil ?(

    Will die Rechnungen downloaden.

    Ich komme nun in das Menü mit den Rechnungen.

    Wenn ich auf der Seite mit rechts klicke und "Quelltext anzeigen" mache, sind die Links zu den Rechnungen da.
    Wenn ich jedoch den Quelltext in eine Datei speichern lassen, sind die Links dort nicht vorhanden.

    Komme ich sonst noch irgendwie an die Links ?(

    Scheint auch Java zu sein

    [autoit]

    <script type="text/javascript" language="JavaScript" src="common.js"></script>

    [/autoit]

  • Eingabefeld bei einer Internetseite auswählen

    Ahja, jetzt klappts natürlich :D

    Spoiler anzeigen
    [autoit]

    #include<IE.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt("WinTitleMatchMode", 2)

    [/autoit] [autoit][/autoit] [autoit]

    $internet_adresse = "https://kundenservice.klarmobil.de/privateservice.php?action=uebersicht"
    $nummer = "131231321"
    $pw = "xxx"

    [/autoit] [autoit][/autoit] [autoit]

    $oIE = _IECreate ($internet_adresse, 0, 1, 1, 0)
    If @error >0 Then Exit
    WinSetState("Microsoft Internet Explorer", "", @SW_MAXIMIZE) ;maximieren

    $oForm = _IEFormGetCollection($oIE, 0)
    $oName = _IEFormElementGetObjByName($oForm, "username")
    $oPW = _IEFormElementGetObjByName($oForm, "password")
    _IEFormElementSetValue($oName, $nummer)
    _IEFormElementSetValue($oPW, $pw)
    _IEFormSubmit ($oForm)

    [/autoit]

  • Eingabefeld bei einer Internetseite auswählen

    Danke euch beiden :D

    Leider habe ich nun bei der Eingabe des Passwortes das gleiche Problem

    So gehts nicht :(

    Spoiler anzeigen
    [autoit]

    #include<IE.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt("WinTitleMatchMode", 2)

    [/autoit] [autoit][/autoit] [autoit]

    $internet_adresse = "http://klarmobil.de/"
    $nummer = "3554434"
    $pass = "xxx"
    $oIE = _IECreate ($internet_adresse, 0, 1, 1, 0)
    If @error >0 Then Exit
    WinSetState("Microsoft Internet Explorer", "", @SW_MAXIMIZE) ;maximieren

    $oForm = _IEFormGetObjByName ($oIE, 0)
    $oQuery = _IEFormElementGetObjByName ($oForm, "username")
    _IEFormElementSetValue ($oQuery, $nummer) ;Text eingeben

    [/autoit] [autoit][/autoit] [autoit]

    $oForm = _IEFormGetObjByName ($oIE, 1)
    $oQuery = _IEFormElementGetObjByName ($oForm, "password")
    _IEFormElementSetValue ($oQuery, $pass) ;Text eingeben
    ;~ _IEFormSubmit ($oForm)

    [/autoit]

  • Eingabefeld bei einer Internetseite auswählen

    Hi,
    ich will auf der Seite von Klarmobil das Feld mit der Telefonnummer und dem Passwort auswählen.

    Leider bin ich mir nicht sicher was ich bei den Befehlen eingeben muss.

    Denke dies hier ist nicht korrekt

    [autoit]

    $oForm = _IEFormGetObjByName ($oIE, "klm_login_input")
    $oQuery = _IEFormElementGetObjByName ($oForm, "username")

    [/autoit]
    Spoiler anzeigen
    [autoit]

    #include<IE.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $internet_adresse = "http://klarmobil.de/"
    $nummer = "3554434"
    $oIE = _IECreate ($internet_adresse, 0, 1, 1, 0)
    If @error >0 Then Exit
    _IELoadWait ($oIE)
    If @error >0 Then Exit
    $oHWND = _IEPropertyGet($oIE, "hwnd") ;maximieren
    WinSetState ($oHWND, "", @SW_MAXIMIZE) ;maximieren

    $oForm = _IEFormGetObjByName ($oIE, "klm_login_input")
    $oQuery = _IEFormElementGetObjByName ($oForm, "username")
    _IEFormElementSetValue ($oQuery, $nummer) ;Text eingeben
    _IEFormSubmit ($oForm)

    [/autoit]

    Kann einer mal schauen, wie die Felder korrekt heissen.
    Weiss nicht nach was ich im Quelltest suchen muss ?(

    Danke

  • PC sperren - mit AutoIT ???

    Danke euch beiden für den Sonntagssupport :D

    Habs nun so ähnlich wie die Variante von BugFix

    Ich setze den Cursor rechts oben ins Eck (dann ist er nicht sichtbar)
    dann wird er falls sich die Pos wieder ändert (Maus wird bewegt) wieder rechts oben ins Eck gesetzt.

    Spoiler anzeigen
    [autoit]

    #include<Misc.au3>
    #include<GUIConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    ;--------------------------------------------------------------------------------------------------------------------------------------------------
    ;Dieses Script:
    ; - startet eine Oberfläche mit dem aktuellen Desktopbild
    ; - dieses kann nur durch korrekte Eingabe des Passwortes verlassen werden
    ; - wird eine andere Tastenkombination, Win-Taste, Programm gestartet, usw. wird diese GUI automatisch wieder in den Vordergrund geholt
    ; - Es werden bestimmte Fenster automatisch geschlossen
    ;--------------------------------------------------------------------------------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ;************************
    ;******* Passwort *******
    $passwort = "xxx"
    ;************************

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Opt("WinTitleMatchMode", 2)
    Opt("TrayIconHide", 1)

    [/autoit] [autoit][/autoit] [autoit]

    $gui_titel = "Sperren"
    $gui = GUICreate($gui_titel, -1, -1, 0, 0, BitOr($WS_POPUP, $WS_MAXIMIZE))
    $input = GUICtrlCreateInput("", @DesktopWidth/2, @DesktopHeight/2, 50, -1, $ES_PASSWORD)
    GUICtrlSetState($input, $GUI_HIDE)

    [/autoit] [autoit][/autoit] [autoit]

    $desktop_reg = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "Wallpaper")
    GUICtrlCreatePic($desktop_reg, 0, 0, @DesktopWidth, @DesktopHeight)

    [/autoit] [autoit][/autoit] [autoit]

    _MouseTrap(@DesktopWidth-1, 0)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $pos = MouseGetPos()
    If $pos[0] <> @DesktopWidth-1 or $pos[1] <> 0 Then _MouseTrap(@DesktopWidth-1, 0)
    sleep(10)
    If Not WinActive($gui_titel) Then WinActivate($gui_titel)
    If GUICtrlRead($input) = $passwort Then Exit
    If WinExists("Windows Task-Manager") Then WinClose("Windows Task-Manager")
    If WinExists("Internet Explorer") Then
    WinClose("Internet Explorer")
    If WinExists("Internet Explorer", "&Registerkarten schließen") Then ControlClick("Internet Explorer", "&Registerkarten schließen", 6)
    EndIf
    If WinExists("- Outlook Express") Then WinClose("- Outlook Express")
    If WinExists("- Editor") Then WinClose("- Editor")
    Wend

    [/autoit]

  • Bitte testen

    Hi,
    eigentlich muss es doch so heißen (For $j = 0 <<<<< ......).
    Sonst passiert beim Klick auf den ersten Titel nichts :D

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>

    Opt("TrayMenuMode", 1)
    Dim $item[9999]
    Dim $files[9999]

    $soundmenue = TrayCreateMenu("Sounds")
    $exit = TrayCreateItem("Exit")
    $i = 0
    $search = FileFindFirstFile(@ScriptDir & "\*.mp3")
    While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    $item[$i] = TrayCreateItem($file, $soundmenue)
    $files[$i] = $file
    $i = $i + 1
    WEnd

    While 1
    $msg = TrayGetMsg()

    If $msg = $exit Then Exit
    ; variable von $1 nach $j umbenannt
    ; $j bei 1 starten lassen ...
    ; $i -1
    For $j = 0 To $i-1
    If $msg = $item[$j] Then
    MsgBox(0,"",$files[$j])
    EndIf
    Next
    Sleep(1)
    WEnd

    [/autoit]

    Die Schleife bedeutet, dass der erste Wert 0 ist und der letzte Wert ist der Wert von $i-1

    Bsp:

    4 Dateien
    Datei 1: $i = 0
    Datei 2: $i = 1
    Datei 3: $i = 2
    Datei 4: $i = 3
    Nach dem letzten Durchlauf der Schleife ist aber $i = 4.
    Deshalb mußt du in der 2. Schleife auch $i-1 schreiben, also hier 3 (Wert für die letzte 4. Datei :D)

    Hoffe die Erklärung ist verständlich :musik1:

  • PC sperren - mit AutoIT ???

    Stimmt, Passwort setzen und doch automatisch anmelden wäre ne Lösung.
    Muß ich ihm mal näher bringen =)

    Hab dies mal so geschrieben

    Spoiler anzeigen
    [autoit]

    #include<GUIConstants.au3>
    #include<Misc.au3>

    [/autoit] [autoit][/autoit] [autoit]

    ;--------------------------------------------------------------------------------------------------------------------------------------------------
    ;Dieses Script:
    ; - startet eine Oberfläche mit dem aktuellen Desktopbild
    ; - dieses kann nur durch korrekte Eingabe des Passwortes verlassen werden
    ; - wird eine andere Tastenkombination, Win-Taste, Programm gestartet, usw. wird diese GUI automatisch wieder in den Vordergrund geholt
    ; - Es werden bestimmt Fenster automatisch geschlossen
    ;--------------------------------------------------------------------------------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ;************************
    ;******* Passwort *******
    $passwort = "xxx"
    ;************************

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Opt("WinTitleMatchMode", 2)
    Opt("TrayIconHide", 1)

    [/autoit] [autoit][/autoit] [autoit]

    $gui_titel = "Sperren"
    $gui = GUICreate($gui_titel, -1, -1, 0, 0, BitOr($WS_POPUP, $WS_MAXIMIZE))
    $input = GUICtrlCreateInput("", @DesktopWidth/2, @DesktopHeight/2, 50, -1, $ES_PASSWORD)
    GUICtrlSetState($input, $GUI_HIDE)

    [/autoit] [autoit][/autoit] [autoit]

    $desktop_reg = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "Wallpaper")
    GUICtrlCreatePic($desktop_reg, 0, 0, @DesktopWidth, @DesktopHeight)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    If Not WinActive($gui_titel) Then WinActivate($gui_titel)
    If GUICtrlRead($input) = $passwort Then Exit
    If WinExists("Windows Task-Manager") Then WinClose("Windows Task-Manager")
    If WinExists("Internet Explorer") Then
    WinClose("Internet Explorer")
    If WinExists("Internet Explorer", "&Registerkarten schließen") Then ControlClick("Internet Explorer", "&Registerkarten schließen", 6)
    EndIf
    If WinExists("Outlook Express") Then WinClose("Outlook Express")
    Wend

    [/autoit]

    Passwort ist: xxx

  • Hilfe bei ListView!

    Hi,
    hab deinen Thread nicht ganz durchgelesen :]

    wenn du aber die Spalten der ListView ändern willst, kannst du diesen Befehl nehmen

    [autoit]

    _GUICtrlListViewSetColumnWidth

    [/autoit]


    Viel Spaß :D

  • PC sperren - mit AutoIT ???

    Jup, ist sein eigener PC,
    Passwort hat er keines, deshalb scheidet die Lösung wohl aus ;(

    Habs mal so gemacht

    Spoiler anzeigen
    [autoit]

    #include<GUIConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $gui_titel = "Sperren"
    $gui = GUICreate($gui_titel, -1, -1, 0, 0, BitOr($WS_POPUP, $WS_MAXIMIZE))
    $input = GUICtrlCreateInput("", 100, 100, -1, -1, $ES_PASSWORD)
    GUISetState ()

    [/autoit] [autoit][/autoit] [autoit]

    $passwort = "x"

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()
    If Not WinActive($gui_titel) Then WinActivate($gui_titel)
    If GUICtrlRead($input) = $passwort Then Exit
    If WinExists("Windows Task-Manager") Then WinClose("Windows Task-Manager")
    Wend

    [/autoit]

    Wäre nicht schlecht, wenn auch noch die Sondertasten der Tastatur deaktiviert wären. :D

  • PC sperren - mit AutoIT ???

    Ja, sowas in der Art, muß nichts hochkompliziertes sein

    Hab mal angefangen

    [autoit]

    #include <GUIConstants.au3>

    [/autoit][autoit][/autoit][autoit]

    GUICreate("My GUI", -1, -1, 0, 0, BitOr($WS_POPUP, $WS_MAXIMIZE))
    $input = GUICtrlCreateInput("", 100, 100)
    GUISetState ()

    [/autoit][autoit][/autoit][autoit]

    $passwort = "x"

    [/autoit][autoit][/autoit][autoit]

    While 1
    $msg = GUIGetMsg()
    If GUICtrlRead($input) = $passwort Then Exit
    Wend

    [/autoit]

    Jetzt sollte halt noch die Wintaste, Strg+alt+Entf gesperrt sein, so dass man das Fenster nur weg bekommt, wenn man das Passwort eingibt

    Passwort in meinem Bsp: x

  • PC sperren - mit AutoIT ???

    Danke
    nene nicht für illegales ;)

    wollte gerne was, wo man nicht installieren muss.
    Hab mich eigentlich auch falsch ausgedrückt.
    Das Internet kann weiterlaufen, nur dürfen keine Benutzereingaben, Link geklickt, url eingegeben, ... werden :D