Website anpingen exist + ComboBox?

04/02/2013 14:01 .yorliK#1
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:

#Thanks ist euch sicher.

Mfg
Kilroy.
04/02/2013 14:20 BladeTiger12#2
Das geht so:
Code:
#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.
04/02/2013 14:24 .yorliK#3
Okay, doch so leicht damn^^

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")
04/04/2013 20:29 Achat#4
Ping ist nicht zu empfehlen.
Ping mal elitepvpers.com :p

Code:
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