求助, VB怎么样实现调用其他应用程序, 并让该程序执行JS脚本

windowstyle 命名参数有以下这些值：

常量 值 描述

vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。常数vbHide在Macintosh平台不可用。

VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。

VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。

VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。

VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。

VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。

说明

如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序，则会产生错误。

在Macintosh中，vbNormalFocus、vbMinimizedFocus和vbMaximizedFocus都将应用程序置于前台；vbHide、vbNoFocus、vbMinimizeFocus都将应用程序置于后台。

注意 缺省情况下，Shell 函数是以异步方式来执行其它程序的。也就是说，用 Shell 启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。

Shell 函数示例

本示例使用 Shell 函数来完成一个用户指定的应用程序。在 MacIntosh 上，默认的驱动名为 “HD” ，路径名称的每部分由冒号而非反斜线分隔。相似地，您可以指定 Macintosh 文件夹而非 \Windows

' 将第二个参数值设成 1，可让该程序以正常大小的窗口完成，并且拥有焦点。

Dim RetVal

RetVal = Shell("C:\WINDOWS\CALCEXE", 1) ' 完成Calculator。

VB所需要的所有代码只能写在程序源码中

要实现你说的功能,只能借用VBS

VB不是解释性的编程语言VB程序源代码都是被编译成机械码后才成EXE文件的

所以VB编译好的程序没有运行代码的函数

如果不怕麻烦,就把所有代码的处理程序写到VB中

要不就利用VBS脚本中的execute函数,在VBS中执行execute(a),则字符串a会被当程序执行比如在VBS中:

a="Msgbox(now)"

execute (a)

的执行结果等于Msgbox(now)的结果

把你要处理的代码以字符串(记得换行!)的形式存在a中,再在VBS中执行

execute(a)

即可

参数

外部传递的命令行参数吗？

可以用 Command$ 接收

vbs 脚本的话接收参数是

dim args

set args = wscriptarguments

msgbox argscount '显示传递参数的总数

msgbox args(0) '第一个参数

这个和普通VBA编程差不多的,我用过一次,不太记得了因为我自己的电脑上没有装BARTENDER,设定数据类型为VB脚本,然后添加关系b=a+2,运行的时候,有个提示框,输入数值后,执行打印你也可以做成数字标签,把输入的那个放在非打印区域(灰色区),在打印区域在放个标签,建立关系,A=B+2 因为本人离职了,不能接触BARTENDER,只能凭记忆给你点提示吧希望对你有帮助你也可以看一下这个软件的帮助文件,挺简单的我看了一个上午,就能做打印的应用了

1

Dim num,Sqrt,Total

num = InputBox("请输入一个整数：")

If num = "" Or Not IsNumeric(num) Or InStr(num,"") <> 0 Then

WScriptEcho "你输入的"&num&"不是一个整数！"

WScriptQuit

End If

Sqrt = Int(Sqr(num))

Total = ""

For i = Sqrt To 1 Step -1

If num Mod i = 0 Then

Total =i&"+"&Total&"+"&(num/i)

End If

Next

If Sqrt Sqrt = CInt(num) Then

Total = Replace(Total,"++"&Sqrt,"")

Else

Total = Replace(Total,"++","+")

End If

WScriptEcho Total&"="&Eval(Total)

2

Dim randnum,Lt,Eq,Gt,Msg,num

num = InputBox("请输入一个整数：")

If num = "" Or Not IsNumeric(num) Or InStr(num,"") <> 0 Then

WScriptEcho "你输入的"&num&"不是一个整数！"

WScriptQuit

End If

Randomize

For i = 1 To num

randnum = Int(Rnd1000)

If randnum <500 Then

Lt = Lt +1

ElseIf randnum > 500 Then

Gt = Gt + 1

Else

Eq = Eq + 1

End If

Next

Msg = "生成"&num&"个1000以内的数，其中小于500数有"&Lt&_

"个,占"&CDbl(Lt100)/num&"%,大于500的数有"&Gt&_

"个,占"&CDbl(Gt100)/num&"%"

If Eq > 0 Then

Msg = Msg&",等于500的数共有"&Eq&"个，占"&CDbl(Eq100)/num&"%"

End If

WScriptEcho Msg

保存为vbs文件，双击即可。

首先你要明确是对游戏用还是对普通程序用

一般的游戏都写了保护

所以一般的按键都被屏蔽了

如果是普通程序的话直接用SENDKEYS函数发送按键消息

或者是sendmessage，postmessage这些API函数来发送按键消息

你加1个timer控件就可以实现计时了。

如果是游戏的话一般用winio驱动级模拟

这个代码你自己上网搜搜

很多的

另外WINIO还要用到WINIO组件

可能有些麻烦

不过也是没有办法的

希望能帮助到你

不懂请追问

罪犯是C吧。

很好玩的游戏，用脑子想的话就很快的出谁是答案。用编程的话就会墨迹点，因为要表现他们的 *** 作。

VBS或者VB都可以

Dim P(4),X(4)

Dim Rec,Max '记录最大嫌疑者

Dim i

P(0)= "A":X(0)=0'X(0)代表A被怀疑的次数

P(1)= "B":X(1)=0'X(1)代表B被怀疑的次数

P(2)= "C":X(2)=0'X(2)代表C被怀疑的次数

P(3)= "D":X(3)=0'X(3)代表D被怀疑的次数

For i=0 To 3

Select Case P(i)'假设其中一人说了假话，把其余人的推理都验证一遍，在推理过程中被怀疑者加1

Case "A" X(2)=X(2)+1:X(3)=X(3)+1:X(2)=X(2)+1

Case "B" X(0)=X(0):X(3)=X(3)+1:X(2)=X(2)+1

Case "C" X(0)=X(0):X(2)=X(2)+1:X(2)=X(2)+1

Case "D" X(0)=X(0):X(2)=X(2)+1:X(3)=X(3)+1

End Select

Next

Max=X(0):Rec=0

For i=1 To 3

If Max<X(i) Then'查出谁是最大嫌疑者

Max=X(i)

Rec=i

End if

Next

MsgBox "真相只有一个，" & P(Rec) & "就是罪犯"

以上就是关于求助, VB怎么样实现调用其他应用程序, 并让该程序执行JS脚本全部的内容，包括:求助, VB怎么样实现调用其他应用程序, 并让该程序执行JS脚本、推荐一个VB运行脚本的方法、vb 脚本的问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！