Sign in to follow this  
Followers 0
Marcvde

Website open doesn't work

4 posts in this topic

#1 ·  Posted (edited)

Hello people, 

I want to open a website but i don't know how... I tried..

Here is my script, can someone write the code in it (thanks)

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)

#Region ### START Koda GUI section ### Form=
$BProxy = GUICreate("Choose Proxywebsite ", 426, 235, 199, 138)
$Label1 = GUICtrlCreateLabel("Press a Button for a Proxy Website", 18, 8, 209, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetBkColor(0xA0A0A4)
$Button1 = GUICtrlCreateButton("Proxy1", 16, 32, 105, 41)
$Button2 = GUICtrlCreateButton("Proxy2", 16, 81, 105, 41)
$Button3 = GUICtrlCreateButton("Proxy3", 16, 128, 105, 41)
$Button4 = GUICtrlCreateButton("Proxy4", 16, 177, 105, 41)
$Button5 = GUICtrlCreateButton("Proxy5", 137, 32, 105, 41)
$Button6 = GUICtrlCreateButton("Proxy6", 137, 81, 105, 41)
$Button7 = GUICtrlCreateButton("Proxy7", 137, 128, 105, 41)
$Button8 = GUICtrlCreateButton("Proxy8", 137, 177, 105, 41)
$Button9 = GUICtrlCreateButton("Fuck it! Google now!", 256, 128, 153, 89)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetOnEvent($Button1, "Proxy1")
#EndRegion ### END Koda GUI section ###



While 1
    Sleep(100)
WEnd

Func _Exit()
Exit
EndFunc

Func Proxy1()
ShellExecute("http://www.google.com/")
EndFunc

 

Edited by Jos
Added codebox

Share this post


Link to post
Share on other sites



GUICtrlSetOnEvent($Button1, "Proxy1")      ;)

Share this post


Link to post
Share on other sites

O sh*t, thank you very much hahah :)

 

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

  • Similar Content

    • SkythekidRS
      By SkythekidRS
      hello guys  i have a problem..
      how can i set hotkey with unicode char?
      Example: hotkeyset('á','function') 
      Please Help me. 
    • dannymcf2
      By dannymcf2
      Hey!
      Im just going to say that im new to autoit and this is my first successful script !  
      anyway i have a little problem that does not
      make sense at all to me.... Maybe you can help me out? Anyone please??
      What i have the SCRIPT do is this : 
      The script finds a text box (on the screen) then it clicks the text box, then it sends "guess what...."
      but after it has sent "guess what...." FOR SOME REASON IT SCROLLS DOWN THEN ENDS THE SCRIPT WITH AN ERROR.... (see below for error...)
      "C:\Users\yolo\Desktop\bot\best.au3" (47) : ==> Illegal text at the end of statement (one statement per line).: mousewheel("down"), 3) mousewheel("down")^ ERROR HERE IS MY SCRIPT BELOW... That im having problems with.
      func ns3() $pixel = PixelSearch(416, 295, 882, 315, 0x707070) if IsArray($pixel) = true then MouseClick("left", $pixel[0], $pixel[1]) tn() EndIf EndFunc func tn() send ("guess{SPACE}what.....") sleep ($interval) sleep ($interval) findcombox() EndFunc So what happens is it searches for the text box, then if it's true then mouse click then Func tn() runs
       
      Then func tn sends "guess what...."
      then sleeps
      THEN IS SCROLLS DOWN AND AN ERROR COMES UP?!!?!?!? what the heck ?!
      oh BTW i have a few "Scroll func's" (See Below)
      Func scroll() mousewheel("down", 2) EndFunc func scroll3t() mousewheel("down"), 3) EndFunc func scrollup() mousewheel("up"), 20) EndFunc scroll () - scrolls twice down
      scroll3t() - scrolls 3 times
      scrollup() - YOU GUESSED IT! scrolls up
      SO?! What the heck is happening?! im so confused why it's scrolling down twice for no reason.... it's not like i have the scroll() in the tn() ??
       
    • xinx
      By xinx
      I'm have a working program that displays the users in Active Directory. When a user's name is clicked on it displays their details (profile folder, work folder, etc). However, what I'd really like to do is be able to eliminate using the mouse as much as possible, so instead of having to click on each user's name, you can use the UP and DOWN arrows and it will act as though their name has been clicked on (if that makes any sense?).

      Here's some of the code so far:


      $ADListView = GUICtrlCreateListView("Login Name|Display Name", 140, 60, 220, 280);A ListView to display the users ; Adjust the ADListView column headers _GUICtrlListView_SetColumnWidth($ADListView, 0, 100) _GUICtrlListView_SetColumnWidth($ADListView, 1, 116)

      Func UpdateUserList() _AD_Open() $SelectedUserType = GUICtrlRead($UserTypeCombo) ;Get the base OU for the user type $SelectedUserTypeBaseOU = IniRead("iniUsers.ini", $SelectedUserType, "BaseOU", "NotFound") ;Get the filtered results from the AD using base OU $ADData = _AD_GetObjectsInOU($SelectedUserTypeBaseOU, "(&(objectclass=user)(name=*))", 2, "sAMAccountName,distinguishedName,displayname", "displayname") GUICtrlSetData($ADListView, $ADData) _GUICtrlListView_DeleteAllItems($ADListView) GUICtrlSetData($UserPropertiesEditBox, "Properties of Selected User") $SelectedUser = "" ;For each AD user, add an item in in the ListView For $i = 1 To UBound($ADData) - 1 GUICtrlCreateListViewItem($ADData[$i][0] & "|" & $ADData[$i][2], $ADListView) GUICtrlSetOnEvent(-1, "ListClicked") ; For each item, add the required event Next _AD_Close() EndFunc ;==>UpdateUserList


      Func ListClicked() $ItemString = GUICtrlRead(@GUI_CtrlId) $ItemArray = StringSplit($ItemString, "|") $SelectedUser = $ItemArray[1] _AD_Open() $givenName = _AD_GetObjectAttribute($SelectedUser, "givenName") $SN = _AD_GetObjectAttribute($SelectedUser, "SN") $displayName = _AD_GetObjectAttribute($SelectedUser, "displayName") $profilePath = _AD_GetObjectAttribute($SelectedUser, "profilePath") $homeDirectory = _AD_GetObjectAttribute($SelectedUser, "homeDirectory") $homeDrive = _AD_GetObjectAttribute($SelectedUser, "homeDrive") $GroupArray = _AD_GetUserGroups($SelectedUser) GUICtrlSetData($UserPropertiesEditBox, "") _GUICtrlEdit_AppendText($UserPropertiesEditBox, "Properties of Selected User") _GUICtrlEdit_AppendText($UserPropertiesEditBox, @CRLF & @CRLF & "First Name: " & $givenName) _GUICtrlEdit_AppendText($UserPropertiesEditBox, @CRLF & @CRLF & "Last Name: " & $SN) _GUICtrlEdit_AppendText($UserPropertiesEditBox, @CRLF & @CRLF & "Login Name: " & $SelectedUser) _GUICtrlEdit_AppendText($UserPropertiesEditBox, @CRLF & @CRLF & "Profile Directory: " & $profilePath) _GUICtrlEdit_AppendText($UserPropertiesEditBox, @CRLF & @CRLF & "Home Directory: " & $homeDirectory & " (" & $homeDrive & ")") _GUICtrlEdit_AppendText($UserPropertiesEditBox, @CRLF & @CRLF & "Group Membership:") For $i = 1 To UBound($GroupArray) - 1 _GUICtrlEdit_AppendText($UserPropertiesEditBox, @CRLF & _AD_FQDNToDisplayname($GroupArray[$i])) Next _AD_Close() EndFunc ;==>ListClicked
      Any help would be great, thank you!