النتائج 1 إلى 4 من 4

الموضوع: هل يمكن تحويل هذا الملف لكى يعمل على الويب :) اتمنى مساعدة الخبراء

  1. #1

    هل يمكن تحويل هذا الملف لكى يعمل على الويب :) اتمنى مساعدة الخبراء



    السلام عليكم .. هذا كود ملف JS ولكنة يعمل على برنامج الماسنجر فقط لا افهم صراحة فى الجافا اسكربت ولكنى اريد استخدامة على الويب هل من طريقة لذلك ..

    الكود :

    كود:
    var Wnd;
    
    function OnGetScriptMenu(Location) 
    { 
    	var ScriptMenu = "<ScriptMenu>"; 
    	ScriptMenu += "<MenuEntry Id=\"MnuStart\">Edit Name</MenuEntry>"; 
    	ScriptMenu += "</ScriptMenu>"; 
    	return ScriptMenu; 
    }
    
    function OnEvent_MenuClicked(MenuItemId, Location, OriginWnd)
    {
    	if(MenuItemId == "MnuStart")
    	{
    		Wnd = MsgPlus.CreateWnd("NameEditor.xml", "WndMain");
    		Wnd.SetControlText("NameEdit", Messenger.MyName);
    		Wnd.SetControlText("NameEditPreview", Messenger.MyName);
    		Wnd.SendControlMessage('NameEdit', 0xC5, 129, 0);
    		Wnd.Combo_AddItem("NamePm", "Name");
    		Wnd.Combo_AddItem("NamePm", "Personal Message");
    		Wnd.Combo_SetCurSel("NamePm", 0);
    		//Wnd.ImageElmt_SetImageFile("emoticon", "WLM_1");
    		var len = Wnd.GetControlText("NameEdit").length;
    		var EM_SETSEL = 0xB1;
    		Interop.Call("user32","SetFocus", Wnd.GetControlHandle("NameEdit"));
    		Interop.Call("user32","SendMessageW", Wnd.GetControlHandle("NameEdit"), EM_SETSEL, len, len);
    	}
    }
    
    function OnWndMainEvent_ComboSelChanged()
    {
    	if(Wnd.Combo_GetCurSel("NamePm") == 0)
    		Wnd.SetControlText("NameEdit", Messenger.MyName);
    	else
    		Wnd.SetControlText("NameEdit", Messenger.MyPersonalMessage);
    }
    
    function OnEvent_Uninitialize(MessengerExit)
    {
    	Wnd.Close();
    }
    
    function OnWndMainEvent_CtrlClicked(Wnd, ControlId) 
    {
    	// Two Win32 Messages that we will need to send later 
    	var EM_GETSEL = 0xB0;
    	var EM_SETSEL = 0xB1;
    	// Allocate some memory for the cursor index
    	var Start = Interop.Allocate(4);
    	// Number of characters to move the cursor on by later
    	var numCharsAdded = 1;
    	// Get where the cursor is in the input box
    	Interop.Call("user32", "SendMessageW", Wnd.GetControlHandle("NameEdit"), EM_GETSEL, Start, 0);
    	// Split the string into two parts on either side of the cursor so we can insert characters in the middle
    	var text = Wnd.GetControlText("NameEdit");
    	var firstHalf = text.substring(0, Start.ReadDWORD(0));
    	var secondHalf = text.substring(Start.ReadDWORD(0), text.length);	
    	
    	// Insert format codes when the format buttons are pressed
    	if(ControlId == "BtnBold")
    	{
    		Wnd.SetControlText("NameEdit", firstHalf + "·#" + secondHalf);
    		numCharsAdded = 2;
    	}
    	if(ControlId == "BtnUnderline")
    	{
    		Wnd.SetControlText("NameEdit", firstHalf + "·@" + secondHalf);
    		numCharsAdded = 2;
    	}
    	if(ControlId == "BtnItalic")
    	{
    		Wnd.SetControlText("NameEdit", firstHalf + "·&" + secondHalf);
    		numCharsAdded = 2;
    	}
    	if(ControlId == "BtnStrikethrough")
    	{
    		Wnd.SetControlText("NameEdit", firstHalf + "·'" + secondHalf);
    		numCharsAdded = 2;
    	}
    	if(ControlId == "BtnColour")
    	{
    		var CHOOSECOLOR = Interop.Allocate(36);
    		CHOOSECOLOR.WriteDWORD(0, 36); //DWORD lStructSize
    		CHOOSECOLOR.WriteDWORD(4, 0); //HWND hwndOwner
    		CHOOSECOLOR.WriteDWORD(8, 0); //HWND hInstance
    		CHOOSECOLOR.WriteDWORD(12, 0x000000FF); //COLORREF rgbResult (COLORREF = 0x00bbggrr)
    		var CustColors = Interop.Allocate(64); //Create an array of 16 COLORREFs for CustColors
    		CHOOSECOLOR.WriteDWORD(16, CustColors.DataPtr); //COLORREF *lpCustColors (pointer to our array)
    		CHOOSECOLOR.WriteDWORD(20, 3); //DWORD Flags (3 = 2 (CC_FULLOPEN) + 1 (CC_RGBINIT) )
    		CHOOSECOLOR.WriteDWORD(24, 0); //LPARAM lCustData
    		CHOOSECOLOR.WriteDWORD(28, 0); //LPCCHOOKPROC lpfnHook
    		CHOOSECOLOR.WriteDWORD(32, 0); //LPCTSTR lpTemplateName
    
    		//Open the dialog box
    		var result = Interop.Call('comdlg32.dll', 'ChooseColorA', CHOOSECOLOR);
    		//If the user pressed ok convert it to hex
    		if(result == 1)
    		{
      			//Get decimal values
      			var r = CHOOSECOLOR.ReadDWORD(12) & 0xFF;
      			var g = (CHOOSECOLOR.ReadDWORD(12) / 0x100) & 0xFF;
      			var b = (CHOOSECOLOR.ReadDWORD(12) / 0x10000) & 0xFF;
      			//Get hex values
      			var hexchars="0123456789ABCDEF";
      			var r = hexchars.charAt((r >> 4) & 0xf) + hexchars.charAt(r & 0xF);
      			var g = hexchars.charAt((g >> 4) & 0xf) + hexchars.charAt(g & 0xF);
      			var b = hexchars.charAt((b >> 4) & 0xf) + hexchars.charAt(b & 0xF);
      			Wnd.SetControlText("NameEdit", firstHalf + "·$#" + r + g + b + secondHalf);
      			numCharsAdded = 9;
    		} else {
    			Wnd.SetControlText("NameEdit", firstHalf + "·$" + secondHalf);
    			numCharsAdded = 2;
    		}
    	}
    	if(ControlId == "BtnBlack")
    	{
    		Wnd.SetControlText("NameEdit", firstHalf + "·$1" + secondHalf);
    		numCharsAdded = 3;
    	}
    	
    	// Insert special characters when their buttons are pressed
    	if(ControlId == "BtnA")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnE")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnH")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnI")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnN")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnNN")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnNNN")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnO")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnP")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnR")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnT")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnU")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnW")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnY")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnYY")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnTm")
    		Wnd.SetControlText("NameEdit", firstHalf + "™" + secondHalf);
    	if(ControlId == "BtnCross")
    		Wnd.SetControlText("NameEdit", firstHalf + "†" + secondHalf);
    	if(ControlId == "BtnRArrow")
    		Wnd.SetControlText("NameEdit", firstHalf + "»" + secondHalf);
    	if(ControlId == "BtnLArrow")
    		Wnd.SetControlText("NameEdit", firstHalf + "«" + secondHalf);
    	if(ControlId == "BtnB")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnK")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    	if(ControlId == "BtnM")
    		Wnd.SetControlText("NameEdit", firstHalf + "?" + secondHalf);
    		
    	// Set focus back to the edit box and then move the cursor back to where it was
    	Interop.Call("user32","SetFocus", Wnd.GetControlHandle("NameEdit"));
    	Interop.Call("user32","SendMessageW", Wnd.GetControlHandle("NameEdit"), EM_SETSEL, Start.ReadDWORD(0) + numCharsAdded, Start.ReadDWORD(0) + numCharsAdded);
    	
    	// The save and the close button
    	if(ControlId == "BtnClose")
    		Wnd.Visible = false;
    	if(ControlId == "BtnSet")
    	{
    		if(Wnd.Combo_GetCurSel("NamePm") == 0)
    			Messenger.MyName = Wnd.GetControlText("NameEdit");
    		else
    			Messenger.MyPersonalMessage = Wnd.GetControlText("NameEdit");
    	}
    }
    
    function OnWndMainEvent_EditTextChanged(Wnd, ControlId)
    {
    	if(ControlId == "NameEdit")
    		Wnd.SetControlText("NameEditPreview", Wnd.GetControlText("NameEdit"));
    }
    وهذا هو ملف ال Xml الخاص بة للعرض تقريبا وتطبيق الملف السابق .. اريد تحويل ملف ال XML الى html بحيث يتم تحويل الزراير من العمل فى البرنامج الى html لتعمل على الويب بنفس الموضوع اتمنى ان احد يساعدنى :

    ال xml :

    كود:
    <Interfaces xmlns="urn:msgplus:interface" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
     xsi:schemaLocation="urn:msgplus:interface PlusInterface.xsd">
    
    <GlobalColors>
    	<GlobalColor Id="bg">
    		<BaseColor>
    			<Saturation>2</Saturation>
    			<Brightness>0.6</Brightness>
    			<Transparency>82</Transparency>
    		</BaseColor>
    	</GlobalColor>
    	
    	<GlobalColor Id="titleText">
    		<BaseColor>
    			<Saturation>2.5</Saturation>
    			<Brightness>0.8</Brightness>
    			<Transparency>200</Transparency>
    		</BaseColor>
    	</GlobalColor>
    </GlobalColors>
    
    
    <Window Id="WndMain" Version="1">
    	<Attributes>
    		<Caption>NameEditor</Caption>
    	</Attributes>
    	
    	<TitleBar>	
    		<Title>
    			<Prefix>Image</Prefix>
    			<Text>Name Editor</Text>
    		</Title>
    	</TitleBar>
    	
    	<Position Width="400" Height="256"/>
    	
    	<DialogTmpl>
    		<BottomBar Style="Plain">
    			<LeftControls>
    				<Control xsi:type="ComboBoxControl" Id="NamePm">
    				    <Position Top="0" Width="100" Left="0"/>
    				</Control>
    			</LeftControls>
    			<RightControls>
    				<Control xsi:type="ButtonControl" Id="BtnClose">
    				    <Position Top="0" Width="60" Left="0"/>
    				    <Caption>&amp;Close</Caption>
    				</Control>
    				<Control xsi:type="ButtonControl" Id="BtnSet">
    				    <Position Top="0" Width="60" Left="0"/>
    				    <Caption>&amp;Save</Caption>
    				</Control>
    			</RightControls>
    		</BottomBar>
    	</DialogTmpl>
    	
    	<Elements>
    		<Element xsi:type="LineElement" Id="FigLineVersion">
    			<Position Top="25" Left="10" Height="0" Width="370"/>
    	
    			<Color><GlobalColor>bg</GlobalColor></Color>
    		</Element>
    	</Elements>
    	
    	<Controls>
    		<Control xsi:type="StaticControl" Id="LblPluginName">
    			<Position Top="8" Width="255" Left="8" Height="20"/>
    			<Color><GlobalColor>titleText</GlobalColor></Color>
    			<Caption>Name Editor</Caption>
    			<Font>
    				<Size>14</Size>
    				<Bold>true</Bold>
    			</Font>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnBold">
    			<Position Top="45" Width="60" Left="10"/>
    			<Caption>&amp;Bold</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnUnderline">
    			<Position Top="45" Width="60" Left="70"/>
    			<Caption>&amp;Underline</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnItalic">
    			<Position Top="45" Width="60" Left="130"/>
    			<Caption>&amp;Italic</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnStrikethrough">
    			<Position Top="45" Width="60" Left="190"/>
    			<Caption>&amp;Strikethrough</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnColour">
    			<Position Top="45" Width="60" Left="250"/>
    			<Caption>&amp;Colour</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnBlack">
    			<Position Top="45" Width="60" Left="310"/>
    			<Caption>&amp;Black</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnA">
    			<Position Top="60" Width="20" Left="10"/>
    			<Caption>&amp;α</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnB">
    			<Position Top="60" Width="20" Left="30"/>
    			<Caption>&amp;в</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnE">
    			<Position Top="60" Width="20" Left="50"/>
    			<Caption>&amp;ε</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnH">
    			<Position Top="60" Width="20" Left="70"/>
    			<Caption>&amp;н</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnI">
    			<Position Top="60" Width="20" Left="90"/>
    			<Caption>&amp;ι</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnK">
    			<Position Top="60" Width="20" Left="110"/>
    			<Caption>&amp;к</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnM">
    			<Position Top="60" Width="20" Left="130"/>
    			<Caption>&amp;м</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnN">
    			<Position Top="60" Width="20" Left="150"/>
    			<Caption>&amp;ŋ</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnNN">
    			<Position Top="60" Width="20" Left="170"/>
    			<Caption>&amp;и</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnNNN">
    			<Position Top="60" Width="20" Left="190"/>
    			<Caption>&amp;И</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnO">
    			<Position Top="60" Width="20" Left="210"/>
    			<Caption>&amp;σ</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnP">
    			<Position Top="60" Width="20" Left="230"/>
    			<Caption>&amp;ρ</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnR">
    			<Position Top="60" Width="20" Left="250"/>
    			<Caption>&amp;я</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnT">
    			<Position Top="60" Width="20" Left="270"/>
    			<Caption>&amp;т</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnU">
    			<Position Top="60" Width="20" Left="290"/>
    			<Caption>&amp;υ</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnW">
    			<Position Top="60" Width="20" Left="310"/>
    			<Caption>&amp;ω</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnY">
    			<Position Top="60" Width="20" Left="330"/>
    			<Caption>&amp;ч</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnYY">
    			<Position Top="60" Width="20" Left="350"/>
    			<Caption>&amp;Ч</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnCross">
    			<Position Top="75" Width="20" Left="10"/>
    			<Caption>&amp;†</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnTm">
    			<Position Top="75" Width="20" Left="30"/>
    			<Caption>&amp;™</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnLArrow">
    			<Position Top="75" Width="20" Left="50"/>
    			<Caption>&amp;«</Caption>
    		</Control>
    		<Control xsi:type="ButtonControl" Id="BtnRArrow">
    			<Position Top="75" Width="20" Left="70"/>
    			<Caption>&amp;»</Caption>
    		</Control>
    		<Control xsi:type="EditControl" Id="NameEdit">
    			<Position Top="30" Width="370" Left="10" Height="12"/>
    		</Control>
    		<Control xsi:type="RichStaticControl" Id="NameEditPreview">
    			<Position Top="190" Width="370" Left="10" Height="12"/>
    		</Control>
    		<Control xsi:type="RichStaticControl" Id="Colours1">
    			<Position Top="160" Width="370" Left="10" Height="10"/>
    			<Caption>·#Colours: ·$1 1 ·$2 2 ·$3 3 ·$4 4 ·$5 5 ·$7 7 ·$8 8 ·$9 9 ·$10 10 ·$11 11 ·$12 12 ·$13 13 ·$14 14 ·$15 15 ·$16 16 ·$17 17 ·$18 18 ·$19 19 ·$20 20 ·$21 21 ·$22 22 ·$23 23 ·$24 24 ·$25 25 ·$26 26 ·$27 27 ·$28 28 ·$29 29</Caption>
    		</Control>
    		<Control xsi:type="RichStaticControl" Id="Colours">
    			<Position Top="170" Width="370" Left="42" Height="20"/>
    			<Caption>
    			·#·$30 30 ·$31 31 ·$32 32 ·$33 33 ·$34 34 ·$35 35 ·$36 36 ·$37 37 ·$38 38 ·$1 - ·@This selection is limited, try other numbers to find more.·@
    			</Caption>
    		</Control>
    		<Control xsi:type="RichStaticControl" Id="Help">
    			<Attributes>
    				<WrapText>true</WrapText>
    				<Bold>true</Bold>
    			</Attributes>
    
    			<Position Top="90" Width="370" Left="10" Height="60"/>
    			<Caption>·#1)·# Set whether you are editing your 'Name' or 'Personal Message' by using the drop down box at the bottom.\n·#2)·# Use the buttons above to set the style of the font. You can also choose stylish letters from the selection above.\n·#3)·# When picking colours press the colour button then pick a colour or cancel it and type the number of a colour shown below.\n\n·#Note:·# If you apply colours or formatting to your PSM you will not be able to see them, but your contacts will... just use the preview at the bottom to get a good idea what it will look like to your contacts </Caption>
    		</Control>
    	</Controls>
    </Window>
    
    </Interfaces>
    اتمنى مساعدة الخبراء .. وشكرا لكم

    الملفات مرفقة فى المرفقات ..

    تحياتى : عمرو محمد





    الملفات المرفقة الملفات المرفقة
    __________________


  2. #2
    خبير JavaScript
    تاريخ التسجيل
    Jul 2002
    المشاركات
    2,920


    في اي مسنجر يشتغل هذا الكود؟
    لأني ارى انه يحتاج الى قارئ خاص به، اي انه في الصفحة لن يشتغل لوحده






  3. #3


    مرحبا استاذ زيزوار .. انة سكربت ملحق لبرنامج ماسنجر بلس .. فى المانسجر هوتميل ..





    __________________

  4. #4
    عضو جديد
    تاريخ التسجيل
    Apr 2008
    المشاركات
    7


    هذا النص البرمجي مكتوب بلغة جافاسكربت ولكنه لن يعمل في الصفحات لعدة أسباب
    أهمها هو أن الدوال المستخدمة غير مفهومة للمتصفح ولكن المسنجر يفهمها.
    علماً بأن الملف يجب أن يتواجد في مجلد scripts في مسار برنامج المسنجر لتعطي إضافة معينة له.
    فعلى الرغم من كونها مكتوبة بالجافاسكربت إلا أن لها اسلوباً ودوال خاصة للتفاعل مع المسنجر.
    بإمكانك الرجوع للرابط التالي لمعرفة المزيد
    Messenger Plus! Live Script Developer Resource - Scripting Documentation - Getting Started - What's a Messenger Plus! Script?

    هي كالإضافات (الهاكات) للمنتدى أو الووردبريس أو برامج إدارة المحتوى، فلا يمكن استخدام إضافة(plugin) للمنتدى كي تعمل في الووردبريس مثلاً.

    وفقك الله





    __________________
    ---------------------------------
    http://www.kibtar.net





ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •  

أضف موقعك هنا| اخبار السيارات | حراج | شقق للايجار في الكويت | بيوت للبيع في الكويت | دليل الكويت العقاري | مقروء | شركة كشف تسربات المياه | شركة عزل اسطح بالرياض | عزل فوم بالرياض| عزل اسطح بالرياض | كشف تسربات المياة بالرياض | شركة عزل اسطح بالرياض