[..] GUI .png controle invisible
Posté : sam. 24 sept. 2011 11:15
par Utilisateur 3643 supprimé
Bonjour, j'ai bien chercher pendant 2h, essayé des tas de solutions, je n'y arrive toujours pas, je suis au bord du suicide
j'ai ma gui qui est en .png et j'ai ajouté des label des input et un bouton mais il sont tous invisible !
voici mon script:
Je vous en supplie, aidez moi 

j'ai ma gui qui est en .png et j'ai ajouté des label des input et un bouton mais il sont tous invisible !
voici mon script:
► Afficher le texte
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <file.au3>
#include <INet.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Dim $Body
Dim $as_Body[1]
Global Const $AC_SRC_ALPHA = 1
Global $hGUI1
$hGUI2 = GUICreate("Mailer", 600, 600, -1, -1, -1, $WS_EX_LAYERED, $hGUI1)
Global $Label1 = GUICtrlCreateLabel("Destinataire:", 40, 112, 107, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input1 = GUICtrlCreateInput("exemple@exemple.com", 152, 112, 401, 21)
Global $Label2 = GUICtrlCreateLabel("Votre e-mail:", 40, 152, 106, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input2 = GUICtrlCreateInput("Mon.e-mail@exemple.com", 152, 152, 401, 21)
Global $Label3 = GUICtrlCreateLabel("Sujet:", 88, 192, 51, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input3 = GUICtrlCreateInput("exemple: salut ça va ?", 152, 192, 401, 21)
Global $Label4 = GUICtrlCreateLabel("Message:", 56, 232, 81, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Edit1 = GUICtrlCreateEdit("cher ... ", 152, 232, 401, 257)
GUICtrlSetData(-1, "Edit1")
Global $Label5 = GUICtrlCreateLabel("Votre nom:", 8, 72, 170, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input4 = GUICtrlCreateInput("Kikoolol", 184, 72, 369, 21)
Global $Label6 = GUICtrlCreateLabel("Nombre d'e-mail à envoyer:", 8, 512, 220, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input5 = GUICtrlCreateInput("10", 240, 512, 313, 21)
Global $Button1 = GUICtrlCreateButton("Envoyer !", 24, 544, 545, 49, $WS_GROUP)
GUICtrlSetFont(-1, 24, 800, 2, "MS Sans Serif")
GUISetState(@SW_SHOW)
; Create GUI
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile("Nociif.png")
SetBitMap($hGUI2, $hImage, 255)
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
GUISetState()
; Loop until user exits
do
until GUIGetMsg() =$GUI_EVENT_CLOSE
While 1
$sujet = GUICtrlRead($Input3)
$nom=guictrlread($input4)
$monadresse=GUICtrlRead($Input2)
$sonadresse=GUICtrlRead($input1)
$texte=guictrlread($Edit1)
$s_FromName = $nom
$s_FromAddress = $monadresse
$s_ToAddress = $sonadresse
$Subject= $sujet
$Body= $texte
$num= guictrlread($Input5)
$msg = GUIGetMsg()
for $i=0 to $num
If $msg = -3 Then
DirRemove(@TempDir & "\ATP\ATP_Mailer", 1)
GUIDelete($hGUI2)
ExitLoop
EndIf
If $msg = $Button1 Then
DirCreate(@TempDir & "\ATP\ATP_Mailer")
InetGet("http://arrkhan.free.fr/fai.php", @TempDir & "\ATP\ATP_Mailer\smtp")
GUICtrlSetState($Button1, $GUI_DISABLE)
$s_SmtpServer = FileRead(@TempDir & "\ATP\ATP_Mailer\smtp")
$s_Subject = $sujet
$as_Body[0] = $texte
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body,"",-1)
If $Response = 1 Then
MsgBox(0, "Réussi !", "si votre compte existe, vous trouverez votre argent demander (sous forme de périn) dans votre bank dans 24h. Faites-en bonne usage !", 2)
DirRemove(@TempDir & "\ATP\ATP_Mailer", 1)
GUIDelete($hGUI2)
ExitLoop
Else
MsgBox(0, "Erreur", "une érreur est survenue", 5)
GUICtrlSetState($Button1, $GUI_ENABLE)
EndIf
Sleep(10)
EndIf
Next
WEnd
; Load layered image
Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
if ($hWnd = $hGUI2) and ($iMsg = $WM_NCHITTEST) then Return $HTCAPTION
EndFunc
; Release resources
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
; ===============================================================================================================================
; SetBitMap
; ===============================================================================================================================
Func SetBitmap($hGUI, $hImage, $iOpacity)
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend
$hScrDC = _WinAPI_GetDC(0)
$hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
$tSize = DllStructCreate($tagSIZE)
$pSize = DllStructGetPtr($tSize )
DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth ($hImage))
DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage))
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha" , $iOpacity )
DllStructSetData($tBlend, "Format", $AC_SRC_ALPHA)
_WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_WinAPI_ReleaseDC (0, $hScrDC)
_WinAPI_SelectObject($hMemDC, $hOld)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteDC ($hMemDC)
EndFunc
#include <WinAPI.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <file.au3>
#include <INet.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Dim $Body
Dim $as_Body[1]
Global Const $AC_SRC_ALPHA = 1
Global $hGUI1
$hGUI2 = GUICreate("Mailer", 600, 600, -1, -1, -1, $WS_EX_LAYERED, $hGUI1)
Global $Label1 = GUICtrlCreateLabel("Destinataire:", 40, 112, 107, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input1 = GUICtrlCreateInput("exemple@exemple.com", 152, 112, 401, 21)
Global $Label2 = GUICtrlCreateLabel("Votre e-mail:", 40, 152, 106, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input2 = GUICtrlCreateInput("Mon.e-mail@exemple.com", 152, 152, 401, 21)
Global $Label3 = GUICtrlCreateLabel("Sujet:", 88, 192, 51, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input3 = GUICtrlCreateInput("exemple: salut ça va ?", 152, 192, 401, 21)
Global $Label4 = GUICtrlCreateLabel("Message:", 56, 232, 81, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Edit1 = GUICtrlCreateEdit("cher ... ", 152, 232, 401, 257)
GUICtrlSetData(-1, "Edit1")
Global $Label5 = GUICtrlCreateLabel("Votre nom:", 8, 72, 170, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input4 = GUICtrlCreateInput("Kikoolol", 184, 72, 369, 21)
Global $Label6 = GUICtrlCreateLabel("Nombre d'e-mail à envoyer:", 8, 512, 220, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $Input5 = GUICtrlCreateInput("10", 240, 512, 313, 21)
Global $Button1 = GUICtrlCreateButton("Envoyer !", 24, 544, 545, 49, $WS_GROUP)
GUICtrlSetFont(-1, 24, 800, 2, "MS Sans Serif")
GUISetState(@SW_SHOW)
; Create GUI
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile("Nociif.png")
SetBitMap($hGUI2, $hImage, 255)
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
GUISetState()
; Loop until user exits
do
until GUIGetMsg() =$GUI_EVENT_CLOSE
While 1
$sujet = GUICtrlRead($Input3)
$nom=guictrlread($input4)
$monadresse=GUICtrlRead($Input2)
$sonadresse=GUICtrlRead($input1)
$texte=guictrlread($Edit1)
$s_FromName = $nom
$s_FromAddress = $monadresse
$s_ToAddress = $sonadresse
$Subject= $sujet
$Body= $texte
$num= guictrlread($Input5)
$msg = GUIGetMsg()
for $i=0 to $num
If $msg = -3 Then
DirRemove(@TempDir & "\ATP\ATP_Mailer", 1)
GUIDelete($hGUI2)
ExitLoop
EndIf
If $msg = $Button1 Then
DirCreate(@TempDir & "\ATP\ATP_Mailer")
InetGet("http://arrkhan.free.fr/fai.php", @TempDir & "\ATP\ATP_Mailer\smtp")
GUICtrlSetState($Button1, $GUI_DISABLE)
$s_SmtpServer = FileRead(@TempDir & "\ATP\ATP_Mailer\smtp")
$s_Subject = $sujet
$as_Body[0] = $texte
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body,"",-1)
If $Response = 1 Then
MsgBox(0, "Réussi !", "si votre compte existe, vous trouverez votre argent demander (sous forme de périn) dans votre bank dans 24h. Faites-en bonne usage !", 2)
DirRemove(@TempDir & "\ATP\ATP_Mailer", 1)
GUIDelete($hGUI2)
ExitLoop
Else
MsgBox(0, "Erreur", "une érreur est survenue", 5)
GUICtrlSetState($Button1, $GUI_ENABLE)
EndIf
Sleep(10)
EndIf
Next
WEnd
; Load layered image
Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
if ($hWnd = $hGUI2) and ($iMsg = $WM_NCHITTEST) then Return $HTCAPTION
EndFunc
; Release resources
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
; ===============================================================================================================================
; SetBitMap
; ===============================================================================================================================
Func SetBitmap($hGUI, $hImage, $iOpacity)
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend
$hScrDC = _WinAPI_GetDC(0)
$hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
$tSize = DllStructCreate($tagSIZE)
$pSize = DllStructGetPtr($tSize )
DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth ($hImage))
DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage))
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha" , $iOpacity )
DllStructSetData($tBlend, "Format", $AC_SRC_ALPHA)
_WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_WinAPI_ReleaseDC (0, $hScrDC)
_WinAPI_SelectObject($hMemDC, $hOld)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteDC ($hMemDC)
EndFunc
