InputBox und Button

12/25/2011 14:53 .ShiNy#1
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 [Only registered and activated users can see links. Click Here To Register...] 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 ?
12/25/2011 15:40 bollen#2
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
12/27/2011 02:03 .ShiNy#3
klappt i.wie immernoch nicht?
12/27/2011 03:15 iK3ksii#4
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)
12/27/2011 12:14 Lawliet#5
Quote:
Originally Posted by iK3ksii View Post
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.
12/31/2011 14:04 .EzEL™#6
Quote:
Originally Posted by Lawliet! View Post
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