home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 May / PCWorld_2001-05_cd.bin / Software / Vyzkuste / tiptrik / tiptrik.exe / ASearch.vbs < prev    next >
Text File  |  2001-03-04  |  569b  |  25 lines
  1. Dim MeinIE
  2. Eingabe = Inputbox("Zadejte zkratku, kterou chcete vysv∞tlit")
  3. Set MeinIE = CreateObject("InternetExplorer.Application")
  4. do while MeinIE.Busy
  5. loop
  6.  
  7. MeinIE.Visible = 0
  8.  
  9. MeinIE.Navigate "http://www.chemie.fu-berlin.de/cgi-bin/acronym?" & Eingabe
  10.  
  11. do while MeinIE.Busy
  12. loop
  13.  
  14. Text_von_IE = MeinIE.Document.Body.innerText
  15.  
  16. If Len(Text_von_IE)< 145 + Len(Eingabe) Then
  17.   MsgBox("Zkratka nebyla nalezena! " & ucase(Eingabe))
  18. Else
  19.   Rechter_Teil=Right(Text_von_IE,Len(Text_von_IE)-143-Len(Eingabe))
  20.   MsgBox Rechter_Teil
  21. End If
  22.  
  23. MeinIE.Quit
  24.  
  25.