shai

sorry about the bump old topic. but i have Q that connected to this topic. how can use RasHangUp function to disconnect the connection?

my code crashe (when i run it by F5) with this msg: >Running:(3.3.14.2):C:\Program Files (x86)\AutoIt3\autoit3.exe "C:\myscript.au3" --> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop !>12:48:37 AutoIt3.exe ended.rc:-1 +>12:48:37 AutoIt3Wrapper Finished. i cannot share my code. because it is big personal code. my question is how i can get more info what is wrong in the code? thanks

sometimes user type hebrew but the keyboard is on english mode so it get wrong text (its called gibrish) with this function you can easy convert worng text to readable hebrew. maybe it is be helpful to other users here Func gibrish_to_hebrew($string) Local $aArray[31][2] = [['t', 'א'],['c', 'ב'],['d', 'ג'],['s', 'ד'],['v', 'ה'],["u", 'ו'],['z', 'ז'], _ ['j', 'ח'],['y', 'ט'],['h', 'י'],['f', 'כ'],['l', 'ך'],['k', 'ל'],['n', 'מ'], _ ['o', 'ם'],['b', 'נ'],['i', 'ן'],['x', 'ס'],['g', 'ע'],['p', 'פ'],[';', 'ף'], _ ['m', 'צ'],['.', 'ץ'],['e', 'ק'],['r', 'ר'],['a', 'ש'],[',', 'ת'],['/', '.'], _ ["'", ','],['q', '/']] Local $agibrish = StringRegExp($string, "(.)", 3) Local $sRet = "" For $i = 0 To UBound($agibrish) - 1 Local $match = False For $x = 0 To UBound($aArray) - 1 If $aArray[$x][0] = $agibrish[$i] Then $match = True $sRet &= $aArray[$x][1] EndIf Next If Not $match Then $sRet &= $agibrish[$i] Next Return $sRet EndFunc

ok thanks. so this is a bug. no?

ok sorry. i edited my post

when i create gui with RTL style input dont align to the left even if i set it. example: #include <WindowsConstants.au3> #include <StaticConstants.au3> $gui = GUICreate("", 260, 100, -1, -1, -1, $WS_EX_LAYOUTRTL)     GUICtrlCreateLabel("username:", 10, 15, 80, 20)     $username = GUICtrlCreateInput("", 80, 10, 100, 20,$SS_LEFT)     $ok = GUICtrlCreateButton("OK", 190, 10, 60, 50)     GUISetState()     While 1         $nmsg = GUIGetMsg()         Switch $nmsg             Case -3, $ok                 GUIDelete($gui)                 ExitLoop         EndSwitch     WEnd

Func _sendfile($file) $hOpen = _WinHttpOpen() $hConnect = _WinHttpConnect($hOpen, "www.example.com") $sRead = _WinHttpSimpleFormFill($hConnect, "/upload.php", "index:0", "name:file", $file) _WinHttpCloseHandle($hConnect) _WinHttpCloseHandle($hOpen) EndFunc this code work perfect until i set #AutoIt3Wrapper_Run_Au3Stripper=y on the script. if i compile my script with this parameters: #AutoIt3Wrapper_Run_Au3Stripper=y #Au3Stripper_Parameters=/sf /sv /om /mi the function dont work.

this is old topic. anyway. extended error 21 means "Library used incorrectly"

now its work. thanks

thanks

hi i try to use your UDF but the gui is disrupted after i click to Extend. this is my code: #include "GUIExtender.au3" $gui = GUICreate("test", 260, 220, -1, -1, BitOR (0x00C00000, 0x00080000), 0x400000) _GUIExtender_Init($gui) $iThis_Section = _GUIExtender_Section_Start($gui, 0, 100) GUICtrlCreateLabel("Test 1:", 10, 15, 60, 20) $con_status = GUICtrlCreateInput("", 70, 10, 70, 20, 2048) $con_type = GUICtrlCreateLabel("", 145, 15, 100, 20) GUICtrlCreateLabel("Test 2:", 10, 40, 60, 20) $curent_apn = GUICtrlCreateInput("", 70, 35, 70, 20, 2048) $connect = GUICtrlCreateButton("action 1", 10, 60, 100, 30, 0x0001) $disconnect = GUICtrlCreateButton("action 2", 160, 60, 90, 30) GUICtrlSetFont($connect, 10, 800) GUICtrlSetBkColor($connect, 0x9ACD32) GUICtrlSetFont($disconnect, 10, 800) GUICtrlSetBkColor($disconnect, 0xFF4500) _GUIExtender_Section_Action($gui, $iThis_Section + 1, "", "", 115, 80, 35, 15) _GUIExtender_Section_End($gui) $iMore_Section = _GUIExtender_Section_Start($gui, 100, 120) $setnativapn = GUICtrlCreateButton("action 3", 10, 100, 120, 30) $checkall = GUICtrlCreateButton("action 4", 140, 100, 110, 30) $delnativapn = GUICtrlCreateButton("action 5", 10, 140, 120, 30) $fixconsettings = GUICtrlCreateButton("action 6", 140, 140, 110, 30) $downloadcert = GUICtrlCreateButton("action 7", 10, 180, 120, 30) $downloadremote = GUICtrlCreateButton("action 8", 140, 180, 110, 30) _GUIExtender_Section_End($gui) _GUIExtender_Section_Extend($gui, 0, False) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $checkall ConsoleWrite("$checkall" & @CRLF) Case $setnativapn ConsoleWrite("$setnativapn" & @CRLF) Case $delnativapn ConsoleWrite("$delnativapn" & @CRLF) Case $disconnect ConsoleWrite("$disconnect" & @CRLF) Case $connect ConsoleWrite("$connect" & @CRLF) Case $fixconsettings ConsoleWrite("$fixconsettings" & @CRLF) Case $downloadcert ConsoleWrite("$downloadcert" & @CRLF) Case $downloadremote ConsoleWrite("$downloadremote" & @CRLF) EndSwitch _GUIExtender_Action($gui, $nMsg) WEnd

i know but i need the my Decrypt.

someone can help me to convert this function from vb to autoit? Public Function Decrypt(ByRef TheString As String) As String Const FUNCTION_ As String = "Decrypt" On Error GoTo func_err Dim i As Short Dim j As Short Dim High As Short Dim Low As Short If Left(TheString, 1) = " " Then ' Illegal string Decrypt = Right(TheString, Len(TheString) - 1) Exit Function End If j = 1 For i = 1 To Len(TheString) Step 2 High = 16 * (Asc(Mid(TheString, i, 1)) - 33) Low = Asc(Mid(TheString, i + 1, 1)) - 33 Mid(Decrypt, j, 1) = Chr(High + Low) j = j + 1 Next i Decrypt = Trim(Decrypt) func_end: Exit Function func_err: LastError = Err.Description ErrHnd(MODULE_ & FUNCTION_ & " - " & LastError) Resume func_end End Functionthanks

i create this function: Func utf8towindows1255($hFileorg, $hFiledest) Local $hFileOpen = FileOpen($hFileorg, 0) Local $sFileRead = FileRead($hFileOpen) FileClose($hFileOpen) FileClose(FileOpen($hFiledest, 2 + 8)) Local $hfOpen = FileOpen($hFiledest, 1 + 8) FileWrite($hfOpen, $sFileRead) FileClose($hfOpen) EndFunc and i run it on file that is encode in utf8. if i run it in my full script the output file is in utf8 but if i run it on new script with only this function the output file is in ANSI. why?

i try this but after FileWrite the new file is still on utf8