Bilder verlinken inner GUI

Baku

Hi folks,

hatte da mal was gehört zu ner UDF von jemandem.. Ich brauch son Ding, das wenn jemand auf ein ctrlpic klickt ein Fenster mit dem Standardbrowser auf geht. Hoffe ihr wisst da was.

Thx im vorraus.

jonk

Hi Baku,

ein Möglichkeit wäre zum Beispiel folgendes:

C

opt("TrayIconHide", 1)


#include <GUIConstants.au3>


$Form1 = GUICreate("", 50,50,(@DesktopWidth -50)/2,(@DesktopHeight - 50) /2)


$software = GUICtrlCreateButton("", 0, 0, 50, 50, $BS_ICON)
GUICtrlSetImage(-1, @ProgramFilesDir &"\internet Explorer\iexplore.exe", "", 1)
GUICtrlSetTip(-1, "Browser")




GUISetState(@SW_SHOW)


While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop
		Case $msg = $software
			run(@ProgramFilesDir &"\internet Explorer\iexplore.exe")
		Case Else
			;;;;;;;
	EndSelect
WEnd
Exit

Alles anzeigen

Kruemel_02

Mir wurde es mit der UDF _RunDOS erklaert. (Danke peethebee)

z.B.

Code

#include <Process.au3>
$rc = _RunDos("start [URL]Http://www.autoitscript.com[/URL]")

Das funktioniert aber nicht mit der aktuellen Version AutoIt v3.1.1, da die UDF _RunDOS in der Process.au3 definiert ist, was aber bei v3.1.1 noch nicht der Fall ist.

Mit der Beta-Version Autoit v3.1.1.106 klappt es mit...

Code

#include <Process.au3>


Call("_ShowMEtheLINK")


Func _ShowMEtheLINK()
	Dim $Link
	$Link = _RunDOS("start [URL]Http://www.autoitscript.com[/URL]")
EndFunc   ;==>_ShowMEtheLINK

....ansonsten kannst Du es in der stabilen Version AutoIt v3.1.1 mit....

Code

Call("_ShowMEtheLINK")


Func _ShowMEtheLINK()
	Dim $Link
	$Link = _RunDOS("start [URL]Http://www.autoitscript.com[/URL]")
EndFunc   ;==>_ShowMEtheLINK






;===============================================================================
;
; Description:      Executes a DOS command in a hidden command window.
; Syntax:           _RunDOS( $sCommand )
; Parameter(s):     $sCommand - Command to execute
; Requirement(s):   None
; Return Value(s):  On Success - Returns the exit code of the command
;                   On Failure - Depends on RunErrorsFatal setting
; Author(s):        Jeremy Landes <jlandes@landeserve.com>
; Note(s):          None
;
;===============================================================================
Func _RunDOS($sCommand)
	Return RunWait(@ComSpec & " /C " & $sCommand, "", @SW_HIDE)
EndFunc   ;==>_RunDOS

Alles anzeigen

.....versuchen (hat bei mir auch geklappt). Hier wird die UDF _RunDos als Funktion von der Process.au3 der Beta Version Autoit v3.1.1.106 in dem Script implementiert.