Verlinken

simon

Hallo!
Kann mir jemand helfen, also ich habe dieses script

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>

$Gui = GUICreate("SB Hp Suche", 600, 500)
GUISetBkColor(0x006633)

HotKeySet("{F4}", "test")
HotKeySet("{F5}","info")

[/autoit] [autoit][/autoit] [autoit]

$Input1 = GUICtrlCreateInput("Simon Webstation", 10, 30, 580)

$search = GUICtrlCreateButton("Suchen", 270, 65, 100, 25, $BS_DEFPUSHBUTTON)
$label = GUICtrlCreateLabel("", 10, 100, 400, 350)
GUICtrlSetFont(-1,14)
GUICtrlSetColor(-2,0xFFFFFF)
$describe = GUICtrlCreateLabel("",10,120,400,350)
GUICtrlSetFont(-1,12)
GUICtrlSetColor(-2,0xCDCD00)
$label2 = GUICtrlCreateLabel("",10,150,400,350)
GUICtrlSetFont(-1,14)
GUICtrlSetColor(-2,0xFFFFFF)
$describe2 = GUICtrlCreateLabel("",10,170,400,350)
GUICtrlSetFont(-1,12)
GUICtrlSetColor(-2,0xCDCD00)

[/autoit] [autoit][/autoit] [autoit]

GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $search
$input = GUICtrlRead($Input1)
$read = GUICtrlRead($label)

If $input = "Simon Webstation" Or $input = "simon-webstatio" Or $input = "Simon-Webstation" Or $input = "simon-webstation" Then
GUICtrlSetData($label, "Simon-Webstation")
GUICtrlSetData($describe,"http://www.simon-webstation.de")
GUICtrlSetData($label2,"*****")
GUICtrlSetData($describe2,"*****")

Else
GUICtrlSetData($label, $read & "Es wurde nichts vorhandenes eingegeben" & @CRLF)
EndIf
EndSwitch
WEnd

Func test()
Exit
EndFunc ;==>test

[/autoit] [autoit][/autoit] [autoit]

Func info()
MsgBox(0,"Info","Für Infos musst du insgästebuch schreiben auf http://www.simon-webstation.de")
EndFunc ;==>info

[/autoit]

wie kann ich hier die http://... Labels mit einem hyperlink ins internet versehen.

L3viathan

[autoit]

Case $describe
If $describe = "http://www.simon-webstation.de" Then ShellExecute("http://www.simon-webstation.de")

[/autoit]

simon

Danke

simon

Dies Funktioniert bei mir aber nicht !

Kann mir da jemand helfen.

Quellcode:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>

$Gui = GUICreate("SB Hp Suche", 600, 500)
GUISetBkColor(0x006633)

HotKeySet("{F4}", "test")
HotKeySet("{F5}","info")

[/autoit] [autoit][/autoit] [autoit]

$Input1 = GUICtrlCreateInput("Simon Webstation", 10, 30, 580)

$search = GUICtrlCreateButton("Suchen", 270, 65, 100, 25, $BS_DEFPUSHBUTTON)
$label = GUICtrlCreateLabel("", 10, 100, 400, 350)
GUICtrlSetFont(-1,14)
GUICtrlSetColor(-2,0xFFFFFF)
$describe = GUICtrlCreateLabel("",10,120,400,350)
GUICtrlSetFont(-1,12)
GUICtrlSetColor(-2,0xCDCD00)
$label2 = GUICtrlCreateLabel("",10,150,400,350)
GUICtrlSetFont(-1,14)
GUICtrlSetColor(-2,0xFFFFFF)
$describe2 = GUICtrlCreateLabel("",10,170,400,350)
GUICtrlSetFont(-1,12)
GUICtrlSetColor(-2,0xCDCD00)

[/autoit] [autoit][/autoit] [autoit]

GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $describe
If $describe = "http://www.simon-webstation.de" Then ShellExecute("http://www.simon-webstation.de")
Case $search
$input = GUICtrlRead($Input1)
$read = GUICtrlRead($label)

If $input = "Simon Webstation" Or $input = "simon-webstatio" Or $input = "Simon-Webstation" Or $input = "simon-webstation" Then
GUICtrlSetData($label, "Simon-Webstation")
GUICtrlSetData($describe,"http://www.simon-webstation.de")
GUICtrlSetData($label2,"Firetiger-Linkliste")
GUICtrlSetData($describe2,"http://www.firetiger.de/linkliste.php")

Else
GUICtrlSetData($label, $read & "Es wurde nichts vorhandenes eingegeben" & @CRLF)
EndIf
EndSwitch
WEnd

Func test()
Exit
EndFunc ;==>test

[/autoit] [autoit][/autoit] [autoit]

Func info()
MsgBox(0,"Info","Für Infos musst du insgästebuch schreiben auf http://www.simon-webstation.de")
EndFunc ;==>info

[/autoit]

Greek

Hm was soll das Programm den machen? Einfach nur Internetseiten öffnen?

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>

$Gui = GUICreate("SB Hp Suche", 600, 500)
GUISetBkColor(0x006633)

HotKeySet("{F4}", "test")
HotKeySet("{F5}","info")

[/autoit] [autoit][/autoit] [autoit]

$Input1 = GUICtrlCreateInput("Simon Webstation", 10, 30, 580)

$search = GUICtrlCreateButton("Suchen", 270, 65, 100, 25, $BS_DEFPUSHBUTTON)
$label = GUICtrlCreateLabel("", 10, 100, 400, 350)
GUICtrlSetFont(-1,14)
GUICtrlSetColor(-2,0xFFFFFF)
$describe = GUICtrlCreateLabel("",10,120,400,350)
GUICtrlSetFont(-1,12)
GUICtrlSetColor(-2,0xCDCD00)
$label2 = GUICtrlCreateLabel("",10,150,400,350)
GUICtrlSetFont(-1,14)
GUICtrlSetColor(-2,0xFFFFFF)
$describe2 = GUICtrlCreateLabel("",10,170,400,350)
GUICtrlSetFont(-1,12)
GUICtrlSetColor(-2,0xCDCD00)

[/autoit] [autoit][/autoit] [autoit]

GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $describe
If $describe = "http://www.simon-webstation.de" Then ShellExecute("http://www.simon-webstation.de")
Case $search
$input = GUICtrlRead($Input1)
$read = GUICtrlRead($label)
ShellExecute ( $input )

;~ If $input = "Simon Webstation" Or $input = "simon-webstatio" Or $input = "Simon-Webstation" Or $input = "simon-webstation" Then
;~ GUICtrlSetData($label, "Simon-Webstation")
;~ GUICtrlSetData($describe,"http://www.simon-webstation.de")
;~ GUICtrlSetData($label2,"Firetiger-Linkliste")
;~ GUICtrlSetData($describe2,"http://www.firetiger.de/linkliste.php")
;~
;~ Else
;~ GUICtrlSetData($label, $read & "Es wurde nichts vorhandenes eingegeben" & @CRLF)
;~ EndIf
EndSwitch
WEnd

Func test()
Exit
EndFunc ;==>test

[/autoit] [autoit][/autoit] [autoit]

Func info()
MsgBox(0,"Info","Für Infos musst du insgästebuch schreiben auf http://www.simon-webstation.de")
EndFunc ;==>info

[/autoit]

simon

Dieses Programm soll Homeapagen suchen die auch verlinkt werden

mfg. Simon

**BugFix**

Für Hyperlinks verwende doch dieses: http://www.autoitscript.com/forum/index.php?showtopic=21121&view=findpost&p=145902
oder
http://www.autoitscript.com/forum/index.php?showtopic=23111&view=findpost&p=161225

simon

Da kommt bei mir jetzt immer ein Fehler obwohl ich in der Suche etwas vorhandenes eingebe

Jam00

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>

[/autoit] [autoit][/autoit] [autoit]

$Gui = GUICreate("SB Hp Suche", 600, 500)
GUISetBkColor(0x006633)

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{F4}", "test")
HotKeySet("{F5}", "info")

[/autoit] [autoit][/autoit] [autoit]

$Input1 = GUICtrlCreateInput("Simon Webstation", 10, 30, 580)

[/autoit] [autoit][/autoit] [autoit]

$search = GUICtrlCreateButton("Suchen", 270, 65, 100, 25, $BS_DEFPUSHBUTTON)
$label = GUICtrlCreateLabel("", 10, 100, 400, 20)
GUICtrlSetFont(-1, 14)
GUICtrlSetColor(-2, 0xFFFFFF)
$describe = GUICtrlCreateLabel("", 10, 120, 400, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetColor(-2, 0xCDCD00)
$label2 = GUICtrlCreateLabel("", 10, 150, 400, 20)
GUICtrlSetFont(-1, 14)
GUICtrlSetColor(-2, 0xFFFFFF)
$describe2 = GUICtrlCreateLabel("", 10, 170, 400,20)
GUICtrlSetFont(-1, 12)
GUICtrlSetColor(-2, 0xCDCD00)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $describe
_Link($describe)
Case $search
_Suche()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func test()
Exit
EndFunc ;==>test

[/autoit] [autoit][/autoit] [autoit]

Func info()
MsgBox(0, "Info", "Für Infos musst du insgästebuch schreiben auf http://www.simon-webstation.de")
EndFunc ;==>info
Func _Suche()
$input = GUICtrlRead($Input1)
$read = GUICtrlRead($label)
If $input = "Simon Webstation" Or $input = "simon-webstatio" Or $input = "Simon-Webstation" Or $input = "simon-webstation" Then
GUICtrlSetData($label, "Simon-Webstation")
GUICtrlSetData($describe, "http://www.simon-webstation.de")
GUICtrlSetData($label2, "Firetiger-Linkliste")
GUICtrlSetData($describe2, "http://www.firetiger.de/linkliste.php")
ElseIf $input = "Simon-Buchner" Or $input = "Simon Buchner" Or $input = "simon buchner" Then
GUICtrlSetData($label, $input)
GUICtrlSetData($describe, "http://www.simon-buchner.npage.de")
GUICtrlSetData($label2, "Simon-Buchner")
GUICtrlSetData($describe2, "http://www.simon-buchner.de.tl")
ElseIf $input = "Firetiger" Then
GUICtrlSetData($label, "Firetiger")
GUICtrlSetData($describe, "http://www.firetiger.de")
GUICtrlSetData($label2, "Simon-Webstation Linkliste")
GUICtrlSetData($describe2, "http://www.simon-webstation.de/Linkliste.php")
ElseIf $input = "Google" Then
GUICtrlSetData($label, "Google")
GUICtrlSetData($describe, "http://www.google.de")
GUICtrlSetData($label2, "")
GUICtrlSetData($describe2, "")
ElseIf $input = "Sarah-Web" Then
GUICtrlSetData($label, "Sarah-Web")
GUICtrlSetData($describe, "http://www.sarah-web.de.be")
GUICtrlSetData($label2, "")
GUICtrlSetData($describe2, "")
Else
GUICtrlSetData($label, $read & "Es wurde nichts vorhandenes eingegeben" & @CRLF)
EndIf
EndFunc
Func _Link($hObj)
Local $Link = GUICtrlRead ($hObj)
Run (@ComSpec & " /k start " & $Link,"",@SW_HIDE)
EndFunc

[/autoit]