Get your copy of free FATE (Functional test Automation Through English framework)

Tuesday, November 17, 2009

Disable Right click, Copy Paste from your webpage

Thinking of a way to make it more difficult for people to copy the contents of your blog? Here's a neat little JavaScript that will disable Copy and Paste.

<script language='JavaScript1.2'>
function disableselect(e){
return false
}
function reEnable(){
return true
}
document.onselectstart=new Function ("return false")
if (window.sidebar){
document.onmousedown=disableselect
document.onclick=reEnable
}
</script>

Insert the code between the <head> and </head> tag.

However, there is no guarantee way to prevent your contents from being stolen.The JavaScript above can be easily bypassed by an experience internet user. E.g. If the browser's JavaScript is disabled, the code will not work.

Monday, November 16, 2009

Coloring your Message Log

Sub CorrectRGBComponent(ByRef component)

component = aqConvert.VarToInt(component)

If (component <>

component = 0

Else

If (component > 255) Then

component = 255

End If

End Sub

Function RGB(r, g, b)

Call CorrectRGBComponent(r)

Call CorrectRGBComponent(g)

Call CorrectRGBComponent(b)

RGB = r + (g * 256) + (b * 65536)

End Function

Sub Test

Set Attr = Log.CreateNewAttributes

Attr.FontColor = RGB(192, 0, 0)

Attr.BackColor = RGB(255, 255, 0)

' Passes the LogAttributes object to the Message function

Log.Message "My message", "", pmNormal, Attr

End Sub

Sunday, November 15, 2009

TestComplete: Working with Strings

This topic contains information about handling strings in VBScript and provides examples of operations that deal with strings. It contains the following sections:

Basics

Special characters

Getting the string length

Concatenating strings

Comparing strings

Accessing individual character of a string

Searching for characters and substrings

Getting a substring

Splitting strings

Removing extra spaces from a string

Replacing characters and substrings

Changing the letter case

Working with string lists

Basics

A String is a sequence of symbols or digits. Strings are among the most frequently used data types. Like any other data type, strings in TestComplete are represented as OLE-compatible variants. In VBScript, a sequence of literal characters, enclosed in double quotes ("), is recognized as a string. Single quotation marks (') are allowed within a string. To insert a double quotation mark into a string, it should be duplicated. The following is an example of string:

VBScript

str1 = "The brig was heading to Liverpool, when the captain noticed a ship."
str2 = "'Ahoy! Is there anyone?' - the captain cried."
str3 = """Nobody."" - was the answer."

To work with strings, TestComplete has a special scripting object - aqString. The object is available for all supported scripting languages, so you can use it to work with string values regardless of the chosen language.

Method, Property	Description
`aqString.AddListItem`	Adds a new item to a string list.
`aqString.ChangeListItem`	Changes the value of the string list item with the given index.
`aqString.Compare`	Compares two specified strings.
`aqString.Concat`	Concatenates two specified strings.
`aqString.DeleteListItem`	Removes an item with the given index from a string list.
`aqString.Find`	Searches for a substring within the given string. Use this method instead of the obsolete `aqString.Contains`.
`aqString.Format`	Generates a formatted string.
`aqString.GetChar`	Retrieves a single character from the input string.
`aqString.GetLength`	Returns the number of characters in a string.
`aqString.GetListItem`	Returns an individual item from the list passed through the input string.
`aqString.GetListLength`	Returns the number of items in the string list.
`aqString.Insert`	Inserts one string to another at the specified position.
`aqString.ListSeparator`	Specifies a character used to separate individual values in a list.
`aqString.Quote`	Encloses the specified string in quotes.
`aqString.QuoteSymbol`	Specifies a symbol used as a quotation mark.
`aqString.Remove`	Removes a number of characters from the input string.
`aqString.Replace`	Replaces all the occurrences of one substring with another substring.
`aqString.SubString`	Retrieves a substring from the input string.
`aqString.ToLower`	Converts the specified string to lower case.
`aqString.ToUpper`	Converts the specified string to upper case.
`aqString.Trim`	Removes spaces and control characters from the specified string.
`aqString.Unquote`	Converts a quoted string to an unquoted string.

Another scripting object that can be used to work with strings is aqConvert. This object has several methods that convert values of different types to a string and vice versa.

Method	Description
`aqConvert.CurrencyToFormatStr`	Converts a currency value to a string using the specified format settings.
`aqConvert.CurrencyToStr`	Converts a currency value to a string.
`aqConvert.DateTimeToFormatStr`	Converts the given date value to a string using the specified format.
`aqConvert.DateTimeToStr`	Converts the given date value to a string.
`aqConvert.FloatToStr`	Converts a floating-point value to a string.
`aqConvert.IntToStr`	Converts the given number into a string.
`aqConvert.StrToCurrency`	Converts the specified string to a currency value.
`aqConvert.StrToDate`	Converts the specified string to a date value.
`aqConvert.StrToDateTime`	Converts the specified string to a date/time value.
`aqConvert.StrToFloat`	Converts the specified string to a floating-point value.
`aqConvert.StrToInt`	Converts the specified string to an integer value.
`aqConvert.StrToTime`	Converts the specified string to a time value.
`aqConvert.VarToStr`	Converts the specified variant value to a string.

Furthermore, you can use native VBScript functions that operate with strings. A detailed description for these functions can be found at MSDN (the online version is available at http://msdn.microsoft.com). The table below only lists major functions:

Function	Description
Asc(string)	Returns the ASCII character code corresponding to the first letter in a string.
Chr(charcode)	Returns the character associated with the specified ANSI character code.
CStr(expression)	Returns an expression that has been converted to a variant of sub-type string.
Escape(charString)	Encodes a string so it only contains ASCII characters. Non-ASCII characters are replaced with %xx encoding, where xx is equivalent to the hexadecimal number representing the character.
InStr([startpos, ]string1, string2[, compare])	Returns the position of the first occurrence for one string within another.The search can start at a given position and use binary (compare=0) or text (compare=1) comparisons.
InStrRev(string1, string2[, start[, compare]])	Returns the position of an occurrence for one string within another, from the end of string. The search can start at a given position and use binary (compare=0) or text (compare=1) comparisons.
Join(list[, delimiter])	Returns a string created by joining a number of substrings contained in an array.
LCase(string)	Returns a string that has been converted to lowercase.
Left(string, length)	Returns a specified number of characters from the left side of a string.
Len(string \| varname)	Returns the number of characters in a string or the number of bytes required to store a variable.
LTrim(string)	Returns a copy of a string without leading spaces.
Mid(string, start[, length])	Returns a specified number of characters from a string.
Replace(string, findstr, replacewith[, start[, count[, compare]]])	Returns a string in which a specified substring has been replaced with another substring a specified number of times.
Right(string, length)	Returns a specified number of characters from the right side of a string.
RTrim(string)	Returns a copy of a string without trailing spaces.
Space(number)	Returns a string consisting of the specified number of spaces.
Split(expression[, delimiter[, count[, compare]]])	Returns a zero-based, one-dimensional array containing a specified number of substrings.
StrComp(string1, string2[, compare])	Returns a value indicating the result of a string comparison.
String(number, character)	Returns a repeating character string of the length specified.
StrReverse(string)	Returns a string in which the character order of a specified string is reversed.
Trim(string)	Returns a copy of a string without leading and trailing spaces.
UCase(string)	Returns a string that has been converted to uppercase.
Unescape(charString)	Decodes a string encoded with the Escape function.

Special characters

In VBScript you can emulate any character by using the Chr function with the appropriate ASCII code. This also applies to special characters that are used to format string values. Alternatively, you can emulate control characters using native string constants. The table below lists the most frequently used special characters and their constants.

Description	Character sequence
Carriage return.	`Chr`(13) -- or -- `vbCr`
Line feed. On Unix platforms it is interpreted as new line.	`Chr`(10) -- or -- `vbLf`
A combination of carriage return and line feed. On Windows platforms it is interpreted as new line.	`Chr`(13)+`Chr`(10) -- or -- `VbCrLf`
New line. Either a line feed character or a combination of carriage return and line feed.	`vbNewLine`
Form feed.	`Chr`(12) -- or -- `vbFormFeed`
Horizontal tab.	`Chr`(9) -- or -- `vbTab`
Vertical tab.	`Chr`(11) -- or -- `vbVerticalTab`

Friday, November 13, 2009

CPD User Names Module 12 November

Dim cpd
Dim frmCPDMain
Dim panel
Dim frmUserAddEdit
Dim tabControl
Dim tabPage
Dim textBox
Dim groupBox
Dim ultraGrid
Dim file
Dim i

Sub Test1

'TestedApps.CPD2.Run()
Call Aliases.Explorer.wndShell_TrayWnd.ReBarWindow32.MSTaskSwWClass.ToolbarWindow32.CheckItem("Inter-Agency Child Protection Database - [User Names and passwords]", True, False)
Set cpd = Aliases.CPD
Set frmCPDMain = cpd.frmCPDMain
Call frmCPDMain.StripMainMenu.Click("Tools|User Names and passwords")
aqUtils.Delay(1000)
Set panel = frmCPDMain.MdiClient.frmUserMaster.panel2
Set frmUserAddEdit = cpd.frmUserAddEdit
Set tabControl = frmUserAddEdit.tabControl1

set file=DDt.ExcelDriver("D:\book1.xls","Sheet1")
j=1
while Not(file.EOF())

Call panel.toolStripProtocol.ClickItem("New")
Call tabControl.ClickTab("User")
Set tabPage = tabControl.tpUser
Set textBox = tabPage.txtUserName
Call textBox.Click(41, 6)

textBox.wText = file.Value("User")
Call textBox.Keys("[Tab]")
Set textBox = tabPage.txtPassword
textBox.wText = file.Value("Password")
Call textBox.Keys("[Tab]")
tabPage.txtConfirmPassword.wText = file.Value("Password")
Set groupBox = tabPage.grpBx

Select Case j
Case 1
tabControl.tpUser.chkIsAdmin.wState = cbChecked

case 2
groupBox.chkAddEditData.wState = cbChecked
groupBox.chkDeleteData.wState = cbChecked
groupBox.chkDropDown.wState = cbChecked
groupBox.chkCustReports.wState = cbChecked
groupBox.chkExImData.wState = cbChecked
groupBox.chkImportSystemConfig.wState = cbChecked
groupBox.chkDbBackup.wState = cbChecked
frmUserAddEdit.btnSave.ClickButton

case 3
groupBox.chkAddEditData.wState = cbChecked
case 4
groupBox.chkDeleteData.wState = cbChecked
case 5
groupBox.chkDropDown.wState = cbChecked
case 6
groupBox.chkCustReports.wState = cbChecked
case 7
groupBox.chkExImData.wState = cbChecked
case 8
groupBox.chkImportSystemConfig.wState = cbChecked
case 9
groupBox.chkDbBackup.wState = cbChecked

case Else
MsgBox("Some Error occured with j")
exit Sub

end Select

frmUserAddEdit.btnSave.ClickButton
j=j+1
file.Next

Wend
MsgBox(CStr(j))

set file=DDt.ExcelDriver("D:\book1.xls","Sheet1")

while Not(file.EOF)
j=1

Call frmCPDMain.StripMainMenu.Click("Logout")

Set frmLogin = cpd.frmLogin
Set textBox = frmLogin.txtUserName
Call textBox.Click(74, 10)
textBox.wText = file.Value("User")
Call textBox.Keys("[Tab]")
Set textBox = frmLogin.txtPassword
textBox.wText = file.Value("Password")
Call textBox.Keys("[Tab]")
Call frmLogin.btnOK.Keys("[Enter]")
Set frmChangePassword = cpd.frmChangePassword
Set tabControl = frmChangePassword.tabControl1

' -------------------Code to change password when user logs in for first time------------------------------
Call tabControl.Keys("[Tab]")
Call tabControl.ClickTab("User")
Set tabPage = tabControl.tpUser
Call tabPage.txtUserName.Keys("[Tab]")
Set textBox = tabPage.txtOldPassword
textBox.wText = file.Value("Password")
Call textBox.Keys("[Tab]")
Set textBox = tabPage.txtNewPassword
textBox.wText = file.Value("Password")
Call textBox.Keys("[Tab]")
Set textBox = tabPage.txtConfirmPassword
textBox.wText = file.Value("Password")
Call textBox.Keys("[Tab]")
Call frmChangePassword.btnSave.Keys("[Enter]")
Call cpd.dlgInterAgencyChildProtectionDatabase.btnOK.Keys("[Enter]")

MsgBox("Stop Script")

Wend

End Sub

Set cpd = Aliases.CPD
Set frmCPDMain = cpd.frmCPDMain
set frmperson = frmCPDMain.MdiClient.frmPerson
Set ultraGrid = Aliases.CPD.frmCPDMain.MdiClient.frmPerson.ctrlChildView.ugChild

Sub Test2
Aliases.CPD.win
' Dim cpd
' Dim frmCPDMain
' 'TestedApps.CPD2.Run()
' Set cpd = Aliases.CPD
' Set frmCPDMain = cpd.frmCPDMain

'Call frmCPDMain.StripMainMenu.Click("Tools")

Call frmCPDMain.StripMainMenu.Click("Children")
Log.Message( export_import(True))
'Log.Message(delete_buttons(False))
Log.Message(is_admin())
Log.Message(restore_backup())
Log.Message(cust_dropdown())
Log.Message(cust_reports())
Log.Message(toolbar_new())
Log.Message(toolbar_edit())

'Log.Message("Export Import Menu bar" +CStr(exp_imp_menu()))

End Sub

'-------------------- Functions------------------------------------------------------

Function delete_buttons(flag)
flag2=""
' Checking toolbar delete

flag2=del_toolbar()
Log.Message("Toolbar Delete Button: "+CStr(flag2))
if flag <> flag2 Then
delete_buttons="........FAIL..........."
Exit Function
end if
'checking delete on right click
flag2=del_rightclk()
Log.Message("Right Click Delete Button: "+CStr(flag2))
if flag <> flag2 Then
delete_buttons=".........FAIL......."
Exit Function
end if
'checking delete on Registration Form
Call frmPerson.ctrlChildView.ugChild.ClickCellXY(1, 1, 55, 6)
Call cpd.frmChild_CaseData.pnlBase.flp.RegcustPanel.panel1.picBox.Click(31, 14)
flag2=del_regform()
Log.Message("Registration Form Delete Button: "+CStr(flag2))
if flag <> flag2 Then
delete_buttons=".......FAIL.........."
Exit Function
end if
cpd.frmPersonNew.Close
'checking Delete on Case Data Form
Call Aliases.CPD.frmChild_CaseData.pnlBase.flp.custPanel0.panel1.picBox.Click()
flag2=del_casedata_toolbar()
Log.Message("Case Data Form Delete Button: "+CStr(flag2))
if flag <> flag2 Then
delete_buttons=".........FAIL........."
Exit Function
end if
Aliases.CPD.frmCaseData.close()
delete_buttons="........PASS........"

end Function

Function export_import(flag)

flag2=""

'Checking Export import in Menu
Call frmCPDMain.StripMainMenu.Click("Tools")
flag2=exp_imp_menu()
Log.Message("Export Import Menu bar"+CStr(flag2))
if not flag = flag2 Then
MsgBox(CStr(flag)+CStr(flag2)+"Hi")
export_import="FAIL"
Exit Function
end if

'checking Export Import in Tool Bar
flag2=exp_toolbar()
Log.Message("Export In Tool bar"+CStr(flag2))
if flag <> flag2 Then
export_import="FAIL"
Exit Function
end if
flag2=imp_toolbar()
Log.Message("Import In Tool bar"+CStr(flag2))

if flag <> flag2 Then
export_import="FAIL"
Exit Function
end if
flag2=exptoexcel_toolbar()
Log.Message("Export to excel Toolbar"+CStr(flag2))
if flag<>flag2 Then
export_import="FAIL"
Exit Function
end if
flag2=trnsfr_toolbar()
Log.Message("Transfer in Toolbar"+CStr(flag2))
if flag <> flag2 Then
export_import="FAIL"
Exit Function
end if
flag2=refral_toolbar()
Log.Message("Referal in Toolbar"+CStr(flag2))
if flag <> flag2 Then
export_import="FAIL"
Exit Function
end if
'Checking Export Import in Tracing Request
flag2=export_tr()
Log.Message("Export in Toolbar Tracing Request "+CStr(flag2))
if flag <> flag2 Then
export_import="FAIL"
Exit Function
end if
flag2=import_tr()
Log.Message("Import in Toolbar Tracing Request "+CStr(flag2))
if flag <> flag2 Then
export_import="FAIL"
Exit Function
end if
flag2=exportoexcel_tr()
Log.Message("Export To Excel in Toolbar Tracing Request "+CStr(flag2))
if flag <> flag2 Then
export_import="FAIL"
Exit Function
end if

'checking Record Matching
flag2=exportoexcel_RM()
Log.Message("Export to Excel in Record Matching"+CStr(flag2))
if flag <> flag2 Then
export_import="FAIL"
Exit Function
end if

export_import="PASS"
end Function

Function exp_imp_menu()
'---- i is a global variable ----
i=1
MsgBox(cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(3).Text)

While ((cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(3).Text <> "Import") AND i<20)
'MsgBox(cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(3).Text)
'MsgBox(cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(4).Text)
i=i+1
Wend

if (cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(3).Text = "Import" And cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(4).Text = "Export") then
Call frmCPDMain.StripMainMenu.Click("Tools")
if (cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(3).Visible = True And cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(4).Visible = True) then
exp_imp_menu=True
Else
exp_imp_menu=False
end If
Else
exp_imp_menu=False
End if

end Function

Function exp_toolbar()

exp_toolbar=aqObject.CompareProperty(frmPerson.toolStripChild.wEnabled("Export"), cmpEqual, True, False)

end Function

Function imp_toolbar()
imp_toolbar =aqObject.CompareProperty(frmPerson.toolStripChild.wEnabled("Import"), cmpEqual, True, False)

End Function

Function exptoexcel_toolbar()
exptoexcel_toolbar=CompareProperty(frmPerson.toolStripChild.wEnabled("Export to Excel"), cmpEqual, True, False)
end Function

Function trnsfr_toolbar()
trnsfr_toolbar=aqObject.CompareProperty(frmPerson.toolStripChild.wEnabled("Transfer"), cmpEqual, True, False)
end Function

Function refral_toolbar()
refral_toolbar = aqObject.CompareProperty(frmPerson.toolStripChild.wEnabled("Referral"), cmpEqual, True, False)
end Function

Function export_cd_toolbar()

export_cd_toolbar=CompareProperty(CPD.frmCaseData.toolStripManageForm.wEnabled("Export"),cmpEqual,True, False)

end Function

Function import_cd_toolbar()

import_cd_toolbar=CompareProperty(CPD.frmCaseData.toolStripManageForm.wEnabled("Import"),cmpEqual,True, False)

end Function

Function open_cd_form()
Call frmCPDMain.StripMainMenu.Click("Children")
Call frmPerson.ctrlChildView.ugChild.ClickCellXY(1, 1, 55, 6)
Call Aliases.CPD.frmChild_CaseData.pnlBase.flp.custPanel0.panel1.picBox.Click()

end Function

Function close_cd_form()
Aliases.CPD.frmCaseData.close()
End Function

' To Check Export Button on Tracing request
Function export_tr()
Call frmCPDMain.StripMainMenu.Click("Tracing Request")
export_tr=aqObject.CompareProperty(frmPerson.toolStripChild.wEnabled("Export"), cmpEqual, True, False)
end Function

Function import_tr()
import_tr=aqObject.CompareProperty(frmPerson.toolStripChild.wEnabled("Import"), cmpEqual, True, False)
end Function

Function exportoexcel_tr()
exportoexcel_tr = aqObject.CompareProperty(frmPerson.toolStripChild.wEnabled("Export to Excel"), cmpEqual, True, False)
end Function

' To check button in Record Matching
function exportoexcel_RM()
Call frmCPDMain.StripMainMenu.Click("Record Matching")
exportoexcel_RM=aqObject.CompareProperty(frmPerson.toolStripChild.wEnabled("Export to Excel"), cmpEqual, True, False)
end Function

Function restore_backup()
' i=1
' While ((cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(3).Text <> "Backup") AND i<20)
' MsgBox(cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(3).Text)
' MsgBox(cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(4).Text)
' MsgBox(CStr(i))
' i=i+1
' Wend
'Call frmCPDMain.StripMainMenu.Click("Tools")

if (cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(0).Text = "Backup" And cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(1).Text = "Restore") then
Call frmCPDMain.StripMainMenu.Click("Tools")
if (cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(0).Visible = True And cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(1).Visible = True) then
restore_backup = True
Else
restore_backup = False
end if
Else
restore_backup = False
End if

end Function

Function cust_dropdown()

if cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(7).Text = "Customize Drop-down Values" then
cust_dropdown = True
Else
cust_dropdown = False
end if

end Function

Function cust_reports()
if cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(11).Text = "Customize Reports" then
cust_reports=True
Else
cust_reports= False
end If
end Function

Function is_admin ()

if (Trim((cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(8).Text) = "User Names and passwords" And Trim(cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(13).Text) = "Set Time Scale Targets")) then
is_admin = True
Else
is_admin= False

Log.Message(CStr(cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(8).Text))
Log.Message(CStr(cpd.WinFormsObject("ToolStripDropDownMenu", "", i).Items.Item_2(13).Text))

end If
end Function

' Checking Delete Button on Children - Tool Bar
Function del_toolbar()
del_toolbar=aqObject.CompareProperty(frmPerson.toolStripChild.wEnabled(2), cmpEqual, True, False)
End Function

' Checking Delete function on Registration Form
Function del_regform()
del_regform = CompareProperty(CPD.frmPersonNew.ugTab.ugTabPageChild.toolStripManageForm.wEnabled("Delete"), cmpEqual, True, False)
end Function

' Checking Delete button ON - Case data Tool bars :
Function del_casedata_toolbar()
del_casedata_toolbar = CompareProperty(CPD.frmCaseData.toolStripManageForm.wEnabled("Delete"),cmpEqual,True, False)
end Function

' Checking Delete Button on Right Click menu
Function del_rightclk()

Call frmCPDMain.StripMainMenu.Click("Children")
Call ultraGrid.ClickCellRXY(3, "Status", 28, 6)

if CPD.WinFormsObject("ContextMenuStrip", "", 1).Items.Item_2(1).text= "Delete" then
del_rightclk=True
Else
del_rightclk=False
end if
end Function

Function toolbar_new()
toolbar_new = aqObject.CompareProperty(frmPerson.toolStripChild.wEnabled(0), cmpEqual, True, False)

end Function

Function toolbar_edit()

toolbar_edit = aqObject.CompareProperty(frmPerson.toolStripChild.wEnabled(1), cmpEqual, True, False)

end Function

Thursday, November 5, 2009

Accessing Embeded Grid controls

//Code to access Columns

DIGridControl.DisplayLayout.Bands.Item(0).Columns.Item(0)

//Code to access Rows

DIGridControl.DisplayLayout.Rows.Item(0).Cells.Item(4).set_Value("check")

Wednesday, November 4, 2009

Using third party Tab Control

Used in the function below :
Following code will be helpful if you are using any non microsoft/Java controls say Infrajestics :This function will click tabs

sub linkform_click(tabcontrol, linkformname)
dim I
for I = 0 to tabControl.Tabs.Count-1
if tabControl.VisibleTabs.get_Item(I).Text.OleValue= cstr(linkformname) then
tabControl.VisibleTabs.get_Item(I).Selected = true
end If
Next
end Sub

Sunday, November 1, 2009

SQL Injection / Hacking security

With SQLServer/ Mysql server running at the background try:

abc' or 1=1--

Enter above line of code in username and hit login, you might get shocked when you actually login to the site with a valid user.

For testers this is an important point to ensure a secure application.
And for hackers a boon!! ;)

Get your copy of free FATE (Functional test Automation Through English framework)

Tuesday, November 17, 2009

Disable Right click, Copy Paste from your webpage

Monday, November 16, 2009

Coloring your Message Log

Sunday, November 15, 2009

TestComplete: Working with Strings

Basics

Special characters

Friday, November 13, 2009

CPD User Names Module 12 November

Thursday, November 5, 2009

Accessing Embeded Grid controls

Wednesday, November 4, 2009

Using third party Tab Control

Sunday, November 1, 2009

SQL Injection / Hacking security

Followers

Blog Archive

About Me