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

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

 上一主题 下一主题
离线93°
盐酸
 
只看楼主 正序阅读 楼主  发表于: 2008-07-17
= =
Attached Images
回复
举报
离线93°
盐酸
只看该作者 33楼 发表于: 2009-11-01
我只是试试在VB6中这样添加窗体 = =

VS BCB D07 DEV-C++ JCREATOR飘过

复制代码
  2. for(;;){
  3. CreateWindowEx(
  4.                                .....
  5.                                );
  6. }
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
  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°
盐酸
只看该作者 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
回复
举报
发帖 回复
返回列表
1234
快速回复
限100 字节
批量上传需要先选择文件，再选择上传
 
上一个 下一个