VB程序源碼如何使用

你需要安裝vb6.0開發(fā)軟件

專注于為中小企業(yè)提供網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)梧州免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了成百上千家企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

如果安裝了，就可以直接打開源碼測(cè)試了，后綴名是vbp，（就是vb的工程文件）

如果沒有安裝vb6.0，還想打開源碼看程序，那就右擊 用記事本 打開后綴名為frm的文件，他是vb的窗口文件，源碼都在他里面

一般得源碼是沒有生成exe可執(zhí)行文件的，那樣文件太多，太大，浪費(fèi)空間

如果你自己想生成exe可執(zhí)行文件，那就vb6.0得文件菜單中把文件保存成exe可執(zhí)行文件就可以了，非常簡(jiǎn)單

好運(yùn)！

VB.NET獲取需要登錄后的源碼

很簡(jiǎn)單的。這個(gè)最基本的了。

就是從數(shù)據(jù)庫表中 找出一個(gè)記錄，名稱和密碼都和你輸入的一樣的記錄，就表示登陸成功。

簡(jiǎn)單的思路：（密碼也沒有加密等）

dim dt As New DataTable

dim cmd As New SqlCommand

With cmd

.CommandText = "Select * From Users Where UserName=@UserName and UserPwd=@UserPwd"

.Parameters.Add(New SqlClient.SqlParameter("@UserName", "=你輸入的用戶名TextBox1.Text"))

.Parameters.Add(New SqlClient.SqlParameter("@strColorNo", "=你輸入的密碼TextBox2.Text"))

End With

dt =SqlHelper.GetDatatable(cmd)

if dt.rows.count0 then

msgbox "ok"

else

msgbox "error"

end if

求vb.net的源代碼，最好說明其解決問題，越多越好，滿意加50分。

下面這段代碼，是我用來計(jì)算每個(gè)月存500元進(jìn)銀行，連續(xù)30年，最后連本帶利能有多少錢。這里面涉及復(fù)利計(jì)算。界面中右邊的文本框用來輸出每一次計(jì)算的結(jié)果。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

? Dim nianxian As Integer '年限變量

? Dim dingcun As Integer '定存變量

? Dim fuli_big As Long '大復(fù)利

? Dim fuli_small As Long '小復(fù)利

? Dim i As Integer '循環(huán)變量

? Dim DATAstring As String '數(shù)據(jù)字符串

? nianxian = Val(年限_TextBox.Text)

? dingcun = Val(定存_TextBox.Text)

? DATAstring = ""

? For i = 1 To nianxian

? ? ? fuli_small = dingcun * (1 + 0.1875)

? ? ? dingcun = fuli_small

? ? ? fuli_big = fuli_big + fuli_small

? ? ? DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)

? ? ? 'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)

? Next

? 'fuli_big = fuli_small

? TextBox1.Text = DATAstring

? 結(jié)果_TextBox.Text = Str(fuli_big) + "元"

End Sub

如何用vb.net獲得網(wǎng)頁的源代碼

Dim url As String=" 網(wǎng)址"

Dim httpReq As System.Net.HttpWebRequest

Dim httpResp As System.Net.HttpWebResponse

Dim httpURL As New System.Uri(url)

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

httpReq.Method = "GET"

httpResp = CType(httpReq.GetResponse(), HttpWebResponse)

httpReq.KeepAlive = False ' 獲取或設(shè)置一個(gè)值，該值指示是否與

Internet資源建立持久連接。

Dim reader As StreamReader = _

New StreamReader(httpResp.GetResponseStream,

System.Text.Encoding.GetEncoding(-0))

Dim respHTML As String = reader.ReadToEnd() 'respHTML就是網(wǎng)頁源代碼

vb.net修改360網(wǎng)頁源碼？

有點(diǎn)困難……有一個(gè)方案，使用自身的webbrowser控件（瀏覽器控件）這樣簡(jiǎn)單很多

不過系統(tǒng)附帶的webbrowser控件不帶這個(gè)接口的。

我有一個(gè)方案可以告訴你，不過我也不會(huì)做

1.導(dǎo)出網(wǎng)頁源碼

dim?a

a?=?WebBrowser1.DocumentText'這里的documenttext就是網(wǎng)頁的源碼，是純文本

'下面可以寫修改的代碼了

2.修改代碼，反正是txt純文本，這不需要說明了吧

3.修改完后保存為xml文件（保存代碼→百度一下保存txt文件，然后你把保存的txt后綴名改成xml就OK了）

4.將瀏覽器要顯示的網(wǎng)頁設(shè)定為剛才保存的xml文件就OK了

WebBrowser1.Navigate?“剛才保存的xml文件路徑.xml”'注：此處不需要等于號(hào)