Break On

$Form = CreateObject("Kixtart.Form")
$Form.Text = "KiXmessenger"
$Form.FontName = "Tahoma"
$Form.FontSize = 10
$Form.ClientSize = 370,380
$Form.BackColor = &E5A88A
$Form.FontName = "Arial"
$Form.FontSize = 8

$Form.FillStyle = 1
$Form.FillColor = &B24801
$Form.Rectangle(0,0,240,$Form.ClientHeight-20)

$Form.ForeColor = &E5A88A+&151515
$Form.FontBold = True
$Form.FontSize = 10

$Form.PrintXY(5,10,"Computer:")
$Form.PrintXY(5,70,"Message:")

$Form.FontName = "arial"
$Form.FontSize = 16
$Form.FontItalic = True
$Form.FontBold = True
$Form.PrintXY(245,250,"KiXtart")
$Form.PrintXY(245,270,"Messenger")

$Form.FontSize = 12
$Form.ForeColor = &E5A88A-&151515
$Form.FontSize = 10
$Form.PrintXY(245,295,"powered by")

$Form.ForeColor = &E5A88A+&151515
$Form.PrintXY(245,315,"Kixtart "+@KIX)
$Form.PrintXY(245,330,"Kixforms "+$Form.Version)

$Form.FontSize = 10
$Form.FontBold = False
$Form.FontItalic = False

$Camera = $Form.ToolButton
$Camera.Top = 0
$Camera.Left = 240
$Camera.Right = $Form.ClientWidth
$Camera.Text = "Start Camera"
$Camera.Icon = 30
$Camera.Alignment = 1
$Camera.FlatStyle = 1
$Camera.BackColor = &E5A88A
$Camera.ForeColor = White
$Camera.HotForeColor = &B24801
$Camera.FontBold = True
$Camera.TabStop = False

$Talk = $Form.ToolButton
$Talk.Top = $Camera.Bottom
$Talk.Left = 240
$Talk.Right = $Form.ClientWidth
$Talk.Text = "Start Talking"
$Talk.Icon = 30
$Talk.Alignment = 1
$Talk.FlatStyle = 1
$Talk.BackColor = &E5A88A
$Talk.ForeColor = White
$Talk.HotForeColor = &B24801
$Talk.FontBold = True
$Talk.TabStop = False

$Want = $Form.ToolButton
$Want.Top = $Talk.Bottom
$Want.Left = 240
$Want.Right = $Form.ClientWidth
$Want.Text = "I want to..."
$Want.Icon = 30
$Want.Alignment = 1
$Want.FlatStyle = 1
$Want.BackColor = &E5A88A
$Want.ForeColor = White
$Want.HotForeColor = &B24801
$Want.FontBold = True
$Want.TabStop = False

$Invite = $Form.ToolButton
$Invite.Top = $Want.Bottom
$Invite.Left = 240
$Invite.Right = $Form.ClientWidth
$Invite.Text = "Invite someone to this Conversation"
$Invite.Icon = 14;35
$Invite.FlatStyle = 1
$Invite.BackColor = &E7EFF1
$Invite.ForeColor = Black
$Invite.HotForeColor = &0080FF
$Invite.BorderStyle = 0
$Invite.FontSize = 8
$Invite.TabStop = False
$Invite.MousePointer = 16

$SendFile = $Form.ToolButton
$SendFile.Top = $Invite.Bottom
$SendFile.Left = 240
$SendFile.Right = $Form.ClientWidth
$SendFile.Text = "Send a File or Photo"
$SendFile.Icon = 1
$SendFile.FlatStyle = 1
$SendFile.BackColor = &E7EFF1
$SendFile.ForeColor = Black
$SendFile.HotForeColor = &0080FF
$SendFile.BorderStyle = 0
$SendFile.FontSize = 8
$SendFile.TabStop = False
$SendFile.MousePointer = 16

$Email = $Form.ToolButton
$Email.Top = $SendFile.Bottom
$Email.Left = 240
$Email.Right = $Form.ClientWidth
$Email.Text = "Send E-mail"
$Email.Icon = 42
$Email.FlatStyle = 1
$Email.BackColor = &E7EFF1
$Email.ForeColor = Black
$Email.HotForeColor = &0080FF
$Email.BorderStyle = 0
$Email.FontSize = 8
$Email.TabStop = False
$Email.MousePointer = 16

$Help = $Form.ToolButton
$Help.Top = $Email.Bottom
$Help.Left = 240
$Help.Right = $Form.ClientWidth
$Help.Text = "Ask for Remote Assistance"
$Help.Icon = 13
$Help.FlatStyle = 1
$Help.BackColor = &E7EFF1
$Help.ForeColor = Black
$Help.HotForeColor = &0080FF
$Help.BorderStyle = 0
$Help.FontSize = 8
$Help.TabStop = False
$Help.MousePointer = 16

$Computer = $Form.TextBox
$Computer.FontSize = 12
$Computer.Top = 30
$Computer.Left = 3
$Computer.Right = 237
$Computer.Height = 25
$Computer.BorderStyle = 0
$Computer.Text = @WKSTA
$Computer.FontName = "Courier New"

$Message = $Form.TextBox
$Message.FontSize = 12
$Message.Top = 90
$Message.Left = 3
$Message.Right = 237
$Message.Height = 210
$Message.MultiLine = True
$Message.BorderStyle = 0
$Message.ScrollBars = 2
$Message.FontName = "Courier New"
$Message.Text = "Type your message here..."

$Send = $Form.ToolButton
$Send.Top = 310
$Send.Left = 175
$Send.Size = 60, 40
$Send.Text = "Send"
$Send.Alignment = 2
$Send.FlatStyle = 1
$Send.BackColor = &E7F7F7
$Send.HotBackColor = $Send.BackColor - &101010
$Send.ForeColor = Black
$Send.OnClick = "Send_Click"

$Status = $Form.Label
$Status.Left = 0
$Status.Top = $Form.ClientHeight-20
$Status.Height = 20
$Status.Right = $Form.ClientWidth
$Status.BackColor = 212,208,200
$Status.BorderStyle = 5
$Status.Text = "Ready..."

$Form.Center
$Form.Show
$Message.SetFocus
$Message.SelStart = 0
$Message.SelLength = -1

While $Form.Visible
 $=Execute($Form.DoEvents)
Loop

Exit 1

Function Send_Click
 Dim $Msg,$Name
 $Name = Trim($Computer.Text)
 If Not $Name
  $= $Form.MsgBox("Please enter a valid computer name","Computer Name")
  $Computer.SetFocus
  Return
 Endif
 $Msg = $message.text
 Shell '%comspec% /c net send $name "$msg" >nul 2>nul'
EndFunction