XuxinhaKill

I read everything and what I understood is that I need to check the flag within each function/loop ... I wish it was not necessary Any other idea? Thanks Melba23

How can I stop any function that is running and restart main function? My program keeps stacking points to go back, isn't it? How can I fix it? HotKeySet("{F8}", "StartStop") HotKeySet("{ESC}", "Quit") Global $status = -1, $cont Tray() Main() Func Main() $cont = 0 While 1 If $status = 1 Then Cont100() Switch TrayGetMsg() Case $ExitTray Exit Case $OptionsTray MsgBox(0, "Options", "Options") EndSwitch WEnd EndFunc Func Cont100() While $cont < 100 SplashTextOn("", $cont+1, 100, 50, 0, 0) $cont += 1 Sleep(1000) WEnd EndFunc Func Tray() Opt("TrayMenuMode",1) Global $OptionsTray = TrayCreateItem("Options") Global $ExitTray = TrayCreateItem("Exit") TraySetToolTip("NeoBux Bot - By FiMo") EndFunc Func StartStop() $status *= -1 Main() EndFunc Func Quit() Exit EndFunc

Windows 7 Yes, this solved the problem... I tought I wasnt using secure socket... Thank you!

getting the same error here but at line 92... ### COM Error ! Number: 80020009 ScriptLine: 92 Description: The transport failed to connect to the server. EDIT: I hid the password... ; ;################################## ; Include ;################################## #Include<file.au3>; ################################## ; Variables ;################################## $SmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED $FromName = "Me" ; name from who the email was sent $FromAddress = "contactmailfimo@gmail.com" ; address from where the mail should come $ToAddress = "contactmailfimo@gmail.com" ; destination address of the email - REQUIRED $Subject = "Mail Test" ; subject from the email - can be anything you want it to be $Body = "" ; the messagebody from the mail - can be left blank but then you get a blank mail $AttachFiles = "" ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed $CcAddress = "CCadress1@test.com" ; address for cc - leave blank if not needed $BccAddress = "BCCadress1@test.com" ; address for bcc - leave blank if not needed $Importance = "Normal" ; Send message priority: "High", "Normal", "Low" $Username = "contactmailfimo@gmail.com" ; username for the account used from where the mail gets sent - REQUIRED $Password = "*********" ; password for the account used from where the mail gets sent - REQUIRED $IPPort = 465 ; port used for sending the mail $ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS ;~ $IPPort=465 ; GMAIL port used for sending the mail ;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS ;################################## ; Script ;################################## Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) If @error Then MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc) EndIf ; ; 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 : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console If FileExists($S_Files2Attach[$x]) Then ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF) $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 "High" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High" Case "Normal" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal" Case "Low" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low" EndSwitch $objEmail.Fields.Update ; Sent the Message $objEmail.Send If @error Then SetError(2) Return $oMyRet[1] EndIf $objEmail="" EndFunc ;==>_INetSmtpMailCom ; ; ; Com Error Handler 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

I did read the help file, it says the error e not how to fix it... That is what I'm looking for... Thanks... I tried the whole list and still not working... Can anyone give me an example that is working?

Here's all the code I'm trying to run #include <Inet.au3> Local $s_SmtpServer = "smtp.gmail.com" Local $s_FromName = "Me" Local $s_FromAddress = "Filipe.Bitt10@gmail.com" Local $s_ToAddress = "Filipe.Bitt10@gmail.com" Local $s_Subject = "Test" Local $as_Body[2] $as_Body[0] = "Testing the new email udf" $as_Body[1] = "Second Line" Local $Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body) $err = @error If $Response = 1 Then MsgBox(0, "Success!", "Mail sent") Else MsgBox(0, "Error!", "Mail failed with error code " & $err) EndIf Any idea???

Thanks @FireFox and @johnmcloud! I'm new in this GUI stuff, so I'm trying to understand your codes. Thanks again guys.

Well that is what I need... Identify a double click on a GUI label Something like this: #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> $n1 = "Null" $n2 = "Null" GUICreate("Teste",200,200) $Name1 = GUICtrlCreateLabel($n1,0,0,100,100,$SS_CENTER) $Name2 = GUICtrlCreateLabel($n2,0,100,100,100,$SS_CENTER) GUISetState(@SW_SHOW) While 1 ; If the label Name1 is double clicked then it pops up a inputbox If DoubleClick($Name1) Then $n1 = InputBox("Name","Name") GUICtrlSetData($Name1,$n1) EndIf WEnd

Thank you very much!

Is there a way to lock the position of a GUI window? How to make it unable to be moved?

I tried what you said and it worked, then I realized that the error wasnt in that part but the content of the array like you and guinness thought... Thank you guys

Can anyone tell me why am I getting this [Posicoes] Vetor=76,,32,,102,,52,,180,,80,,273,,278,,294,,419,,94,,1066,,753,,1055,,447,,1061,,451,,1011,,502,,220,,97,,580,,150,,355,,7,,367,,20,,10,,17 from this code? Local $oi = $vec[0] For $i = 1 to 28 Step +1 $oi &= "," & $vec[$i] Next IniWrite("Example.ini","Posicoes", "Vetor", $oi) instead of this [Posicoes] Vetor=76,32,102,52,180,80,273,278,294,419,94,1066,753,1055,447,1061,451,1011,502,220,97,580,150,355,7,367,20,10,17

Let's say that I have N funcions in my code that are called infinite times... For example: While 1 Func One() Func Two() ; ... Func Nine() Func Ten() WEnd And I want to execute the 10th function only one time per day, even if the programm has been closed and restarted... Is there any way to do it?

Thank you both, now is working properly!!!

I sometimes don't find/understand things in my help files... I don't know how to speak English very well. I tryed what you said and it's still failing... Did I do it right? #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=C:UsersXuxinhaDesktopForm.kxf $Form1 = GUICreate("Form1", 469, 301, 287, 123) $Button1 = GUICtrlCreateButton("Iniciar (F8)", 155, 172, 75, 20, $BS_CENTER) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Button2 = GUICtrlCreateButton("Sair (ESC)", 238, 172, 75, 20, $BS_CENTER) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) GUICtrlCreateInput("", 201, 136, 121, 21, 0) GUICtrlCreateInput("", 201, 108, 121, 21, 0) $Pic1 = GUICtrlCreatePic("C:UsersXuxinhaDesktopa.jpg", 0, 60, 468, 180) GUICtrlSetState(-1,$GUI_DISABLE) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd