Sign in to follow this  
Followers 0
R.L.

GoogleQuickie

2 posts in this topic

#1 ·  Posted (edited)

Just a script to make an Address/Search bar so to reduce mouse clickings :D :

opt ("GUINotifyMode", 1)

GUICreate("GoogleQuickie    Enter String - Search:{Enter}  go:{Tab}  Exit:{Esc}", 438, 65, 50, 20,0)
GUIDefaultFont (11, 400, "Times New Roman")
$NSEARCHSTRING = GUISetControl("Input", "", 12, 8, 285, 20)
GUIDefaultFont (9, 400, "arial", 2)
$NSEARCH = GUISetControl("button", "Search", 305, 5, 48, 25, 0x0001)
$NGo =GUISetControl("button", "Go", 360, 5, 30, 25)
$NMORE = GUISetControl("button", ">>", 399, 5, 20, 25)

While 1
   GUIShow() 
   WinActivate("GoogleQuickie")
   Send("{TAB}")
  
  $MSG = GUIMsg()
         $STRING = GUIRead($NSEARCHSTRING)
         $ENGINE = IniRead("searchopt.ini", "general", "Browser", "C:\Program Files\Internet Explorer\iexplore.exe") 

   Select
      Case $MSG = -3
         ExitLoop
      Case $MSG = $NSEARCH
         $FIXSTRING = StringReplace($STRING, " ", "%20")
         $PREFIX = "http://www.google.com/search?q="
         $GOOGLESTRING = $PREFIX & $FIXSTRING
         $TORUN = $ENGINE & " " & $GOOGLESTRING
         Run($TORUN)
         ExitLoop
      Case $MSG = $Ngo
      $TORUN = $ENGINE & " " & $string
         Run($TORUN)
          ExitLoop

      Case $MSG = $NMORE
         $BENGINE = InputBox("Browser Setting", "Enter your browser path, for example: C:\Program Files\Internet Explorer\iexplore.exe", $engine, "", 500, 70, 100, 100) 
         If @error = 0 Then
            IniWrite("searchopt.ini", "general", "Browser", $BENGINE)  
         Else
            Sleep(100)
         EndIf
   EndSelect 
   
Wend
Edited by R.L.

Share this post


Link to post
Share on other sites



Well done :D

I like it.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0