切换到宽版
发帖 回复
返回列表
1234
  • 7528阅读
  • 33回复

【日飞】当你用VB6开发大工程的时候…… [复制链接]

 上一主题 下一主题
离线93°
盐酸
只看该作者 20楼 发表于: 2008-07-17
囧
那我写上千窗体都有了
回复
举报
离线等电子的氯
论坛版主
只看该作者 21楼 发表于: 2008-07-17
回复 21F 93° 的帖子
嗯
其实我说的好几=2
回复
举报
离线93°
盐酸
只看该作者 22楼 发表于: 2008-07-17
= =
晕了晕了不说了。。晒窗体我随时搞几千个出来
回复
举报
离线等电子的氯
论坛版主
只看该作者 23楼 发表于: 2008-07-17
谁跟你晒啊。。
我那是有商业用途的正事。。
回复
举报
离线93°
盐酸
只看该作者 24楼 发表于: 2008-07-17
= =商业用途
回复
举报
离线93°
盐酸
只看该作者 25楼 发表于: 2008-07-17
得了，你已经漏洞百出了……为了不破坏那XX和这XX，我睡觉去youcihou26|bq
回复
举报
离线等电子的氯
论坛版主
只看该作者 26楼 发表于: 2008-07-17
我那程序的确漏洞百出

另外我现在在写外挂，也是商业用途
如果不信你来桂林市城南电器城来查吧
我在某软件店随时奉陪~
回复
举报
离线93°
盐酸
只看该作者 27楼 发表于: 2009-11-01
挖坟

  



Intel Xeon 5405  
Microsoft Windows 7 Ultimate 64Bit
Microsoft Windows Vista Ultimate 64Bit
Microsoft Windows Server 2003
Microsoft Windows XP Pro
nVIDIA GeForce 9600 + 1GB DDR2 800Mhz x4
回复
举报
离线93°
盐酸
只看该作者 28楼 发表于: 2009-11-01
复制代码
  1.     Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
  2.         Dim t As New Thread(AddressOf CreateNewForm)
  3.         t.Start()
  4.     End Sub
  6.     Public Sub CreateNewForm()
  7.         Do
  8.             System.Threading.Thread.Sleep(1000)
  9.             Dim mou As New MouseClass
  10.             mou.ntMouseMove(1146, 148)
  11.             System.Threading.Thread.Sleep(100)
  12.             mou.ntMousePress(MouseClass.MOUSE_EVENT_CODE.MOUSE_RIGHT_BUTTON)
  13.             System.Threading.Thread.Sleep(100)
  14.             mou.ntMouseMove(1168, 237)
  15.             System.Threading.Thread.Sleep(100)
  16.             mou.ntMousePress(MouseClass.MOUSE_EVENT_CODE.MOUSE_LEFT_BUTTON)
  17.             System.Threading.Thread.Sleep(100)
  18.             mou.ntMouseMove(986, 237)
  19.             System.Threading.Thread.Sleep(100)
  20.             mou.ntMousePress(MouseClass.MOUSE_EVENT_CODE.MOUSE_LEFT_BUTTON)
  21.             System.Threading.Thread.Sleep(500)
  22.             mou.ntMouseMove(468, 227)
  23.             System.Threading.Thread.Sleep(100)
  24.             mou.ntMousePress(MouseClass.MOUSE_EVENT_CODE.MOUSE_LEFT_BUTTON)
  25.             System.Threading.Thread.Sleep(10)
  26.             mou.ntMousePress(MouseClass.MOUSE_EVENT_CODE.MOUSE_LEFT_BUTTON)
  27.         Loop
  28.     End Sub


使用 VB.NET 模拟鼠标 为VB6添加窗体

注：mouseclass是我自己写的类，Delphi写的DLL，使用SendInput模拟

程序中创建了新的线程，以免UI线程被卡住



以下是自动添加到65个窗体时的样子，懒得等了，直接kill掉线程
Intel Xeon 5405  
Microsoft Windows 7 Ultimate 64Bit
Microsoft Windows Vista Ultimate 64Bit
Microsoft Windows Server 2003
Microsoft Windows XP Pro
nVIDIA GeForce 9600 + 1GB DDR2 800Mhz x4
回复
举报
离线93°
盐酸
只看该作者 29楼 发表于: 2009-11-01
最近在开发梦游的外挂，所以才会写了mouseclass这么无聊的东西，5000元，太少了

然后珠海的一家软件公司跟我曰 “如果你以后不想上学了，我们随时欢迎你” 我“优雅”地拒绝了 = =
Intel Xeon 5405  
Microsoft Windows 7 Ultimate 64Bit
Microsoft Windows Vista Ultimate 64Bit
Microsoft Windows Server 2003
Microsoft Windows XP Pro
nVIDIA GeForce 9600 + 1GB DDR2 800Mhz x4
回复
举报
发帖 回复
返回列表
1234
快速回复
限100 字节
如果您在写长篇帖子又不马上发表，建议存为草稿
 
上一个 下一个