Börsenmanager

    • Offizieller Beitrag

    Hi!
    dieses tool zeigt den momentanen MDax|SDax|TecDax|Nasdaq 100|EuroStoxx 50|Dow Jones und Nikkei 225 wert an! von intraday > +10 Jahre!

    EDIT: Alles rundum erneuert! keine dll mehr! hab auch noch WKN gemacht.. so das man wirklich jeden anzeigen kann!

    Spoiler anzeigen
    [autoit]

    ;~ Dax(400x230,6wochen) = http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=846900&boerse=9&zeit=600&land=276
    ;~ Dax(400x230,3wochen) = http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=846900&boerse=9&zeit=300&land=276
    ;~ Dow(400x320,6wochen) = http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=DJII.DJ&boerse=101&zeit=600&land=840

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

    SplashTextOn("", "Bitte Warten...", 120, 20, -1, -1, 1)
    #include <GUIConstants.au3>
    #include <file.au3>
    #include <inet.au3>
    $string = 846900
    $land = 276
    $wknchk001 = 0
    $borse = 9
    $wat = "DAX"
    $time = 600
    $wknold = ""
    $childsetstate = 0
    $na = 0
    $MainObj = ObjCreate("Shell.Explorer.2")

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

    $gui = GUICreate("Börsenmanager - DAX", 490, 375, 327, 127)
    GUISetBkColor(0xffffff)

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

    $MainObjGui = GUICtrlCreateObj($MainObj, 18, 70, 460, 290)

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

    $Tab1 = GUICtrlCreateTab(8, 40, 480, 325)
    $TabSheet1 = GUICtrlCreateTabItem("Intraday")
    $TabSheet2 = GUICtrlCreateTabItem("1 Monat")
    $TabSheet3 = GUICtrlCreateTabItem("3 Monate")
    GUICtrlSetState(-1, $GUI_SHOW)
    $TabSheet4 = GUICtrlCreateTabItem("6 Monate")
    $TabSheet5 = GUICtrlCreateTabItem("1 Jahr")
    $TabSheet6 = GUICtrlCreateTabItem("3 Jahre")
    $TabSheet7 = GUICtrlCreateTabItem("5 Jahre")
    $TabSheet8 = GUICtrlCreateTabItem(">5 Jahre")
    GUICtrlCreateTabItem("")
    $wat1 = GUICtrlCreateCombo("Dax", 8, 8, 145, 21)
    GUICtrlSetData(-1, "MDax|SDax|TecDax|Nasdaq 100|EuroStoxx 50|Dow Jones|Nikkei 225")
    $wkn = GUICtrlCreateInput("543900", 160, 8, 129, 21, -1, $WS_EX_CLIENTEDGE)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $wknchk = GUICtrlCreateCheckbox("WKN Aktivieren", 330, 8)

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

    GUISetState(@SW_SHOW)
    $MainObj.RegisterAsBrowser = 1
    $MainObj.navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=846900&boerse=9&zeit=300&land=276")
    SplashOff()

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE

    ExitLoop
    Case $msg = $wknchk
    If GUICtrlRead($wknchk) = $GUI_CHECKED Then
    If $na Then GUICtrlSetData($wkn,543900)
    SplashTextOn("", "Bitte Warten...", 120, 20, -1, -1, 1)
    $wknchk001 = 1
    $MainObj.Navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?herkunft=118&h=125&b=190&symbol=" & GUICtrlRead($wkn) & "&land=276&boerse=9&typ=1&zeit=300")

    $wknSource = _INetGetSource("http://boersen.manager-magazin.de/mmo/kurse_einzelkurs_uebersicht.htm?u=0&p=0&k=0&s=" & GUICtrlRead($wkn))
    If StringInStr($wknSource,'<td class="hl03">Symbol:</td><td align="right">') Then
    $wknSource = StringSplit($wknSource, '<td class="hl03">Symbol:</td><td align="right">', 1)
    $wknSource = StringSplit($wknSource[2], "</td>", 1)
    $wknSource = $wknSource[1]
    $na = 0
    Else
    $wknSource = "Not Aviable"
    $na = 1
    EndIf
    WinSetTitle($gui, "", "Börsenmanager - " & $wknSource)
    $wknold = GUICtrlRead($wkn)

    GUICtrlSetState($wkn, $GUI_ENABLE)
    GUICtrlSetState($wat1, $GUI_DISABLE)
    SplashOff()
    Else
    $wknchk001 = 0
    $MainObj.navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=" & $string & "&boerse=" & $borse & "&zeit=300&land=" & $land)
    GUICtrlSetState($wkn, $GUI_DISABLE)
    WinSetTitle($gui, "", "Börsenmanager - "&$wat)
    GUICtrlSetState($wat1, $GUI_ENABLE)
    EndIf

    $childsetstate = 1

    Case $msg = $wat1
    $wat = GUICtrlRead($wat1)
    If $wat = "DAX" Then
    WinSetTitle($gui, "", "Börsenmanager - DAX")
    $string = 846900
    $land = 276
    $borse = 9
    ElseIf $wat = "MDax" Then
    ;~ MDax(400x320,6wochen)=http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=846741&boerse=9&zeit=600&land=276
    WinSetTitle($gui, "", "Börsenmanager - MDax")
    $string = 846741
    $land = 276
    $borse = 9
    ElseIf $wat = "SDax" Then
    ;~ SDax=http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=965338&boerse=9&zeit=600&land=276
    $string = 965338
    $land = 276
    $borse = 9
    WinSetTitle($gui, "", "Börsenmanager - SDax")
    ElseIf $wat = "TecDax" Then
    ;~ TexDax=http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=720327&boerse=9&zeit=600&land=276
    $string = 720327
    $land = 276
    $borse = 9
    WinSetTitle($gui, "", "Börsenmanager - TecDax")
    ElseIf $wat = "Nasdaq 100" Then
    ;~ Nasdaq=http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=COMP.IQ&boerse=100&zeit=600&land=840
    $string = "COMP.IQ"
    $land = 840
    $borse = 100
    WinSetTitle($gui, "", "Börsenmanager - Nasdaq 100")
    ElseIf $wat = "EuroStoxx 50" Then
    ;~ Eurostoxx=http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=965814&boerse=11&zeit=600&land=840
    $string = 965814
    $land = 840
    $borse = 11
    WinSetTitle($gui, "", "Börsenmanager - EuroStoxx 50")
    ElseIf $wat = "Dow Jones" Then
    ;~ Dow(400x320,6wochen) = http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=DJII.DJ&boerse=101&zeit=600&land=840
    $string = "DJII.DJ"
    $land = 840
    $borse = 101
    WinSetTitle($gui, "", "Börsenmanager - Dow Jones")
    ElseIf $wat = "Nikkei 225" Then
    ;~ Nikkei = http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=INIK&boerse=31&zeit=600&land=392
    $string = "INIK"
    $land = 392
    $borse = 31
    WinSetTitle($gui, "", "Börsenmanager - Nikkei 225")
    Else
    $string = "ERROR"
    $land = 000
    $borse = 00

    EndIf
    $MainObj.navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=" & $string & "&boerse=" & $borse & "&zeit=" & $time & "&land=" & $land)
    Case $msg = $Tab1

    If $wknchk001 Then
    If GUICtrlRead($wkn) <> $wknold Then
    SplashTextOn("", "Bitte Warten...", 120, 20, -1, -1, 1)
    $wknSource = _INetGetSource("http://boersen.manager-magazin.de/mmo/kurse_einzelkurs_uebersicht.htm?u=0&p=0&k=0&s=" & GUICtrlRead($wkn))
    If StringInStr($wknSource,'<td class="hl03">Symbol:</td><td align="right">') Then
    $wknSource = StringSplit($wknSource, '<td class="hl03">Symbol:</td><td align="right">', 1)
    $wknSource = StringSplit($wknSource[2], "</td>", 1)
    $wknSource = $wknSource[1]
    $na = 0
    Else
    $wknSource = "Not Aviable"
    $na = 1
    EndIf
    WinSetTitle($gui, "", "Börsenmanager - " & $wknSource)
    $wknold = GUICtrlRead($wkn)
    SplashOff()
    EndIf
    EndIf
    Switch GUICtrlRead($Tab1)
    Case 0
    If $wknchk001 Then
    $MainObj.Navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?herkunft=118&h=125&b=190&symbol=" & GUICtrlRead($wkn) & "&land=276&boerse=9&typ=1&zeit=0")
    Else
    $MainObj.navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=" & $string & "&boerse=" & $borse & "&zeit=0&land=" & $land)
    EndIf
    $time = 0
    Case 1
    If $wknchk001 Then
    $MainObj.Navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?herkunft=118&h=125&b=190&symbol=" & GUICtrlRead($wkn) & "&land=276&boerse=9&typ=1&zeit=100")
    Else
    $MainObj.navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=" & $string & "&boerse=" & $borse & "&zeit=100&land=" & $land)
    EndIf
    $time = 100
    Case 2
    If $wknchk001 Then
    $MainObj.Navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?herkunft=118&h=125&b=190&symbol=" & GUICtrlRead($wkn) & "&land=276&boerse=9&typ=1&zeit=300")
    Else
    $MainObj.navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=" & $string & "&boerse=" & $borse & "&zeit=300&land=" & $land)
    EndIf
    $time = 300
    Case 3
    If $wknchk001 Then
    $MainObj.Navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?herkunft=118&h=125&b=190&symbol=" & GUICtrlRead($wkn) & "&land=276&boerse=9&typ=1&zeit=600")
    Else
    $MainObj.navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=" & $string & "&boerse=" & $borse & "&zeit=600&land=" & $land)
    EndIf
    $time = 600
    Case 4
    If $wknchk001 Then
    $MainObj.Navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?herkunft=118&h=125&b=190&symbol=" & GUICtrlRead($wkn) & "&land=276&boerse=9&typ=1&zeit=10000")
    Else
    $MainObj.navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=" & $string & "&boerse=" & $borse & "&zeit=10000&land=" & $land)
    EndIf
    $time = 10000
    Case 5
    If $wknchk001 Then
    $MainObj.Navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?herkunft=118&h=125&b=190&symbol=" & GUICtrlRead($wkn) & "&land=276&boerse=9&typ=1&zeit=30000")
    Else
    $MainObj.navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=" & $string & "&boerse=" & $borse & "&zeit=30000&land=" & $land)
    EndIf
    $time = 30000
    Case 6
    If $wknchk001 Then
    $MainObj.Navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?herkunft=118&h=125&b=190&symbol=" & GUICtrlRead($wkn) & "&land=276&boerse=9&typ=1&zeit=50000")
    Else
    $MainObj.navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=" & $string & "&boerse=" & $borse & "&zeit=50000&land=" & $land)
    EndIf
    $time = 50000
    Case 7
    If $wknchk001 Then
    $MainObj.Navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?herkunft=118&h=125&b=190&symbol=" & GUICtrlRead($wkn) & "&land=276&boerse=9&typ=1&zeit=100000")
    Else
    $MainObj.navigate ("http://boersen.manager-magazin.de/mmo/cc_spo_mmo_realtime.gfx?b=400&h=230&d1=38&d2=200&typ=0&string=" & $string & "&boerse=" & $borse & "&zeit=100000&land=" & $land)
    EndIf
    $time = 100000
    EndSwitch
    EndSelect
    WEnd
    Exit

    [/autoit]

    Mfg Spider