Autoit Programm mit Links

[autoit]

#include <GUIConstantsEx.au3>
#include <IE.au3>
$reado = ""
$read2o = ""

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Linkverwalter", 433, 136, 192, 124)
$Group1 = GUICtrlCreateGroup("1", 8, 8, 185, 105)
$Input1 = GUICtrlCreateInput("linjk", 64, 24, 121, 21)
$Label1 = GUICtrlCreateLabel("LINK:", 16, 24, 31, 17)
$Label2 = GUICtrlCreateLabel("NAME:", 16, 48, 38, 17)
$Input2 = GUICtrlCreateInput("name", 64, 48, 121, 21)
$Button1 = GUICtrlCreateButton("1", 16, 72, 171, 33, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("2", 200, 8, 185, 105)
$Input3 = GUICtrlCreateInput("link", 256, 24, 121, 21)
$Label3 = GUICtrlCreateLabel("LINK:", 208, 24, 31, 17)
$Label4 = GUICtrlCreateLabel("NAME:", 208, 48, 38, 17)
$Input4 = GUICtrlCreateInput("name", 256, 48, 121, 21)
$Button2 = GUICtrlCreateButton("1", 208, 72, 171, 33, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$link1 = GUICtrlRead($Input1)
_IECreate( $link1 )
Case $Button2
$link2 = GUICtrlRead($Input3)
_IECreate( $link2 )
EndSwitch
$read=GUICtrlRead( $Input2 )
If $read <> $reado Then
GUICtrlSetData($Button1 , $read)
$reado = $read
EndIf

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

$read2=GUICtrlRead( $Input4 )
If $read2 <> $read2o Then
GUICtrlSetData($Button2 , $read2)
$read2o = $read
EndIf
Sleep(10)
WEnd

[/autoit]

[autoit]

#include <GUIConstantsEx.au3>

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

Const $sElect = "bitte eine URL auswählen"
Global $URL

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

If Not FileExists(@ScriptDir & "\URL.INI") Then
$sData = "AutoIt=http://www.autoit.de" & @LF & "Dein Thread=http://www.autoit.de/index.php?page=Thread&postID=156685#post156685" & @LF & "AutoIt V3=http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe"
IniWriteSection(@ScriptDir & "\URL.INI", "URLs", $sData)
EndIf

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

$hGui = GUICreate("Combobox mit INI für URL-Aufruf", 300, 160, 302, 218)
$hcboProg = GUICtrlCreateCombo($sElect, 8, 8, 200, 25)
$hbtnAdd = GUICtrlCreateButton("&Hinzufügen", 213,
$hlblURL = GUICtrlCreateLabel("", 8, 35, 200, 50)
$list1 = IniReadSection(@ScriptDir & "\URL.INI", "URLs")
ConsoleWrite($list1 & @CRLF)
For $i = 1 To $list1[0][0]
GUICtrlSetData($hcboProg, $list1[$i][0])
Next
$hbtnOpen = GUICtrlCreateButton("&Öffnen", 8, 85)
GUICtrlSetState($hbtnOpen, $GUI_DISABLE)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $hbtnAdd
$write1 = InputBox("URL", "Bitte eine gülzige eingeben")
If $write1 <> "" Then
$write2 = InputBox("URL verwalten unter", "Bitte Kurzbegriff eingeben")
If $write2 <> "" Then IniWrite(@ScriptDir & "\URL.INI", "URLs", $write2, $write1)
GUICtrlSetData($hcboProg, $write2, $write2)
EndIf
show_Selection()
Case $hcboProg
show_Selection()
Case $hbtnOpen
ShellExecute($url)
;ConsoleWrite($URL & @CRLF)
EndSwitch
WEnd

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

Func show_Selection()
If GUICtrlRead($hcboProg) = $sElect Then
GUICtrlSetState($hbtnOpen, $GUI_DISABLE)
GUICtrlSetData($hlblURL, "")
Else
GUICtrlSetState($hbtnOpen, $GUI_ENABLE)
$Prog = GUICtrlRead($hcboProg)
ConsoleWrite("ausgewählt: " & $Prog & @CRLF)
$URL = IniRead(@ScriptDir & "\URL.INI", "URLs", $Prog, "")
GUICtrlSetData($hlblURL, $URL)
EndIf
EndFunc ;==>show_Selection

[/autoit]