|
You last visited: Today at 19:49
Advertisement
[Help] AutoIt 3 Script funktioniert nicht
Discussion on [Help] AutoIt 3 Script funktioniert nicht within the AutoIt forum part of the Coders Den category.
02/14/2010, 22:10
|
#1
|
elite*gold: 5 
Join Date: Jul 2009
Posts: 217
Received Thanks: 45
|
[Help] AutoIt 3 Script funktioniert nicht
hi,
habe ein Script geschrieben, aber irgendwie beendet sich das immer von selbst.
Script:
Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("macrophono Faker 1.0", 141, 932, 1118, 0)
$Input = GUICtrlCreateInput(" Telefonnummer:", 0, 280, 137, 24)
$Button = GUICtrlCreateButton("Start!", 24, 344, 97, 49, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Hotkey: F9", 40, 392, 68, 20)
GUISetState(@SW_SHOW)
Dim $GUI_AccelTable[1][2] = [["{F1}", $Button]]
GUISetAccelerators($GUI_AccelTable)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Input
Case $Button
GUICtrlRead ($Input)
Call ("read")
If $Url = "http://www.marcophono.net/flatrate_13_b.html" Then
MsgBox (1, "Anruf getätigt", "Anruf an die Nummer: & $Input & getätigt") Else
Call ("write")
EndIf
EndSwitch
WEnd
Func read()
Opt("WinTitleMatchMode", 2)
$Url = ControlGetText("Internet Explorer", "", "Edit1")
EndFunc
Func write()
MouseClick("left",33,85,1)
Sleep (50)
MouseClick("left",364,648,1)
Sleep (50)
Send($Input)
Sleep (50)
MouseClick("left",198,768,1)
EndFunc
hoffe ihr könnt mir helfen.
mfg. einkeks95
|
|
|
|
02/14/2010, 22:26
|
#2
|
elite*gold: 20
Join Date: Feb 2007
Posts: 3,080
Received Thanks: 4,294
|
du solltest erstmal lernen die fehlermeldungen die dir der compiler ausgibt zu verstehen und zu beheben..ka was der bot machen soll, habe nur die syntax fehler behoben.
Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("macrophono Faker 1.0", 141, 932, 1118, 0)
$Input = GUICtrlCreateInput(" Telefonnummer:", 0, 280, 137, 24)
$Button = GUICtrlCreateButton("Start!", 24, 344, 97, 49, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Hotkey: F9", 40, 392, 68, 20)
GUISetState(@SW_SHOW)
Dim $GUI_AccelTable[1][2] = [["{F1}", $Button]]
GUISetAccelerators($GUI_AccelTable)
#EndRegion ### END Koda GUI section ###
Global $url
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
GUICtrlRead($Input)
read()
If $url = "http://www.marcophono.net/flatrate_13_b.html" Then
Else
MsgBox(1, "Anruf getätigt", "Anruf an die Nummer :" & GUICtrlRead($Input) & "getätigt")
write()
EndIf
EndSwitch
Func read()
Opt("WinTitleMatchMode", 2)
$url = ControlGetText("Internet Explorer", "", "Edit1")
EndFunc ;==>read
Func write()
MouseClick("left", 33, 85, 1)
Sleep(50)
MouseClick("left", 364, 648, 1)
Sleep(50)
Send(guictrlread($Input))
Sleep(50)
MouseClick("left", 198, 768, 1)
EndFunc ;==>write
bitte.
|
|
|
|
|
02/14/2010, 22:27
|
#3
|
elite*gold: 30
Join Date: Apr 2009
Posts: 1,381
Received Thanks: 274
|
Du hast auch 7 Fehler drinen ist ja klar das es nicht klappt
Quote:
AutoIt3 Syntax Checker v1.54.8 Copyright (c) Tylo 2007
C:\Users\*\Desktop\k.au3(26,12) : WARNING: $Url: possibly used before declaration.
If $Url =
~~~~~~~~^
C:\Users\*\Desktop\k.au3(27,77) : ERROR: syntax error
MsgBox (1, "Anruf getätigt", "Anruf an die Nummer: & $Input & getätigt") Else
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\*\Desktop\k.au3(29,5) : ERROR: missing EndSwitch.
EndIf
^
C:\Users\*\Desktop\k.au3(26,65) : REF: missing EndSwitch.
If $Url = "http://www.marcophono.net/flatrate_13_b.html" Then
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~^
C:\Users\*\Desktop\k.au3(29,5) : ERROR: missing Wend.
EndIf
^
C:\Users\*\Desktop\k.au3(18,14) : REF: missing Wend.
Switch $nMsg
~~~~~~~~~~~~^
C:\Users\*\Desktop\k.au3(29,5) : ERROR: syntax error
EndIf
^
C:\Users\*\Desktop\k.au3(26,12) : ERROR: $Url: undeclared global variable.
If $Url =
~~~~~~~~^
C:\Users\*\Desktop\k.au3(25,16) : ERROR: read(): undefined function.
Call ("read")
~~~~~~~~~~~~^
C:\Users\*\Desktop\k.au3(28,18) : ERROR: write(): undefined function.
Call ("write")
~~~~~~~~~~~~~^
C:\Users\*\Desktop\k.au3 - 7 error(s), 1 warning(s)
>Exit code: 2 Time: 0.440
|
|
|
|
|
|
02/14/2010, 22:29
|
#4
|
elite*gold: 30
Join Date: Apr 2009
Posts: 1,381
Received Thanks: 274
|
Quote:
Originally Posted by kknb
du solltest erstmal lernen die fehlermeldungen die dir der compiler ausgibt zu verstehen und zu beheben..ka was der bot machen soll, habe nur die syntax fehler behoben.
Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("macrophono Faker 1.0", 141, 932, 1118, 0)
$Input = GUICtrlCreateInput(" Telefonnummer:", 0, 280, 137, 24)
$Button = GUICtrlCreateButton("Start!", 24, 344, 97, 49, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Hotkey: F9", 40, 392, 68, 20)
GUISetState(@SW_SHOW)
Dim $GUI_AccelTable[1][2] = [["{F1}", $Button]]
GUISetAccelerators($GUI_AccelTable)
#EndRegion ### END Koda GUI section ###
Global $url
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
GUICtrlRead($Input)
read()
If $url = "http://www.marcophono.net/flatrate_13_b.html" Then
Else
MsgBox(1, "Anruf getätigt", "Anruf an die Nummer :" & GUICtrlRead($Input) & "getätigt")
write()
EndIf
EndSwitch
Func read()
Opt("WinTitleMatchMode", 2)
$url = ControlGetText("Internet Explorer", "", "Edit1")
EndFunc ;==>read
Func write()
MouseClick("left", 33, 85, 1)
Sleep(50)
MouseClick("left", 364, 648, 1)
Sleep(50)
Send(guictrlread($Input))
Sleep(50)
MouseClick("left", 198, 768, 1)
EndFunc ;==>write
bitte. |
Du hast ein WEnd vergessen
PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("macrophono Faker 1.0", 141, 932, 1118, 0)
$Input = GUICtrlCreateInput(" Telefonnummer:", 0, 280, 137, 24)
$Button = GUICtrlCreateButton("Start!", 24, 344, 97, 49, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Hotkey: F9", 40, 392, 68, 20)
GUISetState(@SW_SHOW)
Dim $GUI_AccelTable[1][2] = [["{F1}", $Button]]
GUISetAccelerators($GUI_AccelTable)
#EndRegion ### END Koda GUI section ###
Global $url
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Input
Case $Button
GUICtrlRead($Input)
read()
If $url = "http://www.marcophono.net/flatrate_13_b.html" Then
Else
MsgBox(1, "Anruf getätigt", "Anruf an die Nummer :" & GUICtrlRead($Input) & "getätigt")
write()
EndIf
EndSwitch
WEnd
Func read()
Opt("WinTitleMatchMode", 2)
$url = ControlGetText("Internet Explorer", "", "Edit1")
EndFunc ;==>read
Func write()
MouseClick("left", 33, 85, 1)
Sleep(50)
MouseClick("left", 364, 648, 1)
Sleep(50)
Send(guictrlread($Input))
Sleep(50)
MouseClick("left", 198, 768, 1)
EndFunc ;==>write
|
|
|
|
|
02/14/2010, 22:37
|
#5
|
elite*gold: 20
Join Date: Feb 2007
Posts: 3,080
Received Thanks: 4,294
|
verrückt.
|
|
|
|
|
02/15/2010, 10:46
|
#6
|
elite*gold: 5
Join Date: Jul 2009
Posts: 217
Received Thanks: 45
|
thx
|
|
|
|
 |
Similar Threads
|
Autoit Script als nicht Autoit erkennbar machen
02/22/2013 - AutoIt - 22 Replies
Hallo
es haben wiele bestimmt schon gesehn das w0uter mal eine Anleitung gepostet hat wie man ein Autoit script so umbaut das es keins mehr ist.
Die anleitung ist aber leider weg :(
Dann habe ich mich selber rangesetz und was ausprobiert aber hat nichts gebracht.
Dann habe ich geguckt bis wohin sein script geht als ... (kA wie man das nent halt das im hex editor ganz links diese 0x zahlen) und davor habe ich ein ha genauso eins gemacht und verglichen.
Am anfang habe ich bemerkt es fengt...
|
AutoIt funktioniert nicht in WR
08/19/2010 - AutoIt - 6 Replies
Hallo,
ich wollt mal aus Spass einen kleinen Bot für WR machen, ganz einfach, dass der Charakter losgeht und iwas macht.
Aber egal was ich mache, z. B. MouseDown ("left") damit er schießt, im Spiel passiert nicht, auf dem Desktop funktionierts einwandfrei...
Auch wenn ich z. B. einen Spammer machen will, der in der Lobby schreibt, passiert nichts, auf Desktop wie gesagt einwandfrei.
Also was muss ich machen?
|
kleines autoit script funktioniert nicht
06/07/2010 - AutoIt - 5 Replies
Hallo, ich versuche jetzt seit ca 1 oder 2 stunden dieses dämliche script zum laufen zu bringen was einfach nicht funktioniert -.- es lässt sich auch compilieren aber öffnet sich dann einfach nicht :facepalm: hier mal der source teilweise
#include <IE.au3>
HotKeySet ("{F8}", "_start")
HotKeySet ("{F9}", "_ende")
HotKeySet ("{F7}", "pause")
Func pause()
MsgBox (0, "lol", "Bot wurde Angehalten!")
|
Bei mir funktioniert das Löschcode nicht. Er hat mal funktioniert
01/07/2010 - Metin2 Private Server - 0 Replies
Hi. Also auf mienem PServer geht das mit dem Löschcode nicht. Kann mir jemand sagen warum? Ich weiß noch das es mal ging.
Aber den Spieler in der Datenbank löschen geht nicht weil da diser lvl 0 charackter bleibt und ich nciht weiß wie man den weg kriegt
Bitte kan mir jemand helfen.
|
All times are GMT +1. The time now is 19:50.
|
|
![[Help] AutoIt 3 Script funktioniert nicht](https://www.elitepvpers.com/forum/iconimages/autoit/help-autoit-3-script-funktioniert-nicht_ltr.gif){kind=small}
