99热在线精品一区二区三区_国产伦精品一区二区三区女破破_亚洲一区二区三区无码_精品国产欧美日韩另类一区

求大神指點 vb點虐 怎么讀 ini 配置呢

VB.NET讀寫INI配置文件

創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),金鳳企業(yè)網(wǎng)站建設(shè),金鳳品牌網(wǎng)站建設(shè),網(wǎng)站定制,金鳳網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,金鳳網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim path As String

path = Application.StartupPath + "\Send.ini"

TextBox1.Text = GetINI("Send", "Send1", "", path)

TextBox2.Text = GetINI("Send", "Send2", "", path)

Dim IsSms As Integer = GetINI("Send", "IsSms", "", path)

If (IsSms = 1) Then

Me.RadioButton1.Checked = True

ElseIf (IsSms = 0) Then

Me.RadioButton2.Checked = True

End If

End Sub

Public Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String

Dim Str As String = LSet(Str, 256)

GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)

Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)

End Function

Public Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long

WriteINI = WritePrivateProfileString(Section, AppName, lpDefault, FileName)

End Function

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32

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

Try

Dim path As String

path = Application.StartupPath + "\Send.ini"

WriteINI("Send", "Send1", TextBox1.Text, path)

WriteINI("Send", "Send2", TextBox2.Text, path)

If (Me.RadioButton1.Checked = True) Then

WriteINI("Send", "IsSms", 1, path)

ElseIf (Me.RadioButton2.Checked = True) Then

WriteINI("Send", "IsSms", 0, path)

End If

MsgBox("配置設(shè)置已經(jīng)成功！！！！")

Catch ex As Exception

MsgBox("錯誤！！！！")

End Try

End Sub

如何使用VB.NET編程取得電腦硬體配置(規(guī)格與型號)清單,如CPU & 主板 & 內(nèi)存 & 硬盤...

做數(shù)字編程的電腦比做圖形編程的電腦配置要求要低的多，只要內(nèi)存夠大就可以，集成顯卡的都能跑。如果對顯示器沒要求（不是必須要LCD的，為眼睛考慮，那么買600塊的17寸CRT的），整個配置1800都拿的下來。

如要配置單，請樓主回。

去下載一個EVEREST，這個就是一款硬件識別軟件，然后你用C語言或其他的編程工具將它拆開，你不就知道，那玩意是怎么編出來的了嗎。

VB.Net用IO對C盤進行操作，很多都要權(quán)限，我只想保存寫程序的配置信息，寫到哪個位置比較好？

Windows 提供了專門的 UserData 目錄用來存放程序需要讀寫的文件（你會發(fā)現(xiàn)很多游戲存檔都在這個目錄底下），訪問這個目錄是不需要管理員權(quán)限的，你可以在這個目錄下建一個你的程序?qū)俚奈募A，往里面存放文件。

默認是在 C:\ProgramData（如果是 XP 的話是 C:\Documents and Settings）下。但一般不建議硬編碼這個地址，一來你還得自行判斷操作系統(tǒng)版本，二來用戶是可以修改這個目錄的路徑的。

好在系統(tǒng)提供了一個環(huán)境變量 %ProgramData% 來指向這個地址，用它就可以了。

分享題目：vb點虐 寫配置 vbnet using
轉(zhuǎn)載源于：http://ef60e0e.cn/article/ddjeigi.html