MakePic 印章產生器

MakePic 印章產生器(重灌狂人)

官網:MakePiccom

 

Point Of Sale Apps

Point Of Sale Apps

哇,都是 Free 耶!
有興趣的,可參考看看唷!
 free 項目:
1.Square Card Reader
2.GoPayment
3.Credit Card Machine
4.Credit Card Terminal
5.Phone Swipe – Credit Card Terminal
6.Pay Anywhere - Accept Credit Cards
7.Swipe Credit Card Terminal
8.iPay Mobile Point of Sale
9.Credit Card Processing Merchant Account
10.ChargeMe! - Accept Credit Cards Terminal
11.Accept Credit Cards

還有更多的 POS Apps 唷!!

VM 安裝 Ubuntu

VirtualBox 4.1安裝Ubuntu 12.04
預覽 Ubuntu 12.04，最期待的作業系統！安裝設定篇
Windows下安裝VirtualBox(Ubuntu 10.10)

官網:VirtualBox 
   

How to: Add Rows to a DataTable

請參考MSDN
--
簡單又清楚喔! 看一次就知道怎用

HyperCam Free (32/64 bit)

HyperCam 是一套專門用來擷取您的操作畫面的程序，包括游標的移動軌跡與音效，然後將它儲存為標準的 AVI 視頻文件讓您播放。很適合用來製作教學課程或演示，您可以輕易地依照平常的操作方式，將步驟一步一步地擷取下來，只需將此 AVI 文件播放，即可觀看。

官網下載

AES 加密/解密

參考:How To: Encrypt and Decrypt Data Using a Symmetric (Rijndael) Key (C#/VB.NET)

參考MSDN:RijndaelManaged 類別

[C#][VB.Net] AES 加解密  (此篇解密有問題,自行修正喔)

  

Read/Write to .ini files in vb.net

參考引用
--

The following module demonstrates how to access INI files from VB.Net. It also illustrates the use of
function overloading to allow different functionality from the same call by using different parameters:

Option Strict On
Module INIAccess

#Region "API Calls"
' standard API declarations for INI access
' changing only "As Long" to "As Int32" (As Integer would work also)
Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringW" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Int32

Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringW" (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
#End Region

Public Overloads Function INIRead(ByVal INIPath As String, _
ByVal SectionName As String, ByVal KeyName As String, _
ByVal DefaultValue As String) As String
' primary version of call gets single value given all parameters
Dim n As Int32
Dim sData As String
sData = space$(1024) ' allocate some room
n = GetPrivateProfileString(SectionName, KeyName, DefaultValue, _
sData, sData.Length, INIPath)
If n > 0 Then ' return whatever it gave us
INIRead = sdata.Substring(0, n)
Else
iniread = ""
End If
End Function

#Region "INIRead Overloads"
Public Overloads Function INIRead(ByVal INIPath As String, _
ByVal SectionName As String, ByVal KeyName As String) As String
' overload 1 assumes zero-length default
Return INIRead(inipath, sectionname, KeyName, "")
End Function

Public Overloads Function INIRead(ByVal INIPath As String, _
ByVal SectionName As String) As String
' overload 2 returns all keys in a given section of the given file
Return INIRead(inipath, sectionname, Nothing, "")
End Function

Public Overloads Function INIRead(ByVal INIPath As String) As String
' overload 3 returns all section names given just path
Return INIRead(inipath, Nothing, Nothing, "")
End Function
#End Region

Public Sub INIWrite(ByVal INIPath As String, ByVal SectionName As String, _
ByVal KeyName As String, ByVal TheValue As String)
Call WritePrivateProfileString(SectionName, KeyName, TheValue, INIPath)
End Sub

Public Overloads Sub INIDelete(ByVal INIPath As String, ByVal SectionName As String, _
ByVal KeyName As String) ' delete single line from section
Call WritePrivateProfileString(SectionName, KeyName, Nothing, INIPath)
End Sub

Public Overloads Sub INIDelete(ByVal INIPath As String, ByVal SectionName As String)
' delete section from INI file
Call WritePrivateProfileString(SectionName, Nothing, Nothing, INIPath)
End Sub

End Module


The code to call this would run along these lines:
Dim sValue As String
Dim sPath As String
sPath = "testing.ini"

INIWrite(sPath, "Section1", "Key1-1", "Value1-1") ' build INI file
INIWrite(sPath, "Section1", "Key1-2", "Value1-2")
INIWrite(sPath, "Section1", "Key1-3", "Value1-3")
INIWrite(sPath, "Section2", "Key2-1", "Value2-1")
INIWrite(sPath, "Section2", "Key2-2", "Value2-2")

sValue = INIRead(sPath, "section2", "key2-1", "Unknown") ' specify all
MessageBox.Show(sValue, "section2/key2-1/unknown", MessageBoxButtons.OK)

sValue = INIRead(sPath, "section2", "XYZ", "Unknown") ' specify all
MessageBox.Show(sValue, "section2/xyz/unknown", MessageBoxButtons.OK)

sValue = INIRead(sPath, "section2", "XYZ") ' use zero-length string as default
MessageBox.Show(sValue, "section2/XYZ", MessageBoxButtons.OK)

sValue = INIRead(sPath, "section1") ' get all keys in section
sValue = sValue.Replace(ControlChars.NullChar, "|"c) ' change embedded NULLs to pipe chars
MessageBox.Show(sValue, "section1 pre delete", MessageBoxButtons.OK)

INIDelete(sPath, "section1", "key1-2") ' delete middle entry in section 1
sValue = INIRead(sPath, "section1") ' get all keys in section again
sValue = sValue.Replace(ControlChars.NullChar, "|"c) ' change embedded NULLs to pipe chars
MessageBox.Show(sValue, "section1 post delete", MessageBoxButtons.OK)

sValue = INIRead(sPath) ' get all section names
sValue = sValue.Replace(ControlChars.NullChar, "|"c) ' change embedded NULLs to pipe chars
MessageBox.Show(sValue, "All sections pre delete", MessageBoxButtons.OK)

INIDelete(sPath, "section1") ' delete section
sValue = INIRead(sPath) ' get all section names
sValue = sValue.Replace(ControlChars.NullChar, "|"c) ' change embedded NULLs to pipe chars
MessageBox.Show(sValue, "All sections post delete", MessageBoxButtons.OK)

使用 Visual Basic .NET 關閉另一個應用程式

微軟:HOW TO：使用 Visual Basic .NET 關閉另一個應用程式