Jump to content

cu0x

Members
  • Posts

    17
  • Joined

  • Last visited

Everything posted by cu0x

  1. $VBSPath = "G:\foo\problem name.vbs" You can use ShellExecuteWait("cscript.exe", $VBSPath ,"","",@SW_HIDE) as well
  2. already post my issue and no answer
  3. Hello guys, im trying to solved a problem that I have. Need to get some chinese text from an old Wise script, and in the wise file says f.e. Ù×÷ϵͳ¡£ ÇëÉý¼¶Ä. Is there any way to convert it to traditional chinese? Already tryied the following code... #include <MsgBoxConstants.au3> Example() Func Example() ; Define the string that will be converted later. ; NOTE: This string may show up as ?? in the help file and even in some editors. ; This example is saved as UTF-8 with BOM. It should display correctly in editors ; which support changing code pages based on BOMs. Local Const $sString = "Ù×÷ϵͳ¡£ ÇëÉý¼¶Ä" ; Temporary variables used to store conversion results. $dBinary will hold ; the original string in binary form and $sConverted will hold the result ; afte it's been transformed back to the original format. Local $dBinary = Binary(""), $sConverted = "" ; Convert the original UTF-8 string to an ANSI compatible binary string. $dBinary = StringToBinary($sString) ; Convert the ANSI compatible binary string back into a string. $sConverted = BinaryToString($dBinary) ; Display the resulsts. Note that the last two characters will appear ; as ?? since they cannot be represented in ANSI. DisplayResults($sString, $dBinary, $sConverted, "ANSI") ; Convert the original UTF-8 string to an UTF16-LE binary string. $dBinary = StringToBinary($sString, 2) ; Convert the UTF16-LE binary string back into a string. $sConverted = BinaryToString($dBinary, 2) ; Display the resulsts. DisplayResults($sString, $dBinary, $sConverted, "UTF16-LE") ; Convert the original UTF-8 string to an UTF16-BE binary string. $dBinary = StringToBinary($sString, 3) ; Convert the UTF16-BE binary string back into a string. $sConverted = BinaryToString($dBinary, 3) ; Display the resulsts. DisplayResults($sString, $dBinary, $sConverted, "UTF16-BE") ; Convert the original UTF-8 string to an UTF-8 binary string. $dBinary = StringToBinary($sString, 4) ; Convert the UTF8 binary string back into a string. $sConverted = BinaryToString($dBinary, 4) ; Display the resulsts. DisplayResults($sString, $dBinary, $sConverted, "UTF8") EndFunc ;==>Example ; Helper function which formats the message for display. It takes the following parameters: ; $sOriginal - The original string before conversions. ; $dBinary - The original string after it has been converted to binary. ; $sConverted- The string after it has been converted to binary and then back to a string. ; $sConversionType - A human friendly name for the encoding type used for the conversion. Func DisplayResults($sOriginal, $dBinary, $sConverted, $sConversionType) MsgBox($MB_SYSTEMMODAL, "", "Original:" & @CRLF & $sOriginal & @CRLF & @CRLF & "Binary:" & @CRLF & $dBinary & @CRLF & @CRLF & $sConversionType & ":" & @CRLF & $sConverted) EndFunc ;==>DisplayResults Thanks a lot!
  4. The problem is that whenever I choose a file, nothig is actually been scanned... check it with whireshark and not http post or something like that. Already create a Key, added to the code, compiled and still nothing.. GUI just show not found.
  5. Hi there, au3 still working=? Muchas gracias!
  6. Gracias! Many thanks!
  7. Hello Guys I'm facing the same issue, is there any way to find out or the UAC window closed is? Already check for consent.exe and looks like its open and close in lease than a ms... Here is my code to check if the process exists. Local $GetconsentPID Local $GetconsentRtnValue = False While 1 $GetconsentPID = ProcessExists("consent.exe") If $GetconsentPID <> 0 Then $GetconsentRtnValue = True EndIf If $GetconsentRtnValue = True Then ProcessWaitClose($GetconsentPID) ExitLoop EndIf WEnd
  8. Hello guys, seems like this issue is still not solved.... have a program which create an GUICtrlCreateObj() and inside is $Browser = _IECreateEmbedded() and cannot copy any text from it. OS: Windows Server 2012 R2 + Windows 8.1 64 I was trying to find the bug track but no luck... will really appreciate your help Thanks in adv.
  9. Did u solve the problem? I'm facing the same issue...
  10. Hi there, did u find any solution? I'm trying to do the same on a Windows Server 2012 r2 and want to do it automatically, and not by clicking the confirmation boxes.. Func _ChangeRegionLanguage() Local $GetRegionLangCombo = GUICtrlRead($NewRegionLangCombo) Local $Culture, $Location If $GetRegionLangCombo = "Spanisch - Spanien" Then $Culture = "es-ES" $Location = "217" ElseIf $GetRegionLangCombo = "Finnish - Finnland" Then $Culture = "fi-FI" $Location = "77" ElseIf $GetRegionLangCombo = "Französisch - Frankreich" Then $Culture = "fr-FR" $Location = "84" ElseIf $GetRegionLangCombo = "Ungar - Ungarn" Then $Culture = "hu-HU" $Location = "109" ElseIf $GetRegionLangCombo = "Kroatisch - Kroatien" Then $Culture = "hr-HR" $Location = "108" ElseIf $GetRegionLangCombo = "Schwedisch - Schweden" Then $Culture = "sv-SE" $Location = "221" ElseIf $GetRegionLangCombo = "Tschechien - Tschechische Republik" Then $Culture = "cs-CZ" $Location = "75" ElseIf $GetRegionLangCombo = "Dänisch - Dänemark" Then $Culture = "da-DK" $Location = "61" ElseIf $GetRegionLangCombo = "Deutsch - Deutschland" Then $Culture = "de-DE" $Location = "94" ElseIf $GetRegionLangCombo = "Englisch - Vereinigte Staaten" Then $Culture = "en-US" $Location = "244" ElseIf $GetRegionLangCombo = "Italienisch - Italien" Then $Culture = "it-IT" $Location = "118" ElseIf $GetRegionLangCombo = "Niederländisch - Niederlande" Then $Culture = "nl-NL" $Location = "176" ElseIf $GetRegionLangCombo = "Polnisch - Polen" Then $Culture = "pl-PL" $Location = "191" ElseIf $GetRegionLangCombo = "Rumänisch - Rumänien" Then $Culture = "ro-RO" $Location = "200" EndIf Local $SetCulture = RunWait("PowerShell.exe -Command Set-Culture " & $Culture, "", @SW_HIDE) Local $SetWinHomeLocation = RunWait("PowerShell.exe -Command Set-WinHomeLocation " & $Location, "", @SW_HIDE) Local $SetWinSystemLocale = RunWait("PowerShell.exe -Command Set-WinSystemLocale " & $Culture, "", @SW_HIDE) Local $SetWinUILanguageOverride = RunWait("PowerShell.exe -Command Set-WinUILanguageOverride " & $Culture, "", @SW_HIDE) Local $SetWinUserLanguageList = RunWait("PowerShell.exe -Command Set-WinUserLanguageList " & $Culture & " -force", "", @SW_HIDE) EndFunc ;==>_ChangeRegionLanguageI made this in order to set all Languages, but still need to find the way to change Windows Screen language and do it somehow for all users :S Appreciate your help
  11. I´m trying to get the Keyboard language and get als return "0" wenn I do it under Windows Server 2012, I executed also in Windows 7 x64 and works fine :S Any suggestion? Appreciate it! Here my code: #include <WinAPISys.au3> Run("cmd.exe", "", @SW_HIDE) Local $hWnd = WinWait("[CLASS:ConsoleWindowClass]") Local $bNewKey = "0" & StringRight(_WinAPI_GetKeyboardLayout($hWnd), 3) MsgBox(0,"Keyboard Language", $bNewKey)
  12. Thats what im looking for, some kind of UDF Thanks for your help!
  13. exacly what I´m trying to do is to set color to just a part of the "data" of the GUICtrlCreateLabel(). My Label data is set as follow: If @error = 0 Then Local $sData = $IPLabelText & $aArray[1] & @CRLF & _ $SubnetzmaskeLabelText & $aArray[2] & @CRLF & _ $GWLabelText & $aArray[3] & @CRLF & _ $DNSLabelText & $aArray[4] & @CRLF & _ $DNSSuffixLabelText & $aArray[5] EndIf It´s like a package of Arrays and wonna give them color in case of failure :S I know that it´s complicated but dont wonna create a Label for each Array Thanks!
  14. Hi guys, I´m trying to change the color of a Variable, but just a part of it, the Variable will be later text for a label. Something like this : Hello World! Doest anyone know how to do it? Appreciate your help!
×
×
  • Create New...