Jep, stimmt. Nur nicht die Lösung für mein "Problem"
Welches Problem gibt es denn noch ![]()
mfg (Auto)Bert
Jep, stimmt. Nur nicht die Lösung für mein "Problem"
Welches Problem gibt es denn noch ![]()
mfg (Auto)Bert
Hallo stayawayknight,
Genau sowas hab ich gerade gesucht, danke!
schön wenn du es gebrauchen kannst,
PS: Juhu ich bin im Screenshot verewigt
dann werd ich den wohl irgendwann austauschen müssen, bevor du abhebst
z.B. gegen diesen:
auch mit einem Beispielprogramm von mir erstellt (siehe Signatur)
mfg (Auto)Bert
Hallo MrB,
Skript startet, danach werden einige Bilder angezeigt und plötzlich Absturz Ausgabe von Scite-Console:
ZitatAlles anzeigen>"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Programme\AutoIt3\Downloads\MrB\BilderGalerie.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams
+>21:38:16 Starting AutoIt3Wrapper v.2.0.1.24 Environment(Language:0407 Keyboard:00000407 OS:WIN_XP/Service Pack 3 CPU:X86 OS:X86)
>Running AU3Check (1.54.19.0) from:C:\Programme\AutoIt3
+>21:38:17 AU3Check ended.rc:0
>Running:(3.3.6.1):C:\Programme\AutoIt3\autoit3.exe "C:\Programme\AutoIt3\Downloads\MrB\BilderGalerie.au3"
C:\Programme\AutoIt3\Downloads\MrB\BilderGalerie.au3 (59) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$aPics_Viewer[$i] = $aPics[$i]
^ ERROR
->21:38:26 AutoIT3.exe ended.rc:1
>Exit code: 1 Time: 11.375
mfg (Auto)Bert
Hallo freaky,
hier einmal das etwas abgeänderte Beispiel aus der Hilfe:
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]Example()
[/autoit] [autoit][/autoit] [autoit]Func Example()
Local $progressbar1, $progressbar2, $button, $wait, $s, $msg, $m
GUICreate("My GUI Progressbar", 220, 100, 100, 200)
[/autoit] [autoit][/autoit] [autoit]DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0) ; Classic-Style
$progressbar1 = GUICtrlCreateProgress(10, 10, 200, 20)
GUICtrlSetColor(-1, 32250); not working with Windows XP Style
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7) ; Standard-Windows-Style
$progressbar2 = GUICtrlCreateProgress(10, 40, 200, 20, $PBS_SMOOTH)
$button = GUICtrlCreateButton("Start", 75, 70, 70, 20)
GUISetState()
$wait = 20; wait 20ms for next progressstep
$s = 0; progressbar-saveposition
Do
$msg = GUIGetMsg()
If $msg = $button Then
GUICtrlSetData($button, "Stop")
For $i = $s To 100
If GUICtrlRead($progressbar1) = 50 Then MsgBox(0, "Info", "The half is done...", 1)
$m = GUIGetMsg()
If $m = -3 Then ExitLoop
[/autoit] [autoit][/autoit] [autoit]If $m = $button Then
GUICtrlSetData($button, "Next")
$s = $i;save the current bar-position to $s
ExitLoop
Else
$s = 0
GUICtrlSetData($progressbar1, $i)
GUICtrlSetData($progressbar2, (100 - $i))
Sleep($wait)
EndIf
Next
If $i > 100 Then
; $s=0
GUICtrlSetData($button, "Start")
EndIf
EndIf
Until $msg = $GUI_EVENT_CLOSE
EndFunc ;==>Example
mfg (Auto)Bert
ich muss sagen jetzt wird es langsam albern. schicke du mir doch mal deinen personalausweis, damit ich "analysieren" kann ob du kein gesuchter straftäter bist, ich glaube nämlich einer von denen heißt bert. oder hast du etwa keine lust, dich vor irgendjemandem für irgendwas zu rechtfertigen, weil irgendwer eine vermutung hat? -da geht's mir genauso :). klar kann ich dir mein script schicken und deine analyse wird ergeben, dass du falsch liegst. ich sehe nur dazu einfach keinen anlass, da es, und da wiederhole ich mich, sich weder um einen bot noch um irgendetwas anderes handelt, was gegen die forenregeln verstösst.
ich bin hier nicht in der bringschuld gegenüber irgendwem und ich werde nicht anfangen darum zu kämpfen meine unschuld zu beweisen. mir ist auch klar wie du es auslegen wirst, solange ich nicht nachgebe, aber das werde ich in diesem fall schon aus prinzip nicht tun
mfg anna
du willst ja damit nur davon ablenken, dass ich dir bewiesen habe dass deine Argumentaion nicht stimmt (siehe meinen Post von 24.05.2010 19:20)
Ausserdem wer um Hilfe bittet sollte auch vernünftig (in diesem Fall mit Skript) begründen wofür er sie benötigt.
Du musst mir auch nicht beweisen dass es sich um ein Scherzprogramm handelt, der Verdacht wird jedoch mit deinem letzten Post nicht schwächer. Eine einfache PN hätte genügt anstatt hier weiter auf diesen Thread aufmerksam zu machen.
Ob dieser Thread geclosed wird soll ein MoD oder peethebee entscheiden
mfg (Auto)Bert
Hallo Spegeli,
herzlich willkommen im Forum und viel Spass mit AutoIt.
Grundsätzlich kann es nur ein TabControl in einer Gui geben. Man kann aber auf unsichtbaren HilfsGui's (als eigenständige Gui nicht zu erkennen) je ein TabControl platzieren. Die OwnTab-UDF von funkey ermöglicht z.B. TabInTab. Hier noch ein weiterer Link:
[ gelöst ] Tab in Tab
Da du dich erst seit 2 Tagen mit AutoIt beschäftigst und wir kein machmal Forum sind empfehle ich dir die Hilfe herunterladen und da oder über das http://wiki.autoit.de/wiki/index.php/Tutorial dir die Grundlagen anzueignen.
Sehr hilfreich ist auch das Buch von peethebee und
Autoit-Anfänger Guide / Wie poste ich richtig??
Wenn du dann ein Skript hast, dass nur noch etwas buggy ist, hilft dir sicher jemand gerne.
PS. Skripte die im Spoiler und AutoIt TAGs eingeschlossen sind werden hier lieber gesehen als Dateianhänge,
mfg (Auto)Bert
Hallo Fabian,
da ImageSearch z.B. zum Captcha umgehen verwendet werden kann und daher Fragen hierzu nicht (öffentlich) supportet werden, solltest du in dem Forum nachfragen von dem du sie heruntergeladen hast,
mfg (Ato)Bert
Wer das selbe Problem hat und ab hier nicht mehr weiter kommt soll einfach mal
Run("brain.exe") Versuchen
Wehe jemand schreibt:
[OT]manche verwenden auch eine eingedeutschte Version, ältere DOS-User vielleicht auch noch die Brain.com[/OT]
mfg (Auto)Bert
1. gibt es die möglichkeit, ein fenster zu schließen, wenn es in einem bestimmten bereich liegt? bspw. so, dass wenn ich ein fenster an einen bestimmten platz auf dem bildschirm schiebe, dieses automatisch geschlossen wird?
nein dieses fenster kann der user nicht normal beenden, da es mehrere fenster gibt, die übereinander liegen.
Diese beiden Aussagen widersprechen sich, denn wenn es wo hingeschoben werden kann, kann man es auch normal beenden.
Bis ich dein Skript analysiert habe ist daher
selbstgebauten(!) reaktionsspiel
eine nette Umschreibung für ein Scherzprogramm.
Du kannst es mir ja per PN zukommen lassen,
mfg (Auto)Bert
Ich glaube nicht das der Admin möchte das hier dieser Link auftaucht
Das Script ist aber kein Bot
Dann poste das Skript und eine andere Seite bei dem das Problem auch auftritt,
mfg (Auto)Bert
Alles anzeigenauch gerade eben entdeckt^^
Ich denk ich belass es so...sowie's dem Original am nächsten kommt...
Gruß,
Buckiuxx
![]()
![]()
![]()
auf jeden Fall ist deines kürzer. Nette Programmierübung. Du solltest allerdings auch die benötigten Includes in das Skript aufnehmen:
[autoit]#include <StaticConstants.au3>
#include <WindowsConstants.au3>
mfg (Auto)Bert
Hallo Freaky,
poste doch einfach einmal dein Skript und eine/die dazugehörige Seite, dann wird sich schon eine Lösung finden,
mfg (Auto)Bert
Dann hole dir vorher die Seitendaten per InetGet und baue daraus eine lokale HTML-Datei (die keine Scrollbalken erzeugt) und lade diese. Oder du legst andere Controls z.B. Labels auf diesen Bereich,
mfg (Auto)Bert
Hallo anna.assaoui,
wozu benötigst du das, Fenster kann der Anwender doch normal beenden, dies geht auch schneller als es in irgendeinen Bildschirmbereich verschieben und es durch ein Programm (BOT?) automatisch beenden zu lassen.
Fragen zum Bilder suchen sind immer BOT bzw. Scherzprogramm verdächtig. Du solltest dir also die Forenregeln durchlesen und auf Fragen dieser Art keinen Support erwarten siehe hierzu die geschlossenen Threads:
[ offen ] Fehler im Code ?
[ offen ] Woher imagesearch datei ?
beide vom gleichen User.
mfg (Auto)Bert
Danke!! Es klapt jetzt bis auf ein paar bugs. die kann ich aber selbst korigieren. Zu deiner frage: Ich schreib das für meine Mutter (Die is Tierärztin) Es ist zur unterstützung eines bereits vorhandenen Programmes. Warum fragst du??
Bei einem Sozialen Projekt hätte ich ein paar Stunden investiert und die Basis auf SQLite programmiert,
mfg (Auto)Bert
Hallo Chrys,
falls du den Eventnamen heraus bekommst, kannst du es mit
[autoit]ObjEvent$SinkObject = ObjEvent($oIE, "IEEvent_", "DWebBrowserEvents2") ; Ereignisse den UDFs zuweisen, beginnend mit IEEvent_
[/autoit]behandeln:
[autoit]Func IEEvent_ProgressChange($Progress, $ProgressMax)
$percent = Int(($Progress * 100) / $ProgressMax)
If $percent >= 0 And $percent <= 100 Then GUICtrlSetData($idProgress,$percent)
EndFunc ;==>IEEvent_ProgressChange
für den Ladefortschritt habe ich ein Beispiel eingestellt (siehe Signatur)
mfg (Auto)Bert
Nein, du kannst aber das Control etwas grösser erstellen damit sie asserhalb des sichbaren Bereiches sind. Dies ist aber unpraktisch, da der Anwender dann ja nich scrollen kann.
mfg (Auto)Bert
hier ein Skriptbeispiel für einen embedded Browser mit Fortschrittsanzeige für das Laden der Seite:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: AutoBert: http://www.autoit.de/index.php?page…4679#post164679
Skriptbeispiel für den Umgang mit _IECreateEmbedded, _IEErrorHandlerRegister, _IENavigate, _IEAction GuiCtrlCreateProgress, _IEPropertyGet
#ce ----------------------------------------------------------------------------
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
_IEErrorHandlerRegister()
[/autoit] [autoit][/autoit] [autoit]$oIE = _IECreateEmbedded()
$SinkObject = ObjEvent($oIE, "IEEvent_", "DWebBrowserEvents2") ; Ereignisse den UDFs zuweisen, beginnend mit IEEvent_
GUICreate("Embedded Web control Test", 640, 600, _
(@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$hInput = GUICtrlCreateInput("Hier URL eingeben: ", 10, 10, 500)
$hGo = GUICtrlCreateButton("&Go", 520, 10, 50)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 40, 640, 480)
GUICtrlSetResizing($GUIActiveX, $GUI_DOCKAUTO)
$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 525, 100, 22)
GUICtrlSetResizing(-1, $GUI_DOCKSTATEBAR)
$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 525, 100, 22)
GUICtrlSetResizing(-1, $GUI_DOCKSTATEBAR)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 525, 100, 22)
GUICtrlSetResizing(-1, $GUI_DOCKSTATEBAR)
$GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 525, 100, 22)
GUICtrlSetResizing(-1, $GUI_DOCKSTATEBAR)
$GUI_Button_Print = GUICtrlCreateButton("PRINT", 450, 525, 100, 22)
GUICtrlSetResizing(-1, $GUI_DOCKSTATEBAR)
$idProgress = GUICtrlCreateProgress(0, 555, 640, 18)
GUICtrlSetResizing(-1, $GUI_DOCKSTATEBAR)
GUISetState() ;Show GUI
[/autoit] [autoit][/autoit] [autoit]_IENavigate($oIE, "http://www.autoit.de/index.php?page=Thread&postID=164679#post164679")
[/autoit] [autoit][/autoit] [autoit]; Waiting for user to close the window
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $hGo
_IENavigate($oIE, GUICtrlRead($hInput))
Case $msg = $GUI_Button_Home
_IENavigate($oIE, "http://www.autoitscript.com")
Case $msg = $GUI_Button_Back
_IEAction($oIE, "back")
Case $msg = $GUI_Button_Forward
_IEAction($oIE, "forward")
Case $msg = $GUI_Button_Stop
_IEAction($oIE, "stop")
Case $msg = $GUI_Button_Print
_IEAction($oIE, "print")
EndSelect
$surl1 = _IEPropertyGet($oIE, "locationurl")
$surl2 = GUICtrlRead($hInput)
; ConsoleWrite($surl1 & " " & $surl2 & " " & GUICtrlRead($idProgress) & @CRLF)
If $surl1 <> $surl2 And GUICtrlRead($idProgress) > 90 Then GUICtrlSetData($hInput, $surl1)
WEnd
$SinkObject = 0 ; IE Eventzuweisung aufheben
$oIE.Quit ; IE beenden
$oIE = 0
GUIDelete()
Exit
Func IEEvent_ProgressChange($Progress, $ProgressMax)
$percent = Int(($Progress * 100) / $ProgressMax)
If $percent >= 0 And $percent <= 100 Then GUICtrlSetData($idProgress, $percent)
EndFunc ;==>IEEvent_ProgressChange
Hier noch ein ScreenShot:
Da das Skript aus zusammenkopieten Beispielen der Hilfe besteht könnt ihr es selbstverständlich als Vorlage benutzen, aber biite nicht komplett und ausser eigenem CopyRight-Vermerk nichts hinzugefügt.
falls Ihr noch Wünsche, Anregungen habt bitte posten.
viel Spass damit,
Edit1: PostID in Skript eingefügt
Edit2: Skript ausgetauscht, jetzt wird auch die aktuelle URL in die Eingabe übernommen
mfg (Auto)Bert
Hallo StormRider,
da sich das Skript verabschiedet sobald man auf den Reiter Behandlngen geht empfehle ich
[autoit]Global $iEdits = 1, $hEdit[1][6], $iTop = 5
[/autoit]vor der Guierstellung einzfügen. Ob noch weitere Bugs versteckt sind habe ich nicht ausgetestet.
Wird dies eine kommerzielle Anwendung oder ist das eher ein soziales Projekt für einen Tierschutzverein ![]()
mfg (Auto)Bert
Hallo BugFix,
sieht gut aus
Das mit dem Abrutschen passiert bei meinem NetBook auf dem Touchpad komischerweise nicht. Du könntest aber mit _MouseTrap versuchen die Maus während des Ziehens innerhalb kleiner Grenzen zu halten, (habe das Skript aber noch nicht analysiert)
mfg (Auto)Bert