PROGRAM-14

PROGRAM TO ADD COLUMN TO NEW SHEET ADDED
Set cds=datatable.AddSheet("cities")
Set cnp=cds.addparameter("cityname","blr")
For i=2 to 4
x=inputbox("enter city name")
cnp.valuebyrow(i)=x
Next
Set cnp2=cds.addparameter("state","kna")
For j=2 to 4
y=inputbox("enter state name")
cnp2.valuebyrow(j)=y
next
datatable.ExportSheet "E:\satya\amul.xls","cities"

PROGRAM-13

PROGRAM TO ADD ONE EXCEL SHEET TO DATA TABLE AND EXPORT IT
Set cds=datatable.AddSheet("cities")
Set cnp=cds.addparameter("cityname","blr")
For i=2 to 4
x=inputbox("enter city name")
cnp.valuebyrow(i)=x
wait(2)
Next
datatable.ExportSheet "E:\satya\amul.xls","cities"

PROGRAM-12

PROGRAM FOR READING ALL TABS FROM MYCOMPUTER PROPERTIES
tc=dialog("System Properties").WinTab("SysTabControl32").GetItemsCount()
For i=0 to tc-1
tname=dialog("System Properties").WinTab("SysTabControl32").GetItem(i)
dialog("System Properties").WinTab("SysTabControl32").Select tname,micLeftBtn
wait(1)
Next

program-11

PROGRAM FOR READING GMAIL TABLE
rowcount=browser("Gmail - Inbox - mailto:amulya.dhal@gm - Inbox - mailto:amulya.dhal@gm
For i=1 to rowcount
colcount=browser("Gmail - Inbox - mailto:amulya.dhal@gm - Inbox - mailto:amulya.dhal@gm)
rowdata=""
For j=1 to colcount
celldata=browser("Gmail - Inbox - mailto:amulya.dhal@gm - Inbox - mailto:amulya.dhal@gm)
rowdata= rowdata & vbtab & celldata
print(celldata)
Next
'print(celldata)
next

program-10

PROGRAM TO SEARCH IN GOOLGE
browser("Google").Page("Google").WebEdit("search").Set "india"
browser("Google").Page("Google").WebButton("Google Search").Click

program-9

PROGRAM TO FINDOUT PRIME NUMBER
i=inputbox("enter starting value " )
j=inputbox ("enter end value" )
For n=i to j
If n mod 2<>0 Then
print(n)
End If

program-8

PROGRAM FOR PRINTING THE CONTENT IN LOCATION OF GMAIL SIGN UP
****************************************************************************
ic=browser("Google Accounts").Page("Google Accounts").WebList("loc").GetROProperty("items count")
print(ic)
For i=1to ic
iname=browser("Google Accounts").Page("Google Accounts").WebList("loc").GetItem(i)
print(iname)
Next

program-7

PROGRAM FOR PRINTING THE CONTENT IN SECURITY QUESTION OF GMAIL SIGNUP
***********************************************************************************

ic=browser("Google Accounts").Page("Google Accounts").WebList("selection").GetROProperty("items count")

print(ic)

For i=1to ic

iname=browser("Google Accounts").Page("Google Accounts").WebList("selection").GetItem(i)print(iname)

Next

program-6

HOW TO PRESS ENTER TO MYCOMPUTER IN START BUTTON
*************************************************************
ic=window("Window").WinButton("start").press
Set kb=createobject ("wscript.shell")
kb.sendkeys "{up}"
wait(1)
kb.sendkeys "{up}"
wait(1)
kb.sendkeys "{up}
"wait(1)
kb.sendkeys "{up}
"kb.sendkeys "{up}"
kb.sendkeys "{up}"
kb.sendkeys "{up}"
kb.sendkeys "{up}"
wait(1)
kb.sendkeys "{up}"
kb.sendkeys "{enter}"

program-5

PROGRAM TO EXIT IDM FROM BOTTM RIGHT CORNER OF DESKTOP
ic=window("Window").WinToolbar("Notification Area").GetItemsCount()
For i=1 to ic
iname=window("Window").WinToolbar("Notification Area").GetItem(i)
If iname="Internet Download Manager" Then
window("Window").WinToolbar("Notification Area").Press iname,micRightBtn
End If
Next
wait(1)
Set kb=createobject ("wscript.shell")
kb.sendkeys "{up}"
wait(1)
kb.sendkeys "{enter}"

program-4

PROGRAM TO EXIT YAHOO MESSENGER FROM BOTTM RIGHT CORNER OF DESKTOP
*********************************************************************************
ic=window("Window").WinToolbar("Notification Area").GetItemsCount()
For i=1 to ic
iname=window("Window").WinToolbar("Notification Area").GetItem(i)
If iname="Yahoo! Messenger" Then
window("Window").WinToolbar("Notification Area").Press iname,micRightBtn
End If
Next
wait(1)
Set kb=createobject ("wscript.shell")
kb.sendkeys "{up}"
wait(1)kb.sendkeys "{enter}"

program-3

PROGRAM TO ACCESS THE PROCESS NAME IN RIGHT MOST BOTTOM OF DESKTOP
*********************************************************************************
ic=window("WINDOW").WinToolbar("Notification Area").GetItemsCount()
For i=1 to ic
it=window("WINDOW").WinToolbar("Notification Area").GetItem(i) print(it)
Next

program-2

PROGRAM TO ACCESS THE DESKTOP
***************************************
ic=window("Program Manager").WinListView("SysListView32").GetItemsCount()
For i=0 to ic-1
it=window("Program Manager").WinListView("SysListView32").GetItem(i) print(it)
Next

Program-1

PROGRAM TO GET ITEMS BELOW IN WINDOW TOOLBAR OF DESKTOP
***********************************************************************
ic= window("Window").WinToolbar("Running Applications").GetItemsCount()
For i=1 to ic
it=window("Window").WinToolbar("Running Applications").GetItem(i)print(it)
Next