`

vb 启动外部程序并且模拟鼠标点击

    博客分类:
  • vb
阅读更多

Imports System.Runtime.InteropServices
Imports System.Reflection
Imports System.ComponentModel
'Imports System.Runtime.InteropServices

Public Class Form1

    Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        My.Settings.Save()
        If p.StartInfo.FileName <> "" Then
            If p.HasExited = False Then
                p.Kill()
            End If
        End If


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        On Error Resume Next
        Me.Show()
        With ListBox1.Items
            'TextBox1.Text = "kxyt:" & My.Settings.kxytks & "----" & My.Settings.kxytjs
            'MsgBox(My.Settings.qxytks)


            .Add("千橡鱼塘(kxyt.exe):" & My.Settings.qxytks & "----" & My.Settings.qxytjs & "  耗时: " & Math.Round((CDate(My.Settings.qxytjs).Ticks - CDate(My.Settings.qxytks).Ticks) / 10 ^ 7 / 60, 2) & "分")
            .Add("开心外挂:" & My.Settings.wgks & "----" & My.Settings.wgjs & "  耗时: " & Math.Round((CDate(My.Settings.wgjs).Ticks - CDate(My.Settings.wgks).Ticks) / 10 ^ 7 / 60, 2) & "分")
            .Add("开心鱼塘:" & My.Settings.kxytks & "----" & My.Settings.kxytjs & "  耗时: " & Math.Round((CDate(My.Settings.kxytjs).Ticks - CDate(My.Settings.kxytks).Ticks) / 10 ^ 7 / 60, 2) & "分")
            .Add("小号外挂:" & My.Settings.xhwgks & "----" & My.Settings.xhwgjs & "  耗时: " & Math.Round((CDate(My.Settings.xhwgjs).Ticks - CDate(My.Settings.xhwgks).Ticks) / 10 ^ 7 / 60, 2) & "分")

        End With

    End Sub

    Public Sub yxcx(ByVal cxname As String, ByVal cxpath As String, ByVal btname As String)
        'MsgBox(cxpath + "\log")
        'End
        cxks = Now.Ticks
        pq = IntPtr.Zero
        p.StartInfo.FileName = cxname
        p.StartInfo.WorkingDirectory = cxpath
        p.StartInfo.WindowStyle = FormWindowState.Normal
        p.Start()
        p.EnableRaisingEvents = True
        p.WaitForInputIdle()

        Do While p.MainWindowTitle = ""
            Threading.Thread.Sleep(2000)
            p.Refresh()
        Loop


        Dim tt As Int32 = 1
        Do While pq.ToInt32 < 1
            Dim title As New System.Text.StringBuilder(55)
            Dim MyCallBack As New funcCallBackParent(AddressOf EnumChildWindowsProc)
            EnumChildWindows(p.MainWindowHandle, MyCallBack, IntPtr.Zero)

            'With ListBox1.Items
            '.Add("mc:" & p.MainWindowTitle)
            For Each pq1 As IntPtr In lngHWND
                '  .Add(pq1.ToString)

                GetWindowText(pq1, title, title.Capacity + 1)
                ' .Add(title.ToString)
                'MsgBox(title.ToString)

                If InStr(title.ToString, btname) > 0 Then
                    'TextBox1.Text = pq1.ToString & title.ToString
                    TextBox1.Text = p.MainWindowTitle & "正在运行"
                    pq = pq1
                    Exit For
                End If

            Next
            'End With
            If pq.ToInt32 < 1 Then
                Threading.Thread.Sleep(2000)
                p.Refresh()
            End If

            tt = tt + 1
            If tt > 5 Then
                MsgBox("无法运行")
                Exit Sub

            End If
        Loop

        PostMessage(pq, WM_LBUTTONDOWN, IntPtr.Zero, 1)
        PostMessage(pq, WM_LBUTTONUP, IntPtr.Zero, 1)
        PostMessage(p.MainWindowHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0)
        FileSystemWatcher1.Path = Trim(cxpath) + "\log"
        FileSystemWatcher1.Filter = "*.*"
        FileSystemWatcher1.EnableRaisingEvents = True

        'p.WaitForExit()
        Do
            'System.Threading.Thread.Sleep(2000)
            Application.DoEvents()
        Loop While p.HasExited = False
    End Sub

    Public Function EnumChildWindowsProc(ByVal hWndParent As IntPtr, ByVal lParam As IntPtr) As Boolean

        lngHWND.Add(hWndParent)
        EnumChildWindowsProc = True
    End Function



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        My.Settings.qxytks = Now.ToString
        kxytks = Now.Ticks
        ii.StartInfo.FileName = "d:\exe\kxyt.exe"
        ii.StartInfo.WindowStyle = FormWindowState.Minimized
        ii.Start()
        Timer1.Interval = 3000
        Timer1.Enabled = True

        My.Settings.Save()
        PostMessage(ii.MainWindowHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0)
        'My.Settings.qxytjs = Now.ToString


        My.Settings.wgks = Now.ToString
        Call yxcx("F:\wg714\开心网花园农夫.exe", "F:\wg714", "开始工作")
        My.Settings.wgjs = Now.ToString

        My.Settings.kxytks = Now.ToString
        Call yxcx("F:\XXXXX.exe", "F:\dm\开心钓鱼1008", "开始")
        My.Settings.kxytjs = Now.ToString

        My.Settings.xhwgks = Now.ToString
        Call yxcx("F:\xhwg\开心网花园农夫.exe", "F:\xhwg", "开始工作")
        My.Settings.xhwgjs = Now.ToString
        My.Settings.Save()
    End Sub

    Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed

    End Sub

    Private Sub FileSystemWatcher1_Created(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created
        My.Settings.Save()
        'PostMessage(pq, WM_CLOSE, IntPtr.Zero, IntPtr.Zero)
        Dim t1 As DateTime = Now


        'If p.StartInfo.FileName = "F:\xhwg\开心网花园农夫.exe" Then
        'MsgBox(e.Name)

        Dim title As New System.Text.StringBuilder(55)
        Dim MyCallBack As New funcCallBackParent(AddressOf EnumChildWindowsProc)
        Do
            EnumChildWindows(p.MainWindowHandle, MyCallBack, IntPtr.Zero)

            For Each pq1 As IntPtr In lngHWND


                GetWindowText(pq1, title, title.Capacity + 1)

                If InStr(title.ToString, "距下次") > 0 Then
                    'TextBox1.Text = pq1.ToString & title.ToString
                    Exit Do

                End If

            Next
            Application.DoEvents()
        Loop
        'End If

        Do While (Now.Ticks - t1.Ticks) < (10 * 10 ^ 7)
            Application.DoEvents()
        Loop
        'MsgBox(Now.Ticks - t1.Ticks)
        If p.HasExited = False Then
            'MsgBox(pq.ToString)

            ListBox1.Items.Add(p.StartInfo.FileName() & "  运行完毕  耗时:" & Math.Round((Now.Ticks - cxks) / 10 ^ 7 / 60, 2) & "分")
            p.Kill()
            'p.Close()
        End If
        My.Settings.Save()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ii.HasExited = True Then
            My.Settings.qxytjs = Now.ToString
            ListBox1.Items.Add("d:\exe\kxyt.exe  运行完毕  耗时:" & Math.Round((Now.Ticks - kxytks) / 10 ^ 7 / 60, 2) & "分")
            Timer1.Enabled = False
        End If
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        kxytks = Now.Ticks
        ii.StartInfo.FileName = "d:\exe\kxyt.exe"
        ii.StartInfo.WindowStyle = FormWindowState.Minimized
        ii.Start()
        Timer1.Interval = 3000
        Timer1.Enabled = True
    End Sub
End Class


''''''''
Module Module1
    Public p As Process = New Process()
    Public ii As Process = New Process()
    Public pq As IntPtr
    Public cxks As UInt64
    Public kxytks As UInt64
    Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String)
    'Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
    'Public Delegate Function EnumWindowsCallback( _
    '                   ByVal hWnd As IntPtr, _
    '                  ByVal lParam As IntPtr) As Boolean

    '<DllImport("user32.dll ")> _
    'Public Function EnumChildWindows( _
    '                   ByVal hwndParent As IntPtr, _
    '                  ByVal lpEnumFunc As EnumWindowsCallback, _
    '                 ByVal lParam As IntPtr) As Boolean
    'End Function
    'Friend Declare Function EnumChildWindows Lib "User32" (ByVal hWndParent As IntPtr, ByVal funcCallBack As funcCallBackParent, ByVal lParam As IntPtr) As Boolean
    Public Const WM_CHAR As Long = &H102
    Public Const WM_KEYDOWN = &H100
    Public Const WM_SYSKEYDOWN = &H104
    Public Const WM_CLOSE = &H10
    Public Const BM_CLICK = &HF5
    Public Const WM_LBUTTONDOWN = &H201
    Public Const WM_LBUTTONUP = &H202
    Public Const WM_SETTEXT = &HC
    Public Const WM_SYSCOMMAND = &H112
    Public Const SC_MINIMIZE = &HF020&

    Public Delegate Function funcCallBackParent(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean
    Public Delegate Function funcCallBackChild(ByVal hWndParent As IntPtr, ByVal lpEnumFunc As Long, ByVal lParam As Integer) As Boolean

    ' --> EnumChildWindows matches the funcCallParent Delegate 
    Friend Declare Function EnumChildWindows Lib "User32" (ByVal hWndParent As IntPtr, ByVal funcCallBack As funcCallBackParent, ByVal lParam As IntPtr) As Boolean
    Friend Declare Function EnumWindows Lib "User32" (ByVal funcCallBack As funcCallBackParent, ByVal lParam As IntPtr) As IntPtr
    Public Declare Function GetDesktopWindow Lib "user32" () As IntPtr
    Public lngHWND As New ArrayList
    <Runtime.InteropServices.DllImport("user32.dll")> _
    Public Function GetWindowText(ByVal hWnd As IntPtr, ByVal lpWindowText As System.Text.StringBuilder, _
    ByVal nMaxCount As Integer) As Integer
    End Function


    <Runtime.InteropServices.DllImport("user32.dll", SetLastError:=True, CharSet:=Runtime.InteropServices.CharSet.Auto)> _
    Public Function PostMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Boolean
    End Function
End Module

分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics