參看下面的代碼
紅安網站制作公司哪家好,找成都創新互聯!從網頁設計、網站建設、微信開發、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
文章標題:包含vb點虐
注冊ocx的詞條
網址分享:http://vcdvsql.cn/article38/ddsissp.html
成都網站建設公司_創新互聯,為您提供網站改版、網站策劃、服務器托管、標簽優化、網站設計公司、微信小程序
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯