VB

Office: check if PowerPoint is running

Sunday, January 20th, 2008

Dim objAPP, sMsg
On Error Resume Next
Set objAPP = GetObject(, “PowerPoint.Application”)
If TypeName(objAPP) = “Empty” Then
    sMsg = “not started”
Else
    sMsg = “started”
End If
MsgBox “PowerPoint is ” & sMsg, vbInformation, “PowerPoint”
if sMsg = “started” then objAPP.Visible = true

WMI+VBS: how to get the domain name

Monday, January 14th, 2008

Option Explicit
On Error Resume Next
Dim strComputer, objNetwork, objWMIService
Dim colItems, objItem
Set objNetwork = WScript.CreateObject(”WScript.Network”)
strComputer = objNetwork.ComputerName
WScript.Echo “Computer = ” & strComputer
Set objWMIService = GetObject(”winmgmts:{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2″)
Set colItems = objWMIService.ExecQuery (”Select * from Win32_ComputerSystem”)
For Each objItem in colItems
 Wscript.Echo “Domain = ” & objItem.domain
Next

There is also WMI FAQ on Microsoft site.

MS Word: replace spaces to non-breaking

Thursday, January 10th, 2008

To insert it manually, use Ctrl+Shift+Space

Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles(”Normal”)
Selection.Find.Replacement.ClearFormatting
With Selection.Find
   .Text = “   ”
   .Replacement.Text = “^s”
   .Forward = True
   .Wrap = wdFindContinue
   .Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Yahoo! Maps API in VB.Net

Thursday, February 23rd, 2006

Imports System
Imports System.Collections
Imports System.ComponentModel

Imports System.Data
Imports System.Drawing
Imports System.Globalization
Imports System.Xml
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports WCPierce.Web.UI.WebControls
Partial Class _Default
   Inherits System.Web.UI.Page
   Public YAHOOAPI_code = “YahooDemo”

   Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) _
   Handles MyBase.Load
       Dim gSmallMapControl As New GSmallMapControl()
       Dim gMapTypeControl As New GMapTypeControl()
       If IsPostBack() = False [...]

MD5 function for encrypting a string in VB.NET

Wednesday, February 15th, 2006

Imports Microsoft.VisualBasic
Imports System.Security.Cryptography
Imports System.IO
Public Class CommonFunctions2
   Public Shared Function MD5Encrypt(ByVal str As String) As String
       ’Imports System.Security.Cryptography
       Dim md5 As MD5CryptoServiceProvider
       Dim bytValue() As Byte
       Dim bytHash() As Byte
       Dim strOutput As String
       Dim i As Integer
       ’ Create New Crypto [...]

Keep on coding