Tag Archives: QTP

Software Test Professionals Conference & Expo 2010 at Las Vegas

Posted by on 12/10/2010 2 comments

Software Test Professionals Conference 2010Bu ay Las Vegasta olmak vardı, neden mi, hem business hem business :) ) Şaka bir yana, Software Test Professionals Conference & Expo 2010 var bu ay.

Güzel konular var;

Hands-On Testing Techniques Lab

Test Strategy & Process

Test Leadership

Agile Testing

Performance Testing

Test Automation

Lab ortamında çok güzel workshoplar yapılacak sanırım. Workshoplar için detaylı bilgiyi aşağıdaki linklerden ulaşabilirsiniz.

Read more »

Arama Kriterleri:

VBScript ile GMail üzerinden mail gönderme

Posted by on 28/05/2010 No comments

Epey bir araştırma yaptıktan sonra, adam akıllı çalışan bir kod buldum. Sıralama nın önemli olduğunuda öğrenmiş oldum. Çünkü diğer bulduğum kodlarda hemen hemen aynıydı, sadece sıralama farklı.

Const schema   = "http://schemas.microsoft.com/cdo/configuration/"
Const cdoBasic = 1
Const cdoSendUsingPort = 2
Dim oMsg, oConf

' E-mail properties
Set oMsg      = CreateObject("CDO.Message")
oMsg.From     = "from@gmail.com"  ' or "Sender Name <from@gmail.com>"
oMsg.To       = "to@gmail.com"    ' or "Recipient Name <to@gmail.com>"
oMsg.Subject  = "Subject"
oMsg.TextBody = "Text body"

' GMail SMTP server configuration and authentication info
Set oConf = oMsg.Configuration
oConf.Fields(schema & "smtpserver")       = "smtp.gmail.com"
oConf.Fields(schema & "smtpserverport")   = 465
oConf.Fields(schema & "sendusing")        = cdoSendUsingPort
oConf.Fields(schema & "smtpauthenticate") = cdoBasic
oConf.Fields(schema & "smtpusessl")       = True
oConf.Fields(schema & "sendusername")     = "from@gmail.com"
oConf.Fields(schema & "sendpassword")     = "sender_password"
oConf.Fields.Update

oMsg.Send

Arama Kriterleri:

QTP de VBScript ile Rastgele String veya Number Üretmek

Posted by on 27/05/2010 No comments

Dün bir SAP projesini test ederken ad, soyad parametrelerini hep farklı girmem gerekiyordu. Bu yüzden

bu işi bir vbscript ile otomatikleştirmiş oldum.

kelime = karisikTextYarat("abcdefghijkmnpqrstuvwxyz", 4)
numara = karisikTextYarat("123456789", 1)

WScript.Echo kelime 'numara yazarsanız numara üretir yada kelime + numara derseniz 2sindende üretir

Function  karisikTextYarat(strCharacters, intLength)
Randomize
Dim strS, intI
For intI = 1 To intLength
strS = strS + Mid(strCharacters, Int(Rnd() * Len(strCharacters))+1, 1)
Next
karisikTextYarat=strS
End Function