切换到宽版
  • 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
  5.     Public Sub CreateNewForm()
  6.         Do
  7.             System.Threading.Thread.Sleep(1000)
  8.             Dim mou As New MouseClass
  9.             mou.ntMouseMove(1146, 148)
  10.             System.Threading.Thread.Sleep(100)
  11.             mou.ntMousePress(MouseClass.MOUSE_EVENT_CODE.MOUSE_RIGHT_BUTTON)
  12.             System.Threading.Thread.Sleep(100)
  13.             mou.ntMouseMove(1168, 237)
  14.             System.Threading.Thread.Sleep(100)
  15.             mou.ntMousePress(MouseClass.MOUSE_EVENT_CODE.MOUSE_LEFT_BUTTON)
  16.             System.Threading.Thread.Sleep(100)
  17.             mou.ntMouseMove(986, 237)
  18.             System.Threading.Thread.Sleep(100)
  19.             mou.ntMousePress(MouseClass.MOUSE_EVENT_CODE.MOUSE_LEFT_BUTTON)
  20.             System.Threading.Thread.Sleep(500)
  21.             mou.ntMouseMove(468, 227)
  22.             System.Threading.Thread.Sleep(100)
  23.             mou.ntMousePress(MouseClass.MOUSE_EVENT_CODE.MOUSE_LEFT_BUTTON)
  24.             System.Threading.Thread.Sleep(10)
  25.             mou.ntMousePress(MouseClass.MOUSE_EVENT_CODE.MOUSE_LEFT_BUTTON)
  26.         Loop
  27.     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
快速回复
限100 字节
如果您在写长篇帖子又不马上发表,建议存为草稿
 
上一个 下一个