Beiträge von autoBert

Meines Wissens geht das nur für Tooltips, die mit der GuiToolTip.au3 erstellt wurden:

#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
#include <GuiToolTip.au3>


$sIconPath = StringReplace(StringReplace(@AutoItExe, '_64', ''), 'autoit3.exe', '') & "\Examples\Helpfile\Extras\Soccer.ico"
ConsoleWrite($sIconPath & @CRLF)
$Form_01 = GUICreate("test", 350, 350, -1, -1, -1, -1)
$icon_01 = GUICtrlCreateIcon($sIconPath, -1, 160, 100, 48, 48, -1, -1)
$hIcon=ControlGetHandle($Form_01,'',$icon_01)
$hToolTip=_GUIToolTip_Create($Form_01)
_GUIToolTip_AddTool($hToolTip, 0, "icon_01_tooltip", $hIcon)


GUISetState()
While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			Exit
;~ 	Sleep (10)		;in einer Schleife die GuiGetMsg enthält NIEMALS Sleep einbauen
		Case $msg = $GUI_EVENT_SECONDARYUP
			$sText=_GUIToolTip_GetText($hToolTip,0,$hIcon)
			$sClassname=_GetClassNameNNByID($Form_01,$icon_01)
			MsgBox(0, "Icon Handle", $hIcon&@CRLF&'Tooltip: '&$sText&@CRLF&'Classname: '&$sClassname)
	EndSelect
WEnd


Func _GetClassNameNNByID($hWnd, $ID)
	;http://www.autoit.de/index.php?page=Thread&postID=209314#post209314 funkey
    Local $hCtrl = ControlGetHandle($hWnd, "", $ID)
    Local $sCtrl = _WinAPI_GetClassName($hCtrl)
    If @error Then Return SetError(1)
    For $i = 1 To 1000
        If ControlGetHandle($hWnd, "", $sCtrl & $i) = $hCtrl Then
            Return $sCtrl & $i
        EndIf
    Next
EndFunc

den Variablennamen der die ControlID enthält kannst du nicht erhalten, aber den ClassName. Falls es möglich sein sollte (z.B. über WinApi an den Tooltiptext von nativ erstellten ToolTips (GuiCtrlSetTip) zu kommen, wäre ich an dieser Lösung natürlich auch interessiert. Bin da aber stark am zweifeln, denn Au3InfoTool zeigt ihn auch nicht an:

Zitat von Au3Info Tool

>>>> Window <<<<
Title: test
Class: AutoIt v3 GUI
Position: 506, 176
Size: 356, 379
Style: 0x94CA0000
ExStyle: 0x00000100
Handle: 0x00000000001806AC

>>>> Control <<<<
Class: Static
Instance: 1
ClassnameNN: Static1
Name:
Advanced (Class): [CLASS:Static; INSTANCE:1]
ID: 3
Text:
Position: 160, 100
Size: 48, 48
ControlClick Coords: 43, 28
Style: 0x50030103
ExStyle: 0x00000000
Handle: 0x00000000002F0274

>>>> Mouse <<<<
Position: 206, 154
Cursor ID: 0
Color: 0xE4E4E4

>>>> StatusBar <<<<

>>>> ToolsBar <<<<

>>>> Visible Text <<<<

>>>> Hidden Text <<<<

Alles anzeigen

Zitat von NewProgger

Bei einigen Themen ist es möglich eine Mehrfachauswahl zu treffen, bei anderen nicht. Damit das Layout gleich bleibt will ich nicht Radio und Checkboxen vermischen.

Scheiß auf das Layout, die Funktionalität zählt und mit deinem (für dich) Superlayout kommen nur dumme Fragen, denn

Zitat von autoBert

ein Anwender ist dieses Verhalten auch gewohnt.

Checkbox=Mehfachauswahl möglich, Radio=nur eine Antwort möglich. Man sollte Windowscontrols so verwenden wie sie vorgesehen sind, alles andere verunsichert nur den Anwender.

Zitat von Yaerox

Was heißt für dich Europaweit eingesetzt? Redest du davon, dass dieses Tool von jedem Ort der Welt auf funktionieren soll, oder davon, dass diese Tool viele Nutzer nutzen?

Wenn ich diesen Satz: "Europaweit eingesetzt" lese, denke ich an zwei Beispiele:

• Außendienstmitabeiter einer großen Firma
• einen Spielebot

bei beiden sehe ich das Problem mit RDP, Teamviewer & Co., daß Clients:

• nicht vor Ort die für sie wichtigen Daten/Fakten auswerten können
• nur einen fremden Rechner fernsteuern können
• und daher nur (je nach Ping) zeitverzögert visuelle Rückmeldungen bekommen

Im Außendienst ist dies auf jeden Fall ein NoGo, daher:

Zitat von 4ern

Die einfachste Lösung ist meiner Meinung nach Web- Serverbassiert. Du schreibst deine Anwendung mit PHP, ASP, Java usw..
Dadrauf kannst du von jedem Gerät aus zugreifen.

Zitat von Zeitriss

Benütze WinWaitActive() statt "WinWaitActivate" oder "_WinWaitActivate".
Letztere gibt es nicht, ich weiß nicht wie du oder der Recorder auf diese Funktionsnamen gekommen seid.

Das war der Recorder und ist nichts anderes als eine vom Recorder erstellte func, die das Fenster aktiviert (WinActivate) und und erst returned wenn das Fenster gefunden wurde. Ich habe aber seit längerer Zeit den Au3-Recorder nicht installiert und weiß daher nicht warum sie nicht im aufgezechneteten Skript ist.

Ich weiß, daß die Lösung dieses Problems im Entwicklerforum zu finden ist.


Das war die gute Nachricht, die schlechte ich habe es mir nicht verlinkt und habe im Moment auch wenig Zeit.


...


Wir haben zwar erst Montag, sollten deine Rechechern aber nicht erfolgreich sein erinnere mich am Samstag daran.

Habe mich etwas getäuscht, ich habe es nur dort schonmal verlinkt:
Prog übergibt Parameter an seine 1 Instanz (mehrere Dateien via Kontext-Menü)

ist zwar schon älter, funktioniert aber auch unter der aktuellen Stable.

Zitat von NewProgger

ist es bei den Radiobutton auch möglich mehrere zu aktivieren ?

Nein bei GuiCtrlCreateRadio ist nur eine Auswahl innerhalb einer Gruppe (GUICtrlCreateGroup) möglich. Es sind aber mehrere Gruppen möglich. Bei Checkboxen (GUICtrlCreateCheckbox) ist dagegen Mehrfachauswahl möglich und ein Anwender ist dieses Verhalten auch gewohnt.

Nimm Radioboxen, die haben diese Funktionalität.

Zitat von Christoph54

Um sicher zu gehen könntest du dich beispielsweise an den Ebay-Support wenden...

Und bei der Gelegenheit fragst du am besten gleich nach einer API um die Daten hochzuladen.

Zitat von Mojo

Ausformuliert: Die While Schleife läuft so lange bis der Titel der Seite Mietvertrag enthält. Stimmt es?!

Wenn sie an der richtigen Stelle ist, ja. Bei dir also nicht. Auch würde ich hier eine Do...Until nehmen:

$timer = TimerInit()
Do
	$pageTitle = _IEPropertyGet($oIE, "title")
	$searchResult = StringInStr($pageTitle, "Mietvertrag")
	Sleep(100)
Until $searchResult
;$status = 1
$timeDiff = Round(TimerDiff($timer) / 1000, 2)
$result = $result & 'Wartezeit: ' & $timeDiff

stell anstelle des Bildes den Code ein

Zitat von AutoMit

liegt folgendes Problem daran, dass ich das Tool „ISN Autoit Studio“ (1.01) verwende, oder muss ich nur einen Haken für "mehrzeilig" setzen?

dann solltest du beim Autor nachhacken. Ich habe nämlich noch nicht einmal kapiert was du willst. Willst du mehrere Einträge auf eimal zuweisen oder versuchst du einen 2 zweiligen Eintrag zu bekommen? Letzeres geht nur mit sehr viel Aufwand und ich denke nicht, das dieses Feature installiert ist.

Zitat von chip

Ist das bei dir auch erst sobald nur noch die DrWeb-Curelt.exe übrig ist?

Ist bei mir der Download, der noch kein einziges mal erfolgreich war.

Ich habe noch einmal eine geänderte Version eingestellt. Diese wird wohl bei UEZ zufriedenstellend laufen. Es scheint nämlich so daß ich einen großen Bug eingebaut hatte und hochgeladen. Da ich auf dem Stand des von UEZ getesten Skriptes aufgebaut habe sollte es überall laufen, wo das Internet vertretbare Leistung bringt. Wenn abgebrochene Downloads neugestartet werden müssen ist die angezeigte DL-Geschwindikeit rechnerisch korrekt, bezogen auf die erfolgreichen DL's. Da muß ich mich mir noch eine andere Methode einfallen lassen, denn die Bytes für die Tonne fallen bei meiner derzeitigen Berechnung unter den Tisch.
Ich hatte ja schon eine andere Methode eingebaut, diese hat aber auch Probleme.

Dann erkennt meine _WatchDL func noch nicht, wenn alle Downloads abgeschlossen sind, Das Array sagt mir alle DL's waren erfolgreich, kein einziger DL mußte neugestartet werden.

Zitat von UEZ

Funzt bei mir ohne Probleme.

Gut zu wissen, daß es mit vernünftigem Internetanschluß funktioniert. Kam das eigentlich beabsichtigte ArrayDisplay? Das ArrayDisplay kann auch mit dem Debug Button angezeigt werden, wäre jetzt interessant gewesen ob ein oder mehrere DL's neugestartet wurden. Erkennbar an Spalte 4 = DL-Handle bzw. Spalte 5 Anzahl der Neustarts, max. sind 10 Neustarts/DL möglich. Den Rechenfehler im Falle das ein 11. Neustart nötig wäre habe ich bereits korrigiert, es müssen also keine Internet-Fehler provoziert werden, davon bekomme ich gerade genug.

Deine Vorschkäge werde ich einbauen, warscheins aber nur für die Gesamtheit der Downloads.

Danke (auto)Bert

Hallo com,

bin gearde dabei das Grundgerüst für einen Downloader zu schreiben. Ja ich weiß gibt es schon viele, aber dieser lädt mehrere Dateien gleichzeitig parallel herunter. Gibt es warscheins auch schon ein paar.
Leider macht mir meine Internetverbindung (max. 64 kBit/s) beim Testen einen Strich durch die Rechnung bzw. weiß ich nicht ob Fehler im Skript vorliegen oder alles mit den abgebrochenen DL's zu erklären ist. Wäre also nett wenn der ein oder andere dies kurz testen könnte:

#include <WinAPI.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <Array.au3>


Opt('MustDeclareVars', 1)


Global $iWatch


Global $sLocalPath = @ScriptDir & "\TestDLs\"
If Not FileExists($sLocalPath) Then DirCreate($sLocalPath)


Global $aFiles[5][6] ;zeile 0 für Gesamtgrösse Spalten 2=Grösse aller DownLoaddateien, 3=bereits downheloaded, 4 Bytes durch Neustart verworfen,
;danach Spalten 0=URL, 1=Lokaler Pfad, 2=DL-Grösse,3=DL-Bytes , 4=DL-Handle, 5=Fehler Anzahl
Global $aData[1]
Global $aKBs[10]
$aFiles[0][0] = 4 ;Anzahl der Downloads


$aFiles[1][0] = "http://download.bleepingcomputer.com/Xplode/AdwCleaner.exe"
$aFiles[1][1] = "AdwCleaner.exe"
$aFiles[2][0] = "http://download.iobit.com/action-center/asc920-0330.exe"
$aFiles[2][1] = "Advanced_SystemCare.exe"
$aFiles[3][0] = "http://download.geo.drweb.com/pub/drweb/cureit/drweb-cureit.exe"
$aFiles[3][1] = "DrWeb-CureIt.exe"
$aFiles[4][0] = "http://data-cdn.mbamupdates.com/web/JRT.exe"
$aFiles[4][1] = "JRT.exe"


Dim $hGUI_c[$aFiles[0][0] + 2]
Dim $idprgInfo[$aFiles[0][0] + 2]
Dim $idlblInfo[$aFiles[0][0] + 2]


Global $msg, $sLblText, $tdStart


Global $hGuiMain = GUICreate("Multi-Downloader 0.4.0.3", 325, 250)
Global $button = GUICtrlCreateButton("Start", 5, 20, 70, 20)
Global $Display = GUICtrlCreateButton("Debug", 5, 70, 70, 20)
Global $idlblKBs = GUICtrlCreateLabel('', 95, 45, 230, 60)
GUICtrlSetFont(-1, 15, 800)
For $i = 1 To $aFiles[0][0] + 1
	If $i = $aFiles[0][0] + 1 Then
		$sLblText = 'Gesamt'
	Else
		$sLblText = $aFiles[$i][1]
	EndIf
	_MakeDLPanel($i, $sLblText)
	GUISwitch($hGuiMain)
Next
GUISetState()


Func _MakeDLPanel($iNo, $sText)
	$idprgInfo[$iNo] = GUICtrlCreateProgress(8, 70 + $iNo * 30, 310, 30)
	$hGUI_c[$iNo] = GUICreate("", 309, 30, 8, 70 + $iNo * 30, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TRANSPARENT, $WS_EX_MDICHILD), $hGuiMain)
	GUISetBkColor(0x989898, $hGUI_c[$iNo])
	GUICtrlCreateLabel($sText, 0, 8, 220, 25, $ES_LEFT)
	GUICtrlSetFont(-1, 12, 1000)
	GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
	$idlblInfo[$iNo] = GUICtrlCreateLabel("", 221, 8, 90, 25, $ES_RIGHT)
	GUICtrlSetFont(-1, 12, 1000)
	GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
	_WinAPI_SetLayeredWindowAttributes($hGUI_c[$iNo], 0x989898)
	GUISetState(@SW_SHOWNA, $hGUI_c[$iNo])
EndFunc   ;==>_MakeDLPanel


While 1
	$msg = GUIGetMsg()
	Switch $msg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Display
			_ArrayDisplay($aFiles)
		Case $button
			$tdStart=TimerInit()
			For $i = 1 To $aFiles[0][0]
				;$aFiles[$i][2] = InetGetSize($aFiles[$i][0],1)
				$aFiles[$i][4] = InetGet($aFiles[$i][0], $sLocalPath & $aFiles[$i][1], 1, 1)
			Next
			AdlibRegister('_WatchDL', 1000)
			_ArrayDisplay($aFiles)
	EndSwitch
WEnd


Func _WatchDL()
	;Local Static $iOld
	Local $iDiff
	Local $nPercent
	$iWatch += 1
	If $iWatch > $aFiles[0][0] Then $iWatch = 1
	If $aFiles[$iWatch][4] > 0 Then
		$aData = InetGetInfo($aFiles[$iWatch][4], -1)
		If @error Then
			ConsoleWrite(@error & @TAB & @extended & @CRLF)
			Return
		EndIf
		If $aFiles[$iWatch][2] = 0 Then
			$aFiles[$iWatch][2] = $aData[1] ;Downloadgrösse ermitteln
			$aFiles[0][2] += $aFiles[$iWatch][2] ;und auch zur Gesamtdownloadgrösse hinzuzählen
		EndIf
		$nPercent = Round($aData[0] / $aFiles[$iWatch][2] * 100, 1)
		$nPercent = StringReplace($nPercent, '-1.#IND', '')
		$aFiles[$iWatch][3] = $aData[0]
		GUICtrlSetData($idprgInfo[$iWatch], Int($nPercent))
		GUICtrlSetData($idlblInfo[$iWatch], _FormatString($nPercent))
		If $aData[2] Then
			If $aData[3] Then
				InetClose($aFiles[$iWatch][4])
				$aFiles[$iWatch][4] = 'Erfolg'
				GUICtrlSetData($idprgInfo[$iWatch], 100)
			Else
				$aFiles[$iWatch][5] += 1
				If $aFiles[$iWatch][5] < 10 Then
					$aFiles[$iWatch][4] = InetGet($aFiles[$iWatch][0], $sLocalPath & $aFiles[$iWatch][1], 1, 1)
					$aFiles[0][4]+=$aFiles[$iWatch][3]
				Else
					$aFiles[0][2] -= $aFiles[$iWatch][2]; von gesamt DL-größe abziehen
					$aFiles[$iWatch][2] = 0
					$aFiles[$iWatch][3] = 0
					$aFiles[$iWatch][4] = 'Abbruch'
					GUICtrlSetData($idprgInfo[$iWatch], 0)
					GUICtrlSetData($idlblInfo[$iWatch], 'Abbruch')
				EndIf
			EndIf
		EndIf
		$aFiles[0][3] = 0
		For $iWatch = 1 To $aFiles[0][0]
			$aFiles[0][3] += $aFiles[$iWatch][3]
		Next
		#cs
		If $aFiles[0][3] <> 0 Then $iDiff = $iOld - $aFiles[0][3]
		_ArrayPush($aKBs, $iDiff)
		Local $iKBs = 0
		For $i = 0 To UBound($aKBs) - 1
			$iKBs += $aKBs[$i]
		Next
		$iKBs = Round($iKBs / 10240, 2)
		GUICtrlSetData($idlblKBs, _FormatString($iKBs, 'KByte/sec'))
		$iOld=$aFiles[0][3]
		#ce
		Local $iElapsed=TimerDiff($tdStart)/1000
		Local $iKBs = Round(($aFiles[0][3]+$aFiles[0][4]) / $iElapsed/1024, 1)
		GUICtrlSetData($idlblKBs, _FormatString($iKBs, 'KByte/sec'))
		$nPercent = Round($aFiles[0][3] / $aFiles[0][2] * 100, 1)
		$nPercent = StringReplace($nPercent, '-1.#IND', '')
		GUICtrlSetData($idprgInfo[$iWatch], Int($nPercent))
		GUICtrlSetData($idlblInfo[$iWatch], _FormatString($nPercent))
	EndIf
	Local $bWorking = False
	For $i = 1 To $aFiles[0][0]
		$bWorking = ($aFiles[$i][4] > 0)
		If $bWorking Then ExitLoop
	Next
	If Not $bWorking Then
		_ArrayDisplay($aFiles, 'Downloads beendet')
		AdlibUnRegister('_WatchDL')
	EndIf
EndFunc   ;==>_WatchDL


Func _FormatString($number, $sExt = '% ')
	If Not StringInStr($number, '.') Then $number &= '.0'
	If $number = '.0' Then $number = '0.0'
	Return StringReplace(StringFormat("%8s " & $sExt, $number), '.', ',')
EndFunc   ;==>_FormatString

am Schluß sollte ein ArrayDisplay erscheinen, diese Daten bitte kopieren und hier posten. Vorschläge werden auch noch dankend angenommen. Das Skript ist derzeit im Proof of Concept Stadium also nicht zu streng bei evtl. Kritik

vielen Dank im voraus und weiterhin ein schönes Wochenende

(auto)Bert

Zitat von Christoph54

Ich möchte an dieser Stelle anmerken, dass die Rückgabeparameter (speziell die Error/Extended Werte) der TCPSend/-Recv Funktionen von Autoit seit geraumer Zeit verbuggt sind. Genauer: Es lässt sich nicht richtig feststellen ob eine Verbindung abgebrochen bzw. unterbrochen wurde. Die Funktionen liefern einfach nicht das zurück was in der Hilfe dokumentiert ist. Dieses Verhalten ist in der Stable sowie in der Beta vorhanden und besteht auch schon seit einigen Versionen, obwohl die Changelogs behaupten, dass die Fehler behoben worden wären.

dann mach ein Bugticket auf.

Zitat von Mistil

GuiSetResizing geht leider nicht, weil sonst Linien in der gui nicht nur Verlängert, sondern auch in die breite gezogen werden.

Mach mal eine Beispiel-GUI bei der GuiSetResizing nicht funktionieren soll.

Zitat von autoiter

Hi Leute,

Zur Pflege einer Kundendatenbank über Remote Desktop Verbindung nutze ich teilweise AutoIt Skripte mit ImageSearch.au3.

Dann mache diese unsichere Lösung immer vom gleichen Bildschirm aus. Oder nutze eine sichere Methode um eine so sensible DB zu pflegen. So etwas über Imagesearch zu lösen ist grob fahrlässig.

Zitat von autoiter

Das hat sich angeboten, weil ich keine Dateien auf dem Terminal Server ablegen kann.

Laß dir die nötigen Berechtigungen einräumen.

Zitat von BlutigerAnfänger

vielleicht geht sowas nur mit Autoit!

Sag mir mal wo das sonst stehen sollte?

mit den Funktionen deines Browsers