【vb.net】求个用VS2013读写INI的代码

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

创新互联建站是一家集网站建设,阿尔山企业网站建设,阿尔山品牌网站建设,网站定制,阿尔山网站建设报价,网络营销,网络优化,阿尔山网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

——————

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为节点，也就是ini中带[]符号的节点文本

’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做的一个行业小软件，请问如何加密，比如需要通过什么硬件的序列号注册；

最好的加密就是通过你的网站去加密！用网络服务器验证把一些主要程序都可以加载到服务器上！这样你的程序加密就完美了！　（个人观点纯属不懂装懂的。哈哈见笑）

求大神指点 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开发的软件，大家一般都是怎么加密的

网上有很多专业的加密教程

最适合小开发者的软件加密方式就是下面这个

获取硬件信息和个人注册时的姓名手机号等一系列信息，通过预先设定好的加密函数进行散列加密，生成一个只有本人本机能使用的序列号，软件正版授权的时候用同样的方式生成序列号进行比对，一样则通过

用.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盘下的文件夹伪装，这样可能会导致系统出问题");

}

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 ());

}

}

}

}

文章名称：vb.net给ini加密 vbnet ini文件读写
文章转载：http://scyanting.com/article/dodpdhs.html