Noobster24 Posted May 17, 2006 Share Posted May 17, 2006 Hi, i scripted these two functions: Func _Key($keyget, $x, $y) Select Case $keyget = "F9" $keyecht = "78" Case $keyget = "F10" $keyecht = "79" Case $keyget = "F11" $keyecht = "7A" Case Else MsgBox(0, "Fout", "Error in code, e-mail axpcrew@gmail.com Error #B4") EndSelect While 1 Sleep(10) If _IsPressed($keyecht) Then _Go($x, $y) EndIf WEnd EndFunc;==> _Key Func _Go($x, $y) $oIE = _IECreate() _IENavigate($oIE, "http://teletop.bc-enschede.nl/02start.nsf?Login&lan=NL&RedirectTo=/02start.nsf") WinSetOnTop("TeleTOP Login", "", 1) WinSetState("TeleTOP Login", "", @SW_MAXIMIZE) Sleep(500) $o_form = _IEFormGetObjByName($oIE, "_DominoForm") $o_login = _IEFormElementGetObjByName($o_form, "UsernameInput") $o_password = _IEFormElementGetObjByName($o_form, "Password") _IEFormElementSetValue($o_login, $x) _IEFormElementSetValue($o_password, $y) Send("{ENTER}") WinSetOnTop("TeleTOP Login", "", 0) EndFunc;==> _Go When I call the function like this: ; The variables $leesini, $user and $pass are defined... _Key($leesini, $user, $pass) Then the GUI doesn't show up, i think it has to do with the sleep(10), but can you help me? Programs so far:Teh Serializer - Search for licenses for Nero - Windows - Office - Alcohol etc. Link to comment Share on other sites More sharing options...
Valuater Posted May 17, 2006 Share Posted May 17, 2006 (edited) this works... all by itself expandcollapse popup#include<IE.au3> #Include <Misc.au3> _Key("F9", 1, 2) Dim $keyecht Func _Key($keyget, $x, $y) Select Case $keyget = "F9" $keyecht = "78" Case $keyget = "F10" $keyecht = "79" Case $keyget = "F11" $keyecht = "7A" Case Else MsgBox(0, "Fout", "Error in code, e-mail axpcrew@gmail.com Error #B4") EndSelect While 1 Sleep(10) If _IsPressed($keyecht) Then _Go($x, $y) EndIf WEnd EndFunc;==> _Key Func _Go($x, $y) $oIE = _IECreate() _IENavigate($oIE, "http://teletop.bc-enschede.nl/02start.nsf?Login&lan=NL&RedirectTo=/02start.nsf") WinSetOnTop("TeleTOP Login", "", 1) WinSetState("TeleTOP Login", "", @SW_MAXIMIZE) Sleep(500) $o_form = _IEFormGetObjByName($oIE, "_DominoForm") $o_login = _IEFormElementGetObjByName($o_form, "UsernameInput") $o_password = _IEFormElementGetObjByName($o_form, "Password") _IEFormElementSetValue($o_login, $x) _IEFormElementSetValue($o_password, $y) Send("{ENTER}") WinSetOnTop("TeleTOP Login", "", 0) EndFunc;==> _Go 8) Edited May 18, 2006 by Valuater Link to comment Share on other sites More sharing options...
Noobster24 Posted May 18, 2006 Author Share Posted May 18, 2006 this works... all by itself expandcollapse popup#include<IE.au3> #Include <Misc.au3> _Key("F9", 1, 2) Dim $keyecht Func _Key($keyget, $x, $y) Select Case $keyget = "F9" $keyecht = "78" Case $keyget = "F10" $keyecht = "79" Case $keyget = "F11" $keyecht = "7A" Case Else MsgBox(0, "Fout", "Error in code, e-mail axpcrew@gmail.com Error #B4") EndSelect While 1 Sleep(10) If _IsPressed($keyecht) Then _Go($x, $y) EndIf WEnd EndFunc;==> _Key Func _Go($x, $y) $oIE = _IECreate() _IENavigate($oIE, "http://teletop.bc-enschede.nl/02start.nsf?Login&lan=NL&RedirectTo=/02start.nsf") WinSetOnTop("TeleTOP Login", "", 1) WinSetState("TeleTOP Login", "", @SW_MAXIMIZE) Sleep(500) $o_form = _IEFormGetObjByName($oIE, "_DominoForm") $o_login = _IEFormElementGetObjByName($o_form, "UsernameInput") $o_password = _IEFormElementGetObjByName($o_form, "Password") _IEFormElementSetValue($o_login, $x) _IEFormElementSetValue($o_password, $y) Send("{ENTER}") WinSetOnTop("TeleTOP Login", "", 0) EndFunc;==> _Go 8) Also with this code, the GUI doesn't show up So, any ideas left? Programs so far:Teh Serializer - Search for licenses for Nero - Windows - Office - Alcohol etc. Link to comment Share on other sites More sharing options...
Valuater Posted May 18, 2006 Share Posted May 18, 2006 Also with this code, the GUI doesn't show up So, any ideas left? what GUI... I don't understandi get the internet browser window/GUIthere is no GUI create????8) Link to comment Share on other sites More sharing options...
Noobster24 Posted May 18, 2006 Author Share Posted May 18, 2006 (edited) This is my complete script, it's a project for myself, the program automatically logs in to the school system... [__CODE_PROTECTED]I2luY2x1ZGUgJiM2MDtHdWlDb25zdGFudHMuYXUzJiM2Mjs8YnIgLz4KI2luY2x1ZGUgJiM2MDtJRS5hdTMmIzYyOzxiciAvPgojaW5jbHVkZSAmIzYwO01pc2MuYXUzJiM2Mjs8YnIgLz4KI05vVHJheUljb248YnIgLz4KPGJyIC8+Ck9wdCYjNDA7JiMzNDtFeHBhbmRWYXJTdHJpbmdzJiMzNDssIDEmIzQxOzxiciAvPgpPcHQmIzQwOyYjMzQ7VHJheU1lbnVNb2RlJiMzNDssMSYjNDE7PGJyIC8+Ck9wdCYjNDA7JiMzNDtXaW5UaXRsZU1hdGNoTW9kZSYjMzQ7LCAyJiM0MTs8YnIgLz4KT3B0JiM0MDsmIzM0O0dVSUNsb3NlT25FU0MmIzM0OywgMSYjNDE7PGJyIC8+CjxiciAvPgpHbG9iYWwgJiMwMzY7aW5zdGFsbGRpciA9IFJlZ1JlYWQmIzQwOyYjMzQ7SEtMTSYjMDkyO1NPRlRXQVJFJiMwOTI7SW5sb2dnZW4gYmlqIFRlbGV0b3AmIzM0OywgJiMzNDsmIzM0OyYjNDE7PGJyIC8+CjxiciAvPgpHVUlTZXRJY29uICYjNDA7JiMwMzY7aW5zdGFsbGRpciAmYW1wOyAmIzM0OyYjMDkyO0ZpbGVzJiMwOTI7SmFubmVrZS5pY28mIzM0OyYjNDE7PGJyIC8+ClRyYXlTZXRJY29uICYjNDA7JiMwMzY7aW5zdGFsbGRpciAmYW1wOyAmIzM0OyYjMDkyO0ZpbGVzJiMwOTI7SmFubmVrZS5pY28mIzM0OyYjNDE7PGJyIC8+CiYjMDM2O3ZlciA9ICYjMzQ7djEuOC4xJiMzNDs8YnIgLz4KPGJyIC8+CklmIFdpbkV4aXN0cyYjNDA7JiMzNDtUZWxldG9wdG9vbCBieSBBWFAmIzM0OyYjNDE7IFRoZW48YnIgLz4KCVdpblNldE9uVG9wJiM0MDsmIzM0O1RlbGV0b3B0b29sIGJ5IEFYUCYjMzQ7LCAmIzM0OyYjMzQ7LCAxJiM0MTs8YnIgLz4KCUV4aXQ8YnIgLz4KRWxzZTxiciAvPgoJPGJyIC8+Ckdsb2JhbCAmIzAzNjtkZWZhdWx0c3RhdHVzID0gJiMzNDtSZWFkeSBmb3IgYWN0aW9uJiMzNDs8YnIgLz4KCTxiciAvPgpJZiBGaWxlRXhpc3RzICYjNDA7JiMwMzY7aW5zdGFsbGRpciAmYW1wOyAmIzM0OyYjMDkyO0ZpbGVzJiMwOTI7SW5sb2dnZW4uaW5pJiMzNDsmIzQxOyBUaGVuCTxiciAvPgoJPGJyIC8+CgkmIzAzNjtmaXJzdCA9IEluaVJlYWQmIzQwOyYjMDM2O2luc3RhbGxkaXIgJmFtcDsgJiMzNDsmIzA5MjtGaWxlcyYjMDkyO0lubG9nZ2VuLmluaSYjMzQ7LCYjMzQ7QWNjb3VudCYjMzQ7LCYjMzQ7Rmlyc3QmIzM0OywmIzM0O0VSUk9SJiMzNDsmIzQxOzxiciAvPgoJJiMwMzY7Y291bnQgPSBJbmlSZWFkJiM0MDsmIzAzNjtpbnN0YWxsZGlyICZhbXA7ICYjMzQ7JiMwOTI7RmlsZXMmIzA5MjtJbmxvZ2dlbi5pbmkmIzM0OywmIzM0O0FjY291bnQmIzM0OywmIzM0O0NvdW50JiMzNDssJiMzNDtFUlJPUiYjMzQ7JiM0MTs8YnIgLz4KCSYjMDM2O3VzZXIgPSBJbmlSZWFkJiM0MDsmIzAzNjtpbnN0YWxsZGlyICZhbXA7ICYjMzQ7JiMwOTI7RmlsZXMmIzA5MjtJbmxvZ2dlbi5pbmkmIzM0OywmIzM0O0FjY291bnQmIzM0OywmIzM0O1VzZXImIzM0OywmIzM0OyYjMzQ7JiM0MTs8YnIgLz4KCSYjMDM2O3Bhc3MgPSBJbmlSZWFkJiM0MDsmIzAzNjtpbnN0YWxsZGlyICZhbXA7ICYjMzQ7JiMwOTI7RmlsZXMmIzA5MjtJbmxvZ2dlbi5pbmkmIzM0OywmIzM0O0FjY291bnQmIzM0OywmIzM0O1Bhc3MmIzM0OywmIzM0OyYjMzQ7JiM0MTsJPGJyIC8+CgkmIzAzNjtjb3VudGVyID0gJiM0MDsmIzAzNjtjb3VudCArIDEmIzQxOzxiciAvPgoJSW5pV3JpdGUmIzQwOyYjMDM2O2luc3RhbGxkaXIgJmFtcDsgJiMzNDsmIzA5MjtGaWxlcyYjMDkyO0lubG9nZ2VuLmluaSYjMzQ7LCAmIzM0O0FjY291bnQmIzM0OywgJiMzNDtDb3VudCYjMzQ7LCAmIzAzNjtjb3VudGVyJiM0MTs8YnIgLz4KPGJyIC8+CkVsc2U8YnIgLz4KCU1zZ0JveCYjNDA7MTYsJiMzNDtJbmxvZ2dlbiYjMzQ7LCYjMzQ7SW5sb2dnZW4uaW5pIG9udGJyZWVrdCYjMzM7ICMyJiMzNDsmIzQxOzxiciAvPgpFbmRJZjxiciAvPgo8YnIgLz4KSWYgJiMwMzY7Zmlyc3QgPSAwIFRoZW48YnIgLz4KCTxiciAvPgoJJiMwMzY7dXNlcnZ1bCA9IElucHV0Qm94JiM0MDsmIzM0O0dlYnJ1aWtlcnNuYWFtJiMzNDssICYjMzQ7Vm9lciB1dyBnZWJydWlrZXJzbmFhbSBpbiYjMzQ7LCAmIzM0OyYjMzQ7LCAmIzM0OyBNJiMzNDsmIzQxOzxiciAvPgoJJiMwMzY7cGFzc3Z1bCA9IElucHV0Qm94JiM0MDsmIzM0O1dhY2h0d29vcmQmIzM0OywgJiMzNDtWb2VyIHV3IHdhY2h0d29vcmQgaW4mIzM0OywgJiMzNDsmIzM0OywgJiMzNDsgTSYjMzQ7JiM0MTs8YnIgLz4KCSYjMDM2O2ExID0gU3RyaW5nTGVuJiM0MDsmIzAzNjt1c2VydnVsJiM0MTs8YnIgLz4KCSYjMDM2O2EyID0gU3RyaW5nTGVuJiM0MDsmIzAzNjtwYXNzdnVsJiM0MTs8YnIgLz4KCQk8YnIgLz4KSWYgJiMwMzY7YTEgJiM2MjsgMiBBTkQgJiMwMzY7YTIgJiM2MjsgMiBUaGVuPGJyIC8+Cgk8YnIgLz4KCUluaVdyaXRlJiM0MDsmIzAzNjtpbnN0YWxsZGlyICZhbXA7ICYjMzQ7JiMwOTI7RmlsZXMmIzA5MjtJbmxvZ2dlbi5pbmkmIzM0OywgJiMzNDtBY2NvdW50JiMzNDssICYjMzQ7VXNlciYjMzQ7LCAmIzAzNjt1c2VydnVsJiM0MTs8YnIgLz4KCUluaVdyaXRlJiM0MDsmIzAzNjtpbnN0YWxsZGlyICZhbXA7ICYjMzQ7JiMwOTI7RmlsZXMmIzA5MjtJbmxvZ2dlbi5pbmkmIzM0OywgJiMzNDtBY2NvdW50JiMzNDssICYjMzQ7UGFzcyYjMzQ7LCAmIzAzNjtwYXNzdnVsJiM0MTs8YnIgLz4KCSYjMDM2O2VkaXQgPSBJbmlXcml0ZSYjNDA7JiMwMzY7aW5zdGFsbGRpciAmYW1wOyAmIzM0OyYjMDkyO0ZpbGVzJiMwOTI7SW5sb2dnZW4uaW5pJiMzNDssICYjMzQ7QWNjb3VudCYjMzQ7LCAmIzM0O0ZpcnN0JiMzNDssICYjMzQ7MSYjMzQ7JiM0MTsJPGJyIC8+Cgk8YnIgLz4KSWYgJiMwMzY7ZWRpdCBUaGVuPGJyIC8+Cgk8YnIgLz4KCU1zZ0JveCYjNDA7NjQsJiMzNDtHZWx1a3QmIzM0OywmIzM0O1RvZXZvZWdlbiB2YW4gZ2VicnVpa2Vyc25hYW0gZW4gd2FjaHR3b29yZCBpcyBnZWx1a3QmIzMzOyYjMzQ7JiM0MTs8YnIgLz4KPGJyIC8+CglHdWlDcmVhdGUmIzQwOyYjMzQ7VGVsZXRvcHRvb2wgYnkgQVhQJiMzNDssIDMzMywgMzAwJiM0MTs8YnIgLz4KCUZpbGVJbnN0YWxsJiM0MDsmIzM0O2F4cC5qcGcmIzM0OywgQFRlbXBEaXIgJmFtcDsgJiMzNDsmIzA5MjtheHAuanBnJiMzNDsmIzQxOzxiciAvPgo8YnIgLz4KCUd1aUN0cmxDcmVhdGVQaWMmIzQwO0BUZW1wRGlyICZhbXA7ICYjMzQ7JiMwOTI7YXhwLmpwZyYjMzQ7LDAsMCwgMzMzLDEyNSYjNDE7PGJyIC8+Cgk8YnIgLz4KCSYjMDM2O3VzZXIgPSBJbmlSZWFkJiM0MDsmIzAzNjtpbnN0YWxsZGlyICZhbXA7ICYjMzQ7JiMwOTI7RmlsZXMmIzA5MjtJbmxvZ2dlbi5pbmkmIzM0OywmIzM0O0FjY291bnQmIzM0OywmIzM0O1VzZXImIzM0OywmIzM0OyYjMzQ7JiM0MTs8YnIgLz4KCSYjMDM2O3Bhc3MgPSBJbmlSZWFkJiM0MDsmIzAzNjtpbnN0YWxsZGlyICZhbXA7ICYjMzQ7JiMwOTI7RmlsZXMmIzA5MjtJbmxvZ2dlbi5pbmkmIzM0OywmIzM0O0FjY291bnQmIzM0OywmIzM0O1Bhc3MmIzM0OywmIzM0OyYjMzQ7JiM0MTs8YnIgLz4KCSYjMDM2O2xlZXNpbmkgPSBJbmlSZWFkJiM0MDsmIzAzNjtpbnN0YWxsZGlyICZhbXA7ICYjMzQ7JiMwOTI7RmlsZXMmIzA5MjtJbmxvZ2dlbi5pbmkmIzM0OywgJiMzNDtBY2NvdW50JiMzNDssICYjMzQ7U25hcCYjMzQ7LCAmIzM0O0YxMSYjMzQ7JiM0MTs8YnIgLz4KCSYjMDM2O3JwMSA9IEd1aUN0cmxDcmVhdGVCdXR0b24mIzQwOyYjMzQ7Tm90ZXBhZCYjMzQ7LCAyMCwgMTYwLCA2MCwgMzAmIzQxOzxiciAvPgoJJiMwMzY7c2hvdyA9IEd1aUN0cmxDcmVhdGVCdXR0b24mIzQwOyYjMzQ7VGVsZXRvcCYjMzQ7LCAxMDAsIDE2MCwgNjAsIDMwJiM0MTs8YnIgLz4KCSYjMDM2O2Fib3V0ID0gR3VpQ3RybENyZWF0ZUJ1dHRvbiYjNDA7JiMzNDtBYm91dCYjMzQ7LCAxODAsIDE2MCwgNjAsIDMwJiM0MTs8YnIgLz4KCSYjMDM2O2Fmc2x1aXRlbiA9IEd1aUN0cmxDcmVhdGVCdXR0b24mIzQwOyYjMzQ7QWZzbHVpdGVuJiMzNDssIDI2MCwgMTYwLCA2MCwgMzAmIzQxOzxiciAvPgo8YnIgLz4KCSYjMDM2O2ZpbGVtZW51ID0gR1VJQ3RybENyZWF0ZU1lbnUgJiM0MDsmIzM0O0Jlc3RhbmQmIzM0OyYjNDE7PGJyIC8+CgkmIzAzNjtsb2dpbiA9IEdVSUN0cmxDcmVhdGVNZW51aXRlbSAmIzQwOyYjMzQ7SW5sb2dnZW4mIzM0OywmIzAzNjtmaWxlbWVudSYjNDE7PGJyIC8+CgkmIzAzNjtmaWxlaXRlbSA9IEdVSUN0cmxDcmVhdGVNZW51aXRlbSAmIzQwOyYjMzQ7T3BlbiBJTkktZmlsZSYjMzQ7LCYjMDM2O2ZpbGVtZW51JiM0MTs8YnIgLz4KCSYjMDM2O2V4aXRpdGVtID0gR1VJQ3RybENyZWF0ZU1lbnVpdGVtICYjNDA7JiMzNDtBZnNsdWl0ZW4mIzM0OywmIzAzNjtmaWxlbWVudSYjNDE7PGJyIC8+CjxiciAvPgoJJiMwMzY7dmlld21lbnUgPSBHVUlDdHJsQ3JlYXRlTWVudSYjNDA7JiMzNDtXaWp6aWcmIzM0OyYjNDE7CTxiciAvPgoJJiMwMzY7Y2hhbmdlcGFzcyA9IEdVSUN0cmxDcmVhdGVNZW51aXRlbSAmIzQwOyYjMzQ7V2lqemlnIHdhY2h0d29vcmQmIzM0OywmIzAzNjt2aWV3bWVudSYjNDE7PGJyIC8+CgkmIzAzNjtjaGFuZ2VrZXkgPSBHVUlDdHJsQ3JlYXRlTWVudWl0ZW0gJiM0MDsmIzM0O1dpanppZyBTbmFwLUtleSYjMzQ7LCYjMDM2O3ZpZXdtZW51JiM0MTs8YnIgLz4KPGJyIC8+CgkmIzAzNjtoZWxwbWVudSA9IEdVSUN0cmxDcmVhdGVNZW51ICYjNDA7JiMzNDtBYm91dCYjMzQ7JiM0MTs8YnIgLz4KCSYjMDM2O2luZm9pdGVtID0gR1VJQ3RybENyZWF0ZU1lbnVpdGVtICYjNDA7JiMzNDtJbmZvJiMzNDssJiMwMzY7aGVscG1lbnUmIzQxOzxiciAvPgo8YnIgLz4KCSYjMDM2O3NlcGFyYXRvcjEgPSBHVUlDdHJsQ3JlYXRlTWVudWl0ZW0gJiM0MDsmIzM0OyYjMzQ7LCYjMDM2O2ZpbGVtZW51LDImIzQxOwk8YnIgLz4KPGJyIC8+CgkmIzAzNjtzdGF0dXNiYXIgPSBHVUlDdHJsQ3JlYXRlTGFiZWwgJiM0MDsmIzAzNjtkZWZhdWx0c3RhdHVzLDAsMjY0LDMzMywxNixCaXRPciYjNDA7JiMwMzY7U1NfQ0VOVEVSLCYjMDM2O1NTX1NVTktFTiYjNDE7JiM0MTs8YnIgLz4KCUdVSUN0cmxTZXRDb2xvciYjNDA7LTEsMHhmZjAwMDAmIzQxOzxiciAvPgoJPGJyIC8+CgkmIzAzNjtwcmVmc2l0ZW0gID0gVHJheUNyZWF0ZUl0ZW0mIzQwOyYjMzQ7SW5sb2dnZW4mIzM0OyYjNDE7PGJyIC8+CglUcmF5Q3JlYXRlSXRlbSYjNDA7JiMzNDsmIzM0OyYjNDE7PGJyIC8+CgkmIzAzNjtrZXlpdGVtICA9IFRyYXlDcmVhdGVJdGVtJiM0MDsmIzM0O1dpanppZyBTbmFwLUtleSYjMzQ7JiM0MTs8YnIgLz4KCVRyYXlDcmVhdGVJdGVtJiM0MDsmIzM0OyYjMzQ7JiM0MTs8YnIgLz4KCSYjMDM2O2Fib3V0aXRlbSAgPSBUcmF5Q3JlYXRlSXRlbSYjNDA7JiMzNDtPdmVyJiMzNDsmIzQxOzxiciAvPgoJVHJheUNyZWF0ZUl0ZW0mIzQwOyYjMzQ7JiMzNDsmIzQxOwk8YnIgLz4KCSYjMDM2O2V4aXR0cmF5ICAgPSBUcmF5Q3JlYXRlSXRlbSYjNDA7JiMzNDtBZnNsdWl0ZW4mIzM0OyYjNDE7PGJyIC8+Cgk8YnIgLz4KCUdVSVNldFN0YXRlICYjNDA7JiM0MTs8YnIgLz4KCVRyYXlTZXRTdGF0ZSAmIzQwOyYjNDE7PGJyIC8+CglXaGlsZSAxPGJyIC8+CgkmIzAzNjttc2cgPSBHVUlHZXRNc2cmIzQwOyYjNDE7CTxiciAvPgoJJiMwMzY7bXNnMSA9IFRyYXlHZXRNc2cmIzQwOyYjNDE7PGJyIC8+CgkmIzAzNjtpbmxvZ2dlbmluaSA9ICYjMDM2O2luc3RhbGxkaXIgJmFtcDsgJiMzNDsmIzA5MjtGaWxlcyYjMDkyO0lubG9nZ2VuLmluaSYjMzQ7PGJyIC8+CgkmIzAzNjt1c2VyID0gSW5pUmVhZCYjNDA7JiMwMzY7aW5zdGFsbGRpciAmYW1wOyAmIzM0OyYjMDkyO0ZpbGVzJiMwOTI7SW5sb2dnZW4uaW5pJiMzNDssJiMzNDtBY2NvdW50JiMzNDssJiMzNDtVc2VyJiMzNDssJiMzNDsmIzM0OyYjNDE7PGJyIC8+CgkmIzAzNjtwYXNzID0gSW5pUmVhZCYjNDA7JiMwMzY7aW5zdGFsbGRpciAmYW1wOyAmIzM0OyYjMDkyO0ZpbGVzJiMwOTI7SW5sb2dnZW4uaW5pJiMzNDssJiMzNDtBY2NvdW50JiMzNDssJiMzNDtQYXNzJiMzNDssJiMzNDsmIzM0OyYjNDE7PGJyIC8+CglJZiAmIzAzNjttc2cgPSAmIzAzNjtmaWxlaXRlbSBUaGVuIFJ1biYjNDA7JiMzNDtub3RlcGFkLmV4ZSAmIzM0OyZhbXA7JiMwMzY7aW5sb2dnZW5pbmkmIzQxOwkJPGJyIC8+CglJZiAmIzAzNjttc2cgPSAmIzAzNjtHVUlfRVZFTlRfQ0xPU0UgT3IgJiMwMzY7bXNnID0gJiMwMzY7ZXhpdGl0ZW0gT3IgJiMwMzY7bXNnMSA9ICYjMDM2O2V4aXR0cmF5IE9yICYjMDM2O21zZyA9ICYjMDM2O2Fmc2x1aXRlbiBUaGVuIEV4aXRMb29wPGJyIC8+CglJZiAmIzAzNjttc2cgPSAmIzAzNjtpbmZvaXRlbSBPciAmIzAzNjttc2cgPSAmIzAzNjthYm91dCBPciAmIzAzNjttc2cxID0gJiMwMzY7YWJvdXRpdGVtIFRoZW4gTXNnYm94JiM0MDswLCYjMzQ7QWJvdXQgJmFtcDsgQ3JlZGl0cyYjMzQ7LCYjMzQ7SW5sb2dnZW4gYmlqIFRlbGV0b3AgJiMzNDsgJmFtcDsgJiMwMzY7dmVyICZhbXA7ICYjMzQ7IC0gR2VtYWFrdCBkb29yIEFuZHJlYXMgVmxpZWdlbi4mIzM0OyYjNDE7PGJyIC8+CglJZiAmIzAzNjttc2cgPSAmIzAzNjtycDEgVGhlbiBSdW4mIzQwOyYjMzQ7bm90ZXBhZC5leGUmIzM0OyYjNDE7PGJyIC8+CglJZiAmIzAzNjttc2cgPSAmIzAzNjtzaG93IE9yICYjMDM2O21zZyA9ICYjMDM2O2xvZ2luIE9yICYjMDM2O21zZzEgPSAmIzAzNjtwcmVmc2l0ZW0gVGhlbglfR28mIzQwOyYjMDM2O3VzZXIsICYjMDM2O3Bhc3MmIzQxOwkJPGJyIC8+CglJZiAmIzAzNjttc2cgPSAmIzAzNjtjaGFuZ2VrZXkgVGhlbjxiciAvPgoJR3VpQ3JlYXRlJiM0MDsmIzM0O1NuYXAtS2V5JiMzNDssIDIwMCwgMTAwJiM0MTs8YnIgLz4KCSYjMDM2O2luc3RhbGxkaXIgPSBSZWdSZWFkJiM0MDsmIzM0O0hLTE0mIzA5MjtTT0ZUV0FSRSYjMDkyO0lubG9nZ2VuIGJpaiBUZWxldG9wJiMzNDssICYjMzQ7JiMzNDsmIzQxOzxiciAvPgoJR1VJU2V0SWNvbiAmIzQwOyYjMDM2O2luc3RhbGxkaXIgJmFtcDsgJiMzNDsmIzA5MjtGaWxlcyYjMDkyO0phbm5la2UuaWNvJiMzNDsmIzQxOwk8YnIgLz4KCUdVSUN0cmxDcmVhdGVMYWJlbCAmIzQwOyYjMzQ7U25hcC1LZXkmIzU4OyYjMzQ7LCAgMTUsIDIzLCA1MCYjNDE7PGJyIC8+CglHVUlTZXRTdGF0ZSAmIzQwOyYjNDE7PGJyIC8+CgkmIzAzNjtsZWVzaW5pID0gSW5pUmVhZCYjNDA7JiMwMzY7aW5zdGFsbGRpciAmYW1wOyAmIzM0OyYjMDkyO0ZpbGVzJiMwOTI7SW5sb2dnZW4uaW5pJiMzNDssICYjMzQ7QWNjb3VudCYjMzQ7LCAmIzM0O1NuYXAmIzM0OywgJiMzNDtGMTEmIzM0OyYjNDE7PGJyIC8+CgkmIzAzNjtzbmFwID0gR1VJQ3RybENyZWF0ZUNvbWJvICYjNDA7JiMzNDsmIzM0OywgNzgsMjAsODAmIzQxOyA8YnIgLz4KCUdVSUN0cmxTZXREYXRhJiM0MDstMSwmIzM0O0Y5fEYxMHxGMTEmIzM0OywmIzAzNjtsZWVzaW5pJiM0MTsgPGJyIC8+CgkmIzAzNjtzYXZlc25hcCA9IEd1aUN0cmxDcmVhdGVCdXR0b24mIzQwOyYjMzQ7T3BzbGFhbiYjMzQ7LCA3NSwgNjAsIDUwLCAyMCYjNDE7PGJyIC8+CjxiciAvPgoJV2hpbGUgMTxiciAvPgoJICAgJiMwMzY7bXNnaSA9IEdVSUdldE1zZyYjNDA7JiM0MTs8YnIgLz4KCUlmICYjMDM2O21zZ2kgPSAmIzAzNjtzYXZlc25hcCBUaGVuPGJyIC8+CgkgICAmIzAzNjtsZWVzID0gR1VJQ3RybFJlYWQmIzQwOyYjMDM2O3NuYXAmIzQxOzxiciAvPgoJICAgSW5pV3JpdGUmIzQwOyYjMDM2O2luc3RhbGxkaXIgJmFtcDsgJiMzNDsmIzA5MjtGaWxlcyYjMDkyO0lubG9nZ2VuLmluaSYjMzQ7LCAmIzM0O0FjY291bnQmIzM0OywgJiMzNDtTbmFwJiMzNDssICYjMDM2O2xlZXMmIzQxOzxiciAvPgoJICAgRXhpdExvb3A8YnIgLz4KCUVuZElmPGJyIC8+CglJZiAmIzAzNjttc2dpID0gLTMgVGhlbiBFeGl0TG9vcAk8YnIgLz4KCVdFbmQ8YnIgLz4KCUdVSURlbGV0ZSYjNDA7JiM0MTs8YnIgLz4KRW5kSWY8YnIgLz4KCVdFbmQ8YnIgLz4KCUdVSURlbGV0ZSYjNDA7JiM0MTsJPGJyIC8+CglFeGl0PGJyIC8+Cgk8YnIgLz4KRWxzZQk8YnIgLz4KCU1zZ0JveCYjNDA7MTYsJiMzNDtNaXNsdWt0JiMzNDssJiMzNDtUb2V2b2VnZW4gdmFuIGdlYnJ1aWtlcnNuYWFtIGVuIHdhY2h0d29vcmQgaXMgbWlzbHVrdCYjMzM7JiMzNDsmIzQxOwk8YnIgLz4KRW5kSWY8YnIgLz4KRWxzZTxiciAvPgoJTXNnQm94JiM0MDsxNiwmIzM0O01pc2x1a3QmIzM0OywmIzM0O1RvZXZvZWdlbiB2YW4gZ2VicnVpa2Vyc25hYW0gZW4gd2FjaHR3b29yZCBpcyBtaXNsdWt0JiMzMzsmIzM0OyYjNDE7PGJyIC8+CkVuZElmPGJyIC8+CjxiciAvPgpFbHNlPGJyIC8+CglHdWlDcmVhdGUmIzQwOyYjMzQ7VGVsZXRvcHRvb2wgYnkgQVhQJiMzNDssIDMzMywgMzAwJiM0MTs8YnIgLz4KCUZpbGVJbnN0YWxsJiM0MDsmIzM0O2F4cC5qcGcmIzM0OywgQFRlbXBEaXIgJmFtcDsgJiMzNDsmIzA5MjtheHAuanBnJiMzNDsmIzQxOzxiciAvPgo8YnIgLz4KCUd1aUN0cmxDcmVhdGVQaWMmIzQwO0BUZW1wRGlyICZhbXA7ICYjMzQ7JiMwOTI7YXhwLmpwZyYjMzQ7LDAsMCwgMzMzLDEyNSYjNDE7PGJyIC8+CgkmIzAzNjt1c2VyID0gSW5pUmVhZCYjNDA7JiMwMzY7aW5zdGFsbGRpciAmYW1wOyAmIzM0OyYjMDkyO0ZpbGVzJiMwOTI7SW5sb2dnZW4uaW5pJiMzNDssJiMzNDtBY2NvdW50JiMzNDssJiMzNDtVc2VyJiMzNDssJiMzNDsmIzM0OyYjNDE7PGJyIC8+CgkmIzAzNjtwYXNzID0gSW5pUmVhZCYjNDA7JiMwMzY7aW5zdGFsbGRpciAmYW1wOyAmIzM0OyYjMDkyO0ZpbGVzJiMwOTI7SW5sb2dnZW4uaW5pJiMzNDssJiMzNDtBY2NvdW50JiMzNDssJiMzNDtQYXNzJiMzNDssJiMzNDsmIzM0OyYjNDE7PGJyIC8+CgkmIzAzNjtsZWVzaW5pID0gSW5pUmVhZCYjNDA7JiMwMzY7aW5zdGFsbGRpciAmYW1wOyAmIzM0OyYjMDkyO0ZpbGVzJiMwOTI7SW5sb2dnZW4uaW5pJiMzNDssICYjMzQ7QWNjb3VudCYjMzQ7LCAmIzM0O1NuYXAmIzM0OywgJiMzNDtGMTEmIzM0OyYjNDE7PGJyIC8+CgkmIzAzNjtycDEgPSBHdWlDdHJsQ3JlYXRlQnV0dG9uJiM0MDsmIzM0O05vdGVwYWQmIzM0OywgMjAsIDE2MCwgNjAsIDMwJiM0MTs8YnIgLz4KCSYjMDM2O3Nob3cgPSBHdWlDdHJsQ3JlYXRlQnV0dG9uJiM0MDsmIzM0O1RlbGV0b3AmIzM0OywgMTAwLCAxNjAsIDYwLCAzMCYjNDE7PGJyIC8+CgkmIzAzNjthYm91dCA9IEd1aUN0cmxDcmVhdGVCdXR0b24mIzQwOyYjMzQ7QWJvdXQmIzM0OywgMTgwLCAxNjAsIDYwLCAzMCYjNDE7PGJyIC8+CgkmIzAzNjthZnNsdWl0ZW4gPSBHdWlDdHJsQ3JlYXRlQnV0dG9uJiM0MDsmIzM0O0Fmc2x1aXRlbiYjMzQ7LCAyNjAsIDE2MCwgNjAsIDMwJiM0MTs8YnIgLz4KPGJyIC8+CgkmIzAzNjtmaWxlbWVudSA9IEdVSUN0cmxDcmVhdGVNZW51ICYjNDA7JiMzNDtCZXN0YW5kJiMzNDsmIzQxOzxiciAvPgoJJiMwMzY7bG9naW4gPSBHVUlDdHJsQ3JlYXRlTWVudWl0ZW0gJiM0MDsmIzM0O0lubG9nZ2VuJiMzNDssJiMwMzY7ZmlsZW1lbnUmIzQxOzxiciAvPgoJJiMwMzY7ZmlsZWl0ZW0gPSBHVUlDdHJsQ3JlYXRlTWVudWl0ZW0gJiM0MDsmIzM0O09wZW4gSU5JLWZpbGUmIzM0OywmIzAzNjtmaWxlbWVudSYjNDE7PGJyIC8+CgkmIzAzNjtleGl0aXRlbSA9IEdVSUN0cmxDcmVhdGVNZW51aXRlbSAmIzQwOyYjMzQ7QWZzbHVpdGVuJiMzNDssJiMwMzY7ZmlsZW1lbnUmIzQxOzxiciAvPgo8YnIgLz4KCSYjMDM2O3ZpZXdtZW51ID0gR1VJQ3RybENyZWF0ZU1lbnUmIzQwOyYjMzQ7V2lqemlnJiMzNDsmIzQxOwk8YnIgLz4KCSYjMDM2O2NoYW5nZXBhc3MgPSBHVUlDdHJsQ3JlYXRlTWVudWl0ZW0gJiM0MDsmIzM0O1dpanppZyB3YWNodHdvb3JkJiMzNDssJiMwMzY7dmlld21lbnUmIzQxOzxiciAvPgoJJiMwMzY7Y2hhbmdla2V5ID0gR1VJQ3RybENyZWF0ZU1lbnVpdGVtICYjNDA7JiMzNDtXaWp6aWcgU25hcC1LZXkmIzM0OywmIzAzNjt2aWV3bWVudSYjNDE7PGJyIC8+CjxiciAvPgoJJiMwMzY7aGVscG1lbnUgPSBHVUlDdHJsQ3JlYXRlTWVudSAmIzQwOyYjMzQ7QWJvdXQmIzM0OyYjNDE7PGJyIC8+CgkmIzAzNjtpbmZvaXRlbSA9IEdVSUN0cmxDcmVhdGVNZW51aXRlbSAmIzQwOyYjMzQ7SW5mbyYjMzQ7LCYjMDM2O2hlbHBtZW51JiM0MTs8YnIgLz4KPGJyIC8+CgkmIzAzNjtzZXBhcmF0b3IxID0gR1VJQ3RybENyZWF0ZU1lbnVpdGVtICYjNDA7JiMzNDsmIzM0OywmIzAzNjtmaWxlbWVudSwyJiM0MTsJPGJyIC8+CjxiciAvPgoJJiMwMzY7c3RhdHVzYmFyID0gR1VJQ3RybENyZWF0ZUxhYmVsICYjNDA7JiMwMzY7ZGVmYXVsdHN0YXR1cywwLDI2NCwzMzMsMTYsQml0T3ImIzQwOyYjMDM2O1NTX0NFTlRFUiwmIzAzNjtTU19TVU5LRU4mIzQxOyYjNDE7PGJyIC8+CglHVUlDdHJsU2V0Q29sb3ImIzQwOy0xLDB4ZmYwMDAwJiM0MTs8YnIgLz4KCTxiciAvPgoJJiMwMzY7cHJlZnNpdGVtICA9IFRyYXlDcmVhdGVJdGVtJiM0MDsmIzM0O0lubG9nZ2VuJiMzNDsmIzQxOzxiciAvPgoJVHJheUNyZWF0ZUl0ZW0mIzQwOyYjMzQ7JiMzNDsmIzQxOzxiciAvPgoJJiMwMzY7a2V5aXRlbSAgPSBUcmF5Q3JlYXRlSXRlbSYjNDA7JiMzNDtXaWp6aWcgU25hcC1LZXkmIzM0OyYjNDE7PGJyIC8+CglUcmF5Q3JlYXRlSXRlbSYjNDA7JiMzNDsmIzM0OyYjNDE7PGJyIC8+CgkmIzAzNjthYm91dGl0ZW0gID0gVHJheUNyZWF0ZUl0ZW0mIzQwOyYjMzQ7T3ZlciYjMzQ7JiM0MTs8YnIgLz4KCVRyYXlDcmVhdGVJdGVtJiM0MDsmIzM0OyYjMzQ7JiM0MTsJPGJyIC8+CgkmIzAzNjtleGl0dHJheSAgID0gVHJheUNyZWF0ZUl0ZW0mIzQwOyYjMzQ7QWZzbHVpdGVuJiMzNDsmIzQxOzxiciAvPgoJPGJyIC8+CglHVUlTZXRTdGF0ZSAmIzQwOyYjNDE7PGJyIC8+CglUcmF5U2V0U3RhdGUgJiM0MDsmIzQxOzxiciAvPgoJV2hpbGUgMTxiciAvPgoJJiMwMzY7bXNnID0gR1VJR2V0TXNnJiM0MDsmIzQxOwk8YnIgLz4KCSYjMDM2O21zZzEgPSBUcmF5R2V0TXNnJiM0MDsmIzQxOzxiciAvPgoJJiMwMzY7aW5sb2dnZW5pbmkgPSAmIzAzNjtpbnN0YWxsZGlyICZhbXA7ICYjMzQ7JiMwOTI7RmlsZXMmIzA5MjtJbmxvZ2dlbi5pbmkmIzM0OzxiciAvPgoJJiMwMzY7dXNlciA9IEluaVJlYWQmIzQwOyYjMDM2O2luc3RhbGxkaXIgJmFtcDsgJiMzNDsmIzA5MjtGaWxlcyYjMDkyO0lubG9nZ2VuLmluaSYjMzQ7LCYjMzQ7QWNjb3VudCYjMzQ7LCYjMzQ7VXNlciYjMzQ7LCYjMzQ7JiMzNDsmIzQxOzxiciAvPgoJJiMwMzY7cGFzcyA9IEluaVJlYWQmIzQwOyYjMDM2O2luc3RhbGxkaXIgJmFtcDsgJiMzNDsmIzA5MjtGaWxlcyYjMDkyO0lubG9nZ2VuLmluaSYjMzQ7LCYjMzQ7QWNjb3VudCYjMzQ7LCYjMzQ7UGFzcyYjMzQ7LCYjMzQ7JiMzNDsmIzQxOzxiciAvPgoJSWYgJiMwMzY7bXNnID0gJiMwMzY7ZmlsZWl0ZW0gVGhlbiBSdW4mIzQwOyYjMzQ7bm90ZXBhZC5leGUgJiMzNDsmYW1wOyYjMDM2O2lubG9nZ2VuaW5pJiM0MTsJCTxiciAvPgoJSWYgJiMwMzY7bXNnID0gJiMwMzY7R1VJX0VWRU5UX0NMT1NFIE9yICYjMDM2O21zZyA9ICYjMDM2O2V4aXRpdGVtIE9yICYjMDM2O21zZzEgPSAmIzAzNjtleGl0dHJheSBPciAmIzAzNjttc2cgPSAmIzAzNjthZnNsdWl0ZW4gVGhlbiBFeGl0TG9vcDxiciAvPgoJSWYgJiMwMzY7bXNnID0gJiMwMzY7aW5mb2l0ZW0gT3IgJiMwMzY7bXNnID0gJiMwMzY7YWJvdXQgT3IgJiMwMzY7bXNnMSA9ICYjMDM2O2Fib3V0aXRlbSBUaGVuIE1zZ2JveCYjNDA7MCwmIzM0O0Fib3V0ICZhbXA7IENyZWRpdHMmIzM0OywmIzM0O0lubG9nZ2VuIGJpaiBUZWxldG9wICYjMzQ7ICZhbXA7ICYjMDM2O3ZlciAmYW1wOyAmIzM0OyAtIEdlbWFha3QgZG9vciBBbmRyZWFzIFZsaWVnZW4uJiMzNDsmIzQxOzxiciAvPgoJSWYgJiMwMzY7bXNnID0gJiMwMzY7cnAxIFRoZW4gUnVuJiM0MDsmIzM0O25vdGVwYWQuZXhlJiMzNDsmIzQxOzxiciAvPgoJSWYgJiMwMzY7bXNnID0gJiMwMzY7c2hvdyBPciAmIzAzNjttc2cgPSAmIzAzNjtsb2dpbiBPciAmIzAzNjttc2cxID0gJiMwMzY7cHJlZnNpdGVtIFRoZW4JX0dvJiM0MDsmIzAzNjt1c2VyLCAmIzAzNjtwYXNzJiM0MTsJCTxiciAvPgoJSWYgJiMwMzY7bXNnID0gJiMwMzY7Y2hhbmdla2V5IFRoZW48YnIgLz4KCUd1aUNyZWF0ZSYjNDA7JiMzNDtTbmFwLUtleSYjMzQ7LCAyMDAsIDEwMCYjNDE7PGJyIC8+CgkmIzAzNjtpbnN0YWxsZGlyID0gUmVnUmVhZCYjNDA7JiMzNDtIS0xNJiMwOTI7U09GVFdBUkUmIzA5MjtJbmxvZ2dlbiBiaWogVGVsZXRvcCYjMzQ7LCAmIzM0OyYjMzQ7JiM0MTs8YnIgLz4KCUdVSVNldEljb24gJiM0MDsmIzAzNjtpbnN0YWxsZGlyICZhbXA7ICYjMzQ7JiMwOTI7RmlsZXMmIzA5MjtKYW5uZWtlLmljbyYjMzQ7JiM0MTsJPGJyIC8+CglHVUlDdHJsQ3JlYXRlTGFiZWwgJiM0MDsmIzM0O1NuYXAtS2V5JiM1ODsmIzM0OywgIDE1LCAyMywgNTAmIzQxOzxiciAvPgoJR1VJU2V0U3RhdGUgJiM0MDsmIzQxOzxiciAvPgoJJiMwMzY7c25hcCA9IEdVSUN0cmxDcmVhdGVDb21ibyAmIzQwOyYjMzQ7JiMzNDssIDc4LDIwLDgwJiM0MTsgPGJyIC8+CglHVUlDdHJsU2V0RGF0YSYjNDA7LTEsJiMzNDtGOXxGMTB8RjExJiMzNDssJiMwMzY7bGVlc2luaSYjNDE7IDxiciAvPgoJJiMwMzY7c2F2ZXNuYXAgPSBHdWlDdHJsQ3JlYXRlQnV0dG9uJiM0MDsmIzM0O09wc2xhYW4mIzM0OywgNzUsIDYwLCA1MCwgMjAmIzQxOzxiciAvPgoJV2hpbGUgMTxiciAvPgoJICAgJiMwMzY7bXNnaSA9IEdVSUdldE1zZyYjNDA7JiM0MTs8YnIgLz4KCUlmICYjMDM2O21zZ2kgPSAmIzAzNjtzYXZlc25hcCBUaGVuPGJyIC8+CgkgICAmIzAzNjtsZWVzID0gR1VJQ3RybFJlYWQmIzQwOyYjMDM2O3NuYXAmIzQxOzxiciAvPgoJICAgSW5pV3JpdGUmIzQwOyYjMDM2O2luc3RhbGxkaXIgJmFtcDsgJiMzNDsmIzA5MjtGaWxlcyYjMDkyO0lubG9nZ2VuLmluaSYjMzQ7LCAmIzM0O0FjY291bnQmIzM0OywgJiMzNDtTbmFwJiMzNDssICYjMDM2O2xlZXMmIzQxOzxiciAvPgoJICAgRXhpdExvb3A8YnIgLz4KCUVuZElmPGJyIC8+CglJZiAmIzAzNjttc2dpID0gLTMgVGhlbiBFeGl0TG9vcAk8YnIgLz4KCVdFbmQ8YnIgLz4KCUdVSURlbGV0ZSYjNDA7JiM0MTs8YnIgLz4KRW5kSWY8YnIgLz4KCVdFbmQ8YnIgLz4KCUdVSURlbGV0ZSYjNDA7JiM0MTsJPGJyIC8+CglFeGl0PGJyIC8+CkVuZElmPGJyIC8+CkVuZElm[/__CODE_PROTECTED] This script now works with the GUI etc., how can i implant your script with the hotkeyset into this script? Edited May 18, 2006 by Noobster24 Programs so far:Teh Serializer - Search for licenses for Nero - Windows - Office - Alcohol etc. Link to comment Share on other sites More sharing options...
seandisanti Posted May 18, 2006 Share Posted May 18, 2006 this works... all by itself expandcollapse popup#include<IE.au3> #Include <Misc.au3> _Key("F9", 1, 2) Dim $keyecht Func _Key($keyget, $x, $y) Select Case $keyget = "F9" $keyecht = "78" Case $keyget = "F10" $keyecht = "79" Case $keyget = "F11" $keyecht = "7A" Case Else MsgBox(0, "Fout", "Error in code, e-mail axpcrew@gmail.com Error #B4") EndSelect While 1 Sleep(10) If _IsPressed($keyecht) Then _Go($x, $y) EndIf WEnd EndFunc;==> _Key Func _Go($x, $y) $oIE = _IECreate() _IENavigate($oIE, "http://teletop.bc-enschede.nl/02start.nsf?Login&lan=NL&RedirectTo=/02start.nsf") WinSetOnTop("TeleTOP Login", "", 1) WinSetState("TeleTOP Login", "", @SW_MAXIMIZE) Sleep(500) $o_form = _IEFormGetObjByName($oIE, "_DominoForm") $o_login = _IEFormElementGetObjByName($o_form, "UsernameInput") $o_password = _IEFormElementGetObjByName($o_form, "Password") _IEFormElementSetValue($o_login, $x) _IEFormElementSetValue($o_password, $y) Send("{ENTER}") WinSetOnTop("TeleTOP Login", "", 0) EndFunc;==> _Go 8)ok, how'd you do it. what'd i miss. (talking about the code coloring) Link to comment Share on other sites More sharing options...
Valuater Posted May 18, 2006 Share Posted May 18, 2006 ok, how'd you do it. what'd i miss. (talking about the code coloring)http://www.autoitscript.com/forum/index.ph...opic=25105&hl=#8 Link to comment Share on other sites More sharing options...
Noobster24 Posted May 18, 2006 Author Share Posted May 18, 2006 what GUI... I don't understandi get the internet browser window/GUIthere is no GUI create????8)I mean my own GUI, check my last post, what my idea is and was is to create the GUI (Program etc.) with a menu and taskmenu etc., I created this, and this works... now i'm trying to implant a code to check if the user pressed on the predifined key (Snap-Key) (Wijzig (Change) -> Wijzig Snap-Key (Change Snap-Key)), the snapkey is written into the ini filefirst the script should check what the snapkey is, and then it must permantly check (while the program is running) if the user pressed on the snapkey, if the user pressed on the snapkey then the function _Go should be called... Programs so far:Teh Serializer - Search for licenses for Nero - Windows - Office - Alcohol etc. Link to comment Share on other sites More sharing options...
seandisanti Posted May 18, 2006 Share Posted May 18, 2006 http://www.autoitscript.com/forum/index.ph...opic=25105&hl=# 8awesome, thanks! [ autoit] > [ code] Link to comment Share on other sites More sharing options...
Valuater Posted May 18, 2006 Share Posted May 18, 2006 (edited) not perfect... much better though expandcollapse popup#include <GuiConstants.au3> #include <IE.au3> #include <Misc.au3> #NoTrayIcon ;Opt("ExpandVarStrings", 1); do you really know where you use this????? ;Opt("TrayMenuMode", 1); event mode..... you are using GUIGetTrayMsg() - only one or the other Opt("TrayMenuMode", 1) Opt("WinTitleMatchMode", 2) Opt("GUICloseOnESC", 1) Global $installdir = RegRead("HKLM\SOFTWARE\Inloggen bij Teletop", "") If $installdir = "" Then $installdir = @ScriptDir DirGetSize(@ScriptDir & "\Files\") If @error= 1 Then DirCreate(@ScriptDir & "\Files\") EndIf EndIf Global $first = 0 GUISetIcon($installdir & "\Files\Janneke.ico") TraySetIcon($installdir & "\Files\Janneke.ico") $ver = "v1.8.1" If WinExists("Teletoptool by AXP") Then WinSetOnTop("Teletoptool by AXP", "", 1) Exit EndIf Global $defaultstatus = "Ready for action" If FileExists($installdir & "\Files\Inloggen.ini") Then $first = IniRead($installdir & "\Files\Inloggen.ini", "Account", "First", "ERROR") $count = IniRead($installdir & "\Files\Inloggen.ini", "Account", "Count", "ERROR") $user = IniRead($installdir & "\Files\Inloggen.ini", "Account", "User", "") $pass = IniRead($installdir & "\Files\Inloggen.ini", "Account", "Pass", "") $counter = ($count + 1) IniWrite($installdir & "\Files\Inloggen.ini", "Account", "Count", $counter) Else MsgBox(16, "Inloggen", "Inloggen.ini ontbreekt! #2") EndIf If $first = 0 Then $uservul = InputBox("Gebruikersnaam", "Voer uw gebruikersnaam in", "", " M") $passvul = InputBox("Wachtwoord", "Voer uw wachtwoord in", "", " M") $a1 = StringLen($uservul) $a2 = StringLen($passvul) If $a1 > 2 And $a2 > 2 Then IniWrite($installdir & "\Files\Inloggen.ini", "Account", "User", $uservul) IniWrite($installdir & "\Files\Inloggen.ini", "Account", "Pass", $passvul) $edit = "1" IniWrite($installdir & "\Files\Inloggen.ini", "Account", "First", $edit) If $edit Then MsgBox(16, "Gelukt", "Toevoegen van gebruikersnaam en wachtwoord is gelukt!") $win_1 = GUICreate("Teletoptool by AXP", 333, 300) FileInstall("axp.jpg", @TempDir & "\axp.jpg") GUICtrlCreatePic(@TempDir & "\axp.jpg", 0, 0, 333, 125) $user = IniRead($installdir & "\Files\Inloggen.ini", "Account", "User", "") $pass = IniRead($installdir & "\Files\Inloggen.ini", "Account", "Pass", "") $leesini = IniRead($installdir & "\Files\Inloggen.ini", "Account", "Snap", "F11") $rp1 = GUICtrlCreateButton("Notepad", 20, 160, 60, 30) $show = GUICtrlCreateButton("Teletop", 100, 160, 60, 30) $about = GUICtrlCreateButton("About", 180, 160, 60, 30) $afsluiten = GUICtrlCreateButton("Afsluiten", 260, 160, 60, 30) $filemenu = GUICtrlCreateMenu("Bestand") $login = GUICtrlCreateMenuItem("Inloggen", $filemenu) $fileitem = GUICtrlCreateMenuItem("Open INI-file", $filemenu) $exititem = GUICtrlCreateMenuItem("Afsluiten", $filemenu) $viewmenu = GUICtrlCreateMenu("Wijzig") $changepass = GUICtrlCreateMenuItem("Wijzig wachtwoord", $viewmenu) $changekey = GUICtrlCreateMenuItem("Wijzig Snap-Key", $viewmenu) $helpmenu = GUICtrlCreateMenu("About") $infoitem = GUICtrlCreateMenuItem("Info", $helpmenu) $separator1 = GUICtrlCreateMenuItem("", $filemenu, 2) $statusbar = GUICtrlCreateLabel($defaultstatus, 0, 264, 333, 16, BitOR($SS_CENTER, $SS_SUNKEN)) GUICtrlSetColor(-1, 0xff0000) $prefsitem = TrayCreateItem("Inloggen") TrayCreateItem("") $keyitem = TrayCreateItem("Wijzig Snap-Key") TrayCreateItem("") $aboutitem = TrayCreateItem("Over") TrayCreateItem("") $exittray = TrayCreateItem("Afsluiten") GUISetState() TraySetState() While 1 $msg = GUIGetMsg() $msg1 = TrayGetMsg() $inloggenini = $installdir & "\Files\Inloggen.ini" $user = IniRead($installdir & "\Files\Inloggen.ini", "Account", "User", "") $pass = IniRead($installdir & "\Files\Inloggen.ini", "Account", "Pass", "") If $msg = $fileitem Then Run("notepad.exe " & $inloggenini) If $msg = $GUI_EVENT_CLOSE Or $msg = $exititem Or $msg1 = $exittray Or $msg = $afsluiten Then ExitLoop If $msg = $infoitem Or $msg = $about Or $msg1 = $aboutitem Then MsgBox(262144, "About & Credits", "Inloggen bij Teletop " & $ver & " - Gemaakt door Andreas Vliegen.") If $msg = $rp1 Then Run("notepad.exe") If $msg = $show Or $msg = $login Or $msg1 = $prefsitem Then _Key($user, $pass) If $msg = $changekey Then $win_2 = GUICreate("Snap-Key", 200, 100) ;$installdir = RegRead("HKLM\SOFTWARE\Inloggen bij Teletop", ""); this is done at the beginning GUISetIcon($installdir & "\Files\Janneke.ico") GUICtrlCreateLabel("Snap-Key:", 15, 23, 50) $leesini = IniRead($installdir & "\Files\Inloggen.ini", "Account", "Snap", "F11") $snap = GUICtrlCreateCombo("", 78, 20, 80) GUICtrlSetData(-1, "F9|F10|F11", $leesini) $savesnap = GUICtrlCreateButton("Opslaan", 75, 60, 50, 20) GUISetState() While 2 $msgi = GUIGetMsg() If $msgi = $savesnap Then $lees = GUICtrlRead($snap) IniWrite($installdir & "\Files\Inloggen.ini", "Account", "Snap", $lees) ExitLoop EndIf If $msgi = -3 Then ExitLoop WEnd GUIDelete($win_2) EndIf WEnd GUIDelete($win_1) Exit Else MsgBox(16, "Mislukt #1", "Toevoegen van gebruikersnaam en wachtwoord is mislukt!") EndIf Else MsgBox(16, "Mislukt #2", "Toevoegen van gebruikersnaam en wachtwoord is mislukt!") EndIf Else $win_3 = GUICreate("Teletoptool by AXP", 333, 300) FileInstall("axp.jpg", @TempDir & "\axp.jpg") GUICtrlCreatePic(@TempDir & "\axp.jpg", 0, 0, 333, 125) $user = IniRead($installdir & "\Files\Inloggen.ini", "Account", "User", "") $pass = IniRead($installdir & "\Files\Inloggen.ini", "Account", "Pass", "") $leesini = IniRead($installdir & "\Files\Inloggen.ini", "Account", "Snap", "F11") $rp1 = GUICtrlCreateButton("Notepad", 20, 160, 60, 30) $show = GUICtrlCreateButton("Teletop", 100, 160, 60, 30) $about = GUICtrlCreateButton("About", 180, 160, 60, 30) $afsluiten = GUICtrlCreateButton("Afsluiten", 260, 160, 60, 30) $filemenu = GUICtrlCreateMenu("Bestand") $login = GUICtrlCreateMenuItem("Inloggen", $filemenu) $fileitem = GUICtrlCreateMenuItem("Open INI-file", $filemenu) $exititem = GUICtrlCreateMenuItem("Afsluiten", $filemenu) $viewmenu = GUICtrlCreateMenu("Wijzig") $changepass = GUICtrlCreateMenuItem("Wijzig wachtwoord", $viewmenu) $changekey = GUICtrlCreateMenuItem("Wijzig Snap-Key", $viewmenu) $helpmenu = GUICtrlCreateMenu("About") $infoitem = GUICtrlCreateMenuItem("Info", $helpmenu) $separator1 = GUICtrlCreateMenuItem("", $filemenu, 2) $statusbar = GUICtrlCreateLabel($defaultstatus, 0, 264, 333, 16, BitOR($SS_CENTER, $SS_SUNKEN)) GUICtrlSetColor(-1, 0xff0000) $prefsitem = TrayCreateItem("Inloggen") TrayCreateItem("") $keyitem = TrayCreateItem("Wijzig Snap-Key") TrayCreateItem("") $aboutitem = TrayCreateItem("Over") TrayCreateItem("") $exittray = TrayCreateItem("Afsluiten") GUISetState() TraySetState() While 3 $msg = GUIGetMsg() $msg1 = TrayGetMsg() $inloggenini = $installdir & "\Files\Inloggen.ini" $user = IniRead($installdir & "\Files\Inloggen.ini", "Account", "User", "") $pass = IniRead($installdir & "\Files\Inloggen.ini", "Account", "Pass", "") If $msg = $fileitem Then Run("notepad.exe " & $inloggenini) If $msg = $GUI_EVENT_CLOSE Or $msg = $exititem Or $msg1 = $exittray Or $msg = $afsluiten Then ExitLoop If $msg = $infoitem Or $msg = $about Or $msg1 = $aboutitem Then MsgBox(262144, "About & Credits", "Inloggen bij Teletop " & $ver & " - Gemaakt door Andreas Vliegen.") If $msg = $rp1 Then Run("notepad.exe") If $msg = $show Or $msg = $login Or $msg1 = $prefsitem Then _Key($user, $pass) If $msg = $changekey Then $win_4 = GUICreate("Snap-Key", 200, 100) ;$installdir = RegRead("HKLM\SOFTWARE\Inloggen bij Teletop", ""); done in the beginning ( top of script ) GUISetIcon($installdir & "\Files\Janneke.ico") GUICtrlCreateLabel("Snap-Key:", 15, 23, 50) GUISetState() $snap = GUICtrlCreateCombo("", 78, 20, 80) GUICtrlSetData(-1, "F9|F10|F11", $leesini) $savesnap = GUICtrlCreateButton("Opslaan", 75, 60, 50, 20) While 4 $msgi = GUIGetMsg() If $msgi = $savesnap Then $lees = GUICtrlRead($snap) IniWrite($installdir & "\Files\Inloggen.ini", "Account", "Snap", $lees) ExitLoop EndIf If $msgi = -3 Then ExitLoop WEnd GUIDelete($win_4) EndIf WEnd GUIDelete($win_3) Exit EndIf Func _Key( $x, $y) Local $keyget = IniRead($installdir & "\Files\Inloggen.ini", "Account", "Snap", "") Select Case $keyget = "F9" $keyecht = "78" Case $keyget = "F10" $keyecht = "79" Case $keyget = "F11" $keyecht = "7A" Case Else MsgBox(262144, "Fout", "Error in code, e-mail axpcrew@gmail.com Error #B4") Return EndSelect GUICtrlSetData($statusbar, " Press " & $keyget & " to initialize") While 1 ; need to write... tray get message so you can exit this loop Sleep(10) If _IsPressed ($keyecht) Then _Go($x, $y) ExitLoop EndIf WEnd EndFunc ;==>_Key Func _Go($x, $y) $oIE = _IECreate () _IENavigate ($oIE, "http://teletop.bc-enschede.nl/02start.nsf?Login&lan=NL&RedirectTo=/02start.nsf") WinSetOnTop("TeleTOP Login", "", 1) WinSetState("TeleTOP Login", "", @SW_MAXIMIZE) Sleep(500) $o_form = _IEFormGetObjByName ($oIE, "_DominoForm") $o_login = _IEFormElementGetObjByName ($o_form, "UsernameInput") $o_password = _IEFormElementGetObjByName ($o_form, "Password") _IEFormElementSetValue ($o_login, $x) _IEFormElementSetValue ($o_password, $y) Send("{ENTER}") WinSetOnTop("TeleTOP Login", "", 0) EndFunc ;==>_Go nice job overall Valuater 8) Edited May 18, 2006 by Valuater Link to comment Share on other sites More sharing options...
Valuater Posted May 18, 2006 Share Posted May 18, 2006 even better.... no need for TWO similar GUI's expandcollapse popup#include <GuiConstants.au3> #include <IE.au3> #include <Misc.au3> #NoTrayIcon Opt("TrayMenuMode", 1) Opt("WinTitleMatchMode", 2) Opt("GUICloseOnESC", 1) FileInstall("axp.jpg", @TempDir & "\axp.jpg") Global $installdir = RegRead("HKLM\SOFTWARE\Inloggen bij Teletop", "") If $installdir = "" Then $installdir = @ScriptDir DirGetSize(@ScriptDir & "\Files\") If @error = 1 Then DirCreate(@ScriptDir & "\Files\") EndIf EndIf Global $inloggenini = $installdir & "\Files\Inloggen.ini" Global $first = "0", $count = "1", $user, $pass Global $defaultstatus = "Ready for action" Global $ver = "v1.8.1" If WinExists("Teletoptool by AXP") Then WinSetOnTop("Teletoptool by AXP", "", 1) Exit EndIf If FileExists($inloggenini) Then $first = IniRead($inloggenini, "Account", "First", "0") If $first = 0 Then Set_Pass() Else $count = IniRead($inloggenini, "Account", "Count", "1") $user = IniRead($inloggenini, "Account", "User", "") $pass = IniRead($inloggenini, "Account", "Pass", "") $counter = ($count + 1) IniWrite($inloggenini, "Account", "Count", $counter) EndIf Else MsgBox(16, "Inloggen", "Inloggen.ini ontbreekt! #2") Set_Pass() EndIf If $first = 0 Then MsgBox(16, "ERROR", "Now Exiting!!!", 3) Exit EndIf If $count = 1 Then MsgBox(16, "Gelukt", "Toevoegen van gebruikersnaam en wachtwoord is gelukt!") $win_1 = GUICreate("Teletoptool by AXP", 333, 300) GUISetIcon($installdir & "\Files\Janneke.ico") GUICtrlCreatePic(@TempDir & "\axp.jpg", 0, 0, 333, 125) $user = IniRead($inloggenini, "Account", "User", "") $pass = IniRead($inloggenini, "Account", "Pass", "") $leesini = IniRead($inloggenini, "Account", "Snap", "F11") $rp1 = GUICtrlCreateButton("Notepad", 20, 160, 60, 30) $show = GUICtrlCreateButton("Teletop", 100, 160, 60, 30) $about = GUICtrlCreateButton("About", 180, 160, 60, 30) $afsluiten = GUICtrlCreateButton("Afsluiten", 260, 160, 60, 30) $filemenu = GUICtrlCreateMenu("Bestand") $login = GUICtrlCreateMenuItem("Inloggen", $filemenu) $fileitem = GUICtrlCreateMenuItem("Open INI-file", $filemenu) $exititem = GUICtrlCreateMenuItem("Afsluiten", $filemenu) $viewmenu = GUICtrlCreateMenu("Wijzig") $changepass = GUICtrlCreateMenuItem("Wijzig wachtwoord", $viewmenu) $changekey = GUICtrlCreateMenuItem("Wijzig Snap-Key", $viewmenu) $helpmenu = GUICtrlCreateMenu("About") $infoitem = GUICtrlCreateMenuItem("Info", $helpmenu) $separator1 = GUICtrlCreateMenuItem("", $filemenu, 2) $statusbar = GUICtrlCreateLabel($defaultstatus, 0, 264, 333, 16, BitOR($SS_CENTER, $SS_SUNKEN)) GUICtrlSetColor(-1, 0xff0000) $prefsitem = TrayCreateItem("Inloggen") TrayCreateItem("") $keyitem = TrayCreateItem("Wijzig Snap-Key") TrayCreateItem("") $aboutitem = TrayCreateItem("Over") TrayCreateItem("") $exittray = TrayCreateItem("Afsluiten") GUISetState() TraySetState() TraySetIcon($installdir & "\Files\Janneke.ico") While 1 $msg = GUIGetMsg() $msg1 = TrayGetMsg() If $msg = $fileitem Then Run("notepad.exe " & $inloggenini) If $msg = $GUI_EVENT_CLOSE Or $msg = $exititem Or $msg1 = $exittray Or $msg = $afsluiten Then ExitLoop If $msg = $infoitem Or $msg = $about Or $msg1 = $aboutitem Then MsgBox(262144, "About & Credits", "Inloggen bij Teletop " & $ver & " - Gemaakt door Andreas Vliegen.") If $msg = $rp1 Then Run("notepad.exe") If $msg = $changepass Then Set_Pass() If $msg = $show Or $msg = $login Or $msg1 = $prefsitem Then _Key($user, $pass) If $msg = $changekey Or $msg1 = $keyitem Then $win_2 = GUICreate("Snap-Key", 200, 100) GUISetIcon($installdir & "\Files\Janneke.ico") GUICtrlCreateLabel("Snap-Key:", 15, 23, 50) $leesini = IniRead($inloggenini, "Account", "Snap", "F11") $snap = GUICtrlCreateCombo("", 78, 20, 80) GUICtrlSetData(-1, "F9|F10|F11", $leesini) $savesnap = GUICtrlCreateButton("Opslaan", 75, 60, 50, 20) GUISetState() While 2 $msgi = GUIGetMsg() If $msgi = $savesnap Then $lees = GUICtrlRead($snap) IniWrite($inloggenini, "Account", "Snap", $lees) ExitLoop EndIf If $msgi = -3 Then ExitLoop WEnd GUIDelete($win_2) EndIf WEnd GUIDelete($win_1) Exit ; ------------------- Functions ---------------------------------- Func Set_Pass() $uservul = InputBox("Gebruikersnaam", "Voer uw gebruikersnaam in", "", " M") $passvul = InputBox("Wachtwoord", "Voer uw wachtwoord in", "", " M") $a1 = StringLen($uservul) $a2 = StringLen($passvul) If $a1 > 2 And $a2 > 2 Then $first = 1 IniWrite($inloggenini, "Account", "User", $uservul) IniWrite($inloggenini, "Account", "Pass", $passvul) IniWrite($inloggenini, "Account", "First", $first) $count = IniRead($inloggenini, "Account", "Count", "0") $user = IniRead($inloggenini, "Account", "User", "") $pass = IniRead($inloggenini, "Account", "Pass", "") $counter = ($count + 1) IniWrite($inloggenini, "Account", "Count", $counter) Else MsgBox(16, "Mislukt", "Toevoegen van gebruikersnaam en wachtwoord is mislukt!") EndIf EndFunc Func _Key($x, $y) Local $keyget = IniRead($inloggenini, "Account", "Snap", "") Select Case $keyget = "F9" $keyecht = "78" Case $keyget = "F10" $keyecht = "79" Case $keyget = "F11" $keyecht = "7A" Case Else MsgBox(262144, "SnapKey not set", "Please select a SnapKey ", 5) Return EndSelect GUICtrlSetData($statusbar, " Press " & $keyget & " to initialize") While 1 $msg = GUIGetMsg() $msg1 = TrayGetMsg() If $msg = $GUI_EVENT_CLOSE Or $msg = $exititem Or $msg1 = $exittray Or $msg = $afsluiten Then GUICtrlSetData($statusbar, $defaultstatus) ExitLoop EndIf If _IsPressed ($keyecht) Then GUICtrlSetData($statusbar, $defaultstatus) _Go($x, $y) ExitLoop EndIf WEnd EndFunc ;==>_Key Func _Go($x, $y) $oIE = _IECreate () _IENavigate ($oIE, "http://teletop.bc-enschede.nl/02start.nsf?Login&lan=NL&RedirectTo=/02start.nsf") WinSetOnTop("TeleTOP Login", "", 1) WinSetState("TeleTOP Login", "", @SW_MAXIMIZE) Sleep(500) $o_form = _IEFormGetObjByName ($oIE, "_DominoForm") $o_login = _IEFormElementGetObjByName ($o_form, "UsernameInput") $o_password = _IEFormElementGetObjByName ($o_form, "Password") _IEFormElementSetValue ($o_login, $x) _IEFormElementSetValue ($o_password, $y) Send("{ENTER}") WinSetOnTop("TeleTOP Login", "", 0) EndFunc ;==>_Go 8) Link to comment Share on other sites More sharing options...
Noobster24 Posted May 19, 2006 Author Share Posted May 19, 2006 (edited) even better.... no need for TWO similar GUI's expandcollapse popup#include <GuiConstants.au3> #include <IE.au3> #include <Misc.au3> #NoTrayIcon Opt("TrayMenuMode", 1) Opt("WinTitleMatchMode", 2) Opt("GUICloseOnESC", 1) FileInstall("axp.jpg", @TempDir & "\axp.jpg") Global $installdir = RegRead("HKLM\SOFTWARE\Inloggen bij Teletop", "") If $installdir = "" Then $installdir = @ScriptDir DirGetSize(@ScriptDir & "\Files\") If @error = 1 Then DirCreate(@ScriptDir & "\Files\") EndIf EndIf Global $inloggenini = $installdir & "\Files\Inloggen.ini" Global $first = "0", $count = "1", $user, $pass Global $defaultstatus = "Ready for action" Global $ver = "v1.8.1" If WinExists("Teletoptool by AXP") Then WinSetOnTop("Teletoptool by AXP", "", 1) Exit EndIf If FileExists($inloggenini) Then $first = IniRead($inloggenini, "Account", "First", "0") If $first = 0 Then Set_Pass() Else $count = IniRead($inloggenini, "Account", "Count", "1") $user = IniRead($inloggenini, "Account", "User", "") $pass = IniRead($inloggenini, "Account", "Pass", "") $counter = ($count + 1) IniWrite($inloggenini, "Account", "Count", $counter) EndIf Else MsgBox(16, "Inloggen", "Inloggen.ini ontbreekt! #2") Set_Pass() EndIf If $first = 0 Then MsgBox(16, "ERROR", "Now Exiting!!!", 3) Exit EndIf If $count = 1 Then MsgBox(16, "Gelukt", "Toevoegen van gebruikersnaam en wachtwoord is gelukt!") $win_1 = GUICreate("Teletoptool by AXP", 333, 300) GUISetIcon($installdir & "\Files\Janneke.ico") GUICtrlCreatePic(@TempDir & "\axp.jpg", 0, 0, 333, 125) $user = IniRead($inloggenini, "Account", "User", "") $pass = IniRead($inloggenini, "Account", "Pass", "") $leesini = IniRead($inloggenini, "Account", "Snap", "F11") $rp1 = GUICtrlCreateButton("Notepad", 20, 160, 60, 30) $show = GUICtrlCreateButton("Teletop", 100, 160, 60, 30) $about = GUICtrlCreateButton("About", 180, 160, 60, 30) $afsluiten = GUICtrlCreateButton("Afsluiten", 260, 160, 60, 30) $filemenu = GUICtrlCreateMenu("Bestand") $login = GUICtrlCreateMenuItem("Inloggen", $filemenu) $fileitem = GUICtrlCreateMenuItem("Open INI-file", $filemenu) $exititem = GUICtrlCreateMenuItem("Afsluiten", $filemenu) $viewmenu = GUICtrlCreateMenu("Wijzig") $changepass = GUICtrlCreateMenuItem("Wijzig wachtwoord", $viewmenu) $changekey = GUICtrlCreateMenuItem("Wijzig Snap-Key", $viewmenu) $helpmenu = GUICtrlCreateMenu("About") $infoitem = GUICtrlCreateMenuItem("Info", $helpmenu) $separator1 = GUICtrlCreateMenuItem("", $filemenu, 2) $statusbar = GUICtrlCreateLabel($defaultstatus, 0, 264, 333, 16, BitOR($SS_CENTER, $SS_SUNKEN)) GUICtrlSetColor(-1, 0xff0000) $prefsitem = TrayCreateItem("Inloggen") TrayCreateItem("") $keyitem = TrayCreateItem("Wijzig Snap-Key") TrayCreateItem("") $aboutitem = TrayCreateItem("Over") TrayCreateItem("") $exittray = TrayCreateItem("Afsluiten") GUISetState() TraySetState() TraySetIcon($installdir & "\Files\Janneke.ico") While 1 $msg = GUIGetMsg() $msg1 = TrayGetMsg() If $msg = $fileitem Then Run("notepad.exe " & $inloggenini) If $msg = $GUI_EVENT_CLOSE Or $msg = $exititem Or $msg1 = $exittray Or $msg = $afsluiten Then ExitLoop If $msg = $infoitem Or $msg = $about Or $msg1 = $aboutitem Then MsgBox(262144, "About & Credits", "Inloggen bij Teletop " & $ver & " - Gemaakt door Andreas Vliegen.") If $msg = $rp1 Then Run("notepad.exe") If $msg = $changepass Then Set_Pass() If $msg = $show Or $msg = $login Or $msg1 = $prefsitem Then _Key($user, $pass) If $msg = $changekey Or $msg1 = $keyitem Then $win_2 = GUICreate("Snap-Key", 200, 100) GUISetIcon($installdir & "\Files\Janneke.ico") GUICtrlCreateLabel("Snap-Key:", 15, 23, 50) $leesini = IniRead($inloggenini, "Account", "Snap", "F11") $snap = GUICtrlCreateCombo("", 78, 20, 80) GUICtrlSetData(-1, "F9|F10|F11", $leesini) $savesnap = GUICtrlCreateButton("Opslaan", 75, 60, 50, 20) GUISetState() While 2 $msgi = GUIGetMsg() If $msgi = $savesnap Then $lees = GUICtrlRead($snap) IniWrite($inloggenini, "Account", "Snap", $lees) ExitLoop EndIf If $msgi = -3 Then ExitLoop WEnd GUIDelete($win_2) EndIf WEnd GUIDelete($win_1) Exit ; ------------------- Functions ---------------------------------- Func Set_Pass() $uservul = InputBox("Gebruikersnaam", "Voer uw gebruikersnaam in", "", " M") $passvul = InputBox("Wachtwoord", "Voer uw wachtwoord in", "", " M") $a1 = StringLen($uservul) $a2 = StringLen($passvul) If $a1 > 2 And $a2 > 2 Then $first = 1 IniWrite($inloggenini, "Account", "User", $uservul) IniWrite($inloggenini, "Account", "Pass", $passvul) IniWrite($inloggenini, "Account", "First", $first) $count = IniRead($inloggenini, "Account", "Count", "0") $user = IniRead($inloggenini, "Account", "User", "") $pass = IniRead($inloggenini, "Account", "Pass", "") $counter = ($count + 1) IniWrite($inloggenini, "Account", "Count", $counter) Else MsgBox(16, "Mislukt", "Toevoegen van gebruikersnaam en wachtwoord is mislukt!") EndIf EndFunc Func _Key($x, $y) Local $keyget = IniRead($inloggenini, "Account", "Snap", "") Select Case $keyget = "F9" $keyecht = "78" Case $keyget = "F10" $keyecht = "79" Case $keyget = "F11" $keyecht = "7A" Case Else MsgBox(262144, "SnapKey not set", "Please select a SnapKey ", 5) Return EndSelect GUICtrlSetData($statusbar, " Press " & $keyget & " to initialize") While 1 $msg = GUIGetMsg() $msg1 = TrayGetMsg() If $msg = $GUI_EVENT_CLOSE Or $msg = $exititem Or $msg1 = $exittray Or $msg = $afsluiten Then GUICtrlSetData($statusbar, $defaultstatus) ExitLoop EndIf If _IsPressed ($keyecht) Then GUICtrlSetData($statusbar, $defaultstatus) _Go($x, $y) ExitLoop EndIf WEnd EndFunc;==>_Key Func _Go($x, $y) $oIE = _IECreate () _IENavigate ($oIE, "http://teletop.bc-enschede.nl/02start.nsf?Login&lan=NL&RedirectTo=/02start.nsf") WinSetOnTop("TeleTOP Login", "", 1) WinSetState("TeleTOP Login", "", @SW_MAXIMIZE) Sleep(500) $o_form = _IEFormGetObjByName ($oIE, "_DominoForm") $o_login = _IEFormElementGetObjByName ($o_form, "UsernameInput") $o_password = _IEFormElementGetObjByName ($o_form, "Password") _IEFormElementSetValue ($o_login, $x) _IEFormElementSetValue ($o_password, $y) Send("{ENTER}") WinSetOnTop("TeleTOP Login", "", 0) EndFunc;==>_Go 8) Wow, that's better coding , but there's one thing, that needs to be changed (i'm noob, excuse me 4 that ) After someone has pressed on '$msg = $show Or $msg = $login Or $msg1 = $prefsitem', then automaticcally the _Go function must be called, and the _Key function must only check if someone has pressed the snapkey, and then the function _Go must be called... This is how it should be: there are 4 ways to log in to the website: - the 'Teletop' button - Via the Menu (Bestand -> Inloggen) - Via the taskbar (Rightclick -> Inloggen') - With the snapkey What the program now does, if someone clicked one of the top 3 options, then the user must hit the snapkey to log in, but what i'm trying to make (and you helped me, and scripted a lot better ), that the user have 4 options to log in... So the program must check the whole time, if the snapkey is pressed, if it does, the _Go function must be called... greetings and thanks 4 helping so much!! you're great! Edited May 19, 2006 by Noobster24 Programs so far:Teh Serializer - Search for licenses for Nero - Windows - Office - Alcohol etc. Link to comment Share on other sites More sharing options...
Noobster24 Posted May 20, 2006 Author Share Posted May 20, 2006 Wow, i fixed it myself Thank you all! Programs so far:Teh Serializer - Search for licenses for Nero - Windows - Office - Alcohol etc. 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