Ich und mein "Need Help" Thread

Tekumi

[COLOR="DarkOrange"]Hallo,

würde hier gerne alle meine Fragen bezüglic Autoit posten, falls das in Ordnung ist.

1. Frage:

<Browser>
#510940 - Pastie

Wenn ich auf den Button GodLikerZ klicke, passiert nix. Ebenso bei Riding Cloud Button.

2. Frage:

Kann mir jemand aus diesem Code die Fehler rausbauen?:

#510942 - Pastie

Möchte damit üben, geht aber leider nicht mit Fehlern ^^.

[/COLOR]

internetfreak

zu 2.
kann es sein, dass du das script aus i*g*m*ers hast?
denn es kommt mir bekannt vor
habe dort ein script für nen musicplayer veröffentlicht
und nun muss ich wohl meine eigenen fehler ausbessern
naja ich bin sozial und machs
guck in 1-2 min auf deinen code und dann is er verbessert

EDIT: is nun verbessert. sind eig meine fehler die ich eingebaut habe, weil die leute, die dieses script sich nehmen, sollten die fehler eig selbst finden
aber ich bin mal sozial
deswegen hab ich sie ausgebessert
waren soweit eig nur syntaxfehler

EDIT2: der browser kommt mir auch sehr bekannt vor, auch wenn dort nun teilweise godlikerz steht.
habe soweit alle fehler bis aufs gui_event_close geändert
bei dem hab ich auch grad ka

Tekumi

Zum ersten Absatz: Ja, das ist dein Musik player, nur wollte ich halt mal damit üben, hab dann aber festgestellt dass dort ja Fehler drin sind ;). Und da ich erst vor kurzem angefangen habe mit Autoit, wollte ich damit üben.

Zu Edit2: Das ist die Lernsource von Kasoki, ich habe

While 1
....
WEnd

kopiert, den Rest selber ausm Kopp geschrieben.

Danke dir schonmal, nur wo is der Code? x)

ELiMINATOR

zum browser
in der while schleife steht 2 mal $GUI_EVENT_CLOSE
und aus

Code

Case $Godlikerz
            _IENavigate ($GL)

musst du

Code

Case $Godlikerz
            _IENavigate ($Embedded, $GL)

machen kann grad nicht testen sollte aber funken ^^

Tekumi

Exit funktioniert nun. Wenn ich das

Zitat

Cas $Godlikerz
_IENavigate ($Embedded, $GL)

mache, öffnet sich die Seite Microsoft Webbrowser-Steuerelement - Bing

im Internetexplorer und in meinem Browser passiert nix.

PS: Ich schreibe grad von meinem Browser :)

Tekumi

Bump it to the top.

ELiMINATOR

ich weiß ezz nicht warum dein browser nicht funkt kann auch nicht testen weil mein bildschirm zu klein ist xD aber hier

C

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


$Embedded = _IECreateEmbedded()
$home = "google.de"


$Form1 = GUICreate("Form1", 546, 441, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 353, 21)
$Button1 = GUICtrlCreateButton("go", 368, 8, 41, 21, $WS_GROUP)
$Button2 = GUICtrlCreateButton("seite1", 416, 8, 57, 21, $WS_GROUP)
$Button3 = GUICtrlCreateButton("seite2", 480, 8, 57, 21, $WS_GROUP)
GUICtrlCreateObj($Embedded , 8 , 40 , 529 , 393)
GUISetState(@SW_SHOW)


_IENavigate ($Embedded , $Home)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


		Case $Button1
			_IENavigate ($Embedded , GUICtrlRead($Input1))
		Case $Button2
			_IENavigate ($Embedded , "www.godlikerz.de")
		Case $Button3
			_IENavigate ($Embedded , "pastie.org")
	EndSwitch
WEnd

Alles anzeigen

das funkt 100%ig habs grade ebend schnell gemacht und getestet muss 100% funken ^^

Tekumi

Code

C

;==========Einbinden==========;
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>


;=========Definition========;
$Embedded = _IECreateEmbedded()
$Home     = "www.godlikerz.de"


;===========Form===========;
$Form1      = GUICreate ("Webbrowser by Tekumi" , 1700, 1200, 500, 500)
GUICtrlCreateObj ($Embedded , 3 , 3 , 1694 , 1000)
$Go          = GUICtrlCreateButton ("Los" , 5, 1160, 169, 33, 0)
$URL         = GUICtrlCreateInput  ("" , 3, 1135, 994, 21)
$HomeButton  = GUICtrlCreateButton ("Home" , 170, 1160, 169, 33, 0)
$Godlikerz   = GUICtrlCreateButton ("Godlikerz" , 330 , 1160 , 169 , 33 , 0)
$Ingamers    = GUICtrlCreateButton ("InGamers" , 490 , 1160 , 169 , 33 , 0)
$Google      = GUICtrlCreateButton ("Google" , 650 , 1160 , 169 , 33 , 0)
GUISetState (@SW_SHOW)


_IENavigate ($Embedded , $Home)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Go
			_IENavigate($Embedded, GUICTRLREAD($URL))
		Case $HomeButton
			_IENavigate($Embedded, $Home)
			GUICtrlSetData($URL, $Home)
		Case $Godlikerz
            _IENavigate ($Embedded , "www.godlikerz.de")
        Case $Ingamers
		    _IECreate ($Embedded , "www.ingamers.de")
		Case $Google
            _IECreate ($Embedded , "www.google.de")
	EndSwitch
WEnd

Alles anzeigen

Ja, die Kommentare sind von mir ^^

So, nun zum eigentlichen Problem. Wie immer, wenn ich auf den Button klicke (egal welcher), öffnet sich INTERNET EXPLORER und geht auf die Seite www .bling. com und sucht da irgendwas.

ôo

Wenn ich allerdings deinen Code Copy & Paste nehme, funktionierts ôo

Edit:

Code

C

;==========Einbinden==========;
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>


;=========Definition========;
$Embedded = _IECreateEmbedded()
$Home     = "www.godlikerz.de"


;===========Form===========;
$Form1      = GUICreate ("Webbrowser by Tekumi" , 1700, 1200, 500, 500)
GUICtrlCreateObj ($Embedded , 3 , 3 , 1694 , 1000)
$Go          = GUICtrlCreateButton ("Los" , 5, 1160, 169, 33, 0)
$URL         = GUICtrlCreateInput  ("Addresse eingeben" , 3, 1135, 994, 21)
$HomeButton  = GUICtrlCreateButton ("Home" , 170, 1160, 169, 33, 0)
$Godlikerz   = GUICtrlCreateButton ("GodLikerZ" , 330 , 1160 , 169 , 33 , 0)
$Ingamers    = GUICtrlCreateButton ("InGamers" , 490 , 1160 , 169 , 33 , 0)
$Google      = GUICtrlCreateButton ("GooGle" , 650 , 1160 , 169 , 33 , 0)
GUISetState (@SW_SHOW)


_IENavigate ($Embedded , $Home)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Go
			_IENavigate ($Embedded, GUICTRLREAD($URL))
		[COLOR="Red"]Case ("{ENTER}")
			_IENavigate ($Embedded , GUICtrlRead($URL))[/COLOR]
		Case $HomeButton
			_IENavigate ($Embedded, $Home)
			GUICtrlSetData ($URL, $Home)
		Case $Godlikerz
            _IENavigate ($Embedded , "www.godlikerz.de")
        Case $Ingamers
		    _IECreate ($Embedded , "www.ingamers.de")
		Case $Google
            _IECreate ($Embedded , "www.google.de")
	EndSwitch
WEnd

Alles anzeigen

Wenn ich nun Addresse eingebe und Enter drücke, dann kommt zwar die Seite Google, aber hat so Zuckungen und wenn ich im Suchfeld nen Buchstaben schreibe, wird der direkt wieder gelöscht.

$Zuckungen = "Grauer_Schimmer_Flackert_Oft_Auf"

ELiMINATOR

das liegt warscheinlich alles daran das du eig nur den ie einbindest
kp worans liegt und hab grad keine zeit zum testen ^^
ich gucke morgen mal das ich das problem finde ^^

xDrago

Labert keinen Mist ist doch ganz Simple

Vorher:

Zitat

;==========Einbinden==========;
#include <IE.au3>
#include <GUIConstants.au3>
;=========Definition========;
$Embedded = _IECreateEmbedded ()
$Home = "http://www.godlikerz.de"
$GL = "http://www.godlikerz.de"
;===========Form===========;
$Form1 = GUICreate ("Webbrowser by Tekumi" , 1700, 1200, 500, 500)
GUICtrlCreateObj ($Embedded , 3 , 3 , 1694 , 1000)
$Go = GUICtrlCreateButton ("Los" , 5, 1160, 169, 33, 0)
$URL = GUICtrlCreateInput ("" , 3, 1135, 994, 21)
$HomeButton = GUICtrlCreateButton ("Home" , 170, 1160, 169, 33, 0)
$Godlikerz = GUICtrlCreateButton ("Godlikerz" , 330 , 1160 , 169 , 33 , 0)
$RidingCloud = GUICtrlCreateButton ("RidingCloud" , 650 , 1160 , 169 , 33 , 0)
GUISetState (@SW_SHOW)
_IENavigate ($Embedded , $Home)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Go
_IENavigate($Embedded, GUICTRLREAD($URL))
Case $HomeButton
_IENavigate($Embedded, $Home)
GUICtrlSetData($URL, $Home)
Case $GUI_EVENT_CLOSE ;Funktioniert nicht
EXIT;Funktioniert nicht
Case $Godlikerz;Funktioniert nicht
_IENavigate ($GL);Funktioniert nicht
EndSwitch
WEnd

Alles anzeigen

Nacher:

Zitat

#Include <IE.Au3> ;Includet eure IE datei unter C:/Programme/AutoIt3/Include
#include <GUIConstants.au3>

$Embedded = _IECreateEmbedded ()
$Home = "http://godlikerz.de" ;Home Seite
$Form1 = GUICreate("Browser", 850, 500, 193, 125)
GUICtrlCreateObj($Embedded, 16, 8, 777, 361)
$Go = GUICtrlCreateButton("Go", 16, 416, 169, 33, 0);<== Go
$URL = GUICtrlCreateInput("", 16, 384, 777, 21)
$HomeButton = GUICtrlCreateButton("Home", 624, 416, 169, 33, 0)
GUISetState(@SW_SHOW)
_IENavigate ($Embedded, $Home)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Go
_IENavigate($Embedded, GUICTRLREAD($URL)) ;Wechselt zur eingegebenen URL
Case $HomeButton
_IENavigate($Embedded, $Home)
GUICtrlSetData($URL, $Home) ;Wechselt zur gespeicherten Home Seite
EndSwitch
WEnd

Alles anzeigen

Script ist etwas verändert kannst ja alles umbennen ist doch simple :)
Achte auf Variablen und Vorherige Befehle :)

Tekumi

Tja, feine Sache, aber hast du das Problem gelesen?^^

Wenn ich den Button GODLIKERZ oder GOOGLE drücke, öffnet sich Internet Explorer und geht auf die Seite http://www.bling.com ...

xDrago

Du nimmst ja auch _IECreate muss aber _IENavigate sein
Schau dir doch mein Script an ;)

Tekumi

UMQ >.< Zu schnell Enter gedrückt.

Tja, neues Problem, der Browser geht zwar auf die Seite, aber nach einer Sekunde geht er auf http://www.bling.com. Im Sekundentakt flackert dann der Browser :)

Ich glaub Browser hör ich auf, is eh lahm^^.

Got New Problem:

Code

#include <GUIConstants.au3>;öffnet die Includes


HotKeySet("{Esc}" , "_Exit") ;Hier der HotKey...


Func _Exit()
Exit
EndFunc


ProcessWait("hamachi.exe" or "firefox.exe")
GUICreate("Text Spammer",110,33);Öffnet sich eine GUI ACHTUNG: Das Braucht Man Immer!!
$Pic = GuiCtrlCreatePic("mybutton.jpg",0,0,110,33) ;Erzeugt ein Bild
GUISetState(@SW_SHOW);Zeigt die GUI


While 1;Dauerschleife 2
    $nMsg=GUIGetMsg();Gibt Ereignisse zurück
  Switch $nMsg;"Durchsucht" die Ergebnisse nach...
        Case $GUI_EVENT_CLOSE
          Exit
		Case $Pic;Dem Bildklick
			[COLOR="Red"]WHile True ; Unendlich[/COLOR]
				Send ("Spam")
				Send ("{ENTER}")
				Sleep (10)
				Send ("Spam")
				Send ("{ENTER}")
				Sleep (10)
				Send ("Spam")
				Send ("{ENTER}")
				Sleep (10)
	  EndSwitch;Beendet die "Durchsuchung"
    WEnd ; Geht wieder Zu While true ; Unendlich
  EndSwitch
WEnd;Beendet die Dauerschleife 2

Alles anzeigen

Rot markiert ist das Problem.
So, wenn ich das Script starte, bekomme ich den Error:

Line 30 (File "...."):

EndSwitch

Error: "EndSwitch" statement with no matching "Switch" statement.

Wenn ich ohne das Rot markierte starte, läuft alles problemlos, aber ich will halt unendlich spammen!

internetfreak

nimm einfach das erste endswitch raus
du musst für ne schleife ein WEnd nehmen
dann klappts
das unterste endswitch muss bleiben

Tekumi

Oah ich habs gestern um 23:50 selber rausgefunden :)

Hab am Ende nun das:

Zitat

WEnd;Beendet die Dauerschleife 2
EndSwitch
WEnd;Beendet die Dauerschleife 2

Aber danke dir :)

Edit: Neues Prob:

Wollte einen Flyff Mob Spawner bauen, um ein bisschen zu üben, aber hab nun folgendes Problem.

Code

C

;==========Einbinden==========;
#include <GUIConstants.au3>


;===========Form===========;
$Form1       = GUICreate ("Mob Spawner by Tekumi" , 110 , 98 , 512 , 384)
$ID          = GUICtrlCreateInput  ("Monster Id eingeben" , 0 , 1  , 110 , 20)
$Anzahl      = GUICtrlCreateInput  ("Anzahl eingeben" , 0 , 20 , 110 , 20)
$Entfernung  = GUICtrlCreateInput  ("Entfernung eingeben" , 0 , 39 , 110 , 20)
$Aggro       = GUICtrlCreateInput  ("Aggro? 1=Ja 2=Nein" , 0 , 58 , 110 , 20)
$Mon         = GUICtrlCreateButton ("Mon"    , 0  , 79 , 58 , 20)
$AddMon      = GUICtrlCreateButton ("AddMon" , 52 , 79 , 58 , 20)
GUISetState (@SW_SHOW)


;==HotKeySet + Funktionen==;




[COLOR="Red"]While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Mon
			MsgBox (1 , "Mon Command" ,    ".mon $ID $Anzahl $Entfernung $Aggro")
		Case $AddMon
			MsgBox (1 , "AddMon Command" , ".addmon $ID $Anzahl $Entfernung $Aggro")
	EndSwitch
WEnd[/COLOR]

Alles anzeigen

So, als erstes wollte ich, dass wenn man auf Button Mon geht, der Text
[COLOR="Red"].mon $ID $Anzahl $Entfernung $Aggro[/COLOR] in die Zwischenablage kopiert wird.
Da wusste aber niemand so recht wie das funktioniert.
Dann hab ich mir halt gedacht, mach halt eine Textbox.

Nun wird aber exakt der Text [COLOR="Red"].mon $ID $Anzahl $Entfernung $Aggro[/COLOR] ausgegeben, nicht die Zahlen in den Textfeldern. Und wenn ich das mit der " & " & " Version mache, zeigt es [COLOR="Red"].mon 3 4 5 6[/COLOR] an.

ELiMINATOR

du musst voher den inhalt der textboxen auslesen mit guictrlread ^^

C

;==========Einbinden==========;
#include <GUIConstants.au3>


;===========Form===========;
$Form1       = GUICreate ("Mob Spawner by Tekumi" , 110 , 98 , 512 , 384)
$ID          = GUICtrlCreateInput  ("Monster Id eingeben" , 0 , 1  , 110 , 20)
$Anzahl      = GUICtrlCreateInput  ("Anzahl eingeben" , 0 , 20 , 110 , 20)
$Entfernung  = GUICtrlCreateInput  ("Entfernung eingeben" , 0 , 39 , 110 , 20)
$Aggro       = GUICtrlCreateInput  ("Aggro? 1=Ja 2=Nein" , 0 , 58 , 110 , 20)
$Mon         = GUICtrlCreateButton ("Mon"    , 0  , 79 , 58 , 20)
$AddMon      = GUICtrlCreateButton ("AddMon" , 52 , 79 , 58 , 20)
GUISetState (@SW_SHOW)


;==HotKeySet & Funktionen==;




While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Mon
			MsgBox (1 , "Mon Command" ,    ".mon " & GUICtrlRead($ID) & " " & GUICtrlRead($Anzahl) & " " &  GUICtrlRead($Entfernung) & " " &  GUICtrlRead($Aggro))
		Case $AddMon
			MsgBox (1 , "AddMon Command" , ".addmon " & GUICtrlRead($ID) & " " & GUICtrlRead($Anzahl) & " " &  GUICtrlRead($Entfernung) & " " &  GUICtrlRead($Aggro))
	EndSwitch
WEnd

Alles anzeigen

Tekumi

Nächste Frage:

Wie kann ich das so machen, dass wenn ich eine Checkbox anklicke, ein Button erscheint (Das hab ich schon), aber wenn ich sie wieder unticke, dass der Button verschwindet?

Code

#include <GUIConstants.au3>


$Form1 = GUICreate ("Checkbox" ,  150 , 50)
$Checkbox = GUICtrlCreateCheckbox ("Check" , 50 , 1)


GUISetState (@SW_SHOW)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Checkbox
			$Button = GUICtrlCreateButton ("Pwned" , 5 , 20 , 140 , 35)
	EndSwitch
WEnd

Alles anzeigen

Ich denke mal mit IF, aber mit Checkboxen hatte ich noch nicht so viel Erfahrung.

Edit: Es wäre noch interessant zu wissen, ob man (Wenn man eine Checkbox anklickt) die Gui vergrößern kann, also zum Beispiel nach unten.

internetfreak

ja das geht mit if

Code

If $checkbox=$GUI_CHECKED Then
;dein code
else
;dein else code
Endif

diesen code für dein Case nehmen und dann klappts

Tekumi

C

#cs
	Autor: Tekumi
   Datum: 17.7.09
   Verwendungszwecke: Privat
#ce


;===========Includes=============;
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;================================;


;==============Graphical UserInterface=================;
 $Form1 = GUICreate("Spammer v1", 155, 124, 192, 114)


 $text_i = GUICtrlCreateInput("", 8, 16, 137, 21)
 $zeit_i = GUICtrlCreateInput("", 8, 64, 57, 21)
 $anzahl_i = GUICtrlCreateInput("", 88, 64, 57, 21)


 $Button1 = GUICtrlCreateButton("Anleitung", 0, 96, 75, 25, $WS_GROUP)
 $Button2 = GUICtrlCreateButton("Spam starten", 80, 96, 73, 25, $WS_GROUP)


 GUICtrlCreateGroup("Textnachricht", 0, 0, 153, 49)
 GUICtrlCreateGroup("", -99, -99, 1, 1)
 GUICtrlCreateGroup("Zeitabstand", 0, 48, 73, 41)
 GUICtrlCreateGroup("", -99, -99, 1, 1)
 GUICtrlCreateGroup("Anzahl", 80, 48, 73, 41)
 GUICtrlCreateGroup("", -99, -99, 1, 1)


 GUISetState(@SW_SHOW)
;===========================================;


;=====================Code==============================;
 While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			MsgBox (64 , "Anleitung" , "Schreibe in das Feld ""Textnachricht"" den Text der gespammt werden soll.")
			MsgBox (64 , "Anleitung" , "Schreibe in das Feld ""Zeitabstand"" den Abstand zwischen 2 gesendeten Nachrichten. In Milisekunden. 1Sekunde=1000ms.")
			MsgBox (64 , "Anleitung" , "Schreibe in das Feld ""Anzahl"" die Anzahl an Nachrichten, die gesendet werden sollen.")
		Case $Button2
			$i = 0
				Do
					Send ("" & GUICtrlRead($text_i))
					Sleep (10)
					Send ("{ENTER}")
					$i = $i + 1
					Sleep (GUICtrlRead($zeit_i))
				Until $i = GUICtrlRead($anzahl_i)
	EndSwitch
 WEnd
;====================================================;

Alles anzeigen

Alles geht fein wie es sein sollte, nu er sendet unendlich viele Messages :P Wer hat ne Idee?

internetfreak

for-schleife

Code

$text=Guictrlread(...)
$anzahl=...;weißt ja was ich meine
For $i=0 to $anzahl
Send(...)
...;weißt immer noch, was da hin kommt
Next

schon sollts gehen

Ich und mein "Need Help" Thread

Jetzt mitmachen!

SCHNELLZUGRIFF

HILFE & COMMUNITY

RECHTLICHES