Visual Basic

<pre lang="vb">
Private sub main()
Nta = FndAtom("AdminRunStatus")
    If Nta = 0 Then
      Nta = SetAtom("AdminRunStatus")
      'set the status for the second run
    'do something for the first run (shell to myself)
 call shell (App.Path & "\" & App.EXEName & " " & Command)
     
        End If
        Exit Sub
    Else
        Call DelAtom(Nta)
      'second program and the command line
      call shell(Second program & " " & Command)
      'do something for the second run.
   End sub

'---------------------------------------------------------------------------------------
' Module    : AtomDataBase Wrapper
' Author    : Pcuser80
' Date      : 03-06-2012
' Purpose   : Atom Wrapper
'---------------------------------------------------------------------------------------

Option Explicit

Private Declare Function InitAtomTable Lib "kernel32" (ByVal nSize As Long) As Long
Private Declare Function AddAtom Lib "kernel32" Alias "AddAtomA" (ByVal lpString As String) As Integer
Private Declare Function DeleteAtom Lib "kernel32" (ByVal nAtom As Integer) As Integer
Private Declare Function FindAtom Lib "kernel32" Alias "FindAtomA" (ByVal lpString As String) As Integer
Private Declare Function GetAtomName Lib "kernel32" Alias "GetAtomNameA" (ByVal nAtom As Integer, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal lpString As String) As Integer
Private Declare Function GlobalDeleteAtom Lib "kernel32" (ByVal nAtom As Integer) As Integer
Private Declare Function GlobalFindAtom Lib "kernel32" Alias "GlobalFindAtomA" (ByVal lpString As String) As Integer
Private Declare Function GlobalGetAtomName Lib "kernel32" Alias "GlobalGetAtomNameA" (ByVal nAtom As Integer, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function SetAtom(ByVal AtomStr As String) As Integer
    SetAtom = GlobalAddAtom(AtomStr)
End Function
Public Function GetAtom(ByVal Atom As Integer) As String
    Dim buFfer         As String
    Dim lRet           As Long
    buFfer = String(255, 0)
    lRet = GlobalGetAtomName(Atom, buFfer, Len(buFfer))
    If lRet > 0 Then
        buFfer = Left$(buFfer, lRet)
        GetAtom = buFfer
    Else
        GetAtom = vbNullString
    End If
End Function
Public Function DelAtom(ByVal Atom As Integer) As Integer
    DelAtom = GlobalDeleteAtom(Atom)
End Function
Public Function LocDelAtom(ByVal Atom As Integer) As Integer
    LocDelAtom = DeleteAtom(Atom)
End Function
Public Function LocSetAtom(ByVal Atom As String) As Integer
    LocSetAtom = AddAtom(Atom)
End Function
Public Function LocGetAtom(ByVal Atom As Integer) As String
    Dim buFfer         As String
    Dim lRet           As Long
    buFfer = String(255, 0)
    lRet = GetAtomName(Atom, buFfer, Len(buFfer))
    If lRet > 0 Then
        buFfer = Left$(buFfer, lRet)
        LocGetAtom = buFfer
    Else
        LocGetAtom = vbNullString
    End If
End Function
Public Function LocFndAtom(ByVal AtomStr As String) As Integer
    LocFndAtom = FindAtom(AtomStr)
End Function
Public Function FndAtom(ByVal AtomStr As String) As Integer
    FndAtom = GlobalFindAtom(AtomStr)
End Function
Public Function LocInitAtom(nSize As Long) As Long
    LocInitAtom = InitAtomTable(nSize)
End Function

Dim conversionRate As Double = 0.0
Dim currencyService As New CurrencyConvertorSoapClient("CurrencyConvertorSoap")

conversionRate = currencyService.ConversionRate(Currency.USD, Currency.EUR)

Console.WriteLine("The conversion rate for USD to EUR is: {0}", conversionRate)

Console.WriteLine("$100.00 = {0} Euros", 100 * conversionRate)

Dim SeatNewRow As DataRow
Dim index As Integer = 2
Dim testsplit As String = "Book 9 j18 d7 d8 a9"
Dim SplitWord() As String = testsplit.Split(" ")

Dim wc As Integer = SplitWord.Length - 1
Do While index <= wc

SeatNewRow.Item("MovieID") = SplitWord(1)
SeatNewRow.Item("Seat") = SplitWord(index)
SeatNewRow = SeatDS.Tables("Seat").NewRow()
SeatDS.Tables("Seat").Rows.Add(SeatNewRow)
index += 1
Loop

SeatDA.Update(SeatDS, "Seat")

Member 3746076 wrote:

How do I get SenderObject = getSender (windowhandle) from windowhandle so that I can
pass it into GetProperties(SenderObject)?

Bastard Programmer from Hell