#include #include #include #include Opt("GUIOnEventMode", 1) HotKeySet("{Esc}","_Exit") ;->Exit $Gui = GUICreate("Test", 800, 600) ;Fenster erstellen _SkinGUI("X2FL.dll", "X2FL Skin.skf", $Gui) ;Skin setzen GUISetOnEvent($GUI_EVENT_CLOSE, "_exit") ;-Exit If @OSArch = "X64" Then DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "int", 1) Local $sl, $Gui main() Func main() $button1 = GUICtrlCreateButton("Web 1", 40, 48, 100, 33) $button2 = GUICtrlCreateButton("Web 2", 180, 48, 100, 33) GUISetState(@SW_SHOW, $Gui) While 1 $msg = GUIGetMsg() Switch $msg Case $button1 ShellExecute("https://facebook.com") Case $button2 ShellExecute("http://sinhvienit.net") EndSwitch WEnd EndFunc while 1 ;Warte-Schleife Sleep(100) wend Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle) $Dll = DllOpen($SkincrafterDll) DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "SKINCRAFTER", "wstr", "SKINCRAFTER.COM", "wstr", "support@skincrafter.com", "wstr", "DEMOSKINCRAFTERLICENCE") DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1) DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin) DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25) DllCall($Dll, "int:cdecl", "ApplySkin") EndFunc func _exit() Exit EndFunc