12-10-14, 03:19 AM
(12-10-14, 03:01 AM)hitman48 كتب : تفضل اخي الكريم ان كنت تريد حماية برنامجك من الكسر:
تقوم بانشاء مجروع جديد في [ vb.net ] و نضيف [ Module ] و نضيف الاكواد التالية
نذهب الآن الى [ Form1_Load ] و نقوم باستدعاء الاكواد عبر [ Call Protect() ]
و انتهينا ، تمت حماية مشروعك من :
[ CurrPorts ’ Fiddler ’ SimpleAssemblyExplorer ’ Reflector ’ HxD ’ Ollydb ’ Microsoft Spy ++ ’ TCPEye ’ Process Explorer ]
الاكواد المستعملة في الشرح :
كود :
Module OPq
' [SeC_FRAROUKi]
Sub Protect()
Dim TargetProcess1() As Process = Process.GetProcessesByName("Fiddler")
Dim TargetProcess2() As Process = Process.GetProcessesByName("SimpleAssemblyExplorer")
Dim TargetProcess3() As Process = Process.GetProcessesByName("Reflector")
Dim TargetProcess4() As Process = Process.GetProcessesByName("HxD")
Dim TargetProcess5() As Process = Process.GetProcessesByName("Ollydb")
Dim TargetProcess6() As Process = Process.GetProcessesByName("taskmgr")
Dim TargetProcess7() As Process = Process.GetProcessesByName("sptxx")
Dim TargetProcess8() As Process = Process.GetProcessesByName("tcpeye")
Dim TargetProcess9() As Process = Process.GetProcessesByName("procexp")
Dim TargetProcess10() As Process = Process.GetProcessesByName("cports")
If Not TargetProcess10.Length = 0 Then
TargetProcess10(0).Kill()
MsgBox("CurrPorts Detected!", MsgBoxStyle.Critical, "^_^")
End If
If Not TargetProcess1.Length = 0 Then
TargetProcess1(0).Kill()
MsgBox("Fiddler Detected!", MsgBoxStyle.Critical, "^_^")
End If
If Not TargetProcess2.Length = 0 Then
TargetProcess2(0).Kill()
MsgBox("SimpleAssemblyExplorer Detected!", MsgBoxStyle.Critical, "^_^")
End If
If Not TargetProcess3.Length = 0 Then
TargetProcess3(0).Kill()
MsgBox("Reflector Detected!", MsgBoxStyle.Critical, "^_^")
End If
If Not TargetProcess4.Length = 0 Then
TargetProcess4(0).Kill()
MsgBox("HxD Detected!", MsgBoxStyle.Critical, "^_^")
End If
If Not TargetProcess5.Length = 0 Then
TargetProcess5(0).Kill()
MsgBox("Ollydb Detected!", MsgBoxStyle.Critical, "^_^")
End If
If Not TargetProcess6.Length = 0 Then
TargetProcess6(0).Kill()
MsgBox("Windows Task Manager Detected!", MsgBoxStyle.Critical, "^_^")
End If
If Not TargetProcess7.Length = 0 Then
TargetProcess7(0).Kill()
MsgBox("Microsoft Spy ++ Detected!", MsgBoxStyle.Critical, "^_^")
End If
If Not TargetProcess8.Length = 0 Then
TargetProcess8(0).Kill()
MsgBox("TCPEye Detected!", MsgBoxStyle.Critical, "^_^")
End If
If Not TargetProcess9.Length = 0 Then
TargetProcess9(0).Kill()
MsgBox("Process Explorer Detected!", MsgBoxStyle.Critical, "^_^")
End If
End Sub
كود الاستدعاء في Form1_Load
كود :
Call Protect()
اما ان كنت تريد ان يعمل برنامجك في حاسوبك فقط وذالك عن طريق الهارد ديسك
اولا تحتاج الى textbox و button
2/ نكتب الكود التالي فيbutton :
كود :
TextBox1.Text = My.Computer.Info.TotalPhysicalMemory & My.Computer.Info.TotalVirtualMemory
الان وصلنا للحماية نكتب الكود التالي :
كود :
If My.Computer.Info.TotalPhysicalMemory & My.Computer.Info.TotalVirtualMemory = "Hard dick هنــا رقــم" Then
Form2.Show()
Else
Form3.Show()
End If
الله يعطيك العافيه | شكلك تعبت على الرد ههههههههههههه
