Register for your free account! | Forgot your password?

Go Back   elitepvpers › Coders Den › AutoIt
[Help] AutoIt 3 Script funktioniert nicht [Help] AutoIt 3 Script funktioniert nicht
You last visited: Today at 10:30

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

[Help] AutoIt 3 Script funktioniert nicht

Discussion on [Help] AutoIt 3 Script funktioniert nicht within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 5
The Black Market: 8/0/0
Join Date: Jul 2009
Posts: 217
Received Thanks: 45
Question [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
einkeks95 is offline  
Old   #2
 
elite*gold: 20
The Black Market: 11/0/0
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.
kknb is offline  
Old   #3
 
sulak's Avatar
 
elite*gold: 30
The Black Market: 4/0/0
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
sulak is offline  
Old   #4
 
sulak's Avatar
 
elite*gold: 30
The Black Market: 4/0/0
Join Date: Apr 2009
Posts: 1,381
Received Thanks: 274
Quote:
Originally Posted by kknb View Post
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 
sulak is offline  
Old   #5
 
elite*gold: 20
The Black Market: 11/0/0
Join Date: Feb 2007
Posts: 3,080
Received Thanks: 4,294
verrückt.
kknb is offline  
Old   #6
 
elite*gold: 5
The Black Market: 8/0/0
Join Date: Jul 2009
Posts: 217
Received Thanks: 45
thx
einkeks95 is offline  
Reply

« Ikariam Einloggbotproblem | Dins pointers without [What writes to this address] »

Similar Threads 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 +2. The time now is 10:30.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.