آموزش اکسس

آموزش مایکروسافت اکسس - Access Training

آموزش اکسس

آموزش مایکروسافت اکسس - Access Training

ارائه آموزش‌ها و نکات کلیدی مربوط به نرم افزار اکسس.
جزییات و نکات ریز اکسس را با ما داشته باشید و پویایی دوباره‌ای به برنامه خودتان دهید.

آخرین نظرات

دریافت اطلاعات سیستمی و سخت افزاری در اکسس

شنبه, ۱۴ بهمن ۱۳۹۶، ۰۵:۰۱ ب.ظ - مشاهده: ۹۴

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

سلام

 

ابتدا فرارسیدن ایام شهادت حضرت صدیقه طاهره، زهرای مرضیه سلام الله علیها رو خدمت همه دوستان تسلیت عرض میکنم و در ادامه هم فرارسیدن 12 بهمن‌ماه، سالروز ورود حضرت امام خمینی رحمت الله علیه و آغاز دهه مبارک فجر و تبریک و آرزوی سربلندی نظام و انقلاب اسلامی ایران رو در همه عرصه‌ها دارم.

 

خب عنوان پست یک عنوان کلی هست که لازمه کمی توضیح بدم در موردش؛

گاهی نیاز هست تا اطلاعات مربوط به سیستم عامل (نام کاربری، اطلاعات شبکه و ریجستری سیستم) و یا اطلاعات سخت افزاری (مثل سریال HDD و یا سریال CPU) رو بدست بیارم و ازشون در برنامه استفاده کنیم.

 

برای انجام و بدست آوردن این اطلاعات بصورت معمول باید رشته کدهای فراوانی رو نوشت تا شاید بخشی از این اطلاعات، آنهم بدون خطا دریافت کرد.

ولی با استفاده از فانکشنی که در این مقاله معرفی میکنم قابلیت Outpot رو از طریق CMD استخراج میکنیم.

 

خب ابتدا فانکشن زیر رو در برنامه خودتون قرار بدین:

Public Function ShellRun(sCmd As String) As String
 
 
'Run a shell command, returning the output as a string
'Published by: http://Access-Training.blog.ir/tag/wmic
 
 
    Dim oShell As Object
    Set oShell = CreateObject("WScript.Shell")
 
 
    'run command
    Dim oExec As Object
    Dim oOutput As Object
    Set oExec = oShell.Exec(sCmd)
    Set oOutput = oExec.StdOut
 
 
    'handle the results as they are written to and read from the StdOut object
    Dim s As String
    Dim sLine As String
    While Not oOutput.AtEndOfStream
        sLine = oOutput.ReadLine
        If sLine <> "" Then s = s & sLine & vbCrLf
    Wend
 
 
    ShellRun = s
 
 
End Function

و با دستور زیر که در ایونت OnLoad فرم مورد نظرتون قرار دادین میتونید به عنوان مثال شماره سریال هارد درایو سیستمتون رو در یک MsgBox نمایش بدین:

Dim res As String
    res = ShellRun("wmic diskdrive get serialnumber")
    MsgBox res

 

در حال بروز رسانی ...

 

نظرات  (۰)

هیچ نظری هنوز ثبت نشده است

ارسال نظر

ارسال نظر آزاد است، اما اگر قبلا در بیان ثبت نام کرده اید می توانید ابتدا وارد شوید.
شما میتوانید از این تگهای html استفاده کنید:
<b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">