Divey's Trip to Jaipur

We went to hotel. We ate food like parantha, roti, paneer sabji etc. We visited many places like:

Day 1:-

1. Birla Mandir - It is made of marble

2. Jantar Mantar - known for astrology

3. City Palace Museum - It has all the things that kings and queens used. 

4. Hawa Mahal - It has so many windows.

5. Jal Mahal museum - One king was very fat. He used to eat food of 1 month in a day. If he would sit on a horse then horse would sit forever.

6. Jal Mahal - There was a kingdom surrounded by water from all the sides.

7. Albert Hall Museum - It was beautiful in night.

Day 2:-

1. Amer Fort - This fort was on top of a hill.

2. Kanak Ghati Garden- It was a very big garden.

3. Chokhi Dhani - I did elephant, camel and horse rides over there. Also, we enjoyed boating. We saw magic show, balancing act, dinosaur, vaishnov devi temple and a cave over there.

Murli Saar – 19^th Oct’20

मीठे बच्चे - तुम्हें अभी बहुत-बहुत साधारण रहना है, फैशनेबुल ऊंचे कपड़े पहनने से भी देह-अभिमान आता है

1. बाबा कहते बच्चे अपना सुधार करने के लिए चार्ट रखो। याद का चार्ट रखने में बहुत फायदा है। नोट बुक सदा हाथ में हो। चेक करो कितना समय बाप को याद किया? हमारा रजिस्टर कैसा है? दैवी कैरेक्टर है? कर्म करते बाबा की याद रहती है? याद से ही कट उतरेगी, ऊंच तकदीर बनेगी।
2. मीठे-मीठे बच्चों पास यह लक्ष्मी-नारायण का चित्र घर में जरूर होना चाहिए। सबके लिए यह एक ही उद्देश्य है।
3. जरूर भक्तों पर कोई आपदायें हैं। 5 विकारों की आपदायें सबके ऊपर हैं।
4. जब ज्ञान मिलता है तो फिर भक्ति नहीं रहती। तुम सुखधाम के मालिक बनते हो। आधाकल्प के लिए सद्गति मिल जाती है।
5. काम पर जीत पाने से तुम जगतजीत बनेंगे।
6. तुम्हारा ज्ञान और योग सारा गुप्त है। स्थूल हथियार आदि कुछ नहीं हैं। बाप समझाते हैं यह है ज्ञान तलवार। उन्होंने फिर स्थूल हथियार निशानियाँ देवियों को दे दी हैं।
7. यह तुम्हारी बात बहुत ढेर मनुष्य सुनेंगे। विद्वान आदि भी एक दिन आयेंगे। बेहद का बाप है ना। तुम बच्चों को श्रीमत पर चलने में ही कल्याण है तब देह-अभिमान टूटेगा, इसलिए साहूकार लोग आते नहीं हैं। बाप कहते हैं देह अहंकार को छोड़ो। अच्छे कपड़े आदि का भी नशा रहता है।
8. दिन प्रतिदिन यह हंगामा आदि ज्यादा बढ़ता जायेगा इसलिए बाप कहते हैं अपने को आत्मा समझ मुझे याद करो। देह-अभिमान में आने से बाप को भूल जायेंगे। यह मेहनत अभी ही मिलती है।
9. लड़ाई भी जरूर होगी। एटॉमिक बाम्ब्स आदि खूब बनाते रहते हैं। कितना भी माथा मारो कि यह बन्द हो जाए परन्तु ऐसे हो नहीं सकता। ड्रामा में नूँध है। समझाने से भी समझेंगे नहीं। मौत होना ही है तो बन्द कैसे होगा।
10. यादवों और कौरवों को खलास होना ही है। यादव हैं यूरोपवासी। उन्हों का है साइन्स घमण्ड, जिससे विनाश होता है। फिर जीत होती है साइलेन्स घमण्ड की। तुमको शान्ति घमण्ड में रहना (शान्त स्वरूप रहना) सिखाया जाता है। बाप को याद करो - डेड साइलेन्स।
11. हम आत्मा शरीर से न्यारी हैं। शरीर छोड़ने के लिए जैसे हम पुरूषार्थ करते हैं, ऐसे कभी कोई शरीर छोड़ने के लिए पुरूषार्थ करते हैं क्या?
12. सारी दुनिया ढूँढकर आओ - कोई है जो बोले - हे आत्मा अब तुमको शरीर छोड़ जाना है। पवित्र बनो। नहीं तो फिर सज़ा खानी पड़ेगी। सज़ा कौन खाते हैं? आत्मा। उस समय साक्षात्कार होता है। तुमने यह-यह पाप किये हैं, खाओ सज़ा।
13. बाप कहते हैं - अभी कोई पाप कर्म नहीं करो। अपना चार्ट देखो - कितना समय बाप को याद किया।
14. कर्म करते हुए भी बाप को याद करना है तो पुरूषार्थ का फल मिल जायेगा। मेहनत है ना। ऐसे ही थोड़ेही ताज रख देंगे सिर पर।
15. वह बेहद का बाप ही पतित-पावन, सुख का सागर है। उनसे ही सुख घनेरे मिलते हैं।
16. जन्म-जन्मान्तर के लिए तुमको महल मिलते हैं। सुदामा का मिसाल है ना।
17. तुम जानते हो - शिवबाबा को जो देते हैं वह सब हमारे ही काम में लगाते हैं। शिवबाबा तो अपने पास रखते नहीं हैं।
18. इनको भी कहा सब कुछ दे दो तो विश्व के मालिक बन जायेंगे।
19. जितना पुरूषार्थ करेंगे उतना ऊंच पद पायेंगे।
20. तुमको अब भोलानाथ बाप मिला है। कितना भोला है। तुमको क्या बनाते हैं। कखपन के बदले तुमको 21 जन्म के लिए क्या बना देते हैं। मनुष्यों को कुछ भी पता नहीं।
21. परन्तु यह भी किसको पता नहीं है कि भगवान किसको कहा जाता है। कोई से भी पूछो - परमपिता परमात्मा को जानते हो? बाप है बागवान। तुमको कांटों से फूल बना रहे हैं।
22. जो खुद जाग जाते हैं तो दूसरों को भी जगाते हैं। नहीं जगाते हैं तो गोया खुद जगा हुआ नहीं है।
23. रात के राही थक मत जाना - यह भी अच्छा है।
24. बाप कहते हैं यह साक्षात्कार आदि की सब ड्रामा में नूँध है। जो भावना रखते हैं उसका साक्षात्कार हो जाता है।

धारणा के लिए मुख्य सार:-

1) बुद्धि में सदा अपनी एम ऑब्जेक्ट याद रखनी है। लक्ष्मी-नारायण का चित्र सदा साथ रहे, इसी खुशी में रहो कि हम ऐसा बनने के लिए पढ़ रहे हैं, अभी हम हैं गॉडली स्टूडेन्ट।

2) अपना पुराना कखपन चावल मुट्ठी दे महल लेने हैं। ब्रह्मा बाप को फालो कर अविनाशी ज्ञान रत्नों का जौहरी बनना है।

वरदान:- अशरीरी पन के इन्जेक्शन द्वारा मन को कन्ट्रोल करने वाले एकाग्रचित्त भव

जैसे आजकल अगर कोई कन्ट्रोल में नहीं आता है, बहुत तंग करता है, उछलता है या पागल हो जाता है तो उनको ऐसा इन्जेक्शन लगा देते हैं जो वह शान्त हो जाए। ऐसे अगर संकल्प शक्ति आपके कन्ट्रोल में नहीं आती तो अशरीरीपन का इन्जेक्शन लगा दो। फिर संकल्प शक्ति व्यर्थ नहीं उछलेगी। सहज एकाग्रचित हो जायेंगे। लेकिन यदि बुद्धि की लगाम बाप को देकर फिर ले लेते हो तो मन व्यर्थ की मेहनत में डाल देता है। अब व्यर्थ की मेहनत से छूट जाओ।

स्लोगन:- अपने पूर्वज़ स्वरूप को स्मृति में रख सर्व आत्माओं पर रहम करो।

#20. How to check mark a particular text box corresponding to a given mail on GMail Inbox?

#20. How to check mark a particular text box corresponding to a given mail on GMail Inbox?

Ans.
Create 2 description objects.
Using first object, collect all the check boxes.
Using second object, collect all the mails. See, if all the mails are being collected as links, if not, then they can be collected as webelements (each of the webelements will correspond to a particular class).

Find the index of the webelement which corresponds to the given mail.
Click on that index of the check box.

This will check mark the required check box.

Q. Count number of google search results

Ans.
Create description object
Define its micClass as Link and define its class and height to make it unique.
Thru this, we can count objects, that is the number of google search results

#19. Order to follow while trying to identify an object

#19. Order to follow while trying to identify an object

1. Description Properties
2. Ordinal Identifier
3. Smart Identification
(Visual Relational Identifier, very rarely used)
4. If object is dynamic, then regular expressions.
5. While dealing with bulk amount of objects or when we don't want to use OR, then Descriptive programming.
6. Low level recording - either thru code (settings.webpackage("ReplayType") = "2") or by given recording mode in QTP.
7. OCR
8. Virtual Objects
9. Analog recording - if in case we need to record mouse movement.

#18. Location Index

#18. Location Index

Q. In which pattern does QTP identify objects:-

A. Location is indexed in the below pattern (The below numbers represent location index of objects):-
1  7
2  8
3  9
4 10
5 11
6 12

OR,

B. Location is indexed in the below pattern (The below numbers represent location index of objects):-
1  2
3  4
5  6
7  8
9  10
11 12.

Answer: B

This knowledge can be used during descriptive programming to identifying objects.

#17. Excel Functions using QTP

Readdata, WriteData, GetRowCount and GetColumntCount

Set xlApp= CreateObject("Excel.Application")
xlApp.Visible=true
xlApp.DisplayAlerts=false
Set sheet= nothing
Set myXLS= nothing

Function BrowserMaximize(Object)
   Dim hwnd
   hwnd = Object.GetROProperty("hwnd")
   On error resume next
   Window("hwnd:="&hwnd).activate
   If err.Number<>0 Then
       hwnd = Browser("hwnd:="&hwnd).Object.hwnd
       Window("hwnd:="&hwnd).activate
       err.clear
   End If
   Window("hwnd:="&hwnd).Maximize
   On error Goto 0
End Function

'  saves the xl file and destroys all objectects related to it
Function destroyFile
   ' destroys sheet
    If NOT sheet is nothing Then
        Set sheet=nothing
    End If
    ' destroy xl file
    If NOT  myXLS is nothing Then
        myXLS.save
        myxls.close
        Set myxls=nothing
    End If
End Function

Function destroyXLSApp
    destroyFile
    If  NOT xlApp is nothing Then
        xlApp.Application.Quit
        Set xlApp=nothing
    End If
End Function

' checks if a file exists
Function isFileExisiting(filePath)
   Set fso = createObject("Scripting.FileSystemObject")
   If  fso.FileExists(filePath)  Then
    isFileExisiting=true
   else
    isFileExisiting=false
   End If
End Function

'  Checks if sheet is existing
Function isSheetExisting(filePath,sName)
   Dim totalsheets,sNum
    totalsheets = myXLS.Worksheets.count
    For sNum=1 to totalsheets
        If  myXLS.Worksheets(sNum).name = sName Then
            isSheetExisting=true
            Exit Function
        End If
    Next
isSheetExisting=false
End Function

' write data in xls file
Function writeData(xlFilePath,sName,row,col,data)
    If  xlPath <> xlFilePath Then
        ' destroy previous xls opened - if
            destroyFile
        '  check if the file is existing
            If NOT isFileExisiting(xlFilePath) Then
                msgbox "File not found " & xlFilePath
                exitTest
            End If
        ' open the xl file
        Set myXls = xlApp.Workbooks.Open(xlFilePath)
        xlPath=xlFilePath
        ' check if sheet is present
        If NOT isSheetExisting(xlFilePath,sName) Then
                msgbox  xlFilePath & " has not got sheet -  " & sName
                exitTest
        End If
        ' open the sheet of xl file
        Set sheet=myXls.Worksheets(sName)
        sheetName=sName
    '  file is same but sheet is diff
    ElseIf sheetName <>  sName Then
       ' check if sheet is present
        If NOT isSheetExisting(xlFilePath,sName) Then
                msgbox  xlFilePath & " has not got sheet -  " & sName
                exitTest
        End If
        'destroys sheet
        If NOT sheet is nothing Then
            Set sheet=nothing
        End If
        ' open the sheet of xl file
        Set sheet=myXls.Worksheets(sName)
        sheetName=sName
    End If
' write data
sheet.Cells(row, col).Value =data
myXLS.save
End Function


'  Reads the data from XLS File
Function readData(xlFilePath,sName,row,col)
    If  xlPath <> xlFilePath Then
        ' destroy previous xls opened - if
            destroyFile
        '  check if the file is existing
            If NOT isFileExisiting(xlFilePath) Then
                msgbox "File not found " & xlFilePath
                exitTest
            End If
        ' open the xl file
        Set myXls = xlApp.Workbooks.Open(xlFilePath)
        xlPath=xlFilePath
        ' check if sheet is present
        If NOT isSheetExisting(xlFilePath,sName) Then
                msgbox  xlFilePath & " has not got sheet -  " & sName
                exitTest
        End If
        ' open the sheet of xl file
        Set sheet=myXls.sheets(sName)
        sheetName=sName
    '  file is same but sheet is diff
    ElseIf sheetName <>  sName Then
       ' check if sheet is present
        If NOT isSheetExisting(xlFilePath,sName) Then
                msgbox  xlFilePath & " has not got sheet -  " & sName
                exitTest
        End If
           ' destroys sheet
        If NOT sheet is nothing Then
            Set sheet=nothing
        End If
        ' open the sheet of xl file
        Set sheet=myXls.sheets(sName)
        sheetName=sName
    End If
' read the data from the sheet
  readData = sheet.cells(row,col)
End Function

'returns total cols in xls file
Function getColumnCount(xlFilePath,sheetName)
    Dim totalCols
    totalCols=0
    While readData(xlFilePath,sheetName,1,(totalCols+1)) <> ""
        totalCols=totalCols+1
    Wend
    getColumnCount=totalCols
End Function

Function getRowCount(xlFilePath,sName)
   Dim i, j, flag, r, c
   If  xlPath <> xlFilePath Then
        ' destroy previous xls opened - if
            destroyFile
        '  check if the file is existing
            If NOT isFileExisiting(xlFilePath) Then
                msgbox "File not found " & xlFilePath
                exitTest
            End If
        ' open the xl file
        Set myXls = xlApp.Workbooks.Open(xlFilePath)
        xlPath=xlFilePath
  
        ' check if sheet is present
        If NOT isSheetExisting(xlFilePath,sName) Then
                msgbox  xlFilePath & " has not got sheet -  " & sName
                exitTest
        End If
        ' open the sheet of xl file
        Set sheet=myXls.sheets(sName)
        sheetName=sName
    '  file is same but sheet is diff
    ElseIf sheetName <>  sName Then
       ' check if sheet is present
        If NOT isSheetExisting(xlFilePath,sName) Then
                msgbox  xlFilePath & " has not got sheet -  " & sName
                exitTest
        End If
           ' destroys sheet
        If NOT sheet is nothing Then
            Set sheet=nothing
        End If
        ' open the sheet of xl file
        Set sheet=myXls.sheets(sName)
        sheetName=sName
    End If
    r = sheet.usedrange.rows.count
    c = sheet.usedrange.columns.count
    flag = 0
    For i = r to 1 step -1
        For j = c to 1 step -1
            If sheet.Cells(i, j)<>"" Then
                flag = 1
                Exit For
            End If
        Next
        If flag = 1 Then      
            Exit For
        End If
    Next
    r = i
    getRowCount = r
End Function

#16. Blank Screens through CaptureBitmap

#16. Blank Screens through CaptureBitmap

Blank Screens through CaptureBitmap method can be encountered if the system gets locked when the automation scripts are running. To avoid this, it can be assured that the system doesn't get locked when the scripts are getting executed.
This can be done by calling the following function through the automation scripts:-

Public Function AntiSleep()
   Dim iter
   randomize
   iter = randomNumber(0, 100)
   Dim objDeviceReplay
   Set objDeviceReplay = CreateObject("Mercury.DeviceReplay")
   objDeviceReplay.MouseMove iter,300
   Set objDeviceReplay = Nothing
End Function
The above function can be called in an automation script using QTP, and the script can be scheduled to run through control panel recursively.