Like I said previously, you can't use the standard AutoIt menu, so there are a couple of extra steps. Is this the output you were expecting?
#include <Constants.au3>
#include <MenuConstants.au3>
#include <GUIMenu.au3>
#include <Process.au3>
#NoTrayIcon
Opt("TrayMenuMode", 1)
Local Enum $item1 = 1000, $item2, $item3, $item4, $item5, $item6, $itemAbout, $itemExit
Local $hWindow = WinGetHandle(AutoItWinGetTitle())
;----------------Create Menu-----------------------------------
Local $webservicesitem = _GUICtrlMenu_CreatePopup("سرويسهاي وب")
_GUICtrlMenu_AddMenuItem($webservicesitem, "سرويس وب اول", $item1)
_GUICtrlMenu_AddMenuItem($webservicesitem, "اتوماسيون", $item2)
_GUICtrlMenu_AddMenuItem($webservicesitem, "منابع انساني", $item3)
_GUICtrlMenu_AddMenuItem($webservicesitem, "I want to justify these Arabic items to the right side of submenu", $item4)
_GUICtrlMenu_AddMenuItem($webservicesitem, "کدينگ", $item5)
_GUICtrlMenu_AddMenuItem($webservicesitem, "How I can justify these items Arabic texts to right side of menu?", $item6)
_GUICtrlMenu_AddMenuItem($webservicesitem, "About", $itemAbout)
_GUICtrlMenu_AddMenuItem($webservicesitem, "خروج", $itemExit)
TraySetState()
TraySetClick(0)
;--------------------------------------------------------
While 1
Local $msg = TrayGetMsg()
If $msg = $TRAY_EVENT_SECONDARYDOWN Then
$item = _GUICtrlMenu_TrackPopupMenu2($webservicesitem, $hWindow, -1, -1, 1, 1, 2, 0, True)
Select
Case $item = 0
ContinueLoop
Case $item = $item1
Local $rc = _RunDos("start Http://www.google.com")