参看下面的代码
红安网站制作公司哪家好,找成都创新互联!从网页设计、网站建设、微信开发、APP开发、响应式网站等网站项目制作,到程序开发,运营维护。成都创新互联从2013年成立到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联。
Public Sub main()
Dim str As String = Application.StartupPath "\videocapx.ocx"
Shell("regsvr32.exe /s """ str """", AppWinStyle.NormalFocus)'这里如果文件名包含空格,需要把整个文件名用双引号引起来哦,切记
Application.Run(New Form1)
End Sub
你这种做法应该是仿照vba的代码,vb点虐 里面不是这样做的。
你要做的是打开网页、自动填写然后提交表单吧?
应该用webbrowser来加载页面。
需要引用:Microsoft HTML Object Library
在webbrowser的状态为ready的时候,执行:
'取得要填写的表单名称,并定义为一个html元素变量text
Dim text As HtmlElement = WebBrowser1.Document.GetElementById("表单字段名id")
'给表单元素text赋值
text.InnerHtml = “张三”
'找到提交按钮
Dim btnSubmit As HtmlElement = WebBrowser1.Document.GetElementById("提交按钮id")
'执行点击动作
btnSubmit.InvokeMember("click")
步骤如下:
1. 先到C:\WINDOWS\system32目录下看看你的系统里是否已经有了MSADODC.ocx和MSDATGRD.ocx这两个文件(多半是没有的),要是有了就直接看第2步吧。
然后放到C:\WINDOWS\system32目录下。
2. 在VS 2005中注册MSADODC.ocx和MSDATGRD.ocx这两个控件。在VS 2005中点击"Tools" -- "Visual Studio 2005 Command Prompt",输入如下命令即可:
regsvr32 msadodc.ocx
regsvr32 msdatgrd.ocx