ويژال بيسيك
من نگاهي كه در نظرات تون داشتم يكي از شما نوشته بود كه هر چي بلدم به شما هم بگم من هم كه
دارم همين كار مي كنم البته يواش يواش در ضمن هر كدوم از شما اگه در مورد مبحث خاصي كد خا ستيد
خوب تو نظرات بگين تا من كمكتون كنم و اگر در كد هاي كه مي زارم جاي رو متوجع نشدين بگين تا من
راهنما ي تون كنم . من هر بار كه قست به روز كردن وب لاگ رو دارم در مورد يم مبحث جديد چند تا كد
مي زارم
وب لاگ من جنبه اموزش نرم افزار ويژال بيسيك رو نداره پس يك موقع نگين كه چه جوري از اين كد ها
استفاده كنين بهتر كه اگه تازه كار هستيد به وب لاگ هاي سر بزنيد كه در سطح مبتدي تري كار ميكنند كه
خوش بختانه تعداد شون هم زياده و حرف اخر كه من تو نوشته هام زيادي مشكل املاي دارم يك جوري
نوشته ها مو خودتون بخونين و گير هم نديد
روش هاي مرتب سازي
روش اول مرتب سازي بابل سرت براي عداد
يك فرم جديد ايجاد كنيد و يك كامند يا دكمه روي اين بگزاريد و كد زير را به فرم كپي كنيد
Private Sub Command1_Click()
Dim i, b, c, j As Integer
Dim a(1 To 5) As Integer
For i = 1 To 5
a(i) = InputBox("a")
Next
For j = 1 To 5
For i = 1 To 4
If a(i) > a(i + 1) Then
c = a(i)
a(i) = a(i + 1)
a(i + 1) = c
End If
Next
Next
For i = 1 To 5
Print a(i)
Next
End Sub
در كد بالا اگر روي كامند يا دكمه كليد كنيد باكسي باز مي شود كه در ان عدد وارد كنيد اين كد 5 تا عدد را گرفته و انها را مرتب مي كند اين كد فقط روي عداد كار مي كند
پايان
مرتب سازي بابل سرت براي حروف
يك كامند يا دكمه روي فرم بگزاريد و كد زير را به فرم كپي كنيد
اين كد براي مرتب سازي حروف بكار مي رود
Private Sub Command1_Click()
Dim i, b, c As String
Dim a(1 To 5) As String
For i = 1 To 5
a(i) = InputBox("a")
Next
For b = 4 To 1 Step -1
For i = 1 To b
If a(i) > a(i + 1) Then
c = a(i)
a(i) = a(i + 1)
a(i + 1) = c
End If
Next
Next
For i = 1 To 5
Print a(i)
Next
End Sub
پايان
مرتب سازي عداد با الگوريتم سلكت سورت
يك فرم جديد ايجاد كنيد و يك كامند يا دكمه روي فرم قرار دهيد و كد زير را به فرم كپي كنيد
Private Sub Command1_Click()
Dim i, g, b As Integer
Dim a(1 To 5) As Integer
For i = 1 To 5
a(i) = InputBox("sd")
Next
For g = 1 To 5
For i = 1 To 5
If a(i) > a(g) Then
c = a(i)
a(i) = a(g)
a(g) = c
End If
Next
Next
For i = 1 To 5
Print a(i)
Next
End Sub
پايان
روش ديگر مرتب سازي از نوع من در اوردي
يك كامند روي فرم قرار دهيد و كد زير را به فرم كپي كنيد
Private Sub Command1_Click()
Dim a(1 To 5) As Integer
Dim g, j, b, c As Integer
For i = 1 To 5
a(i) = InputBox("sdsd")
Next
b = a(1)
c = a(1)
For i = 1 To 5
If b > a(i) Then b = a(i)
If c < a(i) Then c = a(i)
Next
For j = b To c
For i = 1 To 5
g = j
If g = a(i) Then
Print g
End If
Next
Next
End Sub
پايان
عوض كردن نام يك درايو
يك فرم جديد ايجاد كنيد و كد زير را به فرم اضافه كنيد
Private Declare Function SetVolumeLabelA Lib "kernel32.dll" (ByVal lpRootName As String, ByVal lpVolumeName As String) As Long
Private Sub Form_Load()
SetVolumeLabelA "c:\", "abbas"
End Sub
حالا اگر برنامه را اجرا كنيد اسم درايو c شما به abbas تغيير نام مي دهد
در ضمن اگر مي خاستيد اسم درايو ديگر را عوض كنيد كافي فقط در قسمت كد ها كمي تغيير ايجاد كنيد
پايان
مبحث گرافيك :
تغيير رزليشن عكس
براي اين كار يك فرم جديد ايجاد كنيد و ابزار زير را به ان اضافه كنيد
Picture1
Picture2
Command1
دو تا پيكچر بوكس و يك كامند يا دكمه براي پيكچر بوكس عكسي قرار دهيد
حالا كدهاي زير را به فرم اضافه كنيد
Private Sub Command1_Click()
Dim x, y
Picture2.Cls
For x = 0 To Picture1.ScaleWidth Step 7
For y = 0 To Picture1.ScaleHeight Step 7
Picture2.Line (x, y)-(x + 7, y + 7), Picture1.Point(x, y), BF
Next
Next
End Sub
Private Sub Form_Load()
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3
End Sub
حالا روي كامند يا دكمه كليد كنيد چي مي بينيد حال كردي نههههههههههههههههه
در ضمن در پيكچر 1 حتما عكس قرار دهيد و در پيكچر 2 هيچ عكسي نگزاريد
با تغيير عداد و كد به راحتي مي توانيد رزليشن عكس را كم يا زياد كنيد به همين سادگي
پايان
چطور يك عكس رنگي را سياه سفيد كنيم
اين كار بسيار ساده است شما مي توانيد بعد از يادگيري اين قسمت خودتان انواع افكت ها يا فيلتر ها را مانند
برنامه فتوشاپ برنامه نويسي كنيد
براي اين كار يك فرم جديد ايجاد كنيد و ابزار زير را به ان اضافه كنيد
Picture1
Picture2
Command1
حالا كد هاي زير را به فرم كپي كنيد
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
Dim x, y, r, g, b, c As Integer
Picture2.Cls
For x = 0 To Picture1.ScaleWidth
For y = 0 To Picture1.ScaleHeight
r = 256
g = 12
b = Picture1.Point(x, y) \ 65536
c = (r + g + b) / 3
Picture2.Line (x, y)-(x + 1, y + 1), RGB(c, c, c), BF
Next
Next
End Sub
Private Sub Form_Load()
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3
End Sub
حالا برنامه را اجرا كرده و روي كامند يا دكمه كليك كنيد
در ضمن حتما براي پيكچر 1 عكسي رنگي انتخاب كنيد
پايان
چطور يك عكس معمولي را تبديل به يك نقاشي تبديل كنيم
يعني اين كه يك عكس را طوري تغيير دهيم كه انگار با دست اون عكس را نقاشي كشيديم
براي اين كار يك فرم جديد ايجاد كنيد و ابزار زير را به ان اضافه كنيد
Picture1
Picture2
Command1
حالا كد هاي زير را به فرم كپي كنيد
Private Sub Command1_Click()
Dim x, y
Dim R, G, B, Col, tmpCol
Dim R1, G1, B1, Col1
Dim R2, G2, B2, Col2
Picture2.Cls
For x = 0 To Picture1.ScaleWidth Step 1
For y = 0 To Picture1.ScaleHeight Step 1
Col = Picture1.Point(x, y)
B = Col \ 65536
G = (Col - B * 65536) \ 256
R = Col Mod 256
Col1 = Picture1.Point(x + 1, y)
B1 = Col1 \ 65536
G1 = (Col1 - B1 * 65536) \ 256
R1 = Col1 Mod 256
Col2 = Picture1.Point(x, y + 1)
B2 = Col2 \ 65536
G2 = (Col2 - B2 * 65536) \ 256
R2 = Col2 Mod 256
bb = 15
If ((Sqr((R - R1) * (R - R1) + (G - G1) * (G - G1) + (B - B1) * (bb1)) >= bb) _
Or (Sqr((R - R2) * (R - R2) + (G - G2) * (G - G2) + (B - B2) * (bb2)) >= bb)) Then
tmpCol = vbBlack
Else
tmpCol = vbWhite
End If
Picture2.Line (x, y)-(x + 3, y + 2), tmpCol, BF
Next
Next
End Sub
Private Sub Form_Load()
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3
End Sub
حالا برنامه را اجرا كرده و روي كامند يا دكمه كليك كنيد
در ضمن حتما براي پيكچر 1 عكسي رنگي انتخاب كنيد
پايان
ترسيم ايكن روي فرم
براي اين كار يك فرم جديد ايجاد كرده و كد زير را به فرم اضافه كنيد
Private Declare Function DrawIcon Lib "user32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Sub Form_Load()
Me.AutoRedraw = True
DrawIcon Me.hdc, 10, 10, 7
End Sub
خوب مي بينيد كه يك ايكن در گوشه فرم ترسيم شده اگه از اين ايكن خوشتون نيومد مي توننيد به جاي شماره
7 كه كد ها هست هر عددي كه خاستيد بگزاريد كه ايكن هم تغيير شكل مي دهيد مثلا شماره 9
پايان
خوب بقييه كار با عكس و گرافيك رو ميزاريم باسه تاپيك بعدي
در قسمت مي خام كمي از ريجستري بگم چون همون طور كه نمي دونين شما هر چه هم كود نويس خوبي
باشين اگه ريجستري رو ندونين بهتر كه برين بميرين
خوب بازم مي گم وب لاگ من جنبه اموزش ريجستري رو نداره من فقط چند تاي از ترفند هاي ريجستري رو
مي گم كه براي اطلاع بيشتر بايد كمي به صفحه كليد و مو ستون استحلاك وارد منيد
خوب مي ريم سر ريجستري
چطور درايو c:\ يا هر دراو ديگر را مخفي كنيم براي اين كار به مسير زير برويد
HEKY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
و در اين قسمت يك كليد از نوع Binary Value بسازيد و اسم ان را NoDrives بگزاريد
و ان را با عدد رو به رو مقدار دهي كنيد ٠٠ ٠٠ ٠٠ ٠۴ اين مقدار براي درايو c: \ است براي
درايو هاي ديگر خودتان دست به كار بشيد
پايان
قرار دادن عكس در پشت زمينه تول بار my computer
HEKY CURRENT UsER\Software\Microsoft\Internet Explorer\Toolbar
كليد ي از نوع Value string ايجاد كرده و نام ان را BackBitmapShell قرار دهيد و در قسمت
مقدار ان مسير يك عكس را بگزاريد
پايان
حذف راست كليك
HEKY CURRENT USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
كليد ي از نوع Value Binary بسازيد و نام ان را NoViewContextMenu قرار دهيد و در
قسمت مقدار عدد رو به رو ا بگزاريد ٠٠ ٠٠ ٠٠ ٠١
پايان
حذف منوي فايل از my computer
HEKY CURRENT UsER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
كليدي از نوع Value Binary بسازيد و نام ان را NoFileMenu بگزاريد و مقدار ان را
٠٠ ٠٠ ٠٠ ٠١ بگزاريد
پايان
غير فعال كردن تسك منجر
HEKY CURRENT USER\Software\Microsoft\Windows\CurrentVersion\Policies\System
كليدي از نوع Value DWORD بسازيد و نام ان را DisableTaskMgr بگزاريد و مقدار ان را
1 بگزاريد
پايان
حذف كلمه to Shortcut در اول اسم پرونده ها
HEKY CURRENT UsER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
كليدي از نوع Value Binary بسازيد و نام ان را link قرار داده و مقدار ان را 00 00 00 00
بگزاريد
پايان
حذف گزينه Shutdown از منوي استارت
HEKY CURRENT UsER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
كليد از نوع Value Binary بسازيد و نام ان را NoClose گزاشته و مقدار ان را ٠٠ ٠٠ ٠٠ ٠١
بگزاريد
پايان
حذف گزينه Log Off از منوي استارت
HEKY CURRENT UsER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
كليد از نوع Value Binary بسازيد و نام ان را NoLogoff گزاشته و مقدار ان را ٠٠ ٠٠ ٠٠ ٠١
بگزاريد
پايان
حذف گزينه Run از منوي استارت
HEKY CURRENT UsER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
كليد از نوع Value Binary بسازيد و نام ان را NoRun گزاشته و مقدار ان را ٠٠ ٠٠ ٠٠ ٠١
بگزاريد
پايان
جلوگيري از نما يش پنجره Display
HEKY CURRENT USER\Software\Microsoft\Windows\CurrentVersion\Policies\System
كليدي از نوع Value Binary بسازيد و نام ان را NoDispCPL بگزاريد و مقدار ان را
٠٠ ٠٠ ٠٠ ٠١ بگزاريد
پايان
جلوگيري از نما يش پنجره Screen Saver
HEKY CURRENT USER\Software\Microsoft\Windows\CurrentVersion\Policies\System
كليدي از نوع Value Binary بسازيد و نام ان را NoDispBackgroundPage بگزاريد و مقدار ان را
٠٠ ٠٠ ٠٠ ٠١ بگزاريد
پايان
دارم همين كار مي كنم البته يواش يواش در ضمن هر كدوم از شما اگه در مورد مبحث خاصي كد خا ستيد
خوب تو نظرات بگين تا من كمكتون كنم و اگر در كد هاي كه مي زارم جاي رو متوجع نشدين بگين تا من
راهنما ي تون كنم . من هر بار كه قست به روز كردن وب لاگ رو دارم در مورد يم مبحث جديد چند تا كد
مي زارم
وب لاگ من جنبه اموزش نرم افزار ويژال بيسيك رو نداره پس يك موقع نگين كه چه جوري از اين كد ها
استفاده كنين بهتر كه اگه تازه كار هستيد به وب لاگ هاي سر بزنيد كه در سطح مبتدي تري كار ميكنند كه
خوش بختانه تعداد شون هم زياده و حرف اخر كه من تو نوشته هام زيادي مشكل املاي دارم يك جوري
نوشته ها مو خودتون بخونين و گير هم نديد
روش هاي مرتب سازي
روش اول مرتب سازي بابل سرت براي عداد
يك فرم جديد ايجاد كنيد و يك كامند يا دكمه روي اين بگزاريد و كد زير را به فرم كپي كنيد
Private Sub Command1_Click()
Dim i, b, c, j As Integer
Dim a(1 To 5) As Integer
For i = 1 To 5
a(i) = InputBox("a")
Next
For j = 1 To 5
For i = 1 To 4
If a(i) > a(i + 1) Then
c = a(i)
a(i) = a(i + 1)
a(i + 1) = c
End If
Next
Next
For i = 1 To 5
Print a(i)
Next
End Sub
در كد بالا اگر روي كامند يا دكمه كليد كنيد باكسي باز مي شود كه در ان عدد وارد كنيد اين كد 5 تا عدد را گرفته و انها را مرتب مي كند اين كد فقط روي عداد كار مي كند
پايان
مرتب سازي بابل سرت براي حروف
يك كامند يا دكمه روي فرم بگزاريد و كد زير را به فرم كپي كنيد
اين كد براي مرتب سازي حروف بكار مي رود
Private Sub Command1_Click()
Dim i, b, c As String
Dim a(1 To 5) As String
For i = 1 To 5
a(i) = InputBox("a")
Next
For b = 4 To 1 Step -1
For i = 1 To b
If a(i) > a(i + 1) Then
c = a(i)
a(i) = a(i + 1)
a(i + 1) = c
End If
Next
Next
For i = 1 To 5
Print a(i)
Next
End Sub
پايان
مرتب سازي عداد با الگوريتم سلكت سورت
يك فرم جديد ايجاد كنيد و يك كامند يا دكمه روي فرم قرار دهيد و كد زير را به فرم كپي كنيد
Private Sub Command1_Click()
Dim i, g, b As Integer
Dim a(1 To 5) As Integer
For i = 1 To 5
a(i) = InputBox("sd")
Next
For g = 1 To 5
For i = 1 To 5
If a(i) > a(g) Then
c = a(i)
a(i) = a(g)
a(g) = c
End If
Next
Next
For i = 1 To 5
Print a(i)
Next
End Sub
پايان
روش ديگر مرتب سازي از نوع من در اوردي
يك كامند روي فرم قرار دهيد و كد زير را به فرم كپي كنيد
Private Sub Command1_Click()
Dim a(1 To 5) As Integer
Dim g, j, b, c As Integer
For i = 1 To 5
a(i) = InputBox("sdsd")
Next
b = a(1)
c = a(1)
For i = 1 To 5
If b > a(i) Then b = a(i)
If c < a(i) Then c = a(i)
Next
For j = b To c
For i = 1 To 5
g = j
If g = a(i) Then
Print g
End If
Next
Next
End Sub
پايان
عوض كردن نام يك درايو
يك فرم جديد ايجاد كنيد و كد زير را به فرم اضافه كنيد
Private Declare Function SetVolumeLabelA Lib "kernel32.dll" (ByVal lpRootName As String, ByVal lpVolumeName As String) As Long
Private Sub Form_Load()
SetVolumeLabelA "c:\", "abbas"
End Sub
حالا اگر برنامه را اجرا كنيد اسم درايو c شما به abbas تغيير نام مي دهد
در ضمن اگر مي خاستيد اسم درايو ديگر را عوض كنيد كافي فقط در قسمت كد ها كمي تغيير ايجاد كنيد
پايان
مبحث گرافيك :
تغيير رزليشن عكس
براي اين كار يك فرم جديد ايجاد كنيد و ابزار زير را به ان اضافه كنيد
Picture1
Picture2
Command1
دو تا پيكچر بوكس و يك كامند يا دكمه براي پيكچر بوكس عكسي قرار دهيد
حالا كدهاي زير را به فرم اضافه كنيد
Private Sub Command1_Click()
Dim x, y
Picture2.Cls
For x = 0 To Picture1.ScaleWidth Step 7
For y = 0 To Picture1.ScaleHeight Step 7
Picture2.Line (x, y)-(x + 7, y + 7), Picture1.Point(x, y), BF
Next
Next
End Sub
Private Sub Form_Load()
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3
End Sub
حالا روي كامند يا دكمه كليد كنيد چي مي بينيد حال كردي نههههههههههههههههه
در ضمن در پيكچر 1 حتما عكس قرار دهيد و در پيكچر 2 هيچ عكسي نگزاريد
با تغيير عداد و كد به راحتي مي توانيد رزليشن عكس را كم يا زياد كنيد به همين سادگي
پايان
چطور يك عكس رنگي را سياه سفيد كنيم
اين كار بسيار ساده است شما مي توانيد بعد از يادگيري اين قسمت خودتان انواع افكت ها يا فيلتر ها را مانند
برنامه فتوشاپ برنامه نويسي كنيد
براي اين كار يك فرم جديد ايجاد كنيد و ابزار زير را به ان اضافه كنيد
Picture1
Picture2
Command1
حالا كد هاي زير را به فرم كپي كنيد
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
Dim x, y, r, g, b, c As Integer
Picture2.Cls
For x = 0 To Picture1.ScaleWidth
For y = 0 To Picture1.ScaleHeight
r = 256
g = 12
b = Picture1.Point(x, y) \ 65536
c = (r + g + b) / 3
Picture2.Line (x, y)-(x + 1, y + 1), RGB(c, c, c), BF
Next
Next
End Sub
Private Sub Form_Load()
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3
End Sub
حالا برنامه را اجرا كرده و روي كامند يا دكمه كليك كنيد
در ضمن حتما براي پيكچر 1 عكسي رنگي انتخاب كنيد
پايان
چطور يك عكس معمولي را تبديل به يك نقاشي تبديل كنيم
يعني اين كه يك عكس را طوري تغيير دهيم كه انگار با دست اون عكس را نقاشي كشيديم
براي اين كار يك فرم جديد ايجاد كنيد و ابزار زير را به ان اضافه كنيد
Picture1
Picture2
Command1
حالا كد هاي زير را به فرم كپي كنيد
Private Sub Command1_Click()
Dim x, y
Dim R, G, B, Col, tmpCol
Dim R1, G1, B1, Col1
Dim R2, G2, B2, Col2
Picture2.Cls
For x = 0 To Picture1.ScaleWidth Step 1
For y = 0 To Picture1.ScaleHeight Step 1
Col = Picture1.Point(x, y)
B = Col \ 65536
G = (Col - B * 65536) \ 256
R = Col Mod 256
Col1 = Picture1.Point(x + 1, y)
B1 = Col1 \ 65536
G1 = (Col1 - B1 * 65536) \ 256
R1 = Col1 Mod 256
Col2 = Picture1.Point(x, y + 1)
B2 = Col2 \ 65536
G2 = (Col2 - B2 * 65536) \ 256
R2 = Col2 Mod 256
bb = 15
If ((Sqr((R - R1) * (R - R1) + (G - G1) * (G - G1) + (B - B1) * (bb1)) >= bb) _
Or (Sqr((R - R2) * (R - R2) + (G - G2) * (G - G2) + (B - B2) * (bb2)) >= bb)) Then
tmpCol = vbBlack
Else
tmpCol = vbWhite
End If
Picture2.Line (x, y)-(x + 3, y + 2), tmpCol, BF
Next
Next
End Sub
Private Sub Form_Load()
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3
End Sub
حالا برنامه را اجرا كرده و روي كامند يا دكمه كليك كنيد
در ضمن حتما براي پيكچر 1 عكسي رنگي انتخاب كنيد
پايان
ترسيم ايكن روي فرم
براي اين كار يك فرم جديد ايجاد كرده و كد زير را به فرم اضافه كنيد
Private Declare Function DrawIcon Lib "user32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Sub Form_Load()
Me.AutoRedraw = True
DrawIcon Me.hdc, 10, 10, 7
End Sub
خوب مي بينيد كه يك ايكن در گوشه فرم ترسيم شده اگه از اين ايكن خوشتون نيومد مي توننيد به جاي شماره
7 كه كد ها هست هر عددي كه خاستيد بگزاريد كه ايكن هم تغيير شكل مي دهيد مثلا شماره 9
پايان
خوب بقييه كار با عكس و گرافيك رو ميزاريم باسه تاپيك بعدي
در قسمت مي خام كمي از ريجستري بگم چون همون طور كه نمي دونين شما هر چه هم كود نويس خوبي
باشين اگه ريجستري رو ندونين بهتر كه برين بميرين
خوب بازم مي گم وب لاگ من جنبه اموزش ريجستري رو نداره من فقط چند تاي از ترفند هاي ريجستري رو
مي گم كه براي اطلاع بيشتر بايد كمي به صفحه كليد و مو ستون استحلاك وارد منيد
خوب مي ريم سر ريجستري
چطور درايو c:\ يا هر دراو ديگر را مخفي كنيم براي اين كار به مسير زير برويد
HEKY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
و در اين قسمت يك كليد از نوع Binary Value بسازيد و اسم ان را NoDrives بگزاريد
و ان را با عدد رو به رو مقدار دهي كنيد ٠٠ ٠٠ ٠٠ ٠۴ اين مقدار براي درايو c: \ است براي
درايو هاي ديگر خودتان دست به كار بشيد
پايان
قرار دادن عكس در پشت زمينه تول بار my computer
HEKY CURRENT UsER\Software\Microsoft\Internet Explorer\Toolbar
كليد ي از نوع Value string ايجاد كرده و نام ان را BackBitmapShell قرار دهيد و در قسمت
مقدار ان مسير يك عكس را بگزاريد
پايان
حذف راست كليك
HEKY CURRENT USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
كليد ي از نوع Value Binary بسازيد و نام ان را NoViewContextMenu قرار دهيد و در
قسمت مقدار عدد رو به رو ا بگزاريد ٠٠ ٠٠ ٠٠ ٠١
پايان
حذف منوي فايل از my computer
HEKY CURRENT UsER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
كليدي از نوع Value Binary بسازيد و نام ان را NoFileMenu بگزاريد و مقدار ان را
٠٠ ٠٠ ٠٠ ٠١ بگزاريد
پايان
غير فعال كردن تسك منجر
HEKY CURRENT USER\Software\Microsoft\Windows\CurrentVersion\Policies\System
كليدي از نوع Value DWORD بسازيد و نام ان را DisableTaskMgr بگزاريد و مقدار ان را
1 بگزاريد
پايان
حذف كلمه to Shortcut در اول اسم پرونده ها
HEKY CURRENT UsER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
كليدي از نوع Value Binary بسازيد و نام ان را link قرار داده و مقدار ان را 00 00 00 00
بگزاريد
پايان
حذف گزينه Shutdown از منوي استارت
HEKY CURRENT UsER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
كليد از نوع Value Binary بسازيد و نام ان را NoClose گزاشته و مقدار ان را ٠٠ ٠٠ ٠٠ ٠١
بگزاريد
پايان
حذف گزينه Log Off از منوي استارت
HEKY CURRENT UsER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
كليد از نوع Value Binary بسازيد و نام ان را NoLogoff گزاشته و مقدار ان را ٠٠ ٠٠ ٠٠ ٠١
بگزاريد
پايان
حذف گزينه Run از منوي استارت
HEKY CURRENT UsER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
كليد از نوع Value Binary بسازيد و نام ان را NoRun گزاشته و مقدار ان را ٠٠ ٠٠ ٠٠ ٠١
بگزاريد
پايان
جلوگيري از نما يش پنجره Display
HEKY CURRENT USER\Software\Microsoft\Windows\CurrentVersion\Policies\System
كليدي از نوع Value Binary بسازيد و نام ان را NoDispCPL بگزاريد و مقدار ان را
٠٠ ٠٠ ٠٠ ٠١ بگزاريد
پايان
جلوگيري از نما يش پنجره Screen Saver
HEKY CURRENT USER\Software\Microsoft\Windows\CurrentVersion\Policies\System
كليدي از نوع Value Binary بسازيد و نام ان را NoDispBackgroundPage بگزاريد و مقدار ان را
٠٠ ٠٠ ٠٠ ٠١ بگزاريد
پايان
+ نوشته شده در یکشنبه سی ام اردیبهشت ۱۳۸۶ ساعت 18:15 توسط جواد
|