Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 08/14/2023 in Posts

  1. I think OP wants to generate a command to assign a variable ($My_Password) the password string if so then the best way would be to use double quotes to escape the single quotes (method 1) but if OP doesn't like this way then he could replace the quotes with chr(34) (method 2) If I didn't understand anything then sorry ; BEGIN - Write Test file Local $My_Password = "R7PIO'24NJ7'5OI2J6'O23L64P23" & '"J624P46P;46Z7PIO2' & "'4NJ75OI2J6O23Y64P23J6" & '"24P"46P;46T7PIO24N' & "'J75OI2J6'O23T64P" & '"23"J624"P46P;46K' Local $My_Password_File = @ScriptDir & '\My_Password.txt' FileWrite($My_Password_File, $My_Password) ; END - Write test file $My_Password = FileRead($My_Password_File) FileDelete($My_Password_File) ; Remove test file ConsoleWrite("- " & $My_Password & @CRLF& @CRLf) ; (method 1) ConsoleWrite('-> $My_Password = "' & StringReplace($My_Password, '"', '""') & '"' & @CRLF) ; (method 2) ConsoleWrite('-> $My_Password = "' & StringReplace($My_Password, '"', '" & Chr(34) & "') & '"' & @CRLF)
    1 point
  2. I hope, I am Local $My_Password = "R7PIO'24NJ7'5OI2J6'O23L64P23" & '"J624P46P;46Z7PIO2' & "'4NJ75OI2J6O23Y64P23J6" & '"24P"46P;46T7PIO24N' & "'J75OI2J6'O23T64P" & '"23"J624"P46P;46K' Local $dPasswordBin, $sPasswordStr ConsoleWrite($My_Password & @CRLF) $dPasswordBin = StringToBinary($My_Password) ConsoleWrite($dPasswordBin & @CRLF) ConsoleWrite(BinaryToString($dPasswordBin) & @CRLF)
    1 point
  3. I don't think I can help you with this since I'm unable to understand your use case. Maybe someone else will be better at deciphering your requirements.
    1 point
  4. UEZ

    Tester needed ^^

    No problem. Thx anyway.
    1 point
  5. TheSaint

    Tester needed ^^

    Okay it is a text and items size thing, and will probably screw my icon positioning. And while I use a program to save and restore icon positions, it never works fully correct for some reason. So with all the desktop icons I have, I am going to give it a miss ... sorry. I have my icons grouped very specifically.
    1 point
  6. UEZ

    Tester needed ^^

    Thanks, but the code should detect the DPI which is set on your system otherwise the result will look incorrect (as in your screenshot) Just do following steps: on the desktop press the rmb and select "Screen Resolution" in the lower part of the newly opened window select "Make text and other items larger or smaller" in the next window you can select between different size - select the largest one after logoff / and loggin again just test the Example code again I tested in my VM and it looked properly - all sizes and positions of the controls were set as intended.
    1 point
  7. TheDcoder

    Tester needed ^^

    Is this Windows 7? Source
    1 point
  8. DannyB

    Text-to-Speech UDF

    Found it. The SAPI ASYNC flag can be added to the Speak method. Updated _Speak() for the UDF ; #FUNCTION# ==================================================================================================================== ; Name...........: _Speak ; Description ...: Speaks the contents of the text string. ; Syntax.........: _Speak(ByRef $Object, $sText) ; Parameters ....: $Object - Object returned from _StartTTS(). ; $sText - String of text you want spoken. ; $bWait (false) - If true, waits for the playback to end ; Return values .: Success - Speaks the text. ; Author ........: bchris01 ; Example .......: Yes ; =============================================================================================================================== Func _Speak(ByRef $Object, $sText, $bWait=false) Local $iFlags = 1 If $bWait Then $iFlags = 0 $Object.Speak($sText,$iFlags) EndFunc ;==>_Speak
    1 point
×
×
  • Create New...