UC知道怎么将EXE程序连接倒VB制作的软件 懂VB的高手过来！！！！相信你会
来源：百度知道 编辑：UC知道 时间：2024/06/18 07:11:39
我想搞一下朋友！
我有个鼠标抖动软件是exe结尾
我想用VB制作个软件把鼠标抖动软件加进去，他一按就抖个不停！~~~
嘿嘿~~~~~~~~
怎么搞？？
怎么都搞不成？？
Private Sub Command1_Click()
Shell("C:\Documents and Settings\Administrator\桌面\ok.exe")
End Sub
将你说的上面的弄进去了
但出现了~小方框后 那个空白的小方框点了一下才抖~~~~
没自动抖~~~~~~~~
你下载看看咋样
该怎么自动？？
下载地址http://tg1a115.mail.163.com/netfolder/servlet/nfapp/GetFile/%E7%82%B9%E5%87%BB%E5%B0%8F%E6%96%B9%E6%A1%86%E5%B0%B1%E6%8A%96.exe?sid=YCQURhccwKKaHEmJtDccSnXviWrNhbCW&mid=1tbilhFHE0L%2b9fQVZgAAsd&save=1
把地址新建到迅雷就能下载
我有个鼠标抖动软件是exe结尾
我想用VB制作个软件把鼠标抖动软件加进去，他一按就抖个不停！~~~
嘿嘿~~~~~~~~
怎么搞？？
怎么都搞不成？？
Private Sub Command1_Click()
Shell("C:\Documents and Settings\Administrator\桌面\ok.exe")
End Sub
将你说的上面的弄进去了
但出现了~小方框后 那个空白的小方框点了一下才抖~~~~
没自动抖~~~~~~~~
你下载看看咋样
该怎么自动？？
下载地址http://tg1a115.mail.163.com/netfolder/servlet/nfapp/GetFile/%E7%82%B9%E5%87%BB%E5%B0%8F%E6%96%B9%E6%A1%86%E5%B0%B1%E6%8A%96.exe?sid=YCQURhccwKKaHEmJtDccSnXviWrNhbCW&mid=1tbilhFHE0L%2b9fQVZgAAsd&save=1
把地址新建到迅雷就能下载
v
可以使用res 作为资源文件
运行的时候释放并shell运行，退出的时候可以kill~
给你代码： 还是不会~~可以再问我~
'将你的工具例如: S.exe 放在res(资源)中 ~~
'放入资源中步骤
'外接程序—外接程序管理器—vb 6 资源编辑器—添加自定义资源
Private Sub Form_Load()
Dim App1() As Byte
If Dir(App.Path & "\S.exe") = "" Then '检测是否存在s.exe
App1 = LoadResData(101, "CUSTOM") '如果为空,读取资源文件中的(101,"custom")字符串
Open App.Path & "\S.exe" For Binary As #2 '打开 s.exe用二进制的方式写入数据
Put #2, , App1
Close #2 '关闭 这里还要说明一下 这里所谓的打开并不是指运行 而是用二进制方式打开文件写入原始数据
End If
Shell "s.exe", vbNormalFocus '运行这个文件
End Sub
Private Sub Form_Unload(Cancel As Integer)
Kill App.Path & "\S.exe" '退出程序,杀掉S.exe
End Sub
首先你确认：启动那个“鼠标抖动软件”时，鼠标就会抖动。
用VB新建一个“标准EXE”工程，然后在窗体中加入一个按钮控件“Command1”
双击它，加入代码：
Pirvate Sub Command1_Click()
Shell "C:\鼠标抖动.E