mirror of https://github.com/Genymobile/scrcpy
You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
723 B
Plaintext
26 lines
723 B
Plaintext
strCommand = "cmd /c scrcpy.exe"
|
|
Dim oShell,exeRs
|
|
Set oShell = CreateObject("WSCript.shell")
|
|
commandLine = "adb.exe devices"
|
|
Set exeRs = oShell.Exec(commandLine)
|
|
outs = exeRs.StdOut.ReadAll()
|
|
strs= Split(outs,VbCrLf)
|
|
Dim dev
|
|
for i=1 to ubound(strs)
|
|
dev = Replace(strs(i), "device", "")
|
|
dev = Replace(dev, " ", "")
|
|
dev = Trim(dev)
|
|
If (Len(dev)) then
|
|
v=MsgBox("scrcpy -s "&dev&"?",1)
|
|
If ( v =1 ) then
|
|
strCommand = strCommand & " -s " & dev
|
|
For Each Arg In WScript.Arguments
|
|
strCommand = strCommand & " """ & replace(Arg, """", """""""""") & """"
|
|
Next
|
|
CreateObject("Wscript.Shell").Run strCommand, 0, false
|
|
End If
|
|
End If
|
|
next
|
|
Set oShell = Nothing
|
|
Set exeRs = Nothing
|