Website anpingen exist + ComboBox?

[.yorliK]

Joar,

mir kam gestern die Idee, einen Website checker zu basteln.
Er checkt ob die angegebene Website existiert oder nicht und zeigt es dann in einem Label an. Ich wollte es so machen das eine ComboBox n paar Endungen hat z.B. ".de" oder ".com" etc.

Diese sollten dann mit dem Wort in der Inputbox kombiniert werden also man gibt ein "google" ein und bei der Combobox wählt man ".de" aus und er checkt dann nach "www.google.de".

Ich habe schon einiges versucht, bin aber noch nicht darauf gekommen wie man in die Combobox mehre Sachen griegt und wie die dann zu z.B. google.de werden.


Hier mein Script:

 Spoiler

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


$Form1 = GUICreate("Form1", 276, 134, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 160, 64, 81, 33)
$Input1 = GUICtrlCreateInput("Input1", 40, 32, 121, 21)
$Combo1 = GUICtrlCreateCombo(".de", 168, 32, 65, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Label1 = GUICtrlCreateLabel("Label1", 32, 56, 124, 17)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		 Case $Button1
			Ping($read1, $combo1)
			If @error Then
			   GuiCtrlSetData($Label1, "Website doesnt exist.")
			Else
			   GuiCtrlSetData($Label1, "Website exist.")
			   EndIf

	EndSwitch
WEnd

#Thanks ist euch sicher.

Mfg
Kilroy.

[BladeTiger12]

Das geht so:

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


$Form1 = GUICreate("Form1", 276, 134, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 160, 64, 81, 33)
$Input1 = GUICtrlCreateInput("Input1", 40, 32, 121, 21)
$Combo1 = GUICtrlCreateCombo(".de", 168, 32, 65, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Label1 = GUICtrlCreateLabel("Label1", 32, 56, 124, 17)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		 Case $Button1
			Ping(GUICtrlread($Input1) & GUICtrlread($combo1), 250)
			If @error Then
			   GuiCtrlSetData($Label1, "Website doesnt exist.")
			Else
			   GuiCtrlSetData($Label1, "Website exist.")
			   EndIf

	EndSwitch
WEnd

Einfach die Input1 und Combobox auslesen mit GUICtrlRead.

[.yorliK]

Okay, doch so leicht ****^^

und wie grieg ich jetzt mehrere Sachen in die ComboBox?


MfG
Kilroy.


EDIT: habs hinbekommen

Bsp:
$Combo = GUICtrlSetData(-1,"calc.exe|cmd.exe|cleanmgr.exe|ipconfig.exe|devm gt.exe|dfrg.exe|dxdiag", "calc.exe")

[Achat]

Ping ist nicht zu empfehlen.
Ping mal elitepvpers.com

If _IsSiteUp('asdfeww') Then MsgBox(0,0,'asdfeww is up')
If _IsSiteUp('elitepvpers.com') Then MsgBox(0,0,'elitepvpers.com is up')

Func _IsSiteUp($sSite)
	If StringInStr(BinaryToString(InetRead('http://isup.me/'&$sSite,1)),'is up') Then Return 1
EndFunc

MfG