اخواني ممكن الافاد جزاكم الله خير

السلام عليكم

كيف حالكم اخواني

اخواني انا طالب جديد في الفيوجل بيسك وحبيت اصمم برنامج اختراق وعندي اكواد غير الي في الشرح احب اضيفها للبرنامج على سبيل المثال هذا الكود

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

فكيف لي ان اضيف في الخادم واعطيه الامر من العميل لينفذ