无法定位程序输入点,多线程建立运行

作者: 新金沙平台  发布:2019-08-30

VB中的数据输出:

 

说明:“Automation 错误”其实是VB调用程序或组件时,程序或组件返回的错误,因此需要考虑这些组件是否能正确运行

 

代码示例,方便以后查阅

如在某些机器上运行以下代码时:

    1,使用标签控件(label),

 Private Sub Start_1() '线程1

Dim WshShell As Object    
Set WshShell = CreateObject("wscript.shell")    
runAndWaitExe = WshShell.Run(strCommand, 0, True)   
会产生“AutoMation 错误”,原因是"Wscript.Shell"无法正常运行

            例子:labe1.caption="Visual Bisic(简称VB)是Microsoft推出的基于Windows操作系统环境下的软件开发工具。"

        Dim I As Integer

 

    2,使用print方法,

        For I = 1 To 100000000 Step 1


            print方法用于在窗体(form),立即窗口(Debug),图片框(picturebox)或打印机(printer)等对象中显示或打印输出字符串或表达式的值。

            Label1.Text = I

以下方法转自网络,已经成功地解决问题!

          语法格式:

        Next

 

                     [<对象名称>.]print[<表达式列表>][,/;]

    End Sub

错误消息和前面的一样“WSript.exe - 无法找到入口 ”,无法创建名为“Wscript.Shell”的对象。于是开始了疯狂百度,原因是说要么脚本被禁用(不可能,因为弹出消息来了嘛),二是文件被改动。网上一般是说注册两个组件就OK了,如下:

      注意事项:  1,print方法具有计算和输出的双重功能,先计算表达式的值后输出。

 

regsvr32 srcrun.dll    (命令成功)
regsvr32 wshom.ocx   (弹出错误提示:无法定位程序输入点 DoOpenPipeStream 于动态链接库ScrRun.dll上)

                            2,当输出多个表达式时,个表达式之间用逗号“,”或分号“;”隔开。前者按标准格式输出,既每隔14列为一   个输出区;后者是紧跟着前一项输出。

    Private Sub Start_2() '线程2

前一个执行成功,后一个怎么弄都是错误,消息是“LoadLibary("wshom")失败,找不到指定的程序”,看了看system32目录下,wshom.ocx是有的。后来开始认识到可能是wshom.ocx被破坏了,于是找了相同版本的电脑(我的是XP SP3),然后写段脚本,把下面的文件拷出来:

                            3,为了使上下两个print语句输出内容显示在同一行上,则需要再上一个print语句的最后加上逗号或者分号。

        Dim I As Integer

mkdir c:/repair
set source=%windir%/system32
set target=c:/repair
copy %source%/cscript.exe %target%
copy %source%/jscript.dll %target%
copy %source%/scrobj.dll %target%
copy %source%/scrrun.dll %target%
copy %source%/vbscript.dll %target%
copy %source%/wscript.exe %target%
copy %source%/wshext.dll %target%
copy %source%/wshom.ocx %target%
pause

           例子:

        For I = 100000000 To 1 Step -1

并将对方机器上的c:/repair目录拷贝到我的c:/下,然后用下列脚本更新:

 

            Label2.Text = I

set source=c:/repair
set target=%windir%/system32
copy %source%/cscript.exe %target%
copy %source%/jscript.dll %target%
copy %source%/scrobj.dll %target%
copy %source%/scrrun.dll %target%
copy %source%/vbscript.dll %target%
copy %source%/wscript.exe %target%
copy %source%/wshext.dll %target%
copy %source%/wshom.ocx %target%
regsvr32 %target%/jscript.dll
regsvr32 %target%/scrobj.dll
regsvr32 %target%/scrrun.dll
regsvr32 %target%/vbscript.dll
regsvr32 %target%/wshext.dll
regsvr32 %target%/wshom.ocx
pause

 

        Next

完成后使用脚本测试CreateObject("WScript.Shell")成功

                       图片 1          

    End Sub

摘自 hellostory的专栏

 

 

错误其实是VB调用程序或组件时,程序或组件返回的错误,因此需要考虑这些组件是否能正确运行 如在某些机器上运行以下...

      对应输出的结果: 

    Private Sub Start_3() '线程3

 

        Dim I As Integer

图片 2

        For I = 1 To 100000000 Step 1

本文由新金沙平台发布于新金沙平台,转载请注明出处:无法定位程序输入点,多线程建立运行

关键词: 新金沙平台 澳门金沙总站