[HELP] convert js code to vb.net

Salar Music · Feb 26, 2019

hi guys.. can anyone help me in convert JS to VB.NET here is code

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Arabic Writer - الكاتب العربي</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<script type="text/javascript">

</script>
</head>
<body onload='setdefault(defLang);'>
<center>
<form name='form1' id='form1' action=''>
<br />
<div id='box1info'>
</div>
<textarea dir='rtl' style="color: #000080; font-family: Tahoma" name='inpbox' id='inpbox' rows='9' cols='80'></textarea>
<br />
<br />
<div id='box2info'>
</div>
<textarea dir='rtl' style="color: #000080; font-family: Tahoma" name='outbox' id='outbox' rows='9' cols='80'></textarea>
<br />
<br />
<input id='deletetxt' type=reset value="" />
<input id='clipcopy' onclick='copyclip(frm.outbox.value);' type="button" value="" />
<input id='selecttxt' onclick="selectit();" type="button" value="" />
<input id='processtxt' onclick="ProcessInput();" type="button" value="" />
<br />
<br />
<input id='heeelp' onclick='show("help");' type="button" value="" />
<input id='laaang' onclick='show("lang");' type="button" value="" />
<input id='keybd' onclick='show("keyboard");' type="button" value="" />
<input id='xnumbers' onclick='numbs();' type="button" value="" />


<div id='help' style='display:none;'>

<div id='arabicH' style='width:700px; height:560px; top:0px; right:50px; ; background-color:#fff; display:block' dir='rtl' align='right'>
<br /><br />
<h3>تعليمات البرنامج:</h3>
<ol>
<li><h4>ما هو الكاتب العربي؟</h4>
<h5>الكاتب العربي هو برنامج صمم لكي يساعد المصممين العرب في الكتابة بالبرامج التي لا تدعم اللغة العربية
كبرنامج Adobe Photoshop وغيره من برامج التصميم.
</h5>
</li>
<li><h4>كيف يعمل الكاتب العربي؟</h4>
<h5>
صحيح ان بعض البرامج لا تدعم اللغة العربية، ولكن اغلب البرامج تدعم اليونيكود Unicode
وهو نظام حرفي يجمع كل حروف اللغات المختلفة ويدعمها جميعا
</h5>
<h5>
لكنه كما في اغلب اللغات الاجنبية، يكتب من اليسار الى اليمين.. لذلك تجد برنامج الفوتوشوب مثلا يكتب الكلمات بالمقلوب.
اذا فكل ما نحتاجه هو برنامج يعيد ترتيب الحروف التي ندخلها بحيث تظهر بصورة صحيحة داخل البرامج، وهذا هو بالضبط هو ما يفعله الكاتب العربي.
</h5>
</li>
<li><h4>ما هي مميزات الكاتب العربي؟</h4>
<h5>يتميز الكاتب العربي اولا بكونه مجاني ومتاح للجميع استخدامه والتعديل عليه اذا شعروا بالحاجة لذلك. ثانيا.. يتميز بانه لا يحتاج الى مجموعة خطوط لدعمه..
كل ما يلزم هو برنامج يدعم اليونيكود .. حيث ان اغلب انظمة التشغيل تحتوي على خطوط تدعم اليونيكود
مثل خط الـ Arial الشهير وغيره.
كما يتميز بانه يدعم الحروف الانكليزية والرموز والاقواس والارقام العربية والانجليزية والاسطر المتعددة وغيرها
كما ويدعم هذا البرنامج ارجاع النص الناتج الى اصله اذا تم معالجته مرة ثانية بنفس الطريقة..
ويتميز البرنامج بسهولة تعديله من دون الحاجة الى اعادة بناءه.. حيث يمكن تعديل البرنامح كاملا من خلال تعديل ملف الـ HTML المرافق له.
ويحتوي البرنامج على قابلية اظهار لوحة مفاتيح عربية وذلك لدعم الانظمة التي لا تدعم العربية بالمرة.
كما يتميز بانه برنامج محمول يمكنك ان تاخذه معك على الفلاش دسك.
بالاضافة الى ذلك، فان البرنامج يمكن اي يعمل عن طريق تشغيل ملف الـ exe (يتطلب Windows + .NET Framework 2 or higher) او من خلال فتح صفحة الـ HTML المرافقة للبرنامج في اي متصفح انترنت. وبهذه الطريقة يمكن تشغيل هذا البرنامج على اي نظام تشغيل يحتوي على متصفح انترنت
..ويتميز البرنامج بحجمه الصغير جدا.
</h5>
</li>
</ol>
<input onclick='hide("help");' type="button" value="إغلاق" />
</div>



<div id='englishH' style='width:700px; height:560px; top:0px; right:50px; ; background-color:#fff; display:none' dir='ltr' align='left'>
<br /><br />
<h3>Program Information:</h3>
<ol>
<li><h4>What is the Arabic Writer?</h4>
<h5>The Arabic Writer is a program designed to help Arab Designers to work with Programs that doesn't support Arabic language characters, such as Adobe Photoshop.
</h5>
</li>
<li><h4>How does the Arabic Writer work?</h4>
<h5>
While some programs doesn't support Arabic characters, almost all programs support Unicode, which is a universal charset that includes almost every character of every language.
</h5>
<h5>
But, as in most western languages, its left-to-right oriented, that's why when you try to type Arabic letters in Photoshop, it appears like you are writing backwards.
so, all we need is a program that rearranges the Arabic letters in a way that shows the characters as whole senteces. that's exactly what the Arabic Writer does.
</h5>
</li>
<li><h4>What are the advantages of the Arabic Writer?</h4>
<h5>first of all, its free, and available for everyone to use or edit if needed.
second, it doesn't need a pack of special fonts (as in some programs), as most of the Operating Systems out there have fonts that support unicode like the Arial font for example.
it also supports English letters, symbols, parenthesis, Arabic and English numbers, the use of multiple lines, and it can convert back the generated text if it was processed again in the same manner.
and its very easy to edit the program by editing the HTML file, no need to recompile the code.
it has an on-screen keyboard to support systems that doesn't support the Arabic language at all.
its also portable, and can be run either from the exe file (Requires Windows + .NET Framework 2 or higher), or by simply running the HTML file in any browser. in this way, the program can be used in any operating system.
and its very small in size.
</h5>
</li>
</ol>
<input onclick='hide("help");' type="button" value="close" />
</div>





</div>



<div id='lang' style='border:2px solid #aaa; padding:20px; width:300px; height:100px; top:250px; right:250px; ; background-color:#fff; display:none' align='center'>
<h5 id='chooselang'></h5>
<input onclick='chnglang("arabic");' type="button" value="العربية" />
<input onclick='chnglang("english");' type="button" value="English" />
</div>

<div id='keyboard' style='border:2px solid #aaa; padding:20px; width:560px; height:150px; top:200px; right:100px; ; background-color:#fff; display:none' dir='rtl' align='center'>
<input id='kbspace' onclick="remChar();" type=button value="Backspace" />
<input onclick="addChar2('د');" type=button value="د">
<input onclick="addChar2('-');" type=button value="-">
<input onclick="addChar2('٠');" type=button value=" ٠ " />
<input onclick="addChar2('٩');" type=button value=" ٩ " />
<input onclick="addChar2('٨');" type=button value=" ٨ " />
<input onclick="addChar2('٧');" type=button value=" ٧ " />
<input onclick="addChar2('٦');" type=button value=" ٦ " />
<input onclick="addChar2('٥');" type=button value=" ٥ " />
<input onclick="addChar2('٤');" type=button value=" ٤ " />
<input onclick="addChar2('٣');" type=button value=" ٣ " />
<input onclick="addChar2('٢');" type=button value=" ٢ " />
<input onclick="addChar2('١');" type=button value=" ١ " />
<input onclick="addChar2('ذ');" type=button value="ذ">
<br />
<input onclick="addChar2('ج');" type=button value=" ج " />
<input onclick="addChar2('ح');" type=button value=" ح " />
<input onclick="addChar2('خ');" type=button value=" خ " />
<input onclick="addChar2('ه');" type=button value=" ه " />
<input onclick="addChar2('ع');" type=button value=" ع " />
<input onclick="addChar2('غ');" type=button value=" غ " />
<input onclick="addChar2('ف');" type=button value=" ف " />
<input onclick="addChar2('ق');" type=button value=" ق " />
<input onclick="addChar2('ث');" type=button value=" ث " />
<input onclick="addChar2('ص');" type=button value=" ص " />
<input onclick="addChar2('ض');" type=button value=" ض " />
<br />
<input onclick="addChar2('ط');" type=button value=" ط " />
<input onclick="addChar2('ك');" type=button value=" ك " />
<input onclick="addChar2('م');" type=button value=" م " />
<input onclick="addChar2('ن');" type=button value=" ن " />
<input onclick="addChar2('ت');" type=button value=" ت " />
<input onclick="addChar2('ا');" type=button value=" ا " />
<input onclick="addChar2('ل');" type=button value=" ل " />
<input onclick="addChar2('ب');" type=button value=" ب " />
<input onclick="addChar2('ي');" type=button value=" ي " />
<input onclick="addChar2('س');" type=button value=" س " />
<input onclick="addChar2('ش');" type=button value=" ش " />
<br />
<input onclick="addChar2('ظ');" type=button value=" ظ " />
<input onclick="addChar2('ز');" type=button value=" ز " />
<input onclick="addChar2('و');" type=button value=" و " />
<input onclick="addChar2('ة');" type=button value=" ة " />
<input onclick="addChar2('ى');" type=button value=" ى " />
<input onclick="addChar2('أ');" type=button value=" أ " />
<input onclick="addChar2('إ');" type=button value=" إ " />
<input onclick="addChar2('لا');" type=button value=" لا " />
<input onclick="addChar2('لأ');" type=button value=" لأ " />
<input onclick="addChar2('ر');" type=button value=" ر " />
<input onclick="addChar2('ؤ');" type=button value=" ؤ " />
<input onclick="addChar2('ء');" type=button value=" ء " />
<input onclick="addChar2('ئ');" type=button value=" ئ " />
<br />
<input onclick="addChar2('؟');" type=button value=" ؟ " />
<input onclick="addChar2('.');" type=button value=" . " />
<input onclick="addChar2(':');" type=button value=" : " />
<input onclick="addChar2('،');" type=button value=" ، " />
<input id='kspace' onclick="addChar2(' ');" type=button value="" />
<input onclick="addChar2('(');" type=button value=" ( " />
<input onclick="addChar2(')');" type=button value=" ) " />
<input onclick="addChar2('$');" type=button value=" $ " />
<input onclick="addChar2('!');" type=button value=" ! " />
<br />
<br />
<input id='kclose' onclick='hide("keyboard");' type="button" value="close" />
</div>
</form>

</center>
</body>

i just know to to convert varible

'defining the Unicode Letters
Dim alfmd() As String = {"ﺁ", "ﺁ", "ﺂ", "ﺂ"}
Dim alfhz() As String = {"ﺃ", "ﺃ", "ﺄ", "ﺄ"}
Dim wowhz() As String = {"ﺅ", "ﺅ", "ﺆ", "ﺆ"}
Dim alfxr() As String = {"ﺇ", "ﺇ", "ﺈ", "ﺈ"}
Dim hamzk() As String = {"ﺉ", "ﺋ", "ﺌ", "ﺊ"}
Dim alfff() As String = {"ﺍ", "ﺍ", "ﺎ", "ﺎ"}
Dim baaaa() As String = {"ﺏ", "ﺑ", "ﺒ", "ﺐ"}
Dim tamrb() As String = {"ﺓ", "ﺓ", "ﺔ", "ﺔ"}
Dim taaaa() As String = {"ﺕ", "ﺗ", "ﺘ", "ﺖ"}
Dim thaaa() As String = {"ﺙ", "ﺛ", "ﺜ", "ﺚ"}
Dim geeem() As String = {"ﺝ", "ﺟ", "ﺠ", "ﺞ"}
Dim haaaa() As String = {"ﺡ", "ﺣ", "ﺤ", "ﺢ"}
Dim khaaa() As String = {"ﺥ", "ﺧ", "ﺨ", "ﺦ"}
Dim daaal() As String = {"ﺩ", "ﺩ", "ﺪ", "ﺪ"}
Dim thaal() As String = {"ﺫ", "ﺫ", "ﺬ", "ﺬ"}
Dim raaaa() As String = {"ﺭ", "ﺭ", "ﺮ", "ﺮ"}
Dim zaaai() As String = {"ﺯ", "ﺯ", "ﺰ", "ﺰ"}
Dim seeen() As String = {"ﺱ", "ﺳ", "ﺴ", "ﺲ"}
Dim sheen() As String = {"ﺵ", "ﺷ", "ﺸ", "ﺶ"}
Dim saaad() As String = {"ﺹ", "ﺻ", "ﺼ", "ﺺ"}
Dim daaad() As String = {"ﺽ", "ﺿ", "ﻀ", "ﺾ"}
Dim taaah() As String = {"ﻁ", "ﻃ", "ﻄ", "ﻂ"}
Dim daaah() As String = {"ﻅ", "ﻇ", "ﻈ", "ﻆ"}
Dim aayen() As String = {"ﻉ", "ﻋ", "ﻌ", "ﻊ"}
Dim gayen() As String = {"ﻍ", "ﻏ", "ﻐ", "ﻎ"}
Dim faaaa() As String = {"ﻑ", "ﻓ", "ﻔ", "ﻒ"}
Dim qaaaf() As String = {"ﻕ", "ﻗ", "ﻘ", "ﻖ"}
Dim kaaaf() As String = {"ﻙ", "ﻛ", "ﻜ", "ﻚ"}
Dim laaam() As String = {"ﻝ", "ﻟ", "ﻠ", "ﻞ"}
Dim meeem() As String = {"ﻡ", "ﻣ", "ﻤ", "ﻢ"}
Dim nooon() As String = {"ﻥ", "ﻧ", "ﻨ", "ﻦ"}
Dim hhhhh() As String = {"ﻩ", "ﻫ", "ﻬ", "ﻪ"}
Dim wowww() As String = {"ﻭ", "ﻭ", "ﻮ", "ﻮ"}
Dim yaamd() As String = {"ﻯ", "ﻯ", "ﻰ", "ﻰ"}
Dim yaaaa() As String = {"ﻱ", "ﻳ", "ﻴ", "ﻲ"}
Dim laamd() As String = {"ﻵ", "ﻵ", "ﻶ", "ﻶ"}
Dim laahz() As String = {"ﻷ", "ﻷ", "ﻸ", "ﻸ"}
Dim laaxr() As String = {"ﻹ", "ﻹ", "ﻺ", "ﻺ"}
Dim laaaa() As String = {"ﻻ", "ﻻ", "ﻼ", "ﻼ"}

'defining dimiables
Dim y As String = "" 'initialize global dims
Dim old As String = ""
Dim tstr As String = ""

'alert(navigator.userAgent)
Dim numbs0 As String = "الارقام العربية غير مفعلة"
Dim numbs1 As String = "الارقام العربية مفعلة"
Dim numbers As String = "0123456789٠١٢٣٤٥٦٧٨٩" 'defining numbers
Dim unicode As String = "ﺁﺁﺂﺂﺃﺃﺄﺄﺅﺅﺆﺆﺇﺇﺈﺈﺉﺋﺌﺊﺍﺍﺎﺎﺏﺑﺒﺐﺓﺓﺔﺔﺕﺗﺘﺖﺙﺛﺜﺚﺝﺟﺠﺞﺡﺣﺤﺢﺥﺧﺨﺦﺩﺩﺪﺪﺫﺫﺬﺬﺭﺭﺮﺮﺯﺯﺰﺰﺱﺳﺴﺲﺵﺷﺸﺶﺹﺻﺼﺺﺽﺿﻀﺾﻁﻃﻄﻂﻅﻇﻈﻆﻉﻋﻌﻊﻍﻏﻐﻎﻑﻓﻔﻒﻕﻗﻘﻖﻙﻛﻜﻚﻝﻟﻠﻞﻡﻣﻤﻢﻥﻧﻨﻦﻩﻫﻬﻪﻭﻭﻮﻮﻯﻯﻰﻰﻱﻳﻴﻲﻵﻵﻶﻶﻷﻷﻸﻸﻹﻹﻺﻺﻻﻻﻼﻼ" 'defining arabic unicode chars
Dim Left As String = "ـئظشسيبلتنمكطضصثقفغعهخحج" 'defining letters that can connect from the left
Dim Right As String = "ـئؤرلالآىآةوزظشسيبللأاأتنمكطضصثقفغعهخحجدذلإإ" 'defining letters that can connect from the right
Dim arabic As String = "ًٌٍَُِّْْئءؤرلاىةوزظشسيبلاتنمكطضصثقفغعهخحجدذْلآآلأأـلإإ،؟" 'defining all arabic letters + harakat + symbols
Dim harakat As String = "ًٌٍَُِّْْ" 'defining the harakat
Dim sym As String = "ًٌٍَُِّـ.،؟ @#$%^&*-+|\/as string =~(){}ْ," 'defining other symbols
Dim g As String

Continue reading...

[HELP] convert js code to vb.net

Salar Music

Guest

Similar threads