Transcriptional Characterization of Glioma Neural Stem Cells Diva ...

If NameStr.ToLower().Equals("query") Then
elem.InnerText = genes(ngene) : Exit For
End If
End If
Next
Appendix
For Each elem As HtmlElement In WebBrowser1.Document.All ’ Search and click submit
button
Dim NameStr As String = elem.GetAttribute("name")
If ((NameStr IsNot Nothing) AndAlso (NameStr.Length 0)) Then
If NameStr.ToLower().Equals("commit") Then
elem.InvokeMember("click") : Exit For
End If
End If
Next
Case 1 ’ Get the result page
Dim st As String = WebBrowser1.DocumentText.ToString
End Select
ElseIf nDB = 4 Then ’ Google Scholar
Select Case pageLoadTimes
Case 0 ’ Get the results from page
Dim st As String = WebBrowser1.DocumentText.ToString
Dim stp As Integer = st.IndexOf("About ")
If stp > 0 Then
Dim stR As String = st.Substring(stp + 24, 20) ’ ex. 18,700 results (0.03 sec)...
stp = stR.IndexOf("results")
st = stR.Substring(0, stp).Replace(",", "") ’ ex. 18,700 –>18700
TextBox3.Text = Convert.ToInt32(Trim(st))
If TextBox3.Text "0" Then RaiseEvent nextGene() Else RaiseEvent nextDB()
Exit Sub
End If
End Select
ElseIf nDB = 5 Then ’ Google Search
Select Case pageLoadTimes
Case 0 ’ Get the results from page
Dim st As String = WebBrowser1.DocumentText.ToString
Dim stp As Integer = st.IndexOf("About ")
If stp > 0 Then
Dim stR As String = st.Substring(stp + 24, 20) ’ex. 18,700 results (0.03 sec)...
271