2 سوال بسيار مهم

[Snooker]

1. چگونه مي توان در VB.6 از دستورات داس استفاده كرد ؟
2. چگونه مي توان برنامه هاي بدون رابط گرافيكي در VB.6
نوشت كه مثلا يكسري عمليات را انجام دهد و نيازي به
كامپوننت نداشته باشد و از ActiveX خاصي استفاده نكند ؟
( به اين معني كه برنامه در هر كامپيوتري كه حتي ActiveX
هاي لازم براي اجراي برنامه هاي VB.6 را نداشته باشد هم
اجرا شود )

با تشكر

[Pedram_HookEx]

سلام در مورد سوال اولت از اين دستور ميتوني استفاده كني

کد:

Shell "cmd /c <Ur Command>"

البته ميتوني vbHide رو هم اظافه كني تا صفحه داس نشون داده نشه

و در مورد سوال دوم فكر كنم بشه از Resource File استفاده كرد

موفق باشي اميدوارم جواب سوالت رو داده باشم... :oops:

[Snooker]

لطفا 1 مثال براي حرفتان بزنيد ؟

[vblove]

سلام

نميشه شما ار اكتيوكس استفاده كنيد ولي موقع اجرا نياشه ولي بعضي از اكتيوكس ها رو با تابع هم ميشه فرخوني كرد مثل WSOCK كه تابع هم داره هالا بستگي به اكتيوكست داره

ولي براي استفاده از دستورات Dos

کد:

ابتدا Command Prompt را فراخوانی می کنیم , خوب برای فراخوانی از تابع Shell استفاده میکنیم که قبلا در مورد این تابع توضیح داده ام :

Shell "cmd.exe"

:: اکنون یک شیء ایجاد می کنیم تا بتوانیم از طیق آن به هسته Dos دسترسی داشته باشیم :

Dim WinShell
Set WinShell = CreateObject("Wscript.shell")

خوب حالا می توانید به راحتی هر دستوری که دارید میتوانید اجرا کنید در آخر هم دستور تابع Sendkeys کلید Enter را اجرا کرده و دستور اجرا میشود:

WinShell.SendKeys " Dos دستور مورد نظر برای اجرا در "
WinShell.SendKeys "{ENTER}"

به مثاهای زیر توجه کنید که به ترتیب اولی برای ایجاد پوشه ای به نام Visual Basic در درایو C و دستور دوم برای نمایش پوشه های موجود در درایو C و دستور سوم برای Format فلاپی دیسک می باشد .

'For Create Folder With Dos Prompt :
WinShell.SendKeys "MD C:\Visual" & " Basic"
WinShell.SendKeys "{ENTER}"

'For Showing C Directory :
WinShell.SendKeys "Dir C:\"
WinShell.SendKeys "{ENTER}"

'For Format Floppy Disk Of Dos :
WinShell.SendKeys "format A:"
WinShell.SendKeys "{ENTER}"

[Snooker]

دمت گرم اقاي vblove در مورد سوال اول
ولي كسي جواب سوال دوم رو ميدونه ؟

[Mamad2003]

دوست عزيز سلام :!:

اگر منظورتون برنامه اي هست كه GUI نداره خيلي راحت از Module استفاده كن بجاي فرم !
يعني توي پنجره Project ابتدا يه راست كليك كن و بعدش يه موژول جديد بهش اضافه كن در قدم دوم فرمي كه خود وي بي ايجاد كرده رو Remove كن .
توي موژول ؛ برنامه خودت رو توي يه ساب روتين با نام Main بنويس بدين صورت :

کد:

Sub Main()

' Your code here '

End Sub

اگر به همين ترتيب انجام بدي خود وي بي بطور اتوماتيك start up برنامه شما رو sub main تشخيص ميده و خيلي راحت برنامه ات اجرا ميشه البته بدون GUI .

فكر نكنم براي اين مدل پروژه ها فايل هاي DLL كمكي نياز باشه . اگر هم توي خواص كامپايلري پروژه Native code انتخاب شده باشه ؛ فايل اجرايي شما 99 درصد بدون نياز به هيچ فايل كمكي اجرا خواهد شد .
اون 1 درصد هم از دست بنده خارجه !
قربان شما :wink: