Beiträge von funkey

Du willst also das Skript starten, anfangen zu schreiben, die Tastaturanschläge zählen, und erst nacht 50 Anschlägen (ich hoffe aber Zeichen) soll via Send der aufgezeichnete String gesendet werden? Verstehe ich das richtig

Edit1: Habs jetzt verstanden. Du willsch normal schreiben, aber alle 50 Zeichen soll was automatisch geschrieben werden, richtig ?

Sollte einfach möglich sein, alle Tasten über HotkeySet abfangen, und folgende Funktion aufrufen:

[autoit]

Global $iCount = 0

[/autoit][autoit][/autoit][autoit]

Func Tasten()
HotKeySet(@HotKeyPressed)
Send(@HotKeyPressed)
HotKeySet(@HotKeyPressed, "Tasten")
$iCount +=1
If $iCount >=50 Then
$iCount = 0
Send("Bla")
EndIf
EndFunc

[/autoit]

Edit2: Hab die Hotkey nochmal deregistriert und danach wieder registriert, hier aber nicht in die Funktion eingebaut , wegen der K**l*g*er-Gefahr
So werden die gesendeten Zeichen nicht mitgezählt.

Ich kenne mich in C(++) eigentlich nicht aus, aber :

[autoit]

DllCall($dll, "int:cdecl", "ppjoy", "int", 1, "int", 1, "int", 1)

[/autoit]

Probiert, ging nicht. Erst als ich die ControlID eingegeben hatte, funktionierte es. ControlSend gibt aber 1 zurück, aber ich weiß nicht wohin der Text gesendet wurde, nicht jedoch an den zuletzt aktiven Control.

Aha, und woher weiß die Funktion wohin sie den Text senden soll. Wenn es nur einen Control gibt, dann ist alles klar, aber wenn es mehrere Eingabefelder gibt, wird dann überall hinn der Text gesendet

Wenn es keine ControlID gibt, dann wird ControlSend nicht funktionieren können, versuch es einfach mit Send

Schau dir die Hilfe noch mal an. Da fehlt noch ein Parameter - ControlID

Jetzt ist guter Rat teuer. Aber es gibt immer Bastellösungen

Wenn sonst nichts hilft, dann:

[autoit]

While PixelGetColor($Button_Pos[0],$Button_Pos[1]) <> $Grau
Sleep(10)
WEnd

[/autoit]

Die Koordinaten müssen dann aber genau passen. Achtung - Absolut oder relativ. Also vllt mit WingetPos die IE-Position erhalten und dann die Koordinaten des Buttons hinzuzählen, oder das IE-Fenster immer maximiert öffnen.

Eigentlich machst du alles falsch, weil wir hier keine Bots wollen, aber ich will mal nicht so sein. Also eine einzige kleine Ausnahme für dich.

[autoit]

HotKeySet ( "{Numpad7}" , "Start" )
HotKeySet ( "{Numpad8}" , "Ende" )

[/autoit][autoit][/autoit][autoit]

While 1
Sleep(10)
WEnd

[/autoit][autoit][/autoit][autoit]

Func Start ()
While (1)
Send( "y" ,0)
Sleep (50)
Wend
EndFunc

[/autoit][autoit][/autoit][autoit]

Func Ende ()
Exit
EndFunc

[/autoit]

Vielleicht gibt es irgendeinen anderen Text, auf den WinWait warten könnte, wenn der IE nicht Fertig schreibt? Vielleicht sogar die Beschriftung des Buttons, den du drücken willst.

Hat er doch! Siehe _IECreate

Anscheinend gings nicht so wie er wollte.

Ich warte immer wenn es nicht anders geht bis der IE Fertig meldet.

[autoit]

WinWait($title,"Fertig")

[/autoit]

Das hilft meistens.

Ich hab das mal ganz anders gelöst.
Einfach mal probieren

[autoit]

#Include <Array.au3>

[/autoit][autoit][/autoit][autoit]

$Ordnerfile = @ScriptDir&"\Ordnerstruktur.txt"
$Ordner = FileSelectFolder("Basisordner auswählen","C:\")
Dim $Ebene3[1]
Dim $i = 0

[/autoit][autoit][/autoit][autoit]

If @error Then Exit
RunWait(@ComSpec & " /c " &@SystemDir&'\tree.com /a > "'&$Ordnerfile&'"', $Ordner, @SW_HIDE)

[/autoit][autoit][/autoit][autoit]

$Datei = FileOpen($Ordnerfile,0)

[/autoit][autoit][/autoit][autoit]

$Pattern1 = "| \---"
$Pattern2 = "| | +---"
$Pattern3 = "| | \---"
$Pattern4 = "| \---"
$Pattern5 = "| +---"
$Pattern6 = " \---"

[/autoit][autoit][/autoit][autoit]

While 1
$line = FileReadLine($Datei)
If @error = -1 Then ExitLoop
If StringLeft($line,12) = $Pattern1 Or StringLeft($line,12) = $Pattern2 Or StringLeft($line,12) = $Pattern3 Or StringLeft($line,12) = $Pattern4 Or StringLeft($line,12) = $Pattern5 Or StringLeft($line,12) = $Pattern6 Then
$Ebene3[$i] = StringTrimLeft($line,12)
$i += 1
ReDim $Ebene3[$i + 1]
EndIf
Wend

[/autoit][autoit][/autoit][autoit]

_ArrayDisplay($Ebene3)

[/autoit]

@CRLF anstelle von @LF --> Enter anstelle 'Kasten'-Symbol

Das habe ich dann wohl überlesen, sorry

Ich finde das am einfachsten

[autoit]

$sNeu = StringReplace($str,"TET","")

[/autoit]

Zitat

[autoit]

$Desktop = "d:" & @UserName & "\Desktop"
$Favoriten = "d:" & @UserName & "\Favoriten"
$OutlookAddressbuch = "d:" & @UserName & "\Outlook-Addressbuch"
$OutlookArchiv = "d:" & @UserName & "\Outlook-Archiv"

[/autoit] [autoit][/autoit] [autoit][/autoit]

Da fehlen noch Slashes so weit ich das beurteilen kann.

[autoit]

$Desktop = "d:\" & @UserName & "\Desktop"
$Favoriten = "d:\" & @UserName & "\Favoriten"
$OutlookAddressbuch = "d:\" & @UserName & "\Outlook-Addressbuch"
$OutlookArchiv = "d:\" & @UserName & "\Outlook-Archiv"

[/autoit][autoit][/autoit][autoit][/autoit]

So?

[autoit]

$Variable1 = StringLeft($String,500)
$Variable2 = StringTrimLeft(StringLeft($String,1000),500)
$Variable3 = StringTrimLeft($String,1000)

[/autoit]

jDownloader ist darauf spezialisiert, einfach URL in die Zwischenablage, dann auf das grüne PLUS klichen und hinzufügen. Das Programm filtert selbstandig den Link aus der URL.
Sonst wirds schwierig, weil da immer Captchas und Wartezeiten sind, außerdem kann von Uploaded.to immer nur eine Datei gleichzeitig downgeloadet werden.

Ich werde's aber auch mal versuchen mit Autoit. _IELoadWait muss ja irgendwie gehen.

Bei mir hat das nicht geklappt mit dem HttpSetProxy wegen dem da: "Only CERN proxy servers are supported."
IP-Adresse sollte aber auf alle Fälle gehen.

Ich glaube Sandboxie wurde mal erwähnt.