Hallo 'srules',
Wenn man nur bier trinkt, gibts bei knapp über 5 promille einen bug.. (ne komische zahl wird bei der promilleanzeige angezeigt)
Sei doch froh, dass du mit 5 Promille übehaupt noch etwas erkennen kannst,
mfg (Auto)Bert
Hallo 'srules',
Wenn man nur bier trinkt, gibts bei knapp über 5 promille einen bug.. (ne komische zahl wird bei der promilleanzeige angezeigt)
Sei doch froh, dass du mit 5 Promille übehaupt noch etwas erkennen kannst,
mfg (Auto)Bert
Hallo kloo,
ich habe die formel nicht gemacht
dafür bin ich zu doof
habe das umgeschriben von einem beispiel
also nur die form
Die Formel ist richtig, wenn auch in umgestellter Form Edit1: die Einheiten stimmen auch, hatte mich verlesen daher in Spoiler verbannt
aber hast du den 2. Tipp auch schon überprüft:
[autoit] ZitatAuch must du immer in der gleichen Einheit rechnen (nicht einmal in Bytes und 1 mal in KBytes
Global $iFileSize = InetGetSize($url);
[/autoit][autoit] ZitatAuszug aus dt. Hilfe: InetGetSize
Gibt die Größe einer im Internet gespeicherten Datei (in Bytes) zurück.
aber
$iNewKbits = @InetGetBytesRead / 1024
[/autoit]hier teilst du durch 1024 => KBytes
mfg (Auto)Bert
Hallo 'FreeStylaa',
Was ich eigentlich sagen wollte:
Ein Script soll später (in der *.exe Form) nur in einem Fenster wie z.B. Internet Explorer aktiv sein...
Exe Dateien lassen sich meines Wissens nach nicht in Browsern ausführen. Du könntest aber eine ActiveX-Komponente daraus machen. Schau dir hierzu mal folgenden Link an: http://www.autoitscript.com/forum/index.php?showforum=14
mfg (Auto)Bert
Hallo L3viathan2142,
welche Politiker haben dieses Teil als Preview bekommen und ihren Reden damit generiert? Lustiges Teil diesen Satz beim 2. Versuch (umgestellt auf Consolewrite)
ZitatBullShitGenerator: Manche setzen nun auf eine multiple Ignoranztheorie, doch ich plädiere gegen eine harmonische Arbeitsmutation, wir brauchen vielmehr eine skalierte Funktionsoberfläche, die das Problem der sekundären Relationskonstante entgültig beseitigt. Die funktionelle Finanzierungstheorie ist die tertiäre Kapitalegenschaft, denn eine quadratische Entwicklungsoption beseitigt die elektrische Deklarationstranslation sowie die juristische Normaloption. Die qualifizierte Aktivierungsfunktion ist die allgemeine Differenzierungszeit, denn eine integrierte Objektegenschaft beseitigt die optische Impulsstruktur sowie die quadratische Pseudoparabel.
Edit1: noch einer:
ZitatWährend dieser universellen Monotonieoberfläche brauchen wir keine Leistungsoberfläche, sondern eine sekundäre Offensivmatrix, denn eine sekundäre Ladungssequenz hat noch nie die Relationsregel einer realen Organisationsvalidierung erreicht!!! Während dieser negativen Spektralebene brauchen wir keine Objektblase, sondern eine juristische Regenerationsoberfläche, denn eine interne Sektorendosis hat noch nie die Studiendosis einer konstruktiven Universalmenge erreicht!!! Während dieser skalierten Proportionspotenz brauchen wir keine Organisationsverschiebung, sondern eine primäre Arbeitsmatrix, denn eine primäre Impulsebene hat noch nie die Ignoranzstrategie einer polarisierten Gravitationsdosis erreicht!!!
Edit2: im Anhang eine Textdatei mit noch mehr schlauen Sätzen vom BullShitGenerator, vielleicht findet ja einer dort seine neue Signatur.
mfg (Auto)Bert
Hallo 'kloo',
ich weis das der download geht aber der ladebalken ladet nicht zu ende
aber wen du jetz auf ein ftp server irgent was hochladest das ca 500 kb verbraucht dann ladet es nichtmal
dann wird wohl deine Formel für den Fortschritt nicht stimmen.
Formel: FortshchrittInPozent = FortschrittAbsolut / Gesamt * 100
Auch must du immer in der gleichen Einheit rechnen (nicht einmal in Bytes und 1 mal in KBytes
mfg (Auto)Bert
Hallo flobby,
hier eine neuere Version mit blinkendem Punkt:
#include <Inet.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Global $source1, $source2, $source3, $source4, $daten_label, $loading, $lastUpdate
[/autoit] [autoit][/autoit] [autoit]_IEErrorHandlerRegister ()
[/autoit] [autoit][/autoit] [autoit]$oIE = _IECreateEmbedded ()
[/autoit] [autoit][/autoit] [autoit]$hGUI = GUICreate("Genta Inc. NoCopyright© by Phosgen", 400, 415)
$hPiclbl = GUICtrlCreateLabel("",5,5,16,16)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 25, 350, 350)
$daten_label = GUICtrlCreateLabel("", 10, 370, 600, 30)
GUISetState()
GUISetBkColor(0xE0FFFF)
;AdlibEnable("PicandData",10000)
$lastUpdateLabel=TimerInit()-60000
$lastUpdateIE = TimerInit()
PicandData()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUICtrlDelete($GUIActiveX)
Exit
EndSwitch
$dif =TimerDiff($lastUpdate)
if $dif > 500 Then
PicandData()
$lastUpdate = TimerInit()
GUICtrlSetBkColor($hPiclbl,0xE0FFFF)
EndIf
Sleep(5)
WEnd
Func PicandData()
if $loading then Return
$loading = True
#cs
$source1 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 0px 5px 3px">(.*?)</td>', 3)
$source2 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 0px">(.*?)</td>', 3)
$source3 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 3px 5px 0px;" align="right">(.*?)</td>', 3)
$source4 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 4px 3px 4px 0px; border-top: 1px solid white; border-bottom: 1px solid #eee; background-color: #d4eed4" align="right">(.*?)</td>', 3)
If @error Then $source4 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 4px 3px 4px 0px; border-top: 1px solid white; border-bottom: 1px solid #eee; background-color: #eed4d4" align="right">(.*?)</td>', 3)
GUICtrlSetData($daten_label, "Letzter Kurs: " & StringReplace($source1[0], "nbsp;", " ") & " Vortag: " & StringReplace($source2[0], "nbsp;", " ") & " Umsatz: " & StringReplace($source3[0], "nbsp;", " ") & " Veränd.: " & $source4[0])
#ce
$dif = TimerDiff($lastUpdateIE)
if $dif > 5000 then
GUICtrlSetBkColor($hPiclbl,0x00ff0f)
;_IENavigate ($oIE, "http://de.advfn.com/p.php?pid=staticchart&s=NB%5EGNTA&p=0&t=39&vol=1")
$lastUpdateIE = TimerInit()
sleep(1000) ;wieder entfernen
EndIf
$loading = False
EndFunc ;==>PicData
ps. du könntest ruhig einmal selbst die Hilfe bemühen,
mfg (Auto)Bert
Halllo : FreeStylaa,
für eigen definierte Fenster kannst du es so machen:
[autoit]$hfrmChild = GUICreate("GUI", $iWidht, $iHeight, -1, -1, $WS_POPUP, $WS_EX_MDICHILD, $hfrmMain)
[/autoit]
ob diese Methode allerdings auch mit fremden Fenstern funktioniert hab ich noch nicht ausprobiert. Am wichtigsten ist der letzte Parameter. Schau dir aber bitte dazu die Hilfe an,
mfg (Auto)Bert
Hallo Subzero007,
benutz doch _GuiCtrlListView_DeleteAllItems($hListView),
mfg (Auto)Bert
Hallo Oscar,
es geht noch kürzer (5 Zeilen gespart):
Func _getFirstOrLastDayMonth($date,$bFirst = True)
Local $aWeekDays[7] = ['Montag', 'Dienstag', 'Mittwoch', 'Donnerstag', 'Freitag', 'Samstag', 'Sonntag']
Local $aDate = StringSplit($date, '.')
if $bFirst Then
$aDate[1] = '01'
Else
$aDate[1] = _DateDaysInMonth($aDate[3], $aDate[2])
EndIf
Local $aOut[2] = [ _
$aDate[1] & '.' & $aDate[2] & '.' & $aDate[3], _
$aWeekDays[_DateToDayOfWeekISO($aDate[3], $aDate[2], $aDate[1])]]
Return $aOut
EndFunc ;==>_getFirstOrLastDayMonth
allerdings muss dann Gianni 2 Zeilen seines Beispiels anpassen:
$getFirstDate = _getFirstOrLastDayMonth($readDate,True)
$getLastDate = _getFirstOrLastDayMonth($readDate,False)
mfg (Auto)Bert
ich hasse das design von autoit.de
bestimmt auch noch andere user...
ich weiss nicht, was du an dem Design auszusetzen hast. Ich find das Forum gut, weil unaufdringlich (keine Werbung!), übersichtlich und sehr klar strukturiert. Edit angeügt: Und dazu passt nun einmal kein aufreiserisches Design.
Zitathab gewechselt und folgender fehler kam: ( Shoutbox ist leer siehe #1 [Anm.: AutoBert]) ja bugreports werden langsam auch sinnlos... wenn hier hunderte fehler gepostet werden und die sowieso nicht behoben werden...
Eine leere Shoutbox hab ich noch nie gehabt und das bei mobiler Verbindung über Edge, vielleicht war dein Zugangspunkt überlastet oder du zu ungeduldig. Was bei mir allerdings vorkommt ist, dass ich selber nichts in der Shoutbox senden kann (immer dann, wenn ich auch noch einen Download im Hintergrund hab).
Zitatich denke ma viele von euch benutzen den standardstyle...
auch wenn der kacke is
Ich weiss nicht warum du den Style madig machst ....
mfg (Auto)Bert
Hallo flobby,
ich habe dabei hauptsächlich an diesen Abschnitt gedacht:
ZitatLizenz zur beschränkten Vervielfältigung:
Der User darf Teile der hier dargestellten Informationen Dritten für deren persönlichen Gebrauch zugänglich machen unter der Voraussetzung, dass nur die durch ADVFN explizit, bezeichneten Daten zur Verfügung gestellt werden. Dabei müssen diese Bestimmungen eingehalten werden:
1. Der User muss eindeutig klarstellen, dass die Daten von der ADVFN Webseite stammen UND
2. den Dritten wird eindeutig klargestellt, dass diese Allgemeinen Geschäftsbedingungen auch für jeden Dritten gelten, der diese Daten anfordert. Diese Lizenz zur beschränkten Vervielfältigung genehmigt weder die Veränderung der Daten noch das Restrukturieren der Präsentationsform. Weiterhin ist es nicht erlaubt Teile der ADVFN Webseite für den kommerziellen Gebrauch zu nutzen oder zu kopieren.
Kein Teil der ADVFN Webseite darf durch eine andere Webseite oder ein anderes elektronisches Medium vervielfältigt, gespeichert und/oder dargestellt werden.
sprich du musst bei einer Weitergabe auf jedenfall die Datenquelle nennen und darauf hinweisen, dass für den Benutzer auch die Geschäftsbedingungen der ADVN nennen, ob eine Wetergabe überhaupt zulässich ist kann ich nicht beurteillen. Ebenso wenig ob deine Nutzung gegen die Geschäftsbedingungen de ADVN verstößt.
mfg (Auto)Bert
Hallo Subzero007,
FileSaveDialog erwartet in diesem String, dass der Filter in () eingesclossen wird, davor ist ein Text für den Benutzer vorgesehen, aber keine Pflicht. Du kannst also so:
[autoit]$path = FileSaveDialog('ListView-Export speichern', @MyDocumentsDir, '(*.csv)')
[/autoit]oder so das Problem lösen:
[autoit]$path = FileSaveDialog('ListView-Export speichern', @MyDocumentsDir, '(CSV-Format*.csv)')
[/autoit]
ist aber in der Hilfe gut erklärt,
mfg (Auto)Bert
Hallo flobby,
Zitatok vielen dank erst mal. ist es auch möglich die grafik oder besser gesagt den die seite größer anzeigen zu lassen zb 600x600 da es schwer ist auf der kleinen grafik zu erkennen wenn sich da was tut?
Natürlich ist das möglich, schau dir dazu die Hilfe an, Stichwörter GuiCreate und GuiCreateObj, danach kannst du ds selber in der von dir gewünschten Größe erstellen,
Edit: aber wichtiger erscheint mir, das du dir COPYRIGHT UND LIMITIERTE REPRODUKTION durchliest, ebenso die Geschäftsbedingungen von ADVFN,
mfg (Auto)Bert
Hallo chrisbole,
vom Ansatz her könnte es ein Bot werden, lies dir doch bitte einmal die Forenregeln durch,
mfg (Auto)Bert
Hallo flobby,
doch Grafik aktualisieren, z.B. so:
#include <Inet.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Global $source1, $source2, $source3, $source4, $daten_label, $loading, $lastUpdate
[/autoit] [autoit][/autoit] [autoit]_IEErrorHandlerRegister ()
[/autoit] [autoit][/autoit] [autoit]$oIE = _IECreateEmbedded ()
[/autoit] [autoit][/autoit] [autoit]$hGUI = GUICreate("Genta Inc. NoCopyright© by Phosgen", 400, 400)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 350, 360)
$daten_label = GUICtrlCreateLabel("", 10, 370, 600, 30)
GUISetState()
GUISetBkColor(0xE0FFFF)
_IENavigate ($oIE, "http://de.advfn.com/p.php?pid=staticchart&s=NB%5EGNTA&p=0&t=39&vol=1")
PicandData()
;AdlibEnable("PicandData",10000)
$lastUpdate=TimerInit()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUICtrlDelete($GUIActiveX)
Exit
EndSwitch
$dif =TimerDiff($lastUpdate)
if $dif > 500 Then
PicandData()
$lastUpdate = TimerInit()
EndIf
Sleep(5)
WEnd
Func PicandData()
if $loading then Return
$loading = True
$source1 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 0px 5px 3px">(.*?)</td>', 3)
$source2 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 0px">(.*?)</td>', 3)
$source3 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 3px 5px 0px;" align="right">(.*?)</td>', 3)
$source4 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 4px 3px 4px 0px; border-top: 1px solid white; border-bottom: 1px solid #eee; background-color: #d4eed4" align="right">(.*?)</td>', 3)
If @error Then $source4 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 4px 3px 4px 0px; border-top: 1px solid white; border-bottom: 1px solid #eee; background-color: #eed4d4" align="right">(.*?)</td>', 3)
GUICtrlSetData($daten_label, "Letzter Kurs: " & StringReplace($source1[0], "nbsp;", " ") & " Vortag: " & StringReplace($source2[0], "nbsp;", " ") & " Umsatz: " & StringReplace($source3[0], "nbsp;", " ") & " Veränd.: " & $source4[0])
$dif = TimerDiff($lastUpdate)
if $dif > 600000 then _IENavigate ($oIE, "http://de.advfn.com/p.php?pid=staticchart&s=NB%5EGNTA&p=0&t=39&vol=1")
$loading = False
EndFunc ;==>PicData
im ersten Script gings mir nur darum dir zu zeigen, dass es auch ohne AdLib geht. Jetzt wird alle 1/2 Sekunde das Label geändert, und alle 10 Minuten die Graphik, die Werte kannst du aber noch austesten (Wobei bei der kleinen Graphik, man den Unterschied voher warscheins eh nicht bemerkt,
mfg (Auto)Bert
Hallo flobby,
dann ersetze in meinem Beitrag von vorhin Exit mit ExitLoop und es sollte so sein, wie du es dir wünscht
mfg (Auto)Bert
Hallo flobby, schau doch mal auf meinen Beitrag weiter oben
mfg (Auto)Bert
Hallo flobby, du könntest dein Skript in AutoIT-Tags einschliessen, aber ich schau trotzdem einmal nach.
Edit1: versuchs mal so:
#include <Inet.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Global $source1, $source2, $source3, $source4, $daten_label, $loading, $lastUpdate
[/autoit] [autoit][/autoit] [autoit]_IEErrorHandlerRegister ()
[/autoit] [autoit][/autoit] [autoit]$oIE = _IECreateEmbedded ()
[/autoit] [autoit][/autoit] [autoit]$hGUI = GUICreate("Genta Inc. NoCopyright© by Phosgen", 400, 400)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 350, 360)
$daten_label = GUICtrlCreateLabel("", 10, 370, 600, 30)
GUISetState()
GUISetBkColor(0xE0FFFF)
_IENavigate ($oIE, "http://de.advfn.com/p.php?pid=staticchart&s=NB%5EGNTA&p=0&t=39&vol=1")
;AdlibEnable("PicandData",10000)
$lastUpdate=TimerInit()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUICtrlDelete($GUIActiveX)
Exit
EndSwitch
$dif =TimerDiff($lastUpdate)
if $dif > 5000 Then
PicandData()
$lastUpdate = TimerInit()
EndIf
Sleep(250)
WEnd
Func PicandData()
if $loading then Return
$loading = True
$source1 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 0px 5px 3px">(.*?)</td>', 3)
$source2 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 0px">(.*?)</td>', 3)
$source3 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 3px 5px 0px;" align="right">(.*?)</td>', 3)
$source4 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 4px 3px 4px 0px; border-top: 1px solid white; border-bottom: 1px solid #eee; background-color: #d4eed4" align="right">(.*?)</td>', 3)
If @error Then $source4 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 4px 3px 4px 0px; border-top: 1px solid white; border-bottom: 1px solid #eee; background-color: #eed4d4" align="right">(.*?)</td>', 3)
GUICtrlSetData($daten_label, "Letzter Kurs: " & StringReplace($source1[0], "nbsp;", " ") & " Vortag: " & StringReplace($source2[0], "nbsp;", " ") & " Umsatz: " & StringReplace($source3[0], "nbsp;", " ") & " Veränd.: " & $source4[0])
$loading = False
EndFunc ;==>PicData
läßt sich aber noch nicht abbrechen, dauert nur etwas länger. Falls du oder jemand anders dies lösen bitte Thema als gelöst markieren
mfg (Auto)Bert
Hallo Raupi,
ZitatWarum benutzt du nicht einfach GuiCtrlSetStyle ?
Danke für den Tip, werd mal sehen wie ich es umsetzen kann
mfg (Auto)Bert
Hallo bocky,
Zitathi,
das skript funktioniert zwar aber auf eine etwas unerklärlich art und weise.
man muss den stop button mehrmals drücken damit die schleife abgebrochen wird. leider kann ich mir gerade nciht erklären weshalb dies auftritt.
Also wenn ich 1 x stop drücke und $i noch nicht 3 ist muss ich warten bis $i 3 danach wird die func stop aufgerufen und das Programm beendet. Beschreib doch mal was du genau erreichen willst, dann findet sich auch eine Lösung
z.B.
#include <ButtonConstants.au3>
#Include <Misc.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt ("GUIOnEventMode", 1)
$Form1 = GUICreate("Form1", 105, 78, 401, 258)
$Start = GUICtrlCreateButton("start", 16, 8, 73, 25, 0)
$Stop = GUICtrlCreateButton("stop", 16, 40, 73, 25, 0)
GUICtrlSetOnEvent ($Start, "loop")
GUICtrlSetOnEvent ($Stop, "stop")
GUISetState()
While 1
sleep(100)
WEnd
Func loop()
$timer = TimerInit()
$i = 0
Do
if TimerDiff($timer)>3000 Then
$st = GUIGetCursorInfo()
$st2 = _IsPressed("01")
if $st[4] = $Stop Then ; And $st2 = "1" Then
Exit
Else
$timer = TimerInit()
$i = $i + 1
MsgBox(0, "counter", $i)
EndIf
EndIf
Sleep(125)
Until $i = 3
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func stop()
Exit
EndFunc
Ich weiss aber nicht was du bezwecken willst
mfg (Auto)Bert