Thanks to Shawn for modifying KiXforms.Net and both Shawn and NTDoc for giving good ideas and testing with me.
the transparent ability will only work on Win2k and up.
you will need MS.Net Framework 1.1 installed
you will need to get the latest KiXforms.Net.
this script will stay as a moveable form for 3 sec, then fade to the desktop.
minimize all other windows to see it after it goes transparent.
to move it, right click on the text and select 'Move Form'.
move the form where you want it then click the "OK' button to make it transparent again.
to close it, right click on the text and select 'Exit'.
try this script it ought to give you a good start:
Code:
Break On
$System = CreateObject("Kixforms.System")
If Not $System
$nul= MessageBox("KiXforms.Net Not Initiated. This Script Will Now Close.","Error",16)
Quit()
EndIf
$nul = $System.Application.EnableVisualStyles
$Form1 = $System.Form()
$Form1.StartPosition = 1 ;FormStartPosition_CenterScreen
$Form1.Size = $System.Size(500,200) ;(Width,Height)
$Form1.ShowInTaskBar = 0
$Form1.Text = "Transparent Form"
$FormColor = $Form1.TransparencyKey
$ContextMenu = $System.ContextMenu()
$ExitMenu = $ContextMenu.MenuItems.Add($System.MenuItem("Exit"))
$ExitMenu.Click = "ExitForm()"
$MoveMenu = $ContextMenu.MenuItems.Add($System.MenuItem("Move Form"))
$MoveMenu.Click = "MoveForm()"
$Form1.ContextMenu = $ContextMenu
$Label1 = $System.Label()
$Label1.BackColor = $System.Color.FromArgb("0,255,255,255")
;$Label1.ForeColor = $System.Color.FromName("White")
$Label1.Dock = 1 ;Top
$Label1.Font = $System.Font("Microsoft Sans Serif",24,0) ;Regular
$Label1.Height = 35
$Label1.TextAlign = 32 ;MiddleCenter
$nul = $Form1.Controls.Add($Label1)
$Label2 = $System.Label()
$Label2.BackColor = $System.Color.FromArgb("0,255,255,255")
;$Label2.ForeColor = $System.Color.FromName("White")
$Label2.Dock = 1 ;Top
$Label2.Font = $System.Font("Microsoft Sans Serif",24,0) ;Regular
$Label2.Height = 35
$Label2.TextAlign = 16 ;MiddleLeft
$nul = $Form1.Controls.Add($Label2)
$Label3 = $System.Label()
$Label3.BackColor = $System.Color.FromArgb("0,255,255,255")
;$Label3.ForeColor = $System.Color.FromName("White")
$Label3.Dock = 1 ;Top
$Label3.Font = $System.Font("Microsoft Sans Serif",24,0) ;Regular
$Label3.Height = 35
$Label3.TextAlign = 16 ;MiddleLeft
$nul = $Form1.Controls.Add($Label3)
$Label4 = $System.Label()
$Label4.BackColor = $System.Color.FromArgb("0,255,255,255")
;$Label4.ForeColor = $System.Color.FromName("White")
$Label4.Dock = 1 ;Top
$Label4.Font = $System.Font("Microsoft Sans Serif",24,0) ;Regular
$Label4.Height = 35
$Label4.TextAlign = 16 ;MiddleLeft
$nul = $Form1.Controls.Add($Label4)
$Button1 = $System.Button()
$Button1.BackColor = $System.Color.FromName("ActiveCaptionText")
$Button1.Click = "Accept()"
$Button1.Dock = 2 ;Bottom
$Button1.FlatStyle = 3 ;System
$Button1.Text = "OK"
$Button1.Top = 124
$Button1.Visible = 0
$nul = $Form1.Controls.Add($Button1)
$Label4.Text = "UserID : "+@USERID
$Label3.Text = "HostName : "+@WKSTA
$Label2.Text = "IPAddress0 :"+@IPADDRESS0
$Form1.AcceptButton = $Button1
$Form1.Show ;Displays the Form
DisplayDelay()
While $Form1.Visible
$Nul = Execute($Form1.DoEvents())
Loop
Exit 0
Function DisplayDelay()
$Label1.Text = "3"
Sleep 1
$Label1.Text = "2"
Sleep 1
$Label1.Text = "1"
Sleep 1
$Label1.Text = ""
$Form1.BackColor = $System.Color.FromArgb("0,255,255,255")
$Form1.TransparencyKey = $Form1.BackColor
$Form1.FormBorderStyle = 0 ;FormBorderStyle_None
$Form1.SendToBack
$Label2.ForeColor = $System.Color.FromName("White")
$Label3.ForeColor = $System.Color.FromName("White")
$Label4.ForeColor = $System.Color.FromName("White")
$=SetFocus("Program Manager")
$=SendKeys("{F5}")
EndFunction
Function Accept()
$Form1.BackColor = $System.Color.FromArgb("0,255,255,255")
$Form1.TransparencyKey = $Form1.BackColor
$Form1.FormBorderStyle = 0 ;FormBorderStyle_None
$Button1.Visible = 0
$Form1.SendToBack
$Label2.ForeColor = $System.Color.FromName("White")
$Label3.ForeColor = $System.Color.FromName("White")
$Label4.ForeColor = $System.Color.FromName("White")
$=SetFocus("Program Manager")
$=SendKeys("{F5}")
EndFunction
Function MoveForm()
$Form1.BackColor = $System.Color.FromName("Control")
$Form1.TransparencyKey = $FormColor
$Form1.FormBorderStyle = 1
$Button1.Visible = -1
$Form1.BringToFrount
$Label2.ForeColor = $System.Color.FromName("Black")
$Label3.ForeColor = $System.Color.FromName("Black")
$Label4.ForeColor = $System.Color.FromName("Black")
$=SetFocus("Program Manager")
$=SendKeys("{F5}")
EndFunction
Function ExitForm()
Quit()
EndFunction
