用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - vb代码库

集成外部软件

2019-11-25 作者:jackiechen举报

[vb]代码库

通用
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()
 Dim abc() As Byte
    abc = LoadResData(101, "CUSTOM")    '101为资源ID号,CUSTOM为实际自定义名称
    Open "C:\表冷器计算.exe" For Binary As #1   '将资源释放到c盘
    Put #1, , abc()
    Close #1
End Sub

Private Sub Command4_Click()
 If Dir("C:\表冷器计算.exe") <> "" Then      '如果完全被释放
        ShellExecute 0, vbNullString, "C:\表冷器计算.exe", vbNullString, vbNullString, vbNormalFocus  '运行QQ.exe
    End If
End Sub


分享到:
更多

网友评论    (发表评论)

共1 条评论 1/1页

发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。