Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Finding this or that word in a webpage
- Thread starter Mingas
- Start date
- Thread starter
- #3
Find "Invalid","
Function Find(StrString,URL)
Titre = "Find a String in a webpage"
'URL = "Set ie = CreateObject("InternetExplorer.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
ie.Navigate(URL)
ie.Visible = 1
DO WHILE ie.busy
wscript.sleep 100
LOOP
wscript.sleep 1000
Set WshShell = WScript.CreateObject("WScript.Shell")
'WshShell.AppActivate"Browser Logon"
ie.Navigate(URL)
wscript.sleep 1000
With ie.Document
.getElementByID("userName").value = "h"
.getElementByID("password").value = "h"
End With
wscript.sleep 1000
Set oInputs = ie.document.getElementsByTagName("input")
For Each elm In oInputs
If elm.Value = "Logon" Then
elm.Click
Exit For
End If
Next
wscript.sleep 5000
Data = ie.document.documentElement.innertext
Set ie = Nothing
Set objRegex = new RegExp
objRegex.Pattern = StrString
objRegex.Global = False
objRegex.IgnoreCase = True
Set Matches = objRegex.Execute(Data)
For Each Match in Matches
'MsgBox "We found this word : " &vbCr& qq(Match.Value) & "in " & URL,64,Titre
Set MyApp = CreateObject("Outlook.Application")
Set MyItem = MyApp.CreateItem(0)
With MyItem
.To = "my email"
.Subject = "Found invalid"
.ReadReceiptRequested = False
.HTMLBody = ""
End With
MyItem.Send
Next
End Function
Function qq(strIn)
qq = Chr(34) & strIn & Chr(34)
End Function
Function Pause(NbMin)
wscript.sleep NbMin*1000*60
End Function
Function Find(StrString,URL)
Titre = "Find a String in a webpage"
'URL = "Set ie = CreateObject("InternetExplorer.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
ie.Navigate(URL)
ie.Visible = 1
DO WHILE ie.busy
wscript.sleep 100
LOOP
wscript.sleep 1000
Set WshShell = WScript.CreateObject("WScript.Shell")
'WshShell.AppActivate"Browser Logon"
ie.Navigate(URL)
wscript.sleep 1000
With ie.Document
.getElementByID("userName").value = "h"
.getElementByID("password").value = "h"
End With
wscript.sleep 1000
Set oInputs = ie.document.getElementsByTagName("input")
For Each elm In oInputs
If elm.Value = "Logon" Then
elm.Click
Exit For
End If
Next
wscript.sleep 5000
Data = ie.document.documentElement.innertext
Set ie = Nothing
Set objRegex = new RegExp
objRegex.Pattern = StrString
objRegex.Global = False
objRegex.IgnoreCase = True
Set Matches = objRegex.Execute(Data)
For Each Match in Matches
'MsgBox "We found this word : " &vbCr& qq(Match.Value) & "in " & URL,64,Titre
Set MyApp = CreateObject("Outlook.Application")
Set MyItem = MyApp.CreateItem(0)
With MyItem
.To = "my email"
.Subject = "Found invalid"
.ReadReceiptRequested = False
.HTMLBody = ""
End With
MyItem.Send
Next
End Function
Function qq(strIn)
qq = Chr(34) & strIn & Chr(34)
End Function
Function Pause(NbMin)
wscript.sleep NbMin*1000*60
End Function
- Thread starter
- #4
- Thread starter
- #5
- Thread starter
- #6
As you use RegExp:
Find "Invalid|access","
Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
Find "Invalid|access","
Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
- Thread starter
- #8
- Status
Similar threads
- Locked
- Question