ممكن المساعده

أخي العزيز :: عبيده ::

هل جربت خاصية البحث الموجودة في المنتدى ؟

حيث أن مثل هذه الأسئلة تكررت كثيرًا .

ضع الكود التالي في General Declarations

Dim genie As IAgentCtlCharacter
Const DATAPATH = "H:\Tools1\COMMON\TOOLS\VB\MSAGENT\CHARS\genie.acs"

و هذا للتعامل مع ال genie

Private Sub Form_Load()
Me.Width = 2895
Agent1.Characters.Load "genie", DATAPATH
Set genie = Agent1.Characters("genie")
genie.Show
genie.Speak "hey!, my name is genie"
genie.Speak "i am at your service, all the time"
genie.Speak "just tell me, what do you want to do"
genie.Speak "and i will tell you!"
genie.MoveTo 300, 50, 2
genie.Width = 150
genie.Height = 170
End Sub

ثانيا: لا يشترط ان يكون عند المستخدم برنامج access طالما ان ال provider موجود علي الجهاز

ثالثا:

لكي يعمل البرنامج عند بداية التشغيل

Private Function RegWrite(Key1, SValue As String)
    Set WSHShell = CreateObject("WScript.Shell")
    WSHShell.RegWrite Key1, SValue
End Function


Private Sub Command1_Click()
    RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\notepad.exe", " path of the notepad"
End Sub

بسم الله الرحمن الرحيم

السلام عليكم

شكرا على الاجابه

بالنسبه للسوال الاول لم افهم منه شي وهو لايعمال

انا اقصد Ms Agent

وشكر لك