VB.NET可以編寫VBS腳本嗎

”VBS腳本“可以用任何純

公司主營業(yè)務：網(wǎng)站設計制作、網(wǎng)站制作、移動網(wǎng)站開發(fā)等業(yè)務。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)建站是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)建站推出黎川免費做網(wǎng)站回饋大家。

文本編輯

工具編寫，包括系統(tǒng)自帶的”記事本“。VB.NET當然也可以。

如果你是需要語法提示之類的，VB.NET可以提供絕大部分的語法提示。畢竟

VBS

是

VB

的子集。

如何在vb中控制webbrowser的彈出窗口

給出以下三種方法你可以試一下：

方法一：

控制webbrowser不彈出IE窗口的方法是在控件的NewWindow2事件里面添加如下代碼:

Set ppDisp = WebBrowserTemp.Object ' WebBrowserTemp為自己在窗體中另外添加的Webbrowser控件

如果禁止彈出窗口,不做處理,則在NewWindow2事件里添加如下代碼即可:

Cancel = True

方法二：

利用OnDownloadBegin和OnDownloadComplete

以CHtmlView為例，彈出的廣告窗口都是通過CHtmlView::OnNewWindow2( LPDISPATCH* ppDisp, BOOL* Cancel );打開的。

關(guān)于OnNewWindow2不想多說，只說說這第2個參數(shù) BOOL* Cancel

當Cancel = false的時候就不能打開新窗口了，如果你的CHtmlView的該參數(shù)一直為FALSE那么一切彈出窗口都不能打開，廣告窗口自然就沒了。

那~~~要是總FALSE豈不是正常網(wǎng)頁也無法瀏覽了？

別忙，接下來要做的就是在適當?shù)臅r候讓這個參數(shù)返回FALSE。

拋開CHtmlView我們回頭來看看IE下載網(wǎng)頁彈出廣告窗口的過程：

OnDownloadBegin ----發(fā)現(xiàn)window.open等Js或者vbs ----OnNewWindow2 ----OnDownloadComplete

了解了上述過程之后......什么時候讓OnNewWindow2的第2個參數(shù)為FALSE你就清楚了吧！

下面跟我實戰(zhàn)。

給你的從CHtmlView派生而來的CNoPopHtmlView加一個成員變量BOOL m_bPop;

在構(gòu)造函數(shù)里給m_bPop初始化為：m_bPop = TRUE;

重載OnDownloadBegin虛函數(shù)，在其中加入：m_bPop = FALSE;

重載OnDownloadComplete虛函數(shù)，在其中加入：m_bPop = TRUE;

重載OnNewWindow2虛函數(shù)，在其中加入：

Cancel = m_bPop;

這樣CNoPopHtmlView將不在打開廣告窗口，關(guān)鍵在于了解IE的下載、彈出窗口的過程。（本文的方法同樣對CWebBrowser2適用、不論你是用VC還是Delphi都有效，關(guān)鍵在于了解IE下載、彈出窗口的過程）

上面說的是在自編瀏覽器中過濾廣告窗口。

其實你完全可以利用BHO（Browser Helper Object）寫一個針對IE的廣告窗口過濾器。

在BHO里你利用IObjectWithSiteImpl::SetSite獲得IWebBrowser2指針，然后利用Invoke處理OnDownloadBegin/OnDownloadComplete/OnNewWindow2等事件就可以，模式同上。

方法三：

設屬性 silent 為 True

VB.NET到底能不能在安卓系統(tǒng)上編寫手機程序

不能，VB.NET是在windows環(huán)境里開發(fā)windows軟件的，安卓系統(tǒng)用不了，而且也沒安卓版的VB.NET，你要想開發(fā)安卓軟件，先在電腦上安裝JDK環(huán)境包，用Android

Studio來開發(fā)，VB.NET就算了。兩者之間壓根就沒關(guān)系。

VB.NET 怎么讀寫二進制文件，類似Open

本示例闡釋二進制文件的基本輸入和輸出（使用 BinaryReader、BinaryWriter 和 FileStream 類。 在如何創(chuàng)建日志文件標題下面有一個類似的主題。讀寫二進制信息使您可以創(chuàng)建和使用通過其他輸入和輸出方法無法訪問的文件。本示例還展示寫入非字符串數(shù)據(jù)，并展示二進制 I/O 的功能。

盡管計算機上的文件可以不同的類型和文件存儲，但是，二進制格式是文件的較常用格式之一。此處對創(chuàng)建二進制文件的簡短介紹使用基類 BinaryReader 和 BinaryWriter 從文件獲取信息，并將信息放入文件。這些類中的每個類均封裝一個信息流，因此，在進一步操作之前，需要創(chuàng)建一個可用于來回寫信息的流。因為要創(chuàng)建文件，所以可使用 FileStream 來公開特定文件，在此情況下，如果該文件已存在，則可以修改該文件，或者如果該文件尚不存在，則可以創(chuàng)建該文件。在有 FileStream 之后，可以使用它來構(gòu)造 BinaryReader 和 BinaryWriter

在讀入信息之后，可以對信息進行所需的任何操作。但是，在某些時候，您可能想要將信息寫回文件，因此需要 BinaryWriter。在本示例中，您將使用 Seek 方法將信息追加到文件結(jié)尾，因此，在開始寫入之前，請確保指向文件的指針位于文件結(jié)尾。在使用 BinaryWriter 寫入信息時有多個選項。因為 Write 方法有足夠的重載用于您能夠?qū)懭氲乃行畔㈩愋停?，可以使?Write 方法向您的編寫器封裝的流寫入任何標準形式的信息。本情況下，還可以使用 WriteString 方法向流中寫入長度預先固定的字符串。

VB Source: VB\ReadWrite.aspx

%@ Import Namespace="System.Text" %

%@ Import Namespace="System.IO" %

script language="VB" runat=server

Class TestBinary

Public Shared Function ReadFile(selection As String) As String

Dim output As StringBuilder = New StringBuilder()

Dim fs As FileStream = New FileStream("data.bin", FileMode.OpenOrCreate)

Dim r As BinaryReader = New BinaryReader(fs)

Try

r.BaseStream.Seek(0,SeekOrigin.Begin) ' 將文件指針設置到文件開始

' 因為不同數(shù)據(jù)類型之間的很多轉(zhuǎn)換結(jié)果都是不可解釋的，

' 所以當在其他類型與二進制數(shù)據(jù)之間進行轉(zhuǎn)換時，

' 必須捕捉可能引發(fā)的任何潛在的異常...

' 能夠正確讀取數(shù)據(jù)依賴于如何寫入信息...

' 這與寫日志文件時不同。

Do While r.BaseStream.Position r.BaseStream.Length ' 當未到達文件結(jié)尾時

Select Case selection

Case "Boolean"

output.Append( r.ReadBoolean().ToString() )

Case "String"

output.Append( r.ReadString() )

Case "Integer"

output.Append( r.ReadInt32().ToString() )

End Select

Loop

Finally

fs.Close()

End Try

return output.ToString()

End Function

Public Shared Function WriteFile(output As Object, selection As String) As String

Dim fs As FileStream = New FileStream("data.bin", FileMode.Create)

Dim w As BinaryWriter = New BinaryWriter(fs)

Dim strOutput As String = ""

w.BaseStream.Seek(0, SeekOrigin.End) ' 將文件指針設置到文件結(jié)尾

' 因為正在寫的信息可能不適合于所選擇用于寫入的特定樣式

' （例如，單詞“Hello”作為整數(shù)？），所以我們必須捕捉寫入

' 錯誤，并通知用戶未能執(zhí)行該任務

Try

Select Case selection

Case "Boolean"

Dim b As Boolean = Convert.ToBoolean(output)

w.Write( b )

Case "String"

Dim s As String = Convert.ToString(output)

w.Write( s )

Case "Integer"

Dim i As Int32 = Convert.ToInt32(output)

w.Write(i)

End Select

Catch E As Exception

' 讓用戶知道未能寫入該信息

strOutput = "寫異常：" chr(13) _

"無法以所請求的格式寫入要寫入的信息。" _

chr(13) "請輸入嘗試寫入的數(shù)據(jù)類型的有效值"

End Try

fs.Close()

return strOutput

End Function

End Class

Sub btnAction_Click(src As Object, E As EventArgs)

Dim s As String = ""

' 寫出文件

s = TestBinary.WriteFile(txtInput.Text, lstDataIn.SelectedItem.Text)

If s = "" Then

Try

' 讀回信息，顯示信息...

txtOutput.Text = TestBinary.ReadFile(lstDataIn.SelectedItem.Text)

Catch Exc As Exception

' 讓用戶知道未能寫入信息

s = "讀異常：" chr(13) _

"無法以所請求的格式讀取要寫入的信息。" _

chr(13) "請輸入嘗試寫入的數(shù)據(jù)類型的有效值"

End Try

Else

txtOutput.Text = s

End If

End Sub

/script

html

head

link rel="stylesheet" href="intro.css"

/head

body style="background-color:f6e4c6"

form method=post runat="server"

p

table

tr

tdb

下面的示例使用 BinaryWriter 對象創(chuàng)建一個二進制文件，然后使用 BinaryReader 讀取該信息。/b可以選擇不同的對象來將所需的信息寫入文件

此演示用于強調(diào)您需要知道如何讀取已寫入的二進制文件。一旦以某種格式寫入數(shù)據(jù)，就只能以該格式讀取該信息。但是，可以將多種不同的數(shù)據(jù)類型寫入文件。在此演示中，輸入任意字符串并將它們作為字符串讀取，對于整型，僅輸入整型數(shù)值項（試試浮點數(shù)字，然后看看會發(fā)生什么...）；對于布爾型項，僅輸入詞“false”和“true”。

p

hr

/td

/tr

/table

asp:Table id="basetable" runat="server" border="0" cellspacing="0" cellpadding="5"

asp:tablerow

asp:tablecell verticalalign="top"

請選擇要保存到二進制文件的數(shù)據(jù)類型...

/asp:tablecell

asp:tablecell verticalalign="top"

asp:listbox id="lstDataIn" runat="server"

asp:listitemBoolean/asp:listitem

asp:listitem selected="true"String/asp:listitem

asp:listitemInteger/asp:listitem

/asp:listbox

/asp:tablecell

asp:tablecell verticalalign="top"

asp:button id="btnAction" onclick="btnAction_Click" Text="寫入/讀取文件" runat="server"/

/asp:tablecell

/asp:tablerow

VB到底能寫什么？只能寫那種登陸界面或者那類檔案管理工具？

VB(或VB.net)主要用于設計界面、編寫網(wǎng)頁、數(shù)據(jù)庫編程等應用層的程序，但它有先天不足——沒有指針就是他最大的缺點，這就導致他不能編寫太低層或大型的應用程序，但它對于初學者或數(shù)據(jù)庫和網(wǎng)頁開發(fā)人員還是非常好的。

至于樓上說的用VB寫編譯器，確實可行，只不過那個編譯器只能建立在.net平臺上，VB幾乎不可能編寫通用的跨平臺編譯器（主要還是因為沒有指針及直接操作內(nèi)存的能力）！

vb.NET 關(guān)于數(shù)據(jù)庫的讀寫 - 高分

Dim da As New OleDb.OleDbDataAdapter（‘’輸入2/3/4其中的答案）

Dim ds As New DataSet

da.Fill(ds, "Table1")

Dim dt As DataTable

dt = ds.Tables("Table1")

//2. Cmd.CommandText = "select 序號 from 賬號 where 姓名='小李'"

//3. Cmd.CommandText = "select 序號 from 賬號 where 姓名='小張'"

//4. Cmd.CommandText = "insert into 賬號(姓名,年齡,性別,序號) values('張三','22','男','4')"

DataGridView1.DataSource = dt '建立datagridview來顯示資料

myCn.Close()

分享名稱：vb.net能寫bho嗎的簡單介紹
網(wǎng)頁鏈接：http://chinadenli.net/article18/dodcgdp.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供自適應網(wǎng)站、商城網(wǎng)站、、關(guān)鍵詞優(yōu)化、企業(yè)建站、品牌網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)