Beiträge von WiDDoW

hey,

erst mal danke für deine rückmeldung. also bei mir (Win7, 64bit mit Internet Explorer 9 klappt es nicht)
und den Quellcode hab ich mir auch schon einmal angeschaut. Bei der Seite dessen Information ich haben will (kann leider nicht verlinken, da sie aus dem Intranet kommt), bekomme ich die benötigten Infos leider nicht aus dem Quellcode.

In welcher Art und weise das Fenster erstellt wird ist mir erst mal egal. (wie gesagt das Bsp kommt aus der Hilfe Datei und nicht von mir)

Zitat

Also bei mir klappt es.

das heißt du kannst das script starten und klickst auf "home" und daraufhin markiert sich die die Internetseite und es erscheint die MsgBox: "diese Meldung sollte von allein kommen" ohne das du noch irgend etwas klickst oder drückst???

das ist ja komisch - was hast du für ein System?

hi guys,

Ich würde gern den inhalt einer Internetseite, die ich über createObj in eine Gui eingeladen habe in die Zwischenablage kopieren (Die website unterstützt leider keinerlei Shortcuts und deshalb wollte ich über rechtsklick alles auswählen, rechtsklick kopieren das erledigen) Aber das Script pausiert sofort nachdem ich das erste mal einen rechtsklick im Objekt auführen lasse.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
AutoItSetOption ( "MouseCoordMode",0 )
Opt('MustDeclareVars', 1)

Example()
Func Example()
Local $oIE, $GUIActiveX, $GUI_Button_Back, $GUI_Button_Forward
Local $GUI_Button_Home, $GUI_Button_Stop, $msg

$oIE = ObjCreate("Shell.Explorer.2")

; Eine simple GUI für die Ausgabe erzeugen.
GUICreate("Embedded Web control Test", 640, 580, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
$GUIActiveX = GUICtrlCreateObj ($oIE, 10, 40, 600, 360)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)

GUISetState() ; GUI anzeigen

$oIE.navigate("http://www.autoit.de")

; Darauf warten, dass das Fenster geschlossen wird ...
While 1
$msg = GUIGetMsg()

Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GUI_Button_Home
sleep(200)
mousemove(100,100)
sleep(200)
mouseClick("secondary")
sleep(200)
send("w")
sleep(200)
MsgBox(0,"","diese Meldung sollte von allein kommen")
EndSelect

WEnd

GUIDelete()
EndFunc ;==>Example

Siehe zeile 33 bis 41. und direkt nach Zeile 37 bleibt das script stehen solange bis ich händich eine Taste (z.B. "W" für alles ausWählen) drücke und somit das Kontextmenü wieder schließe. danach gehts im script weiter.

kann mir irgendjemand erklären, wie ich mit dem Kontextmenü von solchen Objekten arbeiten kann?

ps: das beispiel kommt aus der deutschen Hilfe und wurde etwas gekürzt

Danke für den Hinweis

Gerade habe ich ein Testfile erstellt mit 15 Blöcken und etwa 200 Zeichen Gesamtbreite. Die Testdatei war 50 000 Zeilen lang und das erstellen hat keine 5 Sekunden gedauert.
(Die Datei war am ende 12mb groß)

Selbst wenn der User die Datei doppelt so groß macht, kann ich mit dem Zeitrahmen locker leben.

Allerdings hab ich noch ein Problem: ich Schreibe die Datei mit _FileWriteFromArray und der macht mir nach jedem Block ein " | " als Trennzeichen rein.
Jemand eine Idee wie ich das wegbekomme?

hier ein Bsp das man sich dann auf dem Desktop anschauen kann

#include <File.au3>
#include <Array.au3>
global $array[3][3]
$array[0][0] = "Hannes"
$array[0][1] = "Holger"
$array[0][2] = "Jon"
$array[1][0] = "spielt"
$array[1][1] = "kann"
$array[1][2] = "jobt"
$array[2][0] = "golf"
$array[2][1] = "nichts"
$array[2][2] = "als Bierholer"

_FileWriteFromArray(@DesktopDir&"\" &"dummy.txt" , $array,0)

ergebnis:

Zitat

Hannes|Holger|Jon
spielt|kann|jobt
golf|nichts|als Bierholer

EDIT:
Habs gefunden. In der Include Datei "file.au3 habe ich das Trennzeichen bei Zeile 237 entfernt und jetzt gehts

Der Rest meines Projektes sollte sich mit Fleißarbeit erledigen lassen
/can be closed

ich glaub ich hab jetzt des rätsels lösung:

ich werde die ganzen blöcke in jeweils einem array erstellen. so kann über die GUI das komplette File aufgebaut werden.
danach mach ich ein neue mehrdimensionales Array und packe da alle Blöcke, aber nur jeweils 1000 Zeilen rein und
aus diesen neuen Arrays erstelle ich dann meine Datei, weil ja jetzt die Blöcke richtig "gemischt" sind.

danke bis hier her
/can be closed
ggf. meld ich mich nochmal

klingt vielversprechend, ich werd auch in dieser Richtung mal noch ein wenig experimentieren.
aber ich glaub dennoch dieses Projekt als unlösbar aufzugeben.

ich hab mal folgenden minitest gemacht. - eine zufällige Zahl in ein File schreiben und mehr nicht.
und das ganze dann 10 000 mal wiederholen dauert schon weit über 6 minuten. das ist viel zu viel

#include <File.au3>

global $Datensatzanzahl = 10000
global $Filename = "e:\dummy.txt"

FileOpen( $Filename, 1)

For $i =1 to $Datensatzanzahl Step 1
_FileWriteToLine($Filename, $i, random(0001,9999,1), 0)
Next
FileClose($Filename)

ich werd jetzt mal schauen, wie es sich verhält wenn ich 1000 Zahlen generiere und die dann auf einmal in die Datei schreibe - vielleicht geht das schneller. aber danke erst mal bis hier her - wenn noch jemand optimierungsmaßnahmen hat - ich freue mir

EDIT:
Gerade hab ich ein großes array erstellt und es dann auf einmal in die Datei geschrieben - ging viel schneller und eigentlich
will ich ja meine Datei in einem "aufwasch" erstellen. der Benutzer soll über GUI seine Blöcke zusammen stellen können
(also zB:Block1 = Fortlaufende Nr. von 1 bis 30 000 Block2 = zufällige 5 stellige Nr. usw)
(Am anfang beim ersten Post dachte ich das wär zu groß)
Wenn ich jetzt für jeden Block ein Array vergebe und dann alles auf einmal schreibe also vielleicht:

30 Blöcke mit je etwa 10zeichen und bis zu 30 000 Zeilen - sprenge ich damit die Grenzen von autoIt???
ein Array mit 10 x 50000 einträgen geht aber 30 Arrays in der größe...?
Dann muss ich nur noch beim Datei erstellen irgendwie die Array mischen - also:
Zeile 1 Block 1 Block 2 usw
Zeile 2 Block 1 Block 2 usw

Nabend zusammen

ich möcht gern mit Autoit eine Datei erstellen die riesig groß wird.
ich möchte Sie in kleine Blöcke aufsplitten und suche daher eine einfach
und vor allem schnelle lösung für folgenden fall

Datei vor´m Scriptdurchlauf

0001
0002
0003
0004
0005

Nach dem Durchlauf

0001	0815
0002	1234
0003	0007
0004	5678
0005	2468

Das File soll am Ende etwa 2000 Zeichen breite haben und über 30 000 Zeilen länge
und jeder Block etwa 20 Zeichen und ebenfalls 30 000 länge.

Zurzeit folgendermaßen umgesetzt

#include <File.au3>
#include <array.au3>

;Variablenvergabe
$Zeilenanzahl = 5
global $Array[$Zeilenanzahl+1]
$Array[1]=" 0815"
$Array[2]=" 1234"
$Array[3]=" 0007"
$Array[4]=" 5678"
$Array[5]=" 2468"
global $file = "e:\dummy.txt"

;Datei öffnen
FileOpen( $file, 1)
If @error = -1 Then MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")

;file lesen und neu schreiben
For $i =1 to $Zeilenanzahl Step 1
$line = FileReadLine($file,$i)
If @error = -1 Then MsgBox(0, "fehler beim inhalt lesen","")
$neu = $line & $Array[$i]
_FileWriteToLine($file, $i, $neu, 0)
If @error = -1 Then MsgBox(0, "fehler beim Zeile schreiben","")
Next
FileClose($file)

Wer den Code anschaut sieht, ich lese jetzt die aktuelle zeile aus, addiere den neuen teil dazu und schreib dann die ganze zeile neu - obwohl ich doch eigentlich nur sachen am Ende einfügen will... - hat jemand eine idee wie das effizienter geht ohne den ganzen Block oder gar die Ganze datei einzuladen

also jetzt bin ich überrascht.

ich bekomm Meldung 0
aber der Calc startet dennoch nicht

Zitat von BugFix

der ist bei den Pfadvariablen registriert.

wo ist das? kann ich sehen ob diese Pfadvariablen noch stimmen?
denn bevor ich meinen rechner formatiert hatte, funkionierte das mit dem run auch schon mal...

PS: Win7 x64bit und auch Run(@SystemDir & '\calc.exe') funzt nicht

EDIT @ oispnr

Das stimmt schon - aber egal in welche zeile ich die msgBox setze kommt immer 1 zurück (also bei variante 1)

hatte ich auch schon probiert, tut aber auch nix

mahlzeit leute.

eigentlich ist es mir peinlich für meine Kindergartenfrage dieses Forum zuzumüllen, aber ich bekomm es einfach nicht hin.
ich möchte schlicht und ergreifend einfach nur den WinTaschenrechner starten. ich habe aus meinem script schon
alles rausgeworfen und poste hier gleich die komplette au3 Datei.

$calcPfad ="C:\windows\system32\calc.exe"
$iMsgBoxAnswer = MsgBox(4,"calc prob.","YES startet den calc normal"&@LF &"NO startet ihn über 'start ausführen'")
Select
Case $iMsgBoxAnswer = 6 ;Yes
run ($calcPfad)
run ("C:\windows\system32\calc.exe")
RunWait(@windowsDir &"\System32\calc.exe","",@SW_SHOW )
MsgBox(0,"",@error)
Case $iMsgBoxAnswer = 7 ;No
Send("#r") ;ausführen Dialog
sleep(100)
Send ($calcPfad) ;schreibe den selben Pfad in das auführenfenster
send ("{ENTER}")
EndSelect

Im script erscheint also nur ein Fenster, wo man auswählen kann auf welche weise der Rechner versucht werden soll zu starten.
Ich wüsste jetzt gern, wieso Variante 1 (also klick yes) mit der Meldung @error = 1 belohnt wird während variante 2 (klick no) ohne probleme funktioniert
(der Pfad zur Datei also richtig ist) Leider ist die Hilfe für den Run befehl und dessen Errors etwas... nennen wir es mal "sparsam"

Moin,

ich weiß das der Thread hier schon mächtig am verwesen ist, aber da Google auf die hier Angegebene Fehlermeldung nur sehr wenige ergebnisse ausspuckt und ich mitlerweile eine Lösung für das Problem gefunden habe, versuch ich mich mal an Leichenschändung

Das problem tritt bei mir nämlich nur dann auf, wenn ich KEINEN expliziten Pfad zur Excel Datei angebe. Im Beispiel befindet sich das excel File im selben Ordner wie das script:

#include <Excel.au3>
$sFilePath1 = "Test.xls"
$oExcel = _ExcelBookOpen($sFilePath1)

dieses Script wird aslo mit der oben erwähnten Fehlermeldung belohnt

#include <Excel.au3>
$sFilePath1 = @ScriptDir & "\Test.xls"
$oExcel = _ExcelBookOpen($sFilePath1)

während dieses Script laufen sollte
Vielleicht hilft es ja eines Tages irgend jemand

wow - geil - das gibts ja nicht..... so hab ich mir das gedacht....
VIELEN DANK
super schnelle und richtige antwort

ich hab ein GUI mit einem grafik Element und will ich und nun möchte ich nach dem Abarbeiten des scriptes die Farbe des elements ändern. (ohne dabei idealerweise die komplette GUI neu aufbauen zu müssen - Denn es sind noch etliche andere Elemente drin und Fenstergröße und Position müsste ich sonst ja noch alles erfassen)

folgendes Mini File solte jedenfalls zeigen was ich mein

Mit einem klick auf den Button ändert sich zwar das Label, aber nicht die Grafik, obwohl beide auf die selbe variable zugreifen.

Mit den 4 kommentarzeilen ( ; ) hab ich schon mal ein wenig experimentiert -
aber ich glaub der Befehl GuiCtrlSetGraphic ist nicht richtig

hat jemand eine idee? Forensuche hat jedenfalls nicht das eroffte ergebnis gebracht

Zitat von Oscar

1. Zahl:

[autoit]

$sNumber = '0001'
If Not StringRegExp($sNumber, '\A\d{4}\Z') Then MsgBox(0, 'Test1', 'falsche Zahl')

[/autoit]

2. Zahl:

[autoit]

$sNumber = '0.1234567890123'
If Not StringRegExp($sNumber, '\A0\.\d{13}\Z') Then MsgBox(0, 'Test2', 'falsche Zahl')

[/autoit]

scheint zu funktionieren VIELEN DANK
supi

hey leute - da ich glaub ich zu doof bin (vermutlich auch zu doof die hilfe richtig zu benutzen) muss ich hier mal um hilfe fragen

hab 2 variablen, die ich überprüfen möchte.
die erste soll eine zahl sein und sie muss(!) vierstellig sein - aber von 0001 bis 9999
(und wenn sie weniger als 4 oder mehr als 4 stellen hat, will ich das wissen - mehr nicht)

die 2. variable ist ähnlich
es ist eine 15stellige nummer die allerdins einen Punkt am anfang hat. zB "0.1234567890123"
auch hier will ich nur die Ziffernanzahl prüfen.

hat jemand eine idee welche funktion ich verwenden könnten? mit "if int" klappts nicht

ach ja ps: die 2.Variable beginnt immer mit "0."

passt jetzt vielleicht nicht ganz hier rein,

aber es gab mal ein prgramm namens "pc Zeitschaltuhr"
google spuckt u.a. das dazu aus: http://www.pcwelt.de/start/software…_zeitschaltuhr/
damit kann man einen Rechner aus dem Standbye holen und dann programme ausführen und ihn danach wieder runter fahren lassen.
Aber ob du sonst deinen Rechner irgendwie starten lassen kannst, glaube ich nicht (abgesehen vom Bios, sofern es das unterstützt)

WiDDoW

oh gott bin ich blödddd (about me)

ich hab selbst schon viel mit else experimentiert, weil ich mir dachte es kann ja nur so gehen
aber irgendwie hats bei mir doch nie richtig funktioniert...

naja - seis drum
jetzt gehts - vielen dank

bleibt nur die frage warum das script bei dir algemein schon nicht läuft.
die XXXXX hast du ja wie ich sehe auch um ein " ; " ergänzt, daran kanns also nicht liegen...

naja wer weiß - bei dir muss es ja auch nicht funktionieren hauptsache, bei mir gehts
also nochmal vielen dank - prob. gelöst

hat niemand eine idee, wie man das umsetzen könnte?
oder gehts vielleicht auch irgendwie mit hotKeySet() ???

ps: sry fürs hochpushen...

hi

und danke für das File aber ich such eigentlich nichts zum thema mausgesten
1. Dein tool kenn ich schon (es ist doch DEIN Tool oder?), ist sehr nett, dadurch bin ich überhaupt auf das thema gekommen
2. auch mit diesem tool muss ich irgendwie die mittlere Maustaste drücken um die geste zu aktivieren - und das ist ja das problem (nicht nur für mausgesten sondern auch so geht das bei mir total bescheiden)

kleine randanekdote: ich hab ein Dell Studio Schleppdoof mit 2 Maustasten; 2 finger aufs Touchpad tippen (wie bei Synaptics) gibts bei dell nicht (dafür sollte sich Dell übrigens schämen!!); und eigentlich macht man ein mittelklick hier durch gleichzeitiges drücken von linker + rechter maustaste - aber so über die beiden Tasten im FF einen link in neuem tab öffnen zu können ist schon zufall wenn das klappt

3. ich hab ein anderes mausgesten tool entdeckt - es nennt sich strokIt (google hilft hier gern weiter) das kann man direkt an Seine Anwendungen anpassen und für verschiedene anwendungen, verschiedeneaktionen angeben (zB auch "eine ebene zurück im Arbeitsplatz").

wenn ich die mausradtaste nicht so häufig brauchen würde, würd ich sagen okay - Alt GR + left zum drücken und dann nochmal space zum loslassen, aber wenn man dann zB im FF nur mal nen link in neuem tab auf haben will besteht die gefahr das loslassen zu vergessen oder schlimmeres

hab eigentlich auch nicht gedacht das es ein problem darstellt, da ja andere leute mit autoit auch schon keylogger und son sch**** programmiert haben, dacht ich, das ist keine große sache...

hi alle

ich möchte für mein notebook mit 2tastentouchpad ein kleines script schreiben, welches dessen nachteile ein wenig aufwiegt.
Alt GR + up für mouseWeel up und Alt GR + down für mouseWeel down - das funktioniert auch prima
und jetzt will ich noch die mausrad taste klicken bzw auch geklickt halten (für mausgesten) da dachte ich an Alt GR + left und erst wenn
Alt GR losgelassen wird soll auch die mausradtaste losgelassen werden.

bis jetzt sieht das bei mir so aus

#include <Misc.au3>
hotkeySet("{F8}", "appClose")

$MiddleMouseVar = 0
$dll = DllOpen("user32.dll")

While 1
Sleep ( 250 )
If _IsPressed("12", $dll) Then ;alt key
If _IsPressed("11", $dll) Then ;ctrl key
If _IsPressed("26", $dll) Then MouseWheel("up", 1);up key
if _IsPressed("28", $dll) Then MouseWheel("down", 1);down key
if _IsPressed("25", $dll) Then ;left key
$middleMouseVar = mousedown("middle")
XXXXXXXX


EndIf
EndIf
EndIf
WEnd

func appClose()

mouseup("middle")
exit
EndFunc

bei den XXXXX oder ein paar zeilen später müsste halt noch der mouseUp rein. nur ist halt die frage wie...

EDIT:
ich seh grad ALT GR + up oder down machen sich im Firefox schlecht - zumindest zum rauf und runter scrollen. - da muss ich nacher noch eine andere tastenkombi einsetzen