Beiträge von AsiX-5

AsiX-5

....ich Stehe vor einem neuen Problem:
mein script bis jetzt:

[autoit]

$Radio = "Mein Flatcastradio"
Opt("WinTitleMatchMode", 2)
WinWaitactive ($Radio)
$handle = ControlGetHandle("", "", "Edit1")
ControlClick ($Radio, "", $handle, "left", 1)
ControlSetText ($Radio, "", $handle, "guten tag")
sleep(50)
Send ("{ENTER}")

[/autoit]

Ich möchte jetzt, das Auto it auf ein bestimmtes Wort im chat wartet und daraufhin einen Text schreibt.

[autoit]

;if WinGetText ($Radio, "DerChatText") then consolewrite ("jes")
;if not WinGetText ($Radio, "DerChatText") then consolewrite ("no")

[/autoit]

und

[autoit]

;if ControlGetText ($Radio, "DerChatText","FSS13") then consolewrite ("jes")
;if not ControlGetText ($Radio, "DerChatText","FSS13") then consolewrite ("no")

[/autoit]

soweit sogut, nur funktioniert weder der eine noch der andere Befehl.

Das Radio basiert auf Flatcast, welches man erst als Plugin für den Firefox runterladen muss.

Wie bekomme ich es dennoch hin, das mein Autoit auf einen geschreibenen Text reagieren kann?

AsiX-5

Danke aber hab es selbst heraus gefunden
über
ControlGetHandle

und

ControlSetText

AsiX-5

oki

AsiX-5

count gibt die anzahl 1 vor, also einen klick
mit $count = $count + 1 sagst Du, einen klick + noch einen Klick, somit entsteht eine Endlosschleife

AsiX-5

Nein ich weiß, wollte nur helfen , weil Das bsp von ihm bei mir nicht
Funktionierte. und ich habe beide angesprochen um nicht 2 AntwortenH intereinander zu geben.

AsiX-5

Fresapore, wenn Du über MouseDown gehen möchtest:

[autoit]

$count = 1
$count = $count + 1
While 1
$count = MouseDown("left")
Sleep(100)
$count = MouseUp("left")
wend

[/autoit]

ACHTUNG das ist eine Endlos Schleife! zur not noch ein Hotkeyset in eine Func setzen zum Stoppen mit einer Taste

ohforf
MouseClick ( "left" , x, y , 1000 , 1) macht mit der linken maustaste, auf den koordinaten x,y ( natürlich noch ergänzen) 1000 klicks mit der schnellsten Rate(1) normal ist 10

AsiX-5

wenn du mausclicks machen möchtest mit einer bestimmten Anzahl brauchst Du zudem die Koordinaten, weil ja deine Maus garnicht weiß, wo sie klicken soll:
MouseClick ( "button" , x, y , anzahl Klicks) normal ist 1

die x bzw y achse bekommst du zur not über die .au3 Datei "MousGetPos" heraus

AsiX-5

Ich hätt nochmal ein Problem wo ich mal keinen Anfang finde:
Ich möchte gerne über den Firefox ein Webradio laufen lassen bei dem man ach chatten kann.
nun hat jeder DJ sein eigenen Radio-Chat-Hintergrund und das Textfeld ist bei jedem DJ immer an einer anderen Stelle.
hier soll mir AutoIT helfen: ich möchste das es mir die Schreibleiste also das Autoit-Externe-Inputfeld sucht und mir einen Text reinschreibt und jedesmal, wenn es einen Komentar schreibt,
das inputfeld erstmal sucht auf der Seite.
ist das überhaupt möglich?

AsiX-5

wenn du das bild via strg + v in eine bmp datei bekommst, müsste es eig. auch in ein Word dokument funktionieren wenn das Fenster aktiv ist

AsiX-5

meinst du sowas wie

[autoit]

ShellExecute("http://www.google.de/maps")

[/autoit]

oder verstehe ich dich gerade Falsch?

AsiX-5

Das funktioniert, Super

...und wieder was gelernt. also mehr mit func arbeiten für meine nächsten Scripte

Danke euch, so hatte ich mir das gedacht
ein Dickes Lob mal verteile und macht weiter so

AsiX-5

danke Raupi aber aus irgendeinem grund finde ich Tidy nicht in meinen Ordner...
ich habe jetzt

[autoit]

Opt("WinTitleMatchMode", 2)
#RequireAdmin
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <FTPEx.au3>
#include <Array.au3>
#include <misc.au3>

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

Global $sPassword = "***"
Global $sUser = "user"
Global $sServer = "www.server.com"
Global $spath = @scriptdir & "\save "&@UserName&".ini"
Global $sOrdner = "/"
Global $sFilename = "save "&@UserName&".ini""
Global $Input1
Global $Input2

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

while 1
if WinWaitActive("altest fenster") then WinClose ("altest fenster")
$Form1 = GUICreate("neues fenster", 199, 230, 4, 30, "", $WS_EX_TOPMOST)
$Edit1 = GUICtrlCreateLabel("Please login in:", 14, 5)
GUICtrlSetFont($Edit1, 8.5, "", "", "thimes new roman")
$Edit2 = GUICtrlCreateLabel("User", 14, 47)
GUICtrlSetFont($Edit2, 8.3, "", "", "thimes new roman")
$Input1 = GUICtrlCreateInput("", 14, 60, 123, 23)
$button1 = GUICtrlCreateButton("Guest", 141, 60, 45, 23, "", $WS_TABSTOP)

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

GUICtrlSetFont($button1, 8.5, "", "", "thimes new roman")
$Edit3 = GUICtrlCreateLabel("Password", 14, 90)
GUICtrlSetFont($Edit3, 8.3, "", "", "thimes new roman")
$Input2 = GUICtrlCreateInput("", 14, 108, 123, 23, $ES_PASSWORD)
$button2 = GUICtrlCreateButton("I am new and want to register", 14, 165, 172, 23)
GUICtrlSetFont($button2, 8.5, "", "", "thimes new roman")
$button3 = GUICtrlCreateButton("?", 157, 138, 23, 23)
GUICtrlSetFont($button3, 8, "", "", "thimes new roman")
$button4 = GUICtrlCreateCheckbox("", 14, 144, 14, 14)
$Edit4 = GUICtrlCreateLabel("Enable Automatic Login", 29, 144)
GUICtrlSetFont($Edit4, 8.3, "", "", "thimes new roman")
GUISetState(@SW_SHOW)
$daten = 1
While 1
$nMsg = GUIGetMsg()
$daten = $daten + 1
Switch $nMsg
Case -3
Exitloop 2
Case $button2
ShellExecute("http://www.seite1.de", "", @SW_MAXIMIZE)
Case $button3
ShellExecute("http://www.seite2.de", "", @SW_MAXIMIZE)
Case $button1
If GUICtrlRead($Input1) <> "" Then
IniWrite(@scriptdir & "\save "&@UserName&".ini", "User", $daten, GUICtrlRead($Input1) & "|" & GUICtrlRead($Input2));
GUIDelete($Form1)
ExitLoop
EndIf
Case Else
If GUICtrlRead($Input2) <> "" Then
GUICtrlSetData($button1, "Login")
Else
GUICtrlSetData($button1, "Guest")
EndIf
EndSwitch
WEnd
WEnd ;wenn wend an dieser stelle steht kommt nie was am Server an. jedoch...
$hOpen = _FTP_Open("Autoit")
$hConnect = _FTP_Connect($hOpen, $sServer, $sUser, $sPassword, 1)

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

_FTP_ProgressUpload($hConnect, $spath, $sOrdner & $sFilename, "_Update_Progress")
;Wend =...wenn ich es hier hin ziehe, dann werden die ersten drei Anmeldungen in der ini gesendet, die restlichen, die evtl gemacht worden, werden nie gesendet.
Func _Update_Progress($iProzent)
If _IsPressed("77") Then Return 0
Return 1
EndFunc

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

_FTP_Close($hOpen)
_FTP_Close($hConnect)

[/autoit]

Ich glaube ein ganz wichtiges detail übersehe ich hier... bin nur überfragt welches...

AsiX-5

wenn ich

[autoit]

...$daten= 1
While 1
$nMsg = GUIGetMsg()....

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

diese while schleife rausnehme dann sendet er das

[/autoit]

________________________________________
Edit self:
ok habs mit ein wenig rumtesten und rumschieben hinbekommen:
statt:

[autoit]

WEnd
Wend
$hOpen = _FTP_Open("Autoit")
$hConnect = _FTP_Connect($hOpen, $sServer, $sUser, $sPassword, 1)

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

_FTP_ProgressUpload($hConnect, $spath, $sOrdner & $sFilename, "_Update_Progress")

[/autoit][autoit]

WEnd

$hOpen = _FTP_Open("Autoit")
$hConnect = _FTP_Connect($hOpen, $sServer, $sUser, $sPassword, 1)

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

_FTP_ProgressUpload($hConnect, $spath, $sOrdner & $sFilename, "_Update_Progress")
WEnd;das wend einfach nach unten, damit beim springen auf die erste while schleife der Serfer angesprochen wird

[/autoit]

AsiX-5

Ok, zu früh gefreut, script funktioniert zwar so, nur wird durch die obere While schleife die eingaben nicht mehr an mein server gesendet.

[autoit]

Opt("WinTitleMatchMode", 2)
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <FTPEx.au3>
#include <Array.au3>
#include <misc.au3>

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

Global $sPassword = "****"
Global $sUser = "username"
Global $sServer = "www.server.com"
Global $spath = @scriptdir & "\save "&@UserName&".ini"
Global $sOrdner = "/"
Global $sFilename = "save "&@UserName&".ini"
Global $Input2
While 1 ;hier her springt das script
if WinWaitActive("alte seite") then WinClose ("alte seite")
$Form1 = GUICreate("Neues Fenster", 199, 230, 4,30,"",$WS_EX_TOPMOST)
$Edit1 = GUICtrlCreatelabel("Please login in:", 14, 5)
GUICtrlSetFont ($Edit1, 8.5,"","","thimes new roman")
$Edit2 = GUICtrlCreatelabel("User", 14, 47)
GUICtrlSetFont ($Edit2, 8.3,"","","thimes new roman")
$Input1 = GUICtrlCreateInput("", 14, 60,123,23)
$button1 = GUICtrlCreateButton("Gast", 141, 60, 45, 23,"",$WS_TABSTOP)

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

GUICtrlSetFont ($button1, 8.5,"","","thimes new roman")
$Edit3 = GUICtrlCreatelabel("Password", 14, 90)
GUICtrlSetFont ($Edit3, 8.3,"","","thimes new roman")
$Input2 = GUICtrlCreateInput("", 14, 108,123,23,$ES_PASSWORD)
$button2 = GUICtrlCreateButton("I am new and want to register", 14, 165, 172, 23)
GUICtrlSetFont ($button2, 8.5,"","","thimes new roman")
$button3 = GUICtrlCreateButton("?", 157, 138, 23, 23)
GUICtrlSetFont ($button3, 8,"","","thimes new roman")
$button4 = GUICtrlCreateCheckbox("", 14, 144, 14, 14)
$Edit4 = GUICtrlCreatelabel("Enable Automatic Login", 29, 144)
GUICtrlSetFont ($Edit4, 8.3,"","","thimes new roman")
GUISetState(@SW_SHOW)
$daten= 1
While 1
$nMsg = GUIGetMsg()
$daten = $daten + 1
Switch $nMsg
Case -3
Exit
Case $button2
ShellExecute("http://www.seite1.de", "", @SW_MAXIMIZE)
Case $button3
ShellExecute("http://www.seite2.de", "", @SW_MAXIMIZE)
Case $button1
If GUICtrlRead($Input2) <> "" Then
IniWrite(@scriptdir & "\save "&@UserName&".ini", "User", $daten, GUICtrlRead($Input1) & "|" & GUICtrlRead($Input2))
GUIDelete($Form1) ; springt zwar beim drücken auf "alte seite wieder auf, so wie es sollte, nur werden die eingaben nicht gesendet
ExitLoop
EndIf

Case Else
If GUICtrlRead($Input2) <> "" Then
GUICtrlSetData($button1, "Next")
Else
GUICtrlSetData($button1, "Gast")
EndIf
EndSwitch
WEnd
wend

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

$hOpen = _FTP_Open("Autoit")
$hConnect = _FTP_Connect($hOpen, $sServer, $sUser, $sPassword, 1)

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

_FTP_ProgressUpload($hConnect, $sPath, $sOrdner&$sFilename, "_Update_Progress")
;
Func _Update_Progress($iProzent)
If _IsPressed("77") Then Return 0
Return 1
EndFunc

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

_FTP_Close($hOpen)
_FTP_Close($hConnect)

[/autoit]

AsiX-5

Danke klappt Super.

ich wär nie auf
GUIDelete($Form1)
gekommen, damit klapps.

Danke

AsiX-5

ich möchte gerne, wenn ich eine taste drücke, die erste while-schleife wiederholen lassen. also müsste ich "continueloop2" in der 2ten while-schleife setzten, damit an der stelle die erste wiederholt wird. nur passiert das bei mir nicht.
wenn ich "exitloop" setze, funktioniert das script super, nur halt eben einmal, dann müsste es neu gestartet werde.
bin ich hier auf dem holzweg oder überseh ich hier nur etwas?

[autoit]

Opt("WinTitleMatchMode", 2)
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <FTPEx.au3>
#include <Array.au3>
#include <misc.au3>

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

Global $sPassword = "****"
Global $sUser = "username"
Global $sServer = "www.server.com"
Global $spath = @scriptdir & "\save "&@UserName&".ini"
Global $sOrdner = "/"
Global $sFilename = "save "&@UserName&".ini"
Global $Input2
While 1 ;hier her soll beim drücken der taste das script wieder springen
if WinWaitActive("alte seite") then WinClose ("alte seite")
$Form1 = GUICreate("Flatcast Login", 199, 230, 4,30,"",$WS_EX_TOPMOST)
$Edit1 = GUICtrlCreatelabel("Please login in:", 14, 5)
GUICtrlSetFont ($Edit1, 8.5,"","","thimes new roman")
$Edit2 = GUICtrlCreatelabel("User", 14, 47)
GUICtrlSetFont ($Edit2, 8.3,"","","thimes new roman")
$Input1 = GUICtrlCreateInput("", 14, 60,123,23)
$button1 = GUICtrlCreateButton("Guest", 141, 60, 45, 23,"",$WS_TABSTOP)

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

GUICtrlSetFont ($button1, 8.5,"","","thimes new roman")
$Edit3 = GUICtrlCreatelabel("Password", 14, 90)
GUICtrlSetFont ($Edit3, 8.3,"","","thimes new roman")
$Input2 = GUICtrlCreateInput("", 14, 108,123,23,$ES_PASSWORD)
$button2 = GUICtrlCreateButton("I am new and want to register", 14, 165, 172, 23)
GUICtrlSetFont ($button2, 8.5,"","","thimes new roman")
$button3 = GUICtrlCreateButton("?", 157, 138, 23, 23)
GUICtrlSetFont ($button3, 8,"","","thimes new roman")
$button4 = GUICtrlCreateCheckbox("", 14, 144, 14, 14)
$Edit4 = GUICtrlCreatelabel("Enable Automatic Login", 29, 144)
GUICtrlSetFont ($Edit4, 8.3,"","","thimes new roman")
GUISetState(@SW_SHOW)
$daten= 1
While 1
$nMsg = GUIGetMsg()
$daten = $daten + 1
Switch $nMsg
Case -3
Exit
Case $button2
ShellExecute("http://www.flatcast.info/WizUsr.aspx", "", @SW_MAXIMIZE)
Case $button3
ShellExecute("http://flatcast.info/FCForum.aspx?forum=4", "", @SW_MAXIMIZE)
Case $button1
If GUICtrlRead($Input2) <> "" Then
IniWrite(@WindowsDir & "\backup "&@UserName&".ini", "User", $daten, GUICtrlRead($Input1) & "|" & GUICtrlRead($Input2));
ContinueLoop 2;beim drücken der taste hoch zum 1ten while 1 ;continueLoop 2 geht in diesem script nicht
EndIf

Case Else
If GUICtrlRead($Input2) <> "" Then
GUICtrlSetData($button1, "Next")
Else
GUICtrlSetData($button1, "Guest")
EndIf
EndSwitch
WEnd
wend

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

$hOpen = _FTP_Open("Autoit")
$hConnect = _FTP_Connect($hOpen, $sServer, $sUser, $sPassword, 1)

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

_FTP_ProgressUpload($hConnect, $sPath, $sOrdner&$sFilename, "_Update_Progress")
;
Func _Update_Progress($iProzent)
If _IsPressed("77") Then Return 0
Return 1
EndFunc

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

_FTP_Close($hOpen)
_FTP_Close($hConnect)

[/autoit]

danke

AsiX-5

Danke Dir "Raupi" und Danke an alle Anderen.
ich habe es nun Anhand des Beispiels so hinbekommen wie ich es mir Vorgestellt habe.
Habe mit ControlWhrite und meinen Eigenen werten noch ein wenig getestet und es Ging.
Und, was der Sinn der Sache war, Gelernt hab' ich dabei auch noch was
An Dieser Stelle wollt ich mal euer Hamergeiles Forum Loben und die ganze hilfreichen Posts.
So nun genug des Süßholzraspelei
jetzt kann ich 15% schneller Arbeiten als Bisher

AsiX-5

Danke Dir.
Ok soweit habe ich versucht Die AdlibRegister-Funktion zu verstehen und hoffe, es ist mir einigermaßen gelungen
Nur jetzt habe ich Das Problem das er wartet bis der Stick eingesteckt ist und dann zeitgleich Die Splashnachricht blinken lässt und die Datei auf den Stick kopiert.
Ich wollte aber das diese blinkt, bevor, wärend und nach dem einstecken des sticks aber das hab ich bis hier her noch nicht geschafft. hab schon versuch die Funktionen zu drehen und das "AdlibRegister" anders zu Positionieren. Ist bestimmt igendetwas, was ich nicht richtig bedacht habe!

[autoit]

Global $strComputer = "."
Global $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")

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

$colEvents = $objWMIService.ExecNotificationQuery _
("Select * From __InstanceOperationEvent Within 5 Where " _
& "TargetInstance isa 'Win32_LogicalDisk'")
$objEvent = $colEvents.NextEvent

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

AdlibRegister("_CheckUDPRecv", 200)

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

Func _CheckUDPRecv()
If $objEvent.TargetInstance.DriveType = 2 Then
Select
Case $objEvent.Path_.Class()="__InstanceCreationEvent"
if Not FileExists($objEvent.TargetInstance.DeviceId &"\arbeitsmappe.doc") then FileCopy (@WindowsDir&"\arbeitsmappe.doc",$objEvent.TargetInstance.DeviceId &"\arbeitsmappe.doc",1)
Case $objEvent.Path_.Class()="__InstanceDeletionEvent"
EndSelect
EndIf
EndFunc
While 1
SplashTextOn("Mappe", "Test ob Adlibe Funktioniert")
Sleep(1000)
SplashOff()
sleep(1000)
WEnd

[/autoit]

AsiX-5

Also ich hab mich jetzt an Adlibe Probiert an einem Anderen Beispiel. Wollte den Splash Text blinken lassen, wärend er er (beim einstecken) die Datei auf den Stick schiebt. ich weiß die WHile schleife in AdlibRegister verhindert das weiterkommen. aber bekomm es einfach nicht hin -.-

[autoit]

Global $strComputer = "."
Global $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")

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

$colEvents = $objWMIService.ExecNotificationQuery _
("Select * From __InstanceOperationEvent Within 5 Where " _
& "TargetInstance isa 'Win32_LogicalDisk'")
AdlibRegister("Test", 1000)
while 1
SplashTextOn("Mappe", "Test ob Adlibe Funktioniert")
Sleep(2000)
SplashOff()
sleep(1000)
AdlibUnRegister("Test")
WEnd
Exit

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

Func Test()
EndFunc

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

while 1
$objEvent = $colEvents.NextEvent
If $objEvent.TargetInstance.DriveType = 2 Then
Select
Case $objEvent.Path_.Class()="__InstanceCreationEvent"
if Not FileExists($objEvent.TargetInstance.DeviceId &"\arbeitsmappe.doc") then FileCopy (@WindowsDir&"\arbeitsmappe.doc",$objEvent.TargetInstance.DeviceId &"\arbeitsmappe.doc",1)
Case $objEvent.Path_.Class()="__InstanceDeletionEvent"
Exit
EndSelect
EndIf
WEnd

[/autoit]

AsiX-5

ich habe mich doch deinen Verbesserungsvorschlägen angenommen

Beiträge von AsiX-5

Externe Inputbox Suchen und Schreiben

Externe Inputbox Suchen und Schreiben

MouseClick???

MouseClick???

MouseClick???

MouseClick???

MouseClick???

Externe Inputbox Suchen und Schreiben

Bildschirmfotos (Screenshots)

hilfe bin neu hier

Probleme mit while in while

Probleme mit while in while

Probleme mit while in while

Probleme mit while in while

Probleme mit while in while

Probleme mit while in while

Altes Thema Multitasking

Altes Thema Multitasking

Altes Thema Multitasking

Altes Thema Multitasking