Jump to content
Sign in to follow this  
nacerbaaziz

cmd Unicode text maker

Recommended Posts

Hi dear
With this script you can print Unicode text in the CMD screen
the script is  easy to use
just you  write the text that contains Unicode in the first input
and the script automatically reflect the code in the second input
 you can copy the text to the clipboard
or you can try printing the text in the CMD window
I apologize to everyone for colors and shape if not appropriate
I'm a blind man and I do not see
Thank you for your understanding
Greetings to all of youCmdUtM.au3

Share this post


Link to post
Share on other sites

Sorry to put it boldly, but I don't see the purpose and possible use of your code.

Edited by jchd

This wonderful site allows debugging and testing regular expressions (many flavors available). An absolute must have in your bookmarks.
Another excellent RegExp tutorial. Don't forget downloading your copy of up-to-date pcretest.exe and pcregrep.exe here
RegExp tutorial: enough to get started
PCRE v8.33 regexp documentation latest available release and currently implemented in AutoIt beta.

SQLitespeed is another feature-rich premier SQLite manager (includes import/export). Well worth a try.
SQLite Expert (freeware Personal Edition or payware Pro version) is a very useful SQLite database manager.
An excellent eBook covering almost every aspect of SQLite3: a must-read for anyone doing serious work.
SQL tutorial (covers "generic" SQL, but most of it applies to SQLite as well)
A work-in-progress SQLite3 tutorial. Don't miss other LxyzTHW pages!
SQLite official website with full documentation (may be newer than the SQLite library that comes standard with AutoIt)

Share this post


Link to post
Share on other sites

I think it is junk code :|

#cs
    This script was designed by Nacer Baaziz from Algeria
    With this script you can print Unicode text in the CMD screen
    the script is  easy to use
    just you  write the text that contains Unicode in the first input
    and the script automatically reflect the code in the second input
    you can copy the text to the clipboard
    or you can try printing the text in the CMD window
    I apologize to everyone for colors and shape if not appropriate
    I'm a blind man and I do not see
    Thank you for your understanding
    You can contact me by e-mail below
    nacerStile@gmail.com
#ce
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Res_Comment=unicode cmd text maker
#AutoIt3Wrapper_Res_Description=CMD Unicode Text Maker
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright= ©2018, by nacer baaziz
#AutoIt3Wrapper_Res_Language=1033
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>
#include <file.au3>
#include <Clipboard.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
### the window ###
Local $GUI = GUICreate("cmd Unicode text maker")
GUICtrlCreateLabel("&original text", 0, 10, 100, 25)
Local $Input1 = GUICtrlCreateInput("", 110, 10, 200, 25)

GUICtrlCreateLabel("&Unicode text", 0, 50, 100, 25)
Local $Input2 = GUICtrlCreateInput("", 110, 50, 200, 25)
_GUICtrlEdit_SetReadOnly(-1, True)
Local $BT1 = GUICtrlCreateButton("&test", 0, 100, 50, 25)
Local $BT2 = GUICtrlCreateButton("&copy", 60, 100, 50, 25)
Local $BT3 = GUICtrlCreateButton("&Close", 120, 100, 50, 25)
###
GUISetState(@SW_SHOW, $GUI)
### the loop ###
While 1
    Switch GUIGetMsg()
        Case $GUI_event_close, $BT3
            Exit
        Case $Input1
            Local $Run = Run(@ComSpec & " /c cls & @echo off & echo " & GUICtrlRead($Input1), @SystemDir, @SW_HIDE, BitOR($STDERR_CHILD, $STDOUT_CHILD))
            Local $Text = ""
            While 1
                $Text = StdoutRead($Run)
                If @error Then ExitLoop
                GUICtrlSetData($Input2, $Text)
            WEnd
        Case $BT1
            If Not (GUICtrlRead($Input2) = "") Then
                Local $temp = _TempFile(@TempDir & "\", Default, ".cmd")
                FileWrite($temp, "cls" & @CRLF & "@echo off" & @CRLF & "title Unicode Test" & @CRLF & "echo " & GUICtrlRead($Input2) & @CRLF & "pause" & @CRLF & "exit")
                Run($temp)
                FileDelete($temp)
            EndIf
        Case $BT2
            If Not (GUICtrlRead($Input2) = "") Then
                _ClipBoard_SetData(GUICtrlRead($Input2))
                If Not @error Then
                    MsgBox(64, "result", "the unicode text was added to the ClipBoard", "", $GUI)
                Else
                    MsgBox(16, "result", "the unicode text can't be  added to the ClipBoard", "", $GUI)
                EndIf
            EndIf
    EndSwitch
WEnd
###

 


Regards,
 

Share this post


Link to post
Share on other sites

@VIP With some of your entries on this forum I really don't think you have room to call anything anyone else posts "junk". If this Example is not something you find value in, keep scrolling.

@nacerbaaziz as jcdh points out above, perhaps you can add some context as to where/when you would see a use for this snippet. It may be something unique to your circumstances.


"Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball

How to get your question answered on this forum!

Share this post


Link to post
Share on other sites
7 minutes ago, JLogan3o13 said:

@VIP With some of your entries on this forum I really don't think you have room to call anything anyone else posts "junk". If this Example is not something you find value in, keep scrolling.

 

@VIP,

It is sad to see you are repeating some of the behavior we have had a quit elaborate "talk" on and I am pretty sure I have also told you the consequences of not sticking to those borders I gave ...  Did you forget?

Jos


SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

Thank you to all for your beautiful responses.
I repeat my apologies for the appearance of the window if it isn't in the proper form
I apologize if i commit an unintended violation.
I am Always in service
:)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By MiKa666
      Hi all,
      I'm developing a tool for exploratively testing another software. For that I wanna cover all the GUI functionality from that software and verify everything works as intended. But now I've a problem which I couldnt solve so far.
      One thing that software I'm testing does, is to load up either a single picture or a series of pictures. Depending on how much pictures got loaded, further actions will be proceeded...
      This loaded pictures are schon within a ToolbarWindow and they're clickable. What I need to know is, how much pictures are in this ToolbarWindow...
      Can anybody provide me a tip on how to achive this?
      Would be amazing!!
      BR,
      Mic
    • By meety
      Hello!
      wingettext function can get the text content of the IE browser page, but the text content of the page cannot be obtained in the chrome browser? What should I do?
    • By DirtyJohny
      Hi everyone.Need rewrite this function how in еxample.
      Original:
      #RequireAdmin #NoTrayIcon Opt("MustDeclareVars",1) Func _a() Local $sls=ObjGet("winmgmts:{impersonationLevel=impersonate," _ &"authenticationLevel=Pkt}!\\"& _ @ComputerName&'\root\wmi'),$lss=$sls.ExecQuery _ ('SELECT * FROM WmiMonitorID'), _ $lll,$sll,$sss="",$lsl,$lls,$i,$z For $z In $lss $lsl=$z.UserFriendlyName For $i=0 To Ubound($lsl)-1 if ($lsl[$i]) Then $lll&=Chr($lsl[$i]) Next $lls=$z.SerialNumberID For $i=0 To Ubound($lls)-1 if ($lls[$i]) Then $sll&=Chr($lls[$i]) Next $sss&="Model"&@TAB&@TAB&": "&$lll&@CR&"Serial Number"&@TAB&": "&$sll&@CR&@CR $lll="" $sll="" Next MsgBox(262144,'Monitors '&$lss.Count,$sss&" "&@CR) $lss=Null $sls=Null EndFunc _a() Example:
      Func _InfoPC() Local $ObjService = ObjGet('winmgmts:{impersonationLevel = impersonate}!\\' & @ComputerName & '\root\cimv2') Local $ObjMB = $ObjService.ExecQuery('SELECT * FROM Win32_BaseBoard', 'WQL', 0x30) If IsObj($ObjService) Then For $objItemMB In $ObjMB $sInfo &= @TAB & 'Motherboard: ...... ' & $objItemMB.Product & @CRLF I'm beginner in this sphere and need  you all speak easy and simply because i'm Russian.Thanks)
    • By Deshanur
      Am trying to automate injecting credential on the login form for all kind of Web application for IE. I know how to identify the form name by viewing the source code and using the method - _IEFormGetObjByName($ie, $form_Name).
      I would like to know how to identify or get the form object for the web app where there is no form name tag for example below, for the is I have used - _IEFormGetCollection($ie, 0) to get the form object.
      My Question is does it work for all kind of application "_IEFormGetCollection($ie, 0)" how to identify Index value? is it always 0? is there any better solution?
      The final solution am looking for is find out form object, get the username, password field and inject credential and submit the form.
      How to find out index value? for the forms which does not have form name field.
      $login_form = _IEFormGetCollection($ie, 0) $email_field = _IEFormElementGetObjByName($login_form, $form_UserName) $pass_field = _IEFormElementGetObjByName($login_form, $form_password) $login_button = _IEFormElementGetObjByName($login_form, $form_submitbutton) _IEFormElementSetValue($email_field, $CmdLine[2]) _IEFormElementSetValue($pass_field, $CmdLine[3]) ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]","{Enter}") OR This works fine if the form has form name. $login_form = _IEFormGetObjByName($ie, $form_Name) $email_field = _IEFormElementGetObjByName($login_form, $form_UserName) $pass_field = _IEFormElementGetObjByName($login_form, $form_password) $login_button = _IEFormElementGetObjByName($login_form, $form_submitbutton) _IEFormElementSetValue($email_field, $CmdLine[2]) _IEFormElementSetValue($pass_field, $CmdLine[3]) ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]","{Enter}")
    • By JuanFelipe
      Hello guys!
      I have a problem with a script, in the past I made a program and it worked perfect, I recently used it again and it already stands still in one step, the problem is a Javascript event that changed but now I cannot execute it.
       
      <td colspan="2" align="center"><input type="button" id="Buscar" name="Buscar" value="Buscar" onclick="javascript:enviarForma(document.obtenercasosPersonaPorDocumento,'0');" class="boton"></td>  
      Previously I used this code and it worked, but now it does nothing
      $botonconsulta = _IEGetObjByName($oIE,"Buscar") _IEAction($botonconsulta, 'click') _IELoadWait($oIE)  
      Now I have tried the following codes but none works.
       
      ;==================== 1 _IEHeadInsertEventScript($oIE, "document", "onclick", "javascript:enviarForma(document.obtenercasosPersonaPorDocumento,'0');") ControlClick("SUPER CELAC", "", "[CLASS:Internet Explorer_Server; INSTANCE:1]") _IELoadWait($oIE) ;==================== 2 $forma = $oIE.document.obtenercasosPersonaPorDocumento $oIE.Navigate("JavaScript:enviarForma("&$forma&",""0"");") _IELoadWait($oIE) ;==================== 3 $boton = _IEGetObjById($oIE, "Buscar") $boton.document.parentwindow.execScript("enviarForma(document.obtenercasosPersonaPorDocumento,'0');", "javascript") I hope you can guide me, because I think the error is in the parameters that the javascript function receives but I don't know how to send it, here I leave the first part of the JavaScript function.
      function enviarForma(frm,tipoForma){ var bExisteDatoConsulta = false; var bError=true; var mensajeError=""; switch (tipoForma) { //--Forma documento case "0": if (validar_campo_no_vacio_no_print(frm.numeroDocumento)) { if (!isNum(frm.numeroDocumento.value)) { bError = false; mensajeError += "El número de documento debe ser un valor numérico\n"; } bExisteDatoConsulta = true; } else { mensajeError += "Debe digitar un número de documento\n"; } break;  Thanks!
×
×
  • Create New...