طريقه فعالسازي : نرم افزار رایگان بوده و به کرک احتیاج ندارد.

 قيمت: رایگان
 دانلود رایگان نرم افزار - 17.28 مگابايتWindows 7 32-BIT | لينک كمكي | لینک کمکی
 دانلود رایگان نرم افزار - 34.69 مگابايتWindows 7 64-BIT | لينک كمكي | لینک کمکی
دانلود رایگان نرم افزار - 17.17 مگابايتWindows Vista 32-BIT | لينک كمكي | لینک کمکی
دانلود رایگان نرم افزار - 34.46 مگابايتWindows Vista 64-BIT | لينک كمكي | لینک کمکی

 پسورد فايل زيپ : www.asandownload.com
 بحث پيرامون اين مطلب در انجمن
 سايت سازنده
 لينک منبع

Public Sub Window_OnLoad() 'Set LoadChar = AgentControl.Characters.Load ("Merlin", _ ' "C:Windowsmsagentcharsmerlin.acs") 'Change to proper root depending on OS. Set LoadChar = AgentControl.Characters.Load ("Merlin") On Error Resume Next Set Merlin = AgentControl.Characters ("Merlin") Merlin.Show Merlin.Speak ("jomleye shoma") Merlin.MoveTo 100,500 Merlin.GestureRight Merlin.Speak ("jomleye shoma") Merlin.MoveTo 500,10 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 200,10 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 300,300 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 200,450 Merlin.Speak ("adrese maile shoma") Merlin.MoveTo 500,10 Merlin.Speak ("adrese webloge shoma") End Sub Sub AgentControl_DragStart (ByVal ID, ByVal Button, ByVal Shift,ByVal x, ByVal y) Merlin.Play ("Alert") Merlin.Speak ("Pau=800vol=65535darde eshgh hamishe marashekast dad ") End Sub Sub AgentControl_DragCOmplete (ByVal ID, ByVal Button, ByVal Shift,ByVal x, ByVal y) Merlin.Play ("RestPose") End Sub