Hi ihr alle
kann mir mal jemand den Quellcoed für ein Programm sagen, indem der Benutzer auf Buttons seine eigenen Links draufsetzen kann??? Dake schonmal im voraus.
Hi ihr alle
kann mir mal jemand den Quellcoed für ein Programm sagen, indem der Benutzer auf Buttons seine eigenen Links draufsetzen kann??? Dake schonmal im voraus.
wie meinst du das genau links
internetseiten ; pfade etc?
lg chris
benutz doch einfach mal SuFu oder google nach autoit toolbar
da glaub ich gibts 100te. und davon haben bestimmt welche n selbstständiges hinzufügen
hier is glaube was du möchtest:
#include <GUIConstantsEx.au3>
#include <IE.au3>
$reado = ""
$read2o = ""
#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 ###
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
$read2=GUICtrlRead( $Input4 )
If $read2 <> $read2o Then
GUICtrlSetData($Button2 , $read2)
$read2o = $read
EndIf
Sleep(10)
WEnd
gratuliert alle schrotterch!
happy birthday SchrotterCh !!!!
Du kannst dir das _IECreate sparen und einfach ShellExecute nehmen.
Hallo Zocker-SZ,
und hier eine Version mit ComboBox und INI-File, daher individuell veränderbar:
#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]Const $sElect = "bitte eine URL auswählen"
Global $URL
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
$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)
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
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
PS.: solche Anfragen gehören eigentlich ins Forum Hilfe und Unterstützung,
mfg (Auto)Bert
Danke ihr alle genau sowas habe ich gesucht