دو سوال درمورد برنامه های پرتابل

[Ghoghnus]

سلام نمیدونم چرا هیچی نشون نمیده از تابع های که میزارید.

کد:

Sub ListProcessorProperties()


Dim objWMIService, colItems

Set objWMIService = GetObject("winmgmts:\\" & Environ("computername") & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor", , 48)

For Each objItem In colItems

MsgBox "ProcessorId: " & objItem.ProcessorId

Next
End Sub

Private Sub Form_Load()
Text1.Text = ListProcessorProperties()
End Sub

واسه دیدن سریال fdrive چی؟

---

قصد من ساخت قفل سخت افزاریه باورتون نمیشه بگم همه جا سرزدم

تابع را فراخانی کردی؟؟من جواب گرفتم محاله جواب نده!

[policweb]

این شماره هارد رو برمیگردونه
از فلش رو چطور بدست بیارم؟

[policweb]

وجدانن خواهشن یه سوال مبپرسم جوابمو کامل بدید تا من از استفاده نادرست توابع راحت شم یعنی طرز استفاده صحیحشون رو ببینم.
اگه این کد رو به شما بدن چطور ازش استفاده میکنید؟

کد:

'Example by Alexey (alexeyka2001@rambler.ru)
    Private Const DRIVE_UNKNOWN = 0
    Private Const DRIVE_ABSENT = 1
    Private Const DRIVE_REMOVABLE = 2
    Private Const DRIVE_FIXED = 3
    Private Const DRIVE_REMOTE = 4
    Private Const DRIVE_CDROM = 5
    Private Const DRIVE_RAMDISK = 6
    ' returns errors for UNC Path
    Private Const ERROR_BAD_DEVICE = 1200&
    Private Const ERROR_CONNECTION_UNAVAIL = 1201&
    Private Const ERROR_EXTENDED_ERROR = 1208&
    Private Const ERROR_MORE_DATA = 234
    Private Const ERROR_NOT_SUPPORTED = 50&
    Private Const ERROR_NO_NET_OR_BAD_PATH = 1203&
    Private Const ERROR_NO_NETWORK = 1222&
    Private Const ERROR_NOT_CONNECTED = 2250&
    Private Const NO_ERROR = 0
    
    
    Private Declare Function WNetGetConnection Lib "mpr.dll" Alias _
            "WNetGetConnectionA" (ByVal lpszLocalName As String, _
            ByVal lpszRemoteName As String, cbRemoteName As Long) As Long
    Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias _
        "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, _
        ByVal lpBuffer As String) As Long
    Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _
        (ByVal nDrive As String) As Long
    Private Function fGetDrives() As String
    'Returns all mapped drives
        Dim lngRet As Long
        Dim strDrives As String * 255
        Dim lngTmp As Long
        lngTmp = Len(strDrives)
        lngRet = GetLogicalDriveStrings(lngTmp, strDrives)
        fGetDrives = Left(strDrives, lngRet)
    End Function
    Private Function fGetUNCPath(strDriveLetter As String) As String
        On Local Error GoTo fGetUNCPath_Err
    
    
        Dim Msg As String, lngReturn As Long
        Dim lpszLocalName As String
        Dim lpszRemoteName As String
        Dim cbRemoteName As Long
        lpszLocalName = strDriveLetter
        lpszRemoteName = String$(255, Chr$(32))
        cbRemoteName = Len(lpszRemoteName)
        lngReturn = WNetGetConnection(lpszLocalName, lpszRemoteName, _
                                           cbRemoteName)
        Select Case lngReturn
            Case ERROR_BAD_DEVICE
                Msg = "Error: Bad Device"
            Case ERROR_CONNECTION_UNAVAIL
                Msg = "Error: Connection Un-Available"
            Case ERROR_EXTENDED_ERROR
                Msg = "Error: Extended Error"
            Case ERROR_MORE_DATA
                   Msg = "Error: More Data"
            Case ERROR_NOT_SUPPORTED
                   Msg = "Error: Feature not Supported"
            Case ERROR_NO_NET_OR_BAD_PATH
                   Msg = "Error: No Network Available or Bad Path"
    
    
            Case ERROR_NO_NETWORK
    
                   Msg = "Error: No Network Available"
            Case ERROR_NOT_CONNECTED
                   Msg = "Error: Not Connected"
            Case NO_ERROR
                   ' all is successful...
        End Select
        If Len(Msg) Then
            MsgBox Msg, vbInformation
        Else
            fGetUNCPath = Left$(lpszRemoteName, cbRemoteName)
        End If
    fGetUNCPath_End:
        Exit Function
    fGetUNCPath_Err:
        MsgBox Err.Description, vbInformation
        Resume fGetUNCPath_End
    End Function
    
    
    Private Function fDriveType(strDriveName As String) As String
        Dim lngRet As Long
        Dim strDrive As String
        lngRet = GetDriveType(strDriveName)
        Select Case lngRet
            Case DRIVE_UNKNOWN 'The drive type cannot be determined.
                strDrive = "Unknown Drive Type"
            Case DRIVE_ABSENT 'The root directory does not exist.
                strDrive = "Drive does not exist"
            Case DRIVE_REMOVABLE 'The drive can be removed from the drive.
                strDrive = "Removable Media"
            Case DRIVE_FIXED 'The disk cannot be removed from the drive.
                strDrive = "Fixed Drive"
            Case DRIVE_REMOTE  'The drive is a remote (network) drive.
                strDrive = "Network Drive"
            Case DRIVE_CDROM 'The drive is a CD-ROM drive.
                strDrive = "CD Rom"
            Case DRIVE_RAMDISK 'The drive is a RAM disk.
                strDrive = "Ram Disk"
        End Select
        fDriveType = strDrive
    End Function
    
    
    Sub sListAllDrives()
        Dim strAllDrives As String
        Dim strTmp As String
      
        strAllDrives = fGetDrives
        If strAllDrives <> "" Then
            Do
                strTmp = Mid$(strAllDrives, 1, InStr(strAllDrives, vbNullChar) - 1)
                strAllDrives = Mid$(strAllDrives, InStr(strAllDrives, vbNullChar) + 1)
                Select Case fDriveType(strTmp)
                    Case "Removable Media":
                        Debug.Print "Removable drive :  " & strTmp
                    Case "CD Rom":
                        Debug.Print "   CD Rom drive :  " & strTmp
                    Case "Fixed Drive":
                        Debug.Print "    Local drive :  " & strTmp
                    Case "Network Drive":
                        Debug.Print "  Network drive :  " & strTmp
                        Debug.Print "       UNC Path :  " & _
                                    fGetUNCPath(Left$(strTmp, Len(strTmp) - 1))
                End Select
            Loop While strAllDrives <> ""
        End If
    End Sub
    
    
    Private Sub Form_Load()
        Debug.Print "All available drives: "
        sListAllDrives
    End Sub

تا به نتیجه برسید یه دنیا ای ول به مرامت.داش ققنوس میدونم از دستم عصبانی هستی با این سوالام اما تازکارم!

[Ghoghnus]

به نظر من شما برید یکم برنامه نیسی یاد بگیرید بعد بیاد مشکلتون را بگید
اینوطری هیچ فایده ای نداره
کد بزاریم شما کپی پیست کنید!اینجا قرار نیست واسه کسی برنامه کامل نوشته بشه و اگر قرار به برنامه کامل بود باید بود جای دیگه درخواست بدید!

[policweb]

واقعا ک گل گفتی
شما برای یه دبیرستانی رشته کامپیوتر که بخواد توابعapi رو یاد بگیره چی پیشنهادی میکنید؟

[Ghoghnus]

واقعا ک گل گفتی
شما برای یه دبیرستانی رشته کامپیوتر که بخواد توابعapi رو یاد بگیره چی پیشنهادی میکنید؟

شما اول مباحث ساده را شروع کن بعد برو سراغ api
یه سرچ کنی یه عالمه کتاب هست واسه این موضوع
ا