שלום לכולם

[yair24]

שלום לכולם

השאלה שלי להיום היא כזאת: אני צריך לכתוב תוכנית בVB שעושה את הפעולות הבאות: 1) מריצה קובץ EXE מתוך DOS אבל רק במחשב ספציפי אחד מה הכוונה? הכוונה אם אני מריץ את התוכנית מהמחשב שיש לי בבית למשל אז היא תרוץ אבל אם אני ינסה להריץ אותה מהמחשב של חבר שלי למשל אז היא תתן שגיאה ותגיד משהו בסגנון "מחשב זה אינו מאושר" אם יש למישהו רעיון איך לזהות מחשב ספציפי ולפי הזיהוי לקבוע אם להריץ את התכנית או לא אני אודה לו. זה יכול להיות לפי מספר הרדיסק או בעזרת איזשהו קובץ טקסט שתול כל דבר יעזור. 2) הדבר השני שאני צריך לעשות זה לספור את מספר הפעמים שהריצו את התכנית ואחרי שהריצו אותה 30 פעם - להפסיק להריץ את קובץ הEXE. תודה רבה יאיר

 

[nscom2k]

REGISTRY

נסי להשתמש בפקודות SAVESETTING GETSETTING וכו של REGISTRY. באמצעותם שומרים מידע ב-REGISTRY. ניתןלמצוא מידע עליהם בקישורים מתחת.

 

[yair24]

תודה רבה ../images/Emo2.gif

אבל למה נסי? מה יאיר זה לא שם של בן?

 

[MaD-d0g]

מידע על הרד דיסק..

מצורפת תוכנית שנותנת לך מספיק מידע על ההרד דיסק כדי להמשיך בעבדותך ולשלבה..

Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long Private Sub Form_Load() Dim Serial As Long, VName As String, FSName As String ´Create buffers VName = String$(255, Chr$(0)) FSName = String$(255, Chr$(0)) ´Get the volume information GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255 ´Strip the extra chr$(0)´s VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1) FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1) MsgBox "The Volume name of C:\ is ´" + VName + "´, the File system name of C:\ is ´" + FSName + "´ and the serial number of C:\ is ´" + Trim(Str$(Serial)) + "´", vbInformation + vbOKOnly, App.Title End Sub​