Beiträge von ExBerliner

  • CitiDax

    Zitat

    scheint ja eine Gelddruckmaschine zu sein.


    ja, zumindest seit 2003 :hihi: allerdings kenne ich auch die zeit davor. aber dafür gabs ja puts :)

    Zitat

    Es gibt mittlerweile eine offizielle _StringBetween UDF. ab .13


    ah, danke. aber ich lass mal deins drin, reicht für meine zwecke vollkommen; müsste ja sonst noch ein include machen :irre:

    ach, eh ich es vergesse:
    Alle übermittelten bzw. bereit gestellten Informationen geben die Meinung von ExBerliner wieder und stellen in keinem Fall eine Beratung dar. Sie geben keine Aufforderung zum Kauf oder Verkauf von Wertpapieren oder Derivaten. Die ggf. dadurch in der Vergangenheit erzielten Gewinne oder Verluste, sind keine Gewähr für die Zukunft.
    Keinesfalls sollten Sie anhand der Informationen ungeprüft
    Anlageentscheidungen treffen. Die zur Verfügung gestellten Informationen ersetzen nicht die eigene Recherche oder/und die Beratung durch Ihre Bank oder einen Anlageberater. Den daraus resultierenden Chancen auf überdurchschnittlichen Gewinn, steht das Risiko des Totalverlustes des eingesetzten Kapitals gegenüber.

    :musik1:
    gruss exberliner

  • CitiDax

    so, nachdem ich hier doch so einiges gelernt habe, stelle ich auch mal ein script rein, welches ohne zugangsdaten läuft. hatte bisher immer nur tools, wo zugangsdaten erforderlich waren. das ganze ist natürlich noch ausbaufähig für dow, ndx usw.
    börseninteressierte, die nicht programmieren können/wollen werden sich die finger lecken ;)

    also dann good trades :musik1:

    [autoit]

    #include <Inet.au3>
    #include <IE.au3>
    #include <GUIConstants.au3>
    #NoTrayIcon

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

    ;liest den CitiDax alle 10 Sekunden (c) ExBerliner und Dank an th.meger für die Func
    $CitiSource="http://citiwarrants.onvista.de/snapshot.html?ID_NOTATION=14097793&RP=true"
    $CitiDax=StringFormat("%.2f",9999.99)
    $CitiTime=" "
    $Form1 = GUICreate("CitiDax", 107, 49, 209, 133, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST))
    $Group1 = GUICtrlCreateGroup("", 8, 3, 93, 28)
    $FDax1 = GUICtrlCreateLabel($CitiDax, 32, 12, 46, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

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

    $ZeigeSternRechts = GUICtrlCreateLabel(" ", 81, 12, 10, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $ZeigeSternLinks = GUICtrlCreateLabel(" ", 23, 12, 10, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Time1 = GUICtrlCreateLabel($CitiTime,4,32,120,17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $FDax1
    $o_IE=_IECreate ("http://citiwarrants.onvista.de/snapshot.html?ID_NOTATION=14097793&RP=true")
    EndSwitch
    if StringRight(@sec,1)=0 Then
    $Text1=_INetGetSource($CitiSource)
    $CitiDax=_StringBetween1($Text1, 'classOnUpdate="att=LAST_PRICE&state=blinkgreen,blinkred,blink&mode=4&event=4&init=', '"><span class="s2gb"')
    $CitiDax=StringFormat("%.2f",$CitiDax)
    $CitiTime=_StringBetween1($Text1, 'Realtime-Kurs&nbsp;&nbsp;&nbsp;',',&nbsp;<span onvObject="/general/quote')
    $CitiTime=$CitiTime&" "&_StringBetween1($Text1, 'innerOnUpdate="att=TIME_LAST">','</span></td><td colspan="4">Hoch/Tief<')
    GUICtrlSetData($Fdax1,$CitiDax)
    GUICtrlSetData($Time1,$CitiTime)
    GUICtrlSetData($ZeigeSternRechts,"*")
    GUICtrlSetData($ZeigeSternLinks,"*")
    GUICtrlSetTip($Fdax1,"http://citiwarrants.onvista.de/snapshot.html?ID_NOTATION=14097793&RP=true")
    GUICtrlSetTip($Time1,"Zeit Realtime-Kurs")
    sleep(850)
    GUICtrlSetData($ZeigeSternRechts," ")
    GUICtrlSetData($ZeigeSternLinks," ")
    EndIf
    WEnd

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

    Func _StringBetween1($s_String, $s_Start = 0, $s_End = 0)
    $s_Start = StringInStr($s_String, $s_Start) + StringLen($s_Start)
    Return StringMid($s_String, $s_Start, StringInStr($s_String, $s_End) - $s_Start)
    EndFunc ;==>_StringBetween1 -Func von th.meger (autoit.aufwaerts.de)-

    [/autoit]

    wer für mich in diese richtung noch interessante links hat, kann mir gerne eine PN zukommen lassen.

    grusse ExBerliner

  • einer fertig generierten .exe parameter mitgeben?

    hier aus der hilfe:
    Command Line Parameters
    The special array $CmdLine is initialized with the command line parameters passed in to your AutoIt script. Note the scriptname is not classed as a parameter; get this information with @ScriptName instead. A parameter that contains spaces must be surrounded by "double quotes". Compiled scripts accept command line parameters in the same way.

    $CmdLine[0] is number of parameters
    $CmdLine[1] is param 1 (after the script name)
    $CmdLine[2] is param 2 etc
    ...
    $CmdLine[$CmdLine[0]] is one way to get the last parameter...


    So if your script is run like this:

    AutoIt3.exe myscript.au3 param1 "this is another param"

    $CmdLine[0] equals... 2

    $CmdLine[1] equals... param1

    $CmdLine[2] equals... this is another param

    @ScriptName equals... myscript.au3


    In addition to $CmdLine there is a variable called $CmdLineRaw that contains the entire command line unsplit, so for the above example:

    $CmdLineRaw equals... myscript.au3 param1 "this is another param"


    If the script was compiled it would have been run like this:

    myscript.exe param1 "this is another param"

    $CmdLineRaw equals... param1 "this is another param"

    Note that $CmdLineRaw just return the parameters.


    Note : only 63 parameters can be return by $CmdLine[...], but $CmdLineRaw will always returns the entire command line.


    AutoIt specific command Line Switches
    Form1: AutoIt3.exe [/ErrorStdOut] [/AutoIt3ExecuteScript] file [params ...]
    Execute an AutoIt3 Script File


    /ErrorStdOut Allows to redirect fatal error to StdOut which can be captured by an application as Scite editor. This switch can be used with a compiled script.

    To execute a standard AutoIt Script File 'myscript.au3', use the command:
    'AutoIt3.exe myscript.au3'


    Form2: Compiled.exe [/ErrorStdOut] [params ...]
    Execute an compiled AutoIt3 Script File produced with Aut2Exe.

    Form3: Compiled.exe [/ErrorStdOut] [/AutoIt3ExecuteScript file] [params ...]
    Execute another script file from a compiled AutoIt3 Script File. Then you don't need to fileinstall another copy of AutoIT3.exe in your compiled file.


    Form4: AutoIt3.exe [/ErrorStdOut] /AutoIt3ExecuteLine "command line"
    Execute one line of code.

    To execute a single line of code, use the command:
    Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(0, ''Hello World!'', ''Hi!'')"')

    The tray icon will not be displayed when using /AutoIt3ExecuteLine

    NOTE: Correct usage of single- and double- quotation marks is important, even double single.

    Edit: weitere infos findest du hier im forum, wenn du mal nach "cmdline" suchst.

    gruss exberliner

  • automatisches login

    hallo,

    ich wusele mir grad ein automatisches login auf einer url die im code steht. ich krieg das einfach nicht hin, da ich mich auf diesem gebiet nicht so auskenne.

    [autoit]

    #include <IE.au3>
    $o_IE1 = _IECreate ("http://my.onvista.de/watchlist/realpush.html")
    _IELoadWait($o_IE1)
    $oFormLogin = _IEFormGetObjByName ($o_IE1, "formular")
    $oPassword = _IEGetObjByName($oFormLogin,"USERNAME")
    _IEFormElementSetValue ($oFormLogin, "MeinLogin")
    _IEFormElementSetValue ($oPassword, "MeinPasswort")
    _IEFormSubmit($oFormLogin)
    _IELoadWait($o_IE1

    [/autoit]

    kann mir bitte jemand auf die sprünge helfen ?

    vielen dank im voraus.
    gruss exberliner

  • GUICtrlCreateGroup

    hallo,

    also das ist schon recht merkwürdig. ich hab den angeblich nicht funktionierenden code (GUICtrlSetData) wieder reaktiviert und plötzlich funktioniert das :irre:.

    tzz, ich hatte vorher bei kürzeren textstrings immer noch einen teil des alten strings gesehen :tier:

    also die lösung mit GUICtrlSetData() wr ja eigentlich auch naheliegend. nungut, jetzt geht es ja.

    vielen dank nochmal.
    gruss exberliner

  • GUICtrlCreateGroup

    hallöchen,

    habe mein erstes prog mit GUI fertig. habe nur ein kleines problemchen.
    ich setze mit GUICtrlCreateGroup($NameA, 40, 24, 325, 361)
    einen rahmen mit text. im laufe des programms verkürzt sich der string $NameA. ich habe mir zunächst damit beholfen :

    [autoit]

    func changegroup($NameA)
    GUICtrlCreateGroup(" ", 40, 24, 325, 361)
    GUICtrlCreateGroup ("",-99,-99,1,1)
    GUICtrlCreateGroup($NameA, 40, 24, 325, 361)
    GUICtrlCreateGroup ("",-99,-99,1,1)
    endfunc

    [/autoit]

    das führt so zu einem "flackern". gibt es hier eine bessere lösung ?

    danke im voraus.
    gruss exberliner

  • Prüfen ob ein Rechner im Netzwerk erreichbar ist

    hi,

    mal ein beispiel von mir:

    $PatternServer="192.168.0.33"
    $var = Ping($PatternServer)
    If $var Then ; possible: If @error = 0 Then ...
    ; Msgbox(0,"Status","Online, roundtrip was:" & $var)
    run (@comspec&" /c "&"\\"&$PatternServer&"\_oscan$\OScanUpd.exe","",@SW_HIDE)
    Else
    Exit
    ; Msgbox(0,"Status","An error occured with number: " & @error)
    EndIf

    Edit: wobei das beispiel aus der autoit-hilfe kommt ;)

    gruss exberliner

  • windows update

    peethebee

    na denn. :rolleyes:

    hab übrigends erst eben das "guckloch" gefunden. war das eigentlich schon immer da ? zur not reicht es ja.

    was die windows-updates betrifft: das ist ja mal wieder typisch mickeysoft. habe meine images vor dem windows-update mal wieder aufgespielt. jetzt läuft die updatesuche ohne fehler. gggrr, glaubt mir sicher keiner, hätte mal screenshot machen sollen. :motz

    gruss exberliner

  • windows update

    hallöchen,

    heute dem 10.10.2006 sollten 10 kritische windows updates kommen. hmm, merke jetzt grad die 3 10er :-)) egal, die info soll zuverlässig sein.

    wenn man die windows updates jedoch machen will, kommt bei mir fehlermeldung ... und das bei 5 rechnern bei mir. wenn man entsprechend der fehlerbeschreibung verfährt klappt es wieder, aber es sind keine updates vorhanden.

    jetzt wollte ich mal rumfragen, ob dies bei euch auch so ist.

    peethebee wie krieg ich denn nun mailbenachrichtigung auf meine threads ? muss ich da was einstellen oder ist euer mailserver überlastet ?

    gruss exberliner

    EDIT: ach, es sollen 11 updates sein. schaut hier

    EDIT2: tzzz, nun sind 6 updates verfügbar. aber habt ihr auch die fehlermeldung ?