آموزش ویروس نویسی در وی بی 6

آموزش ویروس نویسی در وی بی 6

آموزش ویروس نویسی در وی بی 6

نحوه بدست آوردن عنوان یک پنجره در ویژوال بیسیک

نحوه بدست آوردن عنوان یک پنجره در ویژوال بیسیک | وی بی

Declarations

' 1 TextBox & 1 cmd Button
Dim blnChoose As Boolean

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

'Put this in a module/////////////////////////////////////////////////////////
Type POINTAPI
    x As Long
    y As Long
End Type
//////////////////////////////////////////////////////////////////////////////

Code

Private Sub Command1_Click()
    blnChoose = True
    intRetVal = SetCapture(hwnd)
End Sub

Private Sub Form_Load()
   
    blnChoose = False
   
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim window As Long
    Dim buffer As String * 1024
    Dim ptPoint As POINTAPI
  
    If blnChoose Then
   
        ptPoint.x = x
        ptPoint.y = y
        retval = ClientToScreen(hwnd, ptPoint)

        window = WindowFromPoint(ptPoint.x, ptPoint.y)
        lngRetVal = GetWindowText(window, buffer, 1024)
        Text1.Text = buffer
    End If
End Sub

منبع:www.cesblog.ir