Beiträge von Greek

[autoit]

_WordDocOpen

[/autoit]

gibt ganz viele befehle zu word guck sie dir an

ControlSetText hab ich jetzt nicht mit bewirken können aber opt sendkeydelay macht es viel schneller danke

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Für rewejo =)", 633, 447, 193, 125)
$Button1 = GUICtrlCreateButton("router", 104, 64, 137, 105, 0)
$Button2 = GUICtrlCreateButton("nero8", 400, 64, 137, 105, 0)
$Button3 = GUICtrlCreateButton("anno1701", 104, 232, 137, 105, 0)
$Button4 = GUICtrlCreateButton("router1", 400, 232, 137, 105, 0)
$Button5 = GUICtrlCreateButton("Exit", 272, 400, 89, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Run ( "C:\Dokumente und Einstellungen\Administrator.WINDOWSPC\Desktop\autoitskripte\router.exe" )
Case $Button2
;bla
Case $Button3
;bla
Case $Button4
;bla
Case $Button5
Exit

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

EndSwitch
WEnd

[/autoit]

Öh erklär noch ma Schritt für Schritt was du willst, ich Blick da nicht durch. Und wenn du noch blutiger Anfänger bist dann fang doch lieber mit was ganz einfachem an.

Gibts keine Möglichkeit das schneller zumachen??

Spoiler anzeigen

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 360, 196, 324, 255)
$Button1 = GUICtrlCreateButton("Code1", 48, 64, 105, 57, 0)
$Button2 = GUICtrlCreateButton("Code2", 208, 64, 105, 57, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
code()
Case $Button2
coden()
EndSwitch
WEnd

Func code()
$zahl = InputBox("Zahl", "Zahl eingeben")
$test = Round(InputBox("Zahl2", "Zahl bidde eingeben"), 0)
HotKeySet("{F1}", "_start")
EndFunc

While 1
Sleep(150)
WEnd

Func _start()
BlockInput(1)
If $test > 0 Then
For $lNum = 1 To $test
MouseClick("left")
Sleep(150)
Sleep(150)
Send("{DOWN}")
Send("{right}")
Sleep(150)
Send("{Enter}")
Sleep(150)
Send("{right}")
Sleep(150)
Send("{space}")
Sleep(150)
Send("(" & $zahl & "ms)")
Sleep(150)
Send("{Enter}")
Send("{UP}")
Next
BlockInput(0)
If MsgBox(68, "Fertig", "Fertig" & @LF & "Möchten Sie das Programm schliessen?") = 6 Then Exit 0
EndIf
EndFunc ;==>_start

Func coden()
$test = Round(InputBox("Wieviel?", "Wieviel"), 0)
HotKeySet("{F1}", "_start")
EndFunc

While 1
Sleep(150)
WEnd
Func _starten()
If $test > 0 Then
For $lNum = 1 To $test
MouseClick("left")
Sleep(150)
Sleep(150)
Send("{DOWN}")
Send("{right}")
Sleep(150)
Send("{Enter}")
Sleep(150)
Send("{DELETE}")
Sleep(150)
Send("{Enter}")
Sleep(150)
Send("{UP}")
Next
If MsgBox(68,"fertig","Fertig" & @LF & "Möchten Sie das Programm schliessen?") = 6 Then Exit 0
EndIf
EndFunc ;==>_start

Also folgendes war falsch:
- Du hast in einer Funktion eine andere Funktion reingemacht. Du musst mit Endfunc die erste Funtkion vorher abschließen bevor du die neue anfängst.
-Die Funktion _start hast du 2 mal drin gehabt. Die unterschiedlichen Funktionen müssen auch unterschiedliche Namen haben. Die 2 Funktion heißt nun _starten

Wenn du willst das eine Funktion auch eine andere Funktion noch abspielt muss du es so machen.

[autoit]

Func code()
$zahl = InputBox("Zahl", "Zahl eingeben")
$test = Round(InputBox("Zahl2", "Zahl bidde eingeben"), 0)
HotKeySet("{F1}", "_start")
_start () ;<<< So fühert er die Funktion _start noch in der Funktion Code aus. Vieleicht wolltest du das mit dem "verschachteln" erreichen
EndFunc

[/autoit]

Poste mal den error dann wissen wir auch in welche Zeile das problem liegt, aber tut mir Leid ich geh jetzt auf ne Party
hoffe dir kann noch jemand anderes helfen^^

Meinste so?

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 360, 196, 324, 255)
$Button1 = GUICtrlCreateButton("Code1", 48, 64, 105, 57, 0)
$Button2 = GUICtrlCreateButton("Code2", 208, 64, 105, 57, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
code()
Case $Button2
coden()
EndSwitch
WEnd

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

Func code()
;deine funktion
EndFunc

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

Func coden()
;deine funktion
EndFunc

[/autoit]

Also der Benutzer kann durch das Gui fenster auswählen welchen code er ausführen möchte , dein code muss jetzt noch in die Function code und den anderen in die function coden schreiben

les mal richtig die post durch.

Mit verkürzten sleeps geht es überhaupt nicht mehr!

Ich glaub ich brauch eine andere Lösung als Send.

y schneller senden das dauert zu lange , vl. nen andere befehlt als send oder so

- die sleeps darf ich net verkürzen dann geht das pro net mehr

geht das auch schneller?

ah cool danke es geht

? ich hab nix kompiliert

[autoit]

Func bla()
ControlSend ( "Diablo II", "", "", "{Enter} 0 W N 3 D{ENTER}" )
ControlSend ( "Diablo II", "", "", "{Enter} . . . . . ./´¯/{ENTER}")
ControlSend ( "Diablo II", "", "", "{Enter} . . . . . ./¯ ./ {ENTER}")
ControlSend ( "Diablo II", "", "", "{Enter} . .. . . ./. . / {ENTER}")
ControlSend ( "Diablo II", "", "", "{Enter} . ./´¯`/’. .’/¯`) {ENTER}")
ControlSend ( "Diablo II", "", "", "{Enter} ./’,/. ./. . /. ./¨/¯\\ {ENTER}")
ControlSend ( "Diablo II", "", "", "{Enter} (’.(. .´. . ´. .¯´/’. .’) {ENTER}")
ControlSend ( "Diablo II", "", "", "{Enter} .\\. . . . .\\ . . . . . . / {ENTER}")
ControlSend ( "Diablo II", "", "", "{Enter} . .\\. .\\. . . . . ._.•´ {ENTER}")
ControlSend ( "Diablo II", "", "", "{Enter} . . .\\. . . . . . . ( {ENTER}")
ControlSend ( "Diablo II", "", "", "{Enter} . . . .\\. . . . . . .\\ {ENTER}")
EndFunc

[/autoit]

Der gibt es Irgendwie falsch aus. Vorhin hat es noch Funktioniert. Jetzt sind Fragezeichen und so...

[Blockierte Grafik: http://img386.imageshack.us/img386/6430/gehtnetnk0.jpg]

Sicher das die datei im Schreib modus geöffnet wird?

Muss anstatt der 10 nicht eine 1 dahin??

ich glaub mit AdlibEnable kann man das problem lösen bin mir aber nicht sicher

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 304, 178, 316, 244)
$Button1 = GUICtrlCreateButton("Öffnen", 80, 56, 129, 81, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ShellExecute ( @ScriptDir & "\lol.txt" )

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

EndSwitch
WEnd

[/autoit]

mach ordner tu das script rein und die ein txt datei. bei shellexecute musst du den namen der text datei hinschreiben

[autoit]

#Include <Date.au3>
$rente = _DateDiff ('D',_NowCalc(),"2010/08/01 00:00:00")
MsgBox( 4096, "", "Tage bis zur Rente: " & $rente )

[/autoit]

Peethebee hat auch sowas geschrieben, habs aber gerade net gefunden schreib ihn mal an am besten.

Um eine Taste gedrückt zu lassen: (Brauchbar eigentlich nur für Spiele)
Send("{a down}") ;Hält die Taste A gedrückt
Send("{a up}") ;Löst das Gedrückt halten