NEO化学吧

93° 2008-07-17 20:37

囧
那我写上千窗体都有了

回复 21F 93° 的帖子

等电子的氯 2008-07-17 20:44

嗯
其实我说的好几=2

93° 2008-07-17 20:46

= =
晕了晕了不说了。。晒窗体我随时搞几千个出来

等电子的氯 2008-07-17 20:47

谁跟你晒啊。。
我那是有商业用途的正事。。

93° 2008-07-17 20:49

= =商业用途

93° 2008-07-17 20:51

得了，你已经漏洞百出了……为了不破坏那XX和这XX，我睡觉去youcihou26|bq

等电子的氯 2008-07-17 20:54

我那程序的确漏洞百出

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

93° 2009-11-01 00:40

挖坟

  [attachment=4347]

[attachment=4348]

[attachment=4349]

93° 2009-11-01 00:56

复制代码
  1.     Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
            Dim t As New Thread(AddressOf CreateNewForm)
            t.Start()
        End Sub

        Public Sub CreateNewForm()
            Do
                System.Threading.Thread.Sleep(1000)
                Dim mou As New MouseClass
                mou.ntMouseMove(1146, 148)
                System.Threading.Thread.Sleep(100)
                mou.ntMousePress(MouseClass.MOUSE_EVENT_CODE.MOUSE_RIGHT_BUTTON)
                System.Threading.Thread.Sleep(100)
                mou.ntMouseMove(1168, 237)
                System.Threading.Thread.Sleep(100)
                mou.ntMousePress(MouseClass.MOUSE_EVENT_CODE.MOUSE_LEFT_BUTTON)
                System.Threading.Thread.Sleep(100)
                mou.ntMouseMove(986, 237)
                System.Threading.Thread.Sleep(100)
                mou.ntMousePress(MouseClass.MOUSE_EVENT_CODE.MOUSE_LEFT_BUTTON)
                System.Threading.Thread.Sleep(500)
                mou.ntMouseMove(468, 227)
                System.Threading.Thread.Sleep(100)
                mou.ntMousePress(MouseClass.MOUSE_EVENT_CODE.MOUSE_LEFT_BUTTON)
                System.Threading.Thread.Sleep(10)
                mou.ntMousePress(MouseClass.MOUSE_EVENT_CODE.MOUSE_LEFT_BUTTON)
            Loop
        End Sub


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

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

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

[attachment=4351]

以下是自动添加到65个窗体时的样子，懒得等了，直接kill掉线程


[attachment=4350]

93° 2009-11-01 01:00

最近在开发梦游的外挂，所以才会写了mouseclass这么无聊的东西，5000元，太少了

然后珠海的一家软件公司跟我曰 “如果你以后不想上学了，我们随时欢迎你” 我“优雅”地拒绝了 = =