- 浏览: 166379 次
- 性别:
- 来自: 广州
文章分类
最新评论
-
xiangyufangai:
很好很强大膜拜中哈哈!!
VB 两个字符串处理函数(类似Left/Mid/Right/Split的结合) -
hellohank:
这个……叫摘要算法,不叫加密算法~
Java实现的加密工具类(支持MD5和SHA) -
NIUCH1029291561:
接口有问题奥
网银在线支付接口和应用 -
yeuego:
能幫你就行了
MySQL索引分析 -
ForgiDaved:
很给力的介绍。记得前段时间给一个系统加功能,设计的表没有 ...
MySQL索引分析
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
发表评论
-
VB 列出SQL数据库中所有表及字段信息
2011-03-09 13:24 1092程序思想:用Select name From sysobje ... -
VB 纯代码实现Timer控件的功能
2011-03-09 13:23 1236本博客有一篇类似的文章《VB 中运用 TimeSetEvent ... -
VB 控制音量
2011-03-09 13:22 1179'按钮一是音量增加,按钮二是音量减少,按钮三是静音切换. ... -
拦截 VB TextBox 双击消息
2011-03-09 13:22 915我们都知道在VB中TextBox默认是没有双击消息过程的(也就 ... -
VB 获取/设置屏幕分辨率
2011-03-09 13:21 1054Option ExplicitPrivate Decla ... -
VB 将数据快速导入EXCEL
2011-03-09 13:21 976Public Function ToExcel()On ... -
VB 建立快捷方式
2011-03-09 13:20 753Private Declare Function fCr ... -
VB 获取快捷方式原文件路径
2011-03-09 13:20 885'此方法不需要引用IShellLink.Private ... -
VB 的一组字符串转换函数
2011-03-09 13:20 747Public Function chrConvert(s ... -
VB 在浏览目录时指定初始目录
2011-03-09 13:19 959'VB也可以使用CallBack,下面是一个例子: '先 ... -
VB 获得鼠标滚轮的事件
2011-03-09 13:18 935'窗体代码Private Sub Form_Load() ... -
VB 比较两组字符串
2011-03-09 13:18 1226【方法一】 StrComp(string1, Stri ... -
VB 用API下载文件实例
2011-03-09 13:17 764'########################### ... -
VB 窗口处理技巧大全
2011-03-09 13:17 748VB提供了API函数SetWindowLong和GetWind ... -
VB 实现屏幕右下角浮出式消息窗口,透明淡出效果。
2011-03-09 13:16 912'任务栏高度[此部分相关代码转载自 枕善居]Privat ... -
VB Filter 函数用法
2011-03-09 13:16 1883例子1:Dim aa(10) As StringDim bbD ... -
VB 在EXPLORER进程崩溃之后重建托盘图标
2011-03-09 13:15 810重点为:向系统注册“TaskbarCreated”消息 ... -
Shell 调用程序后等待该程序结束后返回继续
2011-03-09 13:15 1182方法1: Private Declare Functi ... -
VB 最简单的WAV声音或音乐文件播放的代码
2011-03-09 13:14 1328'最简单的WAV声音或音乐文件播放的代码'API声明Pr ... -
VB 实现保存 Direct3D 游戏截图
2011-03-09 13:13 1459Written By Microsoft MVP: Eric ...
相关推荐
VB模拟鼠标左键单击和移动,单击按钮后,鼠标会移动到正中间,产生向上或向下滚动鼠标滚轮事件,如果鼠标在其他应用程序窗口之上,获取鼠标下窗口中的鼠标句柄,并且代码中有一个键盘函数很实用哦。
VB使用命令行启动外部程序,希望对您有帮助
在Visual Basic重用API函数模拟鼠标单击事件
VB 获取外部程序ListView控件数据
通过VB后台发送VM消息实现模拟鼠标点击,而并不是用Mouse_event方法前台实现,希望有用的朋友喜欢
VB程序中执行外部程序操作实例,也就是在Vb根据代码框中的代码,执行命令,这些命令可能会执行VB以外Windows中的其它程序,在执行时可定义路径名、格式化磁盘、建立快捷方式、鼠标的定位、移动等。
基于VB6.0开发的鼠标点击模拟程序,带时间校准和串口功能。可用于模拟鼠标点击控制设备的运行。
VB模拟鼠标键盘动作
用VB模拟自动鼠标点击的示例,同时也示例了键盘热键的一些特色。键盘上的A键可以停止模拟。
VB模拟鼠标键盘动作,大家看看有没有用,先下下看看吧
模拟鼠标事件的源代码(VB.Net).rar 模拟鼠标事件的源代码(VB.Net).rar
游戏外挂开发资源,模拟鼠标模拟键盘操作的类。分享给大家。
VB获得外部程序句柄,并向程序多个控件发送控制消息或文本,例子程序是VB程序控制SQL Server查询分析器
模拟鼠标移动,比较小巧的代码。供大家参考。
VB 调用其它程序并显示在自己的子窗口中 Vb通过调用其它的应用程序,然后显示在自己的一个子窗口中,有朋友问我询问怎么弄的,由于时间关系没有弄成,后来问同事要了一个网上的代码,看上去还不错,正好满足网友的...
vb模拟后台模拟键盘鼠标信息的操作。可以实现vb打开窗口,后台自动点击相关地方。
里面已经有做好的程序.winio的3个文件要复制到vb目录和windows/system32目录下.
VB编程源代码 88设置启动时自动被执行的程序VB编程源代码 88设置启动时自动被执行的程序VB编程源代码 88设置启动时自动被执行的程序VB编程源代码 88设置启动时自动被执行的程序VB编程源代码 88设置启动时自动被执行...
VB中利用对postmessage指定窗口进行后台模拟键盘鼠标信息的操作
VB编程源代码 100在程序中控制鼠标VB编程源代码 100在程序中控制鼠标VB编程源代码 100在程序中控制鼠标VB编程源代码 100在程序中控制鼠标VB编程源代码 100在程序中控制鼠标VB编程源代码 100在程序中控制鼠标VB编程源...