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

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

成都創(chuàng)新互聯(lián)公司是專(zhuān)業(yè)的集安網(wǎng)站建設(shè)公司，集安接單;提供成都網(wǎng)站制作、網(wǎng)站設(shè)計(jì),網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專(zhuān)業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行集安網(wǎng)站開(kāi)發(fā)網(wǎng)頁(yè)制作和功能擴(kuò)展;專(zhuān)業(yè)做搜索引擎喜愛(ài)的網(wǎng)站,專(zhuān)業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來(lái)合作!

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

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

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", "=你輸入的用戶(hù)名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程序編寫(xiě)代碼

Delphi代碼如下：

procedure?TForm1.Button1Click(Sender:?TObject);

var

購(gòu)物總價(jià):Integer;

折扣:Extended;

begin

購(gòu)物總價(jià):=StrToInt(Edit1.Text);

if?購(gòu)物總價(jià)250?then

begin

折扣:=0;

end

else?if?購(gòu)物總價(jià)500?then

begin

折扣:=0.05;

end

else?if?購(gòu)物總價(jià)1000?then

begin

折扣:=0.075;

end

else?if?購(gòu)物總價(jià)2000?then

begin

折扣:=0.1;

end

{

此段的折扣是多少？

else?if?購(gòu)物總價(jià)3000?then

begin

折扣:=0.05;

end

}

else?if?購(gòu)物總價(jià)=3000?then

begin

折扣:=0.15;

end;

ShowMessage('您享受的折扣是：'+FloatToStr(折扣)

+'?原價(jià)：'+IntToStr(購(gòu)物總價(jià))

+'?折后總價(jià)：'+FloatToStr(購(gòu)物總價(jià)*(1-折扣)));

end;

vb.net源代碼如何生成exe格式

vb.net編譯出來(lái)的exe只有依賴(lài).net

framework才能運(yùn)行

但有一些第三方工具可以用來(lái)把exe用到的assembly和dll打包成一個(gè)exe文件，不過(guò)這樣的結(jié)果就是exe體積非常大

比如.netz工具，它的官方地址：

使用很簡(jiǎn)單，比如你的exe文件是a.exe，直接netz

a.exe就可以把a(bǔ)和它用到的.net代碼一起打包成一個(gè)exe

如何用vb.net獲取網(wǎng)頁(yè)源代碼

使用webbrowser控件來(lái)加載網(wǎng)頁(yè)，然后再

Private

Sub

WebBrowser

1_DocumentCompleted下通過(guò)使用WebBrowser1.Document.Body.

InnerHtml

來(lái)獲取網(wǎng)頁(yè)的源代碼，或使用

WebBrowser1.Document.Body.InnerText來(lái)獲取網(wǎng)頁(yè)中的文本。之后可以通過(guò)字符串控制指令或者

正則表達(dá)式

來(lái)精確獲取到你所需的數(shù)據(jù)。

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

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)頁(yè)源代碼

求vb.net的源代碼，最好說(shuō)明其解決問(wèn)題，越多越好，滿(mǎn)意加50分。

下面這段代碼，是我用來(lái)計(jì)算每個(gè)月存500元進(jìn)銀行，連續(xù)30年，最后連本帶利能有多少錢(qián)。這里面涉及復(fù)利計(jì)算。界面中右邊的文本框用來(lái)輸出每一次計(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