【vb.net】求個用VS2013讀寫INI的代碼

vb.net有自己的設置，不需要ini，在工程【屬性】-【設置】中設置。

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

——————

ini設置屬性。

'聲明API函數

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

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

Return WritePrivateProfileString(Section, AppName, lpDefault, FileName)

End Function

‘調用writeini函數存儲屬性。

‘section為節(jié)點，也就是ini中帶[]符號的節(jié)點文本

’APPname為存儲的名稱，即ini文件中等于符號前面的文本

’ipdefault為存儲的屬性，即等于符號右邊的文本。

‘filename為存儲的ini文件地址，如d:\save.ini

————————

ini返回屬性。

'聲明API函數

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 Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String

Dim Str As String = ""

Str = LSet(Str, IniCount)

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

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

End Function

’調用getini函數

‘說明同上。

VB.NET做的一個行業(yè)小軟件，請問如何加密，比如需要通過什么硬件的序列號注冊；

最好的加密就是通過你的網站去加密！用網絡服務器驗證把一些主要程序都可以加載到服務器上！這樣你的程序加密就完美了！?。▊€人觀點純屬不懂裝懂的。哈哈見笑）

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

VB.NET讀寫INI配置文件

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("配置設置已經成功?。。?！")

Catch ex As Exception

MsgBox("錯誤?。。。?)

End Try

End Sub

VB.NET開發(fā)的軟件，大家一般都是怎么加密的

網上有很多專業(yè)的加密教程

最適合小開發(fā)者的軟件加密方式就是下面這個

獲取硬件信息和個人注冊時的姓名手機號等一系列信息，通過預先設定好的加密函數進行散列加密，生成一個只有本人本機能使用的序列號，軟件正版授權的時候用同樣的方式生成序列號進行比對，一樣則通過

用.net實現文件夾加密

using System;

using System.Drawing;

using System.Collections;

using System.ComponentModel;

using System.Windows.Forms;

using System.Data;

using System.IO ;

using System.Diagnostics ;

using System.Threading ;

namespace 偽裝文件夾

{

/// summary

/// Form1 的摘要說明。

/// /summary

public class Form1 : System.Windows.Forms.Form

{

private System.Windows.Forms.GroupBox groupBox1;

private System.Windows.Forms.Button button1;

private System.Windows.Forms.FolderBrowserDialog foldeOpen;

private System.Windows.Forms.TextBox AfoldePath;

private System.Windows.Forms.GroupBox groupBox2;

private System.Windows.Forms.Button button2;

private System.Windows.Forms.Button button3;

private System.Windows.Forms.TextBox textBox1;

private System.Windows.Forms.Button AddPassword;

private System.Windows.Forms.ComboBox comboBox1;

private System.ComponentModel.IContainer components;

public Form1()

{

//

// Windows 窗體設計器支持所必需的

//

InitializeComponent();

//

// TODO: 在 InitializeComponent 調用后添加任何構造函數代碼

//

}

/// summary

/// 清理所有正在使用的資源。

/// /summary

protected override void Dispose( bool disposing )

{

if( disposing )

{

if (components != null)

{

components.Dispose();

}

}

base.Dispose( disposing );

}

#region Windows 窗體設計器生成的代碼

/// summary

/// 設計器支持所需的方法 - 不要使用代碼編輯器修改

/// 此方法的內容。

/// /summary

private void InitializeComponent()

{

System.Resources.ResourceManager resources = new System.Resources.ResourceManager(typeof(Form1));

this.groupBox1 = new System.Windows.Forms.GroupBox();

this.comboBox1 = new System.Windows.Forms.ComboBox();

this.AddPassword = new System.Windows.Forms.Button();

this.button1 = new System.Windows.Forms.Button();

this.AfoldePath = new System.Windows.Forms.TextBox();

this.foldeOpen = new System.Windows.Forms.FolderBrowserDialog();

this.groupBox2 = new System.Windows.Forms.GroupBox();

this.button2 = new System.Windows.Forms.Button();

this.button3 = new System.Windows.Forms.Button();

this.textBox1 = new System.Windows.Forms.TextBox();

this.groupBox1.SuspendLayout();

this.groupBox2.SuspendLayout();

this.SuspendLayout();

//

// groupBox1

//

this.groupBox1.BackColor = System.Drawing.Color.Transparent;

this.groupBox1.Controls.Add(this.comboBox1);

this.groupBox1.Controls.Add(this.AddPassword);

this.groupBox1.Controls.Add(this.button1);

this.groupBox1.Controls.Add(this.AfoldePath);

this.groupBox1.Location = new System.Drawing.Point(6, 6);

this.groupBox1.Name = "groupBox1";

this.groupBox1.Size = new System.Drawing.Size(276, 78);

this.groupBox1.TabIndex = 0;

this.groupBox1.TabStop = false;

this.groupBox1.Text = "加密";

//

// comboBox1

//

this.comboBox1.Items.AddRange(new object[] {

"我的電腦",

"我的文檔",

"撥號網絡",

"控制面板",

"計劃任務",

"打印機",

"記事本",

"網絡鄰居",

"回收站",

"公文包",

"字體 ",

"Web 文件夾"});

this.comboBox1.Location = new System.Drawing.Point(12, 48);

this.comboBox1.Name = "comboBox1";

this.comboBox1.Size = new System.Drawing.Size(174, 20);

this.comboBox1.TabIndex = 15;

this.comboBox1.Text = "偽裝類型";

//

// AddPassword

//

this.AddPassword.BackColor = System.Drawing.Color.Transparent;

this.AddPassword.ForeColor = System.Drawing.Color.Red;

this.AddPassword.Location = new System.Drawing.Point(192, 48);

this.AddPassword.Name = "AddPassword";

this.AddPassword.TabIndex = 14;

this.AddPassword.Text = "偽裝";

this.AddPassword.Click += new System.EventHandler(this.AddPassword_Click);

//

// button1

//

this.button1.Location = new System.Drawing.Point(192, 20);

this.button1.Name = "button1";

this.button1.TabIndex = 8;

this.button1.Text = "文件夾路徑";

this.button1.Click += new System.EventHandler(this.button1_Click);

//

// AfoldePath

//

this.AfoldePath.BackColor = System.Drawing.Color.FromArgb(((System.Byte)(255)), ((System.Byte)(224)), ((System.Byte)(192)));

this.AfoldePath.Location = new System.Drawing.Point(12, 20);

this.AfoldePath.Name = "AfoldePath";

this.AfoldePath.ReadOnly = true;

this.AfoldePath.Size = new System.Drawing.Size(174, 21);

this.AfoldePath.TabIndex = 7;

this.AfoldePath.Text = "";

//

// groupBox2

//

this.groupBox2.BackColor = System.Drawing.Color.Transparent;

this.groupBox2.Controls.Add(this.button2);

this.groupBox2.Controls.Add(this.button3);

this.groupBox2.Controls.Add(this.textBox1);

this.groupBox2.Location = new System.Drawing.Point(6, 90);

this.groupBox2.Name = "groupBox2";

this.groupBox2.Size = new System.Drawing.Size(276, 76);

this.groupBox2.TabIndex = 1;

this.groupBox2.TabStop = false;

this.groupBox2.Text = "解密";

//

// button2

//

this.button2.ForeColor = System.Drawing.Color.Red;

this.button2.Location = new System.Drawing.Point(192, 48);

this.button2.Name = "button2";

this.button2.TabIndex = 14;

this.button2.Text = "解密";

this.button2.Click += new System.EventHandler(this.button2_Click);

//

// button3

//

this.button3.ForeColor = System.Drawing.Color.Red;

this.button3.Location = new System.Drawing.Point(192, 20);

this.button3.Name = "button3";

this.button3.TabIndex = 8;

this.button3.Text = "文件夾路徑";

this.button3.Click += new System.EventHandler(this.button3_Click);

//

// textBox1

//

this.textBox1.BackColor = System.Drawing.Color.FromArgb(((System.Byte)(128)), ((System.Byte)(255)), ((System.Byte)(128)));

this.textBox1.Location = new System.Drawing.Point(12, 24);

this.textBox1.Name = "textBox1";

this.textBox1.ReadOnly = true;

this.textBox1.Size = new System.Drawing.Size(174, 21);

this.textBox1.TabIndex = 7;

this.textBox1.Text = "";

//

// Form1

//

this.AutoScaleBaseSize = new System.Drawing.Size(6, 14);

this.ClientSize = new System.Drawing.Size(288, 174);

this.Controls.Add(this.groupBox2);

this.Controls.Add(this.groupBox1);

this.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle;

this.Icon = ((System.Drawing.Icon)(resources.GetObject("$this.Icon")));

this.MaximizeBox = false;

this.Name = "Form1";

this.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen;

this.Text = "偽裝文件夾";

this.groupBox1.ResumeLayout(false);

this.groupBox2.ResumeLayout(false);

this.ResumeLayout(false);

}

#endregion

/// summary

/// 應用程序的主入口點。

/// /summary

[STAThread]

static void Main()

{

Application.Run(new Form1());

}

private void button1_Click(object sender, System.EventArgs e)

{

if(foldeOpen.ShowDialog ()==DialogResult.OK )

{

try

{

if(foldeOpen.SelectedPath .Substring (3,10)=="Documents ")

{

MessageBox.Show ("我不建議C盤下的文件夾偽裝，這樣可能會導致系統(tǒng)出問題");

}

else

{

AfoldePath.Text =foldeOpen.SelectedPath;

}

}

catch

{

if(foldeOpen.SelectedPath.Length =4)

{

AfoldePath.Text =foldeOpen.SelectedPath;

}

else

{

MessageBox.Show ("無法對盤符進行偽裝.");

}

}

}

}

private void AddPassword_Click(object sender, System.EventArgs e)

{

try

{

ProcessStartInfo p3=new ProcessStartInfo ("attrib.exe",@"-s -r -a -h "+AfoldePath.Text);

p3.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;

Process.Start (p3);

ProcessStartInfo p1=new ProcessStartInfo ("attrib.exe",@"-s -r -a -h "+AfoldePath.Text+@"\desktop.ini");

p1.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;

Process.Start (p1);

StreamWriter sw2=new StreamWriter (AfoldePath.Text+@"\desktop.ini" );

sw2.WriteLine (@"[.ShellClassInfo]" );

sw2.WriteLine ("CLSID="+GetPasType());

sw2.Close ();

ProcessStartInfo p =new ProcessStartInfo ("attrib.exe",@"+s +a +h +r "+AfoldePath.Text+@"\desktop.ini");

p.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;

Process.Start (p);

ProcessStartInfo p2=new ProcessStartInfo ("attrib.exe",@"+s +r "+AfoldePath.Text);

p2.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;

Process.Start (p2);

}

catch(Exception ee)

{

MessageBox.Show (ee.Message .ToString ());

}

}

private string GetPasType()

{

int index=comboBox1.SelectedIndex;

switch (index)

{

case 0: return @"{20D04FE0-3AEA-1069-A2D8-08002B30309D}";

case 1: return @"{450D8FBA-AD25-11D0-98A8-0800361B1103}";

case 2: return @"{992CFFA0-F557-101A-88EC-00DD010CCC48}";

case 3: return @"{21EC2020-3AEA-1069-A2DD-08002B30309D}";

case 4: return @"{D6277990-4C6A-11CF-8D87-00AA0060F5BF}";

case 5: return @"{2227A280-3AEA-1069-A2DE-08002B30309D}";

case 6: return @"{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}";

case 7: return @"{208D2C60-3AEA-1069-A2D7-08002B30309D}";

case 8: return @"{645FF040-5081-101B-9F08-00AA002F954E}";

case 9: return @"{85BBD920-42A0-1069-A2E4-08002B30309D}";

case 10: return @"{BD84B380-8CA2-1069-AB1D-08000948F534}";

case 11: return @"{BDEADF00-C265-11d0-BCED-00A0C90AB50F}";

}

return @"{20D04FE0-3AEA-1069-A2D8-08002B30309D}";

}

private void button3_Click(object sender, System.EventArgs e)

{

if(foldeOpen.ShowDialog ()==DialogResult.OK )

{

textBox1.Text =foldeOpen.SelectedPath;

}

}

private void button2_Click(object sender, System.EventArgs e)

{

try

{

ProcessStartInfo p2=new ProcessStartInfo ("attrib.exe",@"-s -r -a -h "+textBox1.Text);

p2.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;

Process.Start (p2);

ProcessStartInfo p1=new ProcessStartInfo ("attrib.exe",@"-s -h -r "+textBox1.Text+@"\desktop.ini");

p1.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;

Process.Start (p1);

System.Threading.Thread.Sleep(1000);

File.Delete (textBox1.Text+@"\desktop.ini");

MessageBox.Show ("解密成功.");

}

catch(Exception ee)

{

MessageBox.Show (ee.Message.ToString ());

}

}

}

}