Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 05/24/2017 in all areas

  1. Not your mate and doubt I'll ever be. As to the way you are currently getting answers is what you have earned by acting up as you did in the past. I think my initial answer was quite professional considering you past, but you again insisted to act smart. I am going to stop this discussion here and now and close this topic as you aren't willing to be helped in a normal fashion. Do not open a new thread on the same topic! Jos
    1 point
  2. Glad your problem could be solved
    1 point
  3. Yes, try an If statement: $sVal = RegRead($sKey & $sSubKey, "DisplayName") If $sVal <> "" Then ... Else ... EndIf I'll let you fill in the particulars.
    1 point
  4. Another way: Local $sString = "" If StringIsDigit($sString) Then MsgBox(4096, "", $sString > 0 ? "Value is positive." : "Value is negative.") Else MsgBox(4096, "", StringIsXDigit($sString) ? "Value might be hexadecimal!" : "Value is a string.") EndIf
    1 point
  5. Subz

    array add column

    You could try Redim #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <GuiListBox.au3> #include <Array.au3> Local $aResult[1][1] #Region ### START Koda GUI section ### Form=c:\users\user\desktop\script\stringsplit1.kxf $Form1_1 = GUICreate("Form1", 219, 98, 192, 114) $Input1 = GUICtrlCreateInput("", 24, 16, 169, 21) $Split = GUICtrlCreateButton("Split", 64, 48, 75, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Split $read = GUICtrlRead($Input1) If $read = "" Then MsgBox(16, "Blank Input", "Blank") Else $STRIP = StringStripWS($read, $STR_STRIPALL) _StringToArray(StringSplit($STRIP, ",")) _ArrayDisplay($aResult) EndIf EndSwitch WEnd Func _StringToArray($aSplit) If $aSplit[0] = 1 Then _ArrayAdd($aResult, $aSplit[1]) If UBound($aResult, 2) < $aSplit[0] Then ReDim $aResult[UBound($aResult)][$aSplit[0]] _ArrayAdd($aResult, _ArrayToString($aSplit, "|", 1)) EndIf $aResult[0][0] = UBound($aResult) - 1 EndFunc
    1 point
  6. Celestial

    Autoit's future

    You need 20 posts to see that topic, more info here
    1 point
  7. Hello. This should work. ControlGetText("VIP Access", "", "Static6") Saludos
    1 point
  8. Good news. Bad news. I'm pleased to report that the newest Au3Stripper does properly handle extended characters ... like emdash and the copyright symbol. But I'm dismayed by the fact that it apparently removed a variable that is referenced by the following statement: Global Const $tagREBARBANDINFO = "uint cbSize;uint fMask;uint fStyle;dword clrFore;dword clrBack;ptr lpText;uint cch;" & "int iImage;hwnd hwndChild;uint cxMinChild;uint cyMinChild;uint cx;handle hbmBack;uint wID;uint cyChild;uint cyMaxChild;" & "uint cyIntegral;uint cxIdeal;lparam lParam;uint cxHeader" &((@OSVersion = "WIN_XP") ? "" : ";" & $tagRECT & ";uint uChevronState") I'll grant that this use of $tagRECT is not simple. But this statement works fine in the older version of Au3Stripper. And by the looks of it, the statement is from a UDF. Maybe I can isolate the section of code and bring it into my script. I'll report my progress and will appreciate any advice on how to work around this problem.
    1 point
  9. Your welcome and let me know in case you need more assistance with debugging. Maybe upgrade to the latest version of the SciTE4AutoIt3 installer anyway as I have made many changes since the version you are running... also in the support of ANSI and UTF8 files. Jos
    1 point
  10. Hello, this script works: Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") #include <_INetSmtpMailCom.au3> ;################################## ; Variables ;################################## $SmtpServer = "" ; address for the smtp-server to use - REQUIRED $FromName = "autoBert" ; name from who the email was sent $FromAddress = "anyBody@hotmail.com" ; address from where the mail should come $ToAddress = "anotherBoy@hotmail.ocm" ; destination address of the email - REQUIRED $Subject = "Userinfo" ; subject from the email - can be anything you want it to be $Body = "Test" ; the messagebody from the mail - can be left blank but then you get a blank mail $AttachFiles = "" ; the file you want to attach- leave blank if not needed $CcAddress = "" ; address for cc - leave blank if not needed $BccAddress = "" ; address for bcc - leave blank if not needed $Importance = "Normal" ; Send message priority: "High", "Normal", "Low" $Username = "MyAccountName" ; username for the account used from where the mail gets sent - REQUIRED $Password = "TopSecret" ; password for the account used from where the mail gets sent - REQUIRED $IPPort = 25 ; port used for sending the mail normaly 25 $ssl = 1 ; 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 ;################################## $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) Else MsgBox(0, "Message send", "to " & $ToAddress) EndIfand here the include-File: _INetSmtpMailCom.au3
    1 point
×
×
  • Create New...