Ask about the buttons and interface

[hoangtungpcinfo]

I have a script to buttons. But when I insert links into buttons are not. The problem is there. Please help. Thanks!
 

expandcollapse popup

#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
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

http://upfile.vn/IgFQNTBC7ajm/x2fl-skin-skf.html
http://upfile.vn/_TBC7ajmImIg/x2fl-dll.html
 

 

 

 

5.au3

[BrewManNH]

Remove the following lines from your script.
 

Opt("GUIOnEventMode", 1)


GUISetOnEvent($GUI_EVENT_CLOSE, "_exit") ;-Exit

And change your Switch statement to this:

Switch $msg
            Case $button1
                ShellExecute("https://facebook.com")
            Case $button2
                ShellExecute("http://sinhvienit.net")
            Case $GUI_EVENT_CLOSE ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                Exit
        EndSwitch

You can NOT use OnEvent mode and messageloop mode in the same script without some coding gymnastics.

[hoangtungpcinfo]

Remove the following lines from your script.

 

Opt("GUIOnEventMode", 1)


GUISetOnEvent($GUI_EVENT_CLOSE, "_exit") ;-Exit

And change your Switch statement to this:

Switch $msg
            Case $button1
                ShellExecute("https://facebook.com")
            Case $button2
                ShellExecute("http://sinhvienit.net")
            Case $GUI_EVENT_CLOSE ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                Exit
        EndSwitch

You can NOT use OnEvent mode and messageloop mode in the same script without some coding gymnastics.

 

Thanks !  There is a further problem. After compiling the Skin can not run the file-copy 5.exe out desktop.

Help me, please!!!

[hoangtungpcinfo]

Help me. Please!

[BrewManNH]

I'm guessing you're not getting help because,  unfortunately, your question isn't clear. What exactly is the problem you're having?

If you're having problems describing it in English, post in your native language and we'll try and translate it. Hopefully that will help.

[hoangtungpcinfo]

After I compile with Aut2exe. . It lost the skin when running on another computer . 

Help me, thanks :-)

Edited March 3, 2015 by hoangtungpcinfo

[BrewManNH]

If you want the GUI to be skinned, you need to include the DLL and the skin file with the compiled exe. The easiest way to do that is to use the FileInstall function to add them to the compiled script.

[hoangtungpcinfo]

I was successful. Thank you very much. :-)