|
You last visited: Today at 10:11
Advertisement
Was stimmt hier nicht?
Discussion on Was stimmt hier nicht? within the AutoIt forum part of the Coders Den category.
10/25/2011, 16:46
|
#1
|
elite*gold: 0
Join Date: Oct 2011
Posts: 43
Received Thanks: 0
|
Was stimmt hier nicht?
Ich hab ein großes problem. Folgendes Skript habe ich jetzt zusammengetüftelt:
$dateiname = "dateiname.endung"
Run ("c:\Programme\Outlook Express\msimn.exe")
Sleep (1500)
ControlSend("Posteingang","", "[CLASS:ToolbarWindow32; INSTANCE:3]", "{!}")
ControlSend("Posteingang","", "[CLASS:ToolbarWindow32; INSTANCE:3]", "X")
ControlSend("Posteingang","", "[CLASS:ToolbarWindow32; INSTANCE:3]", "U")
ControlSend("Posteingang","", "[CLASS:ToolbarWindow32; INSTANCE:3]","{Down}")
ControlSend("Posteingang","", "[CLASS:ToolbarWindow32; INSTANCE:3]","{Down}")
ControlSend("Posteingang","", "[CLASS:ToolbarWindow32; INSTANCE:3]","{Down}")
ControlSend("Posteingang","", "[CLASS:ToolbarWindow32; INSTANCE:3]","{Enter}")
Sleep (1500)
$neuenachrichtpruefen = PixelGetColor (112,333)
If Not $neuenachrichtpruefen <> 0x0000FF Then
Do
Sleep (20000)
ControlSend("Posteingang","", "[CLASS:ToolbarWindow32; INSTANCE:3]", "{!}")
ControlSend("Posteingang","", "[CLASS:ToolbarWindow32; INSTANCE:3]", "X")
ControlSend("Posteingang","", "[CLASS:ToolbarWindow32; INSTANCE:3]", "U")
ControlSend("Posteingang","", "[CLASS:ToolbarWindow32; INSTANCE:3]","{Down}")
ControlSend("Posteingang","", "[CLASS:ToolbarWindow32; INSTANCE:3]","{Down}")
ControlSend("Posteingang","", "[CLASS:ToolbarWindow32; INSTANCE:3]","{Down}")
ControlSend("Posteingang","", "[CLASS:ToolbarWindow32; INSTANCE:3]","{Enter}")
Sleep (1000)
$neuenachrichtpruefen = PixelGetColor (112,333)
Until $neuenachrichtpruefen = 0x0000FF
Else
;Teil1
Sleep (100)
Sleep (90)
MouseClick ("left",73,358)
Sleep (70)
MouseClick ("left",1257,322)
Sleep (200)
MouseClick ("left",1184,389)
Send ("{enter}")
Sleep (100)
Send ("{left}")
Sleep (100)
Send ("{enter}")
Sleep (100)
MouseClick ("left",357,165)
Sleep (100)
Send ("{Delete}")
Sleep (100)
Send ("{left}")
Sleep (100)
Send ("{enter}")
ProcessClose ("msimn.exe")
Sleep(100)
;Teil2
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <sound.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 223, 80, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 0, 0, 75, 25)
$Button2 = GUICtrlCreateButton("Button2", 72, 24, 75, 25)
$Button3 = GUICtrlCreateButton("Button3", 144, 48, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#region Global
Global $beenden=0
#endregion
$sound= SoundPlay(@MyDocumentsDir & "\Programmieren\AutoIT\song.wav", 0)
;Teil2 ende
;Teil3
Run ("Programm")
WinWaitActive ("Programm")
MouseClick ("left",394,415)
Sleep (1500)
Send ($dateiname)
Sleep (100)
Send ("{enter}")
Sleep (1200)
MouseClick ("left", 722,391)
Sleep (1000)
MouseClick ("left",600,766)
;Teil3 Ende
;Teil2 weiter
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$beenden+=1
Case $Button2
$beenden+=1
Case $Button3
$beenden+=1
EndSwitch
If $beenden=3 Then
_SoundClose($sound)
Exit
EndIf
If _SoundPos($sound,2)>= _SoundLength($sound ,2) Then
_SoundPlay($sound ,0)
EndIf
WEnd
EndIf
Leider erscheint immer eine Fehlermeldung, welche sich auf "include" Dateien bezieht.
Ich habe schon versucht alle "Teile" in einzelne Funktionen zu packen. Leider ohne Erfolg.
Wo liegt das Problem?
Außerdem: wie muss ein "ControlClick" Befehl aussehen, wenn ich auf einen bestimmten Punkt (x,y) klicken will?
Ich hoffe ihr könnt mir helfen!
Danke schonmal im Vorraus!
|
|
|
10/25/2011, 17:43
|
#2
|
elite*gold: 70
Join Date: Jul 2011
Posts: 496
Received Thanks: 194
|
Verschieb die ganzen Includes mal nach ganz oben, wenn es noch nicht klappt beschreib dein Problem näher.
|
|
|
10/25/2011, 18:39
|
#3
|
elite*gold: 0
Join Date: Oct 2011
Posts: 43
Received Thanks: 0
|
hey! Super vielen Dank! War ja klar, dass es so eine einfache lösung gibt. ich bin halt doch noch ein ziemlicher anfänger!
Aber: Weißt du vielleicht, wie ein "ControlClick" Befehl aussehen muss, wenn ich auf einen bestimmten Punkt (x,y) klicken will? Kannst du mir dazu vielleicht ein kurzes Beispiel geben?
|
|
|
10/25/2011, 18:50
|
#4
|
elite*gold: 0
Join Date: Nov 2009
Posts: 221
Received Thanks: 71
|
Code:
ControlClick ( "title", "text", controlID [, button [, clicks [, x [, y ]]]] )
Tipp: wen du F1 drückst öffnet sich die hilfe in der die meisten Befehle mit Beispiel und Syntax aufgelistet sind
|
|
|
10/25/2011, 19:06
|
#5
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,254
|
ControlClick("Posteingang","", "[CLASS:ToolbarWindow32; INSTANCE:3]", "left", 1, 123, 123)
|
|
|
10/25/2011, 21:05
|
#6
|
elite*gold: 0
Join Date: Oct 2011
Posts: 43
Received Thanks: 0
|
hoppla. Jetzt wollte ich die koordinaten eintragen, allerdings gibt es im benötigtem programmfenster keine ControlIDs. Ich finde mit dem AUTOIT info tool keine koordinaten und auch keine anderen Control-Infos.
Was kann ich tun?
Danke!
|
|
|
10/25/2011, 23:12
|
#7
|
elite*gold: 0
Join Date: Nov 2009
Posts: 221
Received Thanks: 71
|
Versuch es mal mit Spy++ von Microsoft das ist kostenlos und sehr gut, nachdem man es verstanden hat
(ich habs auch noch nicht richtig drauf)
|
|
|
|
Similar Threads
|
Was stimmt hier nicht bitte um Hilfe
08/20/2011 - WarRock - 1 Replies
#include <windows.h>
#include <stdio.h>
#define Playerpointer 0x00C7D918
#define Serverpointer 0x00B78290
#define Speed 0x0099BAD4
int Telx = 1;
int Tely = 1;
int Telz = 1;
|
Was stimmt hier nicht?
03/25/2011 - AutoIt - 3 Replies
Also ich habe mal wieder angefangen Hacks zu machen, naja zumindest versuche ich es ^^. Dass ich mich wieder auskenne, habe ich einen Solitaire hack gemacht aber das Progi geht immer zu wenn ich "Hack" drücke hier der code:
#include <NomadMemory.au3>
#RequireAdmin
#include <GUIConstants.au3>
Global $Open = _MemoryOpen(ProcessExists("Solitaire.exe" ;))
Global $Pointer = 0x01A850D4
Global $Offset =
#Region ### START Koda GUI section ### Form=
|
Was stimmt hier nicht SYSERR!
10/09/2010 - Metin2 Private Server - 3 Replies
was stimmt hier nicht.
|
Was stimmt hier nicht?
07/06/2010 - AutoIt - 4 Replies
Hi, ich habe schon alles probiert, aber was stimmt hier nicht?
$File_Lang = FileOpen($Path & "\Air\locale.properties",2)
FileSetAttrib($Path & "\Game\DATA\CFG\game.cfg", "-R")
IniWrite($Path & "\Game\DATA\CFG\game.cfg", "General", "LanguageLocaleRegion", $Lang)
FileSetAttrib($Path & "\Air\locale.properties","-R")
FileWrite($File_Lang,"locale=" & $Lang)
FileClose($File_Lang)
$File_Lang_Read = FileOpen($Path & "\Air\locale.properties")
|
All times are GMT +2. The time now is 10:11.
|
|