ach so ja gerne:
das hauptpogramm:
Code
Run("calc.exe")
Run("notepad.exe")
Run("C:\Programme\Internet Explorer\IEXPLORE.EXE")
WinWait("Google - Microsoft Internet Explorer", "")
Sleep(2000)
ControlClick("Google - Microsoft Internet Explorer", "", "Edit1")
Sleep(1000)
Send("https://www.clickoptions.com/web/turbos.do;jsessionid=D7BBC7C533BC4CDABA7B59E9C0BBAC1E?pc=2&idmenu=1&idssmenu=0&flash=yes&lang=de&country=AT&dt=2006032011:33:52")
Send("{ENTER}")
Sleep(5000)
WinWait("ClickOptions: turbo-clicks - Microsoft Internet Explorer","Fertig")
WinSetState ("ClickOptions: turbo-clicks - Microsoft Internet Explorer","Fertig", @SW_MAXIMIZE)
Sleep(5000)
AutoItSetOption ( "MouseCoordMode", 0)
MouseClick ( "left", 830, 162 , 1)
Send("benutzername")
Send("{TAB}")
Sleep(2000)
Send("passwort")
Send("{ENTER}")
Sleep(2000)
MouseClick ("left", 391, 240, 1)
Sleep(5000)
MouseClick ("left", 417, 512, 16)
MouseClick ("left", 272, 511, 1)
MouseClick ("left", 887, 527, 1)
Sleep(3000)
RunWait("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\kopierprogramm.exe")
Exitdas "kopierprogramm":
Code
#include <Date.au3>
$Zaehler = 0
Do
Sleep(25000)
WinActivate("ClickOptions: turbo-clicks - Microsoft Internet Explorer")
WinWait("ClickOptions: turbo-clicks - Microsoft Internet Explorer")
Send("{F5}")
Sleep(500)
Send("{Enter}")
WinWait("ClickOptions: turbo-clicks - Microsoft Internet Explorer","Fertig")
sleep(1000)
MouseMove( 384, 611) ;markierung anfang
MouseDown("left")
MouseMove( 335, 612)
MouseUp("left") ;markierung ende
Send("^c")
Sleep(1500)
MouseMove( 384, 611)
MouseClick("left") ;demarkieren
Sleep(1500)
WinActivate ("Rechner")
Sleep(500)
Send("^v")
Sleep(500)
Send("^c")
WinActivate("Unbenannt - Editor")
Sleep(1500)
Send("^o")
Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\a.txt")
Send("{Enter}")
WinWaitActive("a - Editor")
WinSetState ("a - Editor","", @SW_MAXIMIZE)
Sleep(1000)
MouseClick("left", 5, 55)
Sleep(1000)
Send("{Enter}")
MouseClick("left", 5, 55)
Send("^v") ;in notepad schreiben
Sleep(1000)
MouseClick("left", 5, 55)
Sleep(1000)
Send("{Enter}")
MouseClick("left", 5, 55)
Send(" um ")
Send( _NowTime())
Send(" Uhr")
Sleep(500)
MouseClick("left", 1017, 14)
Sleep(1000)
Send("{Enter}")
RunWait("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\vergleicherprogramm.exe")
$Zaehler = $Zaehler + 1
Until $Zaehler = 100
Exitund dann noch den vergleicher:
C
$Zaehler = 0
#include <Math.au3>
$file = FileOpen("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\a.txt", 0)
$file2 = FileOpen("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\bs.txt", 0)
$file3 = FileOpen("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\bl.txt", 0)
; Check if file opened for reading OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
EndIf
$line1 = FileReadLine($file, 2)
$line2 = FileReadLine($file, 4)
$line3 = FileReadLine($file, 6)
$line4 = FileReadLine($file, 8)
$linebs = FileReadLine($file2, 1)
$linebl = FileReadLine($file3, 1)
If FileExists("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\short.txt") And $line1 > $line2 And $line1 > $linebs Then
Run("notepad.exe")
Sleep(1500)
Send("^o")
Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\a.txt")
Send("{Enter}")
WinWaitActive("a - Editor")
WinSetState ("a - Editor","", @SW_MAXIMIZE)
Sleep(1000)
MouseClick("left", 223, 58)
Send(" ausstieg short")
MouseClick("left", 1017, 14)
Sleep(1000)
Send("{Enter}")
Run("notepad.exe")
Sleep(1500)
Send("^o")
Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\bs.txt")
WinSetState ("bs - Editor","", @SW_MAXIMIZE)
Send("^a")
Send("{ESC}")
MouseClick("left", 1017, 14)
Sleep(1000)
Send("{Enter}")
FileDelete("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\short.txt")
EndIf
If FileExists("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\long.txt") And $line1 < $line2 And $line1 < $linebl Then
Run("notepad.exe")
Sleep(1500)
Send("^o")
Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\a.txt")
Send("{Enter}")
WinWaitActive("a - Editor")
WinSetState ("a - Editor","", @SW_MAXIMIZE)
Sleep(1000)
MouseClick("left", 223, 58)
Send(" ausstieg long")
MouseClick("left", 1017, 14)
Sleep(1000)
Send("{Enter}")
Run("notepad.exe")
Sleep(1500)
Send("^o")
Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\bl.txt")
WinSetState ("bl - Editor","", @SW_MAXIMIZE)
Send("^a")
Send("{ESC}")
MouseClick("left", 1017, 14)
Sleep(1000)
Send("{Enter}"
FileDelete("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\long.txt")
EndIf
; Read in lines of text until the EOF is reached
If $line1 < $line2 And $line1 < $line3 And Not FileExists ("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\short.txt")Then
Run("notepad.exe")
Sleep(1500)
Send("^o")
Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\a.txt")
Send("{Enter}")
WinWaitActive("a - Editor")
WinSetState ("a - Editor","", @SW_MAXIMIZE)
Sleep(1000)
MouseClick("left", 223, 58)
Send(" einstieg short")
MouseClick("left", 1017, 14)
Sleep(1000)
Send("{Enter}")
Run("notepad.exe")
Sleep(1500)
Send("^v")
Send("^s")
Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\short.txt")
Send("{Enter}")
Sleep(1000)
ProcessClose("notepad.exe")
EndIf
If $line1 > $line2 And $line1 > $line3 And Not FileExists ("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\long.txt")Then
Run("notepad.exe")
Sleep(1500)
Send("^o")
Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\a.txt")
Send("{Enter}")
WinWaitActive("a - Editor")
WinSetState ("a - Editor","", @SW_MAXIMIZE)
Sleep(1000)
MouseClick("left", 223, 58)
Sleep(1000)
Send(" einstieg long")
MouseClick("left", 1017, 14)
Sleep(1000)
Send("{Enter}")
Run("notepad.exe")
Sleep(1500)
Send("^v")
Send("^s")
Send("C:\Dokumente und Einstellungen\Administrator\Desktop\clickoption\daxstand\long.txt")
Send("{Enter}")
Sleep(1000)
ProcessClose("notepad.exe")
$Zaehler = $Zaehler + 1
EndIf
FileClose($file)
wie man sieht hab ich auch etwas aus den vorlagen rauskopiert. tja wieso selber schreiben wenns andere schon gemacht haben 
schicken möcht ichs nicht, da ja benutzername und pw auch drin ist. sorry, aber hab da ziemlich viel geld drauf...
mfg oernzz
€:hab noch n kleinen schönheitsfehler gefunden, ist schon beseitigt!
€2:nein! hab noch n fehler gefunden...der vergleicher sollte eigentlich nur ne meldung schreiben wenn
a: die 1te zahl kleiner ist als die 2te und die 2te kleiner ist als die 3te
b: die 1te grösser als die 2te und die 2te grösser als die 3te
ist. macht er aber nicht, im reichts wenn bei a die 1te kleiner als die 3te ist und bei b die 1te grösser als die 3te ist. naja dann kommt jetzt die "bug-beseitigung"!
für ideen bin ich immer offen
