切换到宽版
  • 7526阅读
  • 33回复

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

上一主题 下一主题
离线93°
 

只看楼主 正序阅读 楼主  发表于: 2008-07-17
= =
Attached Images

离线93°

只看该作者 33楼 发表于: 2009-11-01
我只是试试在VB6中这样添加窗体 = =

VS BCB D07 DEV-C++ JCREATOR飘过

  1. for(;;){
  2. CreateWindowEx(
  3.                                .....
  4.                                );
  5. }
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
离线topbluecat

只看该作者 32楼 发表于: 2009-11-01
GTK C路过......
窗口可以用数组存....要多少个就给你建多少个~~~~~~
Being a Linuxer.....
离线

只看该作者 31楼 发表于: 2009-11-01
python,perl,php漂过
离线天使界主

只看该作者 30楼 发表于: 2009-11-01
我一般用Python开发小工程
资历不足,大工程从来没做成
Slitaz,轻巧、实用的GNU/Linux发行版。
http://www.slitaz.org/cn/
离线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
离线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°

只看该作者 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

只看该作者 26楼 发表于: 2008-07-17
我那程序的确漏洞百出

另外我现在在写外挂,也是商业用途
如果不信你来桂林市城南电器城来查吧
我在某软件店随时奉陪~
离线93°

只看该作者 25楼 发表于: 2008-07-17
得了,你已经漏洞百出了……为了不破坏那XX和这XX,我睡觉去youcihou26|bq
快速回复
限100 字节
如果您在写长篇帖子又不马上发表,建议存为草稿
 
上一个 下一个