ahmettben Posted August 7, 2011 Share Posted August 7, 2011 (edited) mold the program codeGlobal $Form = GUICreate("", 350, 400, 387, 170) $Click1 = GUICtrlCreateButton("about", 270, 5, 75, 20) GUICtrlCreateButton("msn open", 10, 10, 150, 20) GUICtrlCreateButton("facebooklogin", 10, 40, 150, 20) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Click1 _click1() EndSwitch WEnd Func _click1() GUISetState(@SW_DISABLE,$Form) Local $Form2 = GUICreate("", 300, 150, 415, 225) Local $Click2 = GUICtrlCreateButton("ok", 120, 115, 80, 25) $Group1 = GUICtrlCreateGroup("*****", 56, 8, 185, 105) $Label1 = GUICtrlCreateLabel("autoitscript", 120, 59, 100, 25) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 ExitLoop Case $Click2 ExitLoop EndSwitch WEnd GUIDelete($Form2) GUISetState(@SW_ENABLE,$Form) GUISetState(@SW_RESTORE,$Form) EndFunc ;==>_click1msn codeOpt("TrayIconHide", 1) Run(@ProgramFilesDir & "\Windows Live\Messenger\msnmsgr.exe") WinWait("Windows Live Messenger","") WinActive("Windows Live Messenger","") ClipPut("e-mail") Send("^v") Send("{TAB}") ClipPut("password") Send("^v") Send("{ENTER}")facebook codeOpt("TrayIconHide", 1) #include<IE.au3> #include <File.au3> Local $mailtxt = "e-mail" Local $passtxt = "password" $Mail = $mailtxt $Pass = $passtxt $oIE = _IECreate("https://login.facebook.com/login.php?login_attempt=1", 0, 1, 1) $oForm = _IEFormGetObjByName($oIE, "login_form") $oQuery = _IEFormElementGetObjByName($oForm, "email") $o_Query = _IEFormElementGetObjByName($oForm, "pass") $oSubmit = _IEFormElementGetObjByName($oForm, "login") _IEFormElementSetValue($oQuery, $Mail) _IEFormElementSetValue($o_Query, $Pass) _IEAction($oSubmit, "click") Edited August 7, 2011 by ahmettben Link to comment Share on other sites More sharing options...
ahmettben Posted August 9, 2011 Author Share Posted August 9, 2011 please help Link to comment Share on other sites More sharing options...
anybastard Posted August 9, 2011 Share Posted August 9, 2011 Hi try this one expandcollapse popup#requireadmin #include<IE.au3> #include <File.au3> #include <GUIConstantsEx.au3> Opt("TrayIconHide", 1) $Form = GUICreate("", 350, 400, 387, 170) $Msn = GUICtrlCreateButton("msn open", 10, 10, 150, 20) $Facebook = GUICtrlCreateButton("facebooklogin", 10, 40, 150, 20) $About = GUICtrlCreateButton("about", 270, 5, 75, 20) GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case $Msn Run(@ProgramFilesDir & "\Windows Live\Messenger\msnmsgr.exe") WinWait("Windows Live Messenger","") WinActive("Windows Live Messenger","") ClipPut("e-mail") Send("^v") Send("{TAB}") ClipPut("password") Send("^v") Send("{ENTER}") Case $Facebook Local $mailtxt = "e-mail" Local $passtxt = "password" $Mail = $mailtxt $Pass = $passtxt $oIE = _IECreate("https://login.facebook.com/login.php?login_attempt=1", 0, 1, 1) $oForm = _IEFormGetObjByName($oIE, "login_form") $oQuery = _IEFormElementGetObjByName($oForm, "email") $o_Query = _IEFormElementGetObjByName($oForm, "pass") $oSubmit = _IEFormElementGetObjByName($oForm, "login") _IEFormElementSetValue($oQuery, $Mail) _IEFormElementSetValue($o_Query, $Pass) _IEAction($oSubmit, "click") ; insert here a new case for "about" button EndSwitch WEnd Now seems to be ok you must add only "about" button Regards AnyB Link to comment Share on other sites More sharing options...
ahmettben Posted August 9, 2011 Author Share Posted August 9, 2011 thank you very much Link to comment Share on other sites More sharing options...
ahmettben Posted August 10, 2011 Author Share Posted August 10, 2011 @anybastard How do I add "about" button.? Link to comment Share on other sites More sharing options...
GEOSoft Posted August 10, 2011 Share Posted August 10, 2011 probably the same way you did it in your previous script. $Click1 = GUICtrlCreateButton("about", 270, 5, 75, 20) George Question about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.*** The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number. Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else. "Old age and treachery will always overcome youth and skill!" Link to comment Share on other sites More sharing options...
ahmettben Posted August 10, 2011 Author Share Posted August 10, 2011 Please give an example of a complete Link to comment Share on other sites More sharing options...
anybastard Posted August 10, 2011 Share Posted August 10, 2011 Hi , is really necessary another GUI only for "about" button ?? You can use a simple message box or splash screen instead of a gui Regards AnyB. Link to comment Share on other sites More sharing options...
guinness Posted August 10, 2011 Share Posted August 10, 2011 (edited) Please give an example of a completeWhy not read the Help file? GUICreate & GUICTrlCreateButton have some really great examples. As GEOSoft said you've done it before, unless that wasn't your code! Edited August 10, 2011 by guinness UDF List:  _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018 Link to comment Share on other sites More sharing options...
ahmettben Posted August 10, 2011 Author Share Posted August 10, 2011 @guinness I am from Turkey I do not know much English do not understand the help file Please give examples Link to comment Share on other sites More sharing options...
anybastard Posted August 10, 2011 Share Posted August 10, 2011 @ Ahmettben , here 90% of the users aren't english mother tongue ( for example i'm Italian ) . If you want an advice try to learn the english languages for your real life and for your digital life For the next code or program that you will developed you MUST 1 - search in help file ( there are a lot of source code ) 2 - search into the forum ( probably someone has /had your same problem ) 3 - search with google on the net there are many and many source code 4 - try to post your script 5 - is very very important ........WAIT !!! about your code it is very easy you can add a simple message box with another case in switch instruction like this expandcollapse popup#requireadmin #include<IE.au3> #include <File.au3> #include <GUIConstantsEx.au3> Opt("TrayIconHide", 1) $Form = GUICreate("", 350, 400, 387, 170) $Msn = GUICtrlCreateButton("msn open", 10, 10, 150, 20) $Facebook = GUICtrlCreateButton("facebooklogin", 10, 40, 150, 20) $About = GUICtrlCreateButton("about", 270, 5, 75, 20) GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case $Msn Run(@ProgramFilesDir & "\Windows Live\Messenger\msnmsgr.exe") WinWait("Windows Live Messenger","") WinActive("Windows Live Messenger","") ClipPut("e-mail") Send("^v") Send("{TAB}") ClipPut("password") Send("^v") Send("{ENTER}") Case $Facebook Local $mailtxt = "e-mail" Local $passtxt = "password" $Mail = $mailtxt $Pass = $passtxt $oIE = _IECreate("https://login.facebook.com/login.php?login_attempt=1", 0, 1, 1) $oForm = _IEFormGetObjByName($oIE, "login_form") $oQuery = _IEFormElementGetObjByName($oForm, "email") $o_Query = _IEFormElementGetObjByName($oForm, "pass") $oSubmit = _IEFormElementGetObjByName($oForm, "login") _IEFormElementSetValue($oQuery, $Mail) _IEFormElementSetValue($o_Query, $Pass) _IEAction($oSubmit, "click") Case $About MsgBox ( 0, "My first gui" , "This is my first program ver 1.0") EndSwitch WEnd Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now