Visual Basic Código em vbs que usa caixa de dialogo

[alan neris]

encontrei esse Código na internet e pretendo usá-lo automaticamente, sem necessidade de usar (executar) caixa de diálogo. com faco isso

 

 

 

set facebook = createobject("wscript.shell")
 
Dim pass
 
pass = InputBox(String(1, vbLf) & "senha0149:", "Facebook")
If pass = "senha149" Then
    MsgBox String(1, vbLf) & "Digite uma senha.", 16, "Facebook"
    Wscript.Quit
 
Else
    facebook.run "msedge.exe -InPrivate   /start                  https://www.facebook.com/?fref=ts&:refresh=yes"
'Tempo de espera abaixo pode ser alterado conforme a velocidade da sua conexão
    wscript.sleep(3000)
    facebook.sendkeys("[email protected]")
    facebook.sendkeys "{Tab}"
    wscript.sleep(2000)
    facebook.sendkeys(senha229)
    facebook.sendkeys "{Enter}"
    wscript.sleep(2000)
    call MsgBox(String(1, vbLf) & "Processo de login finalizado.", 64, "Facebook")
End If

 

[Midori]

@alan neris É só remover as linhas desnecessárias. Se quer abrir o Edge e enviar comandos para o navegador, deixe as linhas do run até o último sendkeys.