VB.net技巧论坛摘录（一）

1. 在VB.NET中如何获得桌面的路径？
   ==========================================================================
   System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) 
2. 更改桌面(API)
   ==========================================================================
       Public Const SPI_SETDESKWALLPAPER = &H14
       Public Const SPIF_SENDWININICHANGE = &H2
       Public Const SPIF_UPDATEINIFILE = &H1
       Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
   
    Dim t As Integer = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "C:/DDDD/1.bmp", SPIF_UPDATEINIFILE)
3. 进程相关
   ==========================================================================
   dim pcs() AS Process
   'Process1.GetProcessByName("QQ.exe").Kill()
   pcs= Process.GetProcessesByName("iExplore");
   Dim i as integer
   For i=0 to pcs.Length-1
   　　pcs(i).Kill
   Next
4. 如何在VB 2005中获取本地IP地址
   ==========================================================================
   System.Net.Dns.GetHostEntry(My.Computer.Name).AddressList(0).ToString
   WINSOCK是VB6的一个控件，如果你想在VB2005里使用它，可以在添加引用的COM选项卡里找到它
5. 如何启用用户帐号
   ==========================================================================
           '创建用户
           '"dc=lsw,dc=com"为我系统所在的域
           Dim ent As DirectoryEntry = New DirectoryEntry("LDAP://CN=users,dc=lsw,dc=com")
           Dim ou As DirectoryEntry = ent '.Children.Find("OU=Consulting")
           Dim usr As DirectoryEntry = ou.Children.Add("CN=New User", "user")
           usr.Properties("samAccountName").Value = "newuser"
           usr.CommitChanges()
6. '启用账户
   ========================