InputBox und Button

.ShiNy · 12/25/2011, 14:53

Hallo Leute,

Ich wollte für mich mal so ein kleines Suchprogramm erstellen.
Allerdings kenn ich mich kaum damit aus und komm jetzt schon nicht weiter

..
also mein ich wollte volgendes machen einfach eine inputbox wo man z.B. reinschreibt

und dann auf den butten klickt und sich dann youtube öffnet und so sieht mein script aus:

Code:

´#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$SuchBot = GUICreate("SuchBot", 223, 78, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 201, 21)
$Button1 = GUICtrlCreateButton("Los Gehts!", 8, 32, 201, 17, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("@ .ShiNy", 8, 56, 49, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

Case $Button1
ShellExecute($Input1)

	EndSwitch
WEnd

kann mir vllt wer sagen was ich dort verändern muss ?

bollen · 12/25/2011, 15:40

Quote:

Case $Button1
ShellExecute($Input1)

so ist das nichts um Input Boxen auszulensen must du GuiCtrlRead verweden.
du must die eingabe Überprüfen ob bestimmte Worte darin vorkommen, z.B. nach youtube suchen, dass könnte so aussehn.

Code:

Case $Button1
If not StringInStr(GUICtrlRead($Input1) ,"youtube" ,1)=0 Then
 $ie=_IECreate()
 _IENavigate($ie,"http://www.youtube.com/?gl=DE&hl=de[URL="http://www.youtube.com/?gl=DE&hl=de",1"][/URL]",1)
EndIf

.ShiNy · 12/27/2011, 02:03

klappt i.wie immernoch nicht?

~~iK3ksii~~ · 12/27/2011, 03:15

Oda machs so :

Code:


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

#Region ### START Koda GUI section ### Form=
$SuchBot = GUICreate("SuchBot", 223, 78, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 201, 21)
$Button1 = GUICtrlCreateButton("Los Gehts!", 8, 32, 201, 17, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("@ .ShiNy", 8, 56, 49, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

Case $Button1
	$I1 = GUICtrlRead($Input1)
ShellExecute($I1)

	EndSwitch
WEnd

Neu :

Code:

 $I1 = GUICtrlRead($Input1)

Lawliet · 12/27/2011, 12:14

Quote:

Originally Posted by iK3ksii

Oda machs so :

Code:


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

#Region ### START Koda GUI section ### Form=
$SuchBot = GUICreate("SuchBot", 223, 78, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 201, 21)
$Button1 = GUICtrlCreateButton("Los Gehts!", 8, 32, 201, 17, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("@ .ShiNy", 8, 56, 49, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

Case $Button1
	$I1 = GUICtrlRead($Input1)
ShellExecute($I1)

	EndSwitch
WEnd

Neu :

Code:

 $I1 = GUICtrlRead($Input1)

Du solltest dir mal angewöhnen deine Variablen sinnvoll zu benennen.

Also, wenn ich das richtig verstanden habe, will der TE eine art Browser machen?
Dann schau dir diese Funktionen mal an:

Code:

_IECreateEmbedded ()
GUICtrlCreateObj()
_IENavigate()

Das ist die einfachste Möglichkeit.

.EzEL™ · 12/31/2011, 14:04

Quote:
Originally Posted by Lawliet!
Du solltest dir mal angewöhnen deine Variablen sinnvoll zu benennen.

Also, wenn ich das richtig verstanden habe, will der TE eine art Browser machen?
Dann schau dir diese Funktionen mal an:
Code:
_IECreateEmbedded ()
GUICtrlCreateObj()
_IENavigate()
Das ist die einfachste Möglichkeit.

Hier ist ein Beispiel

Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

$oIE = _IECreateEmbedded()
$Browser = GUICreate("", 625, 445, 192, 124)
$Browser2 = GUICtrlCreateObj($oIE, 8, 0, 609, 401)
GUISetState(@SW_HIDE, $Browser)
$Button1 = GUICtrlCreateButton("Zurück zur SuchBot", 256, 408, 139, 25, $WS_GROUP)
$SuchBot = GUICreate("SuchBot", 223, 78, 192, 124)
$Input1 = GUICtrlCreateInput("http://", 8, 8, 201, 21)
$Button2 = GUICtrlCreateButton("Los Gehts!", 8, 32, 201, 17, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("@ .ShiNy", 8, 56, 49, 17)
GUISetState(@SW_SHOW, $SuchBot)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			GUISetState(@SW_HIDE, $Browser)
			GUISetState(@SW_SHOW, $SuchBot)
		Case $Button2
			If GUICtrlRead($Input1) = "http://" Then
				MsgBox(16, "Error", "Du hast keine Ganzes Link angegeben")
			ElseIf GUICtrlRead($Input1) = "" Then
				MsgBox(16, "Error", "Du hast keine URL angegeben")
			Else
				_IENavigate($oIE, GUICtrlRead($Input1))
				GUISetState(@SW_HIDE, $SuchBot)
				GUISetState(@SW_SHOW, $Browser)
			EndIf
	EndSwitch
WEnd