- 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
;~ 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
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")
$gui = GUICreate("Börsenmanager - DAX", 490, 375, 327, 127)
GUISetBkColor(0xffffff)
$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,
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()
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
Mfg Spider