Question

Private Sub cmdtiehack_Click()     
    Dim hwnd
    hwnd = FindWindow(vbNullString, "Window name")          

    If hwnd = 0 Then         
        MsgBox "Program is not open"         
    Else         
        Dim Retval As Long     
        Retval = ShellExecute(Me.hwnd, "open", "5.exe", _     0, 0, SW_HIDE)     
        Delay 1     
        Retval = ShellExecute(Me.hwnd, "open", "6.exe", _     0, 0, SW_HIDE)     
    End If 
End Sub

我过去没有使用VB，但我看不出错误在哪里。我应该使用记事本编译它还是像.vbs一样保存？谢谢你的建议。

Answer 1

从行中删除_。如果你要分割线，你会使用它们，但如果你把它全部放在一条线上，你就不需要它们。

所以：

Retval = ShellExecute(Me.hwnd, "open", "5.exe", _
                      0, 0, SW_HIDE)

或

Retval = ShellExecute(Me.hwnd, "open", "5.exe", 0, 0, SW_HIDE)

没关系。

根据评论进行编辑：

只是查看了错误代码，我认为这可能对您有所帮助： Expected end of statement

尝试删除As Long。正如旁注，我也会将昏暗移动到函数的顶部。

没有经验，但我需要它

1 个答案: