Sign in to follow this  
Followers 0
Noobster24

Hotkeyset With Function...

13 posts in this topic

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.

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

this works... all by itself

#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 by Valuater

NEWHeader1.png

Share this post


Link to post
Share on other sites

this works... all by itself

#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 :D:)

So, any ideas left? :(


Programs so far:Teh Serializer - Search for licenses for Nero - Windows - Office - Alcohol etc.

Share this post


Link to post
Share on other sites

Also with this code, the GUI doesn't show up :D:)

So, any ideas left? :(

what GUI... I don't understand

i get the internet browser window/GUI

there is no GUI create

????

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

#5 ·  Posted (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 by Noobster24

Programs so far:Teh Serializer - Search for licenses for Nero - Windows - Office - Alcohol etc.

Share this post


Link to post
Share on other sites

this works... all by itself

#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)

1100111 00001011101111 00011101101111 00010111100100 00001111110100 00110111110010 00101101111001 0011100i didn't make up this form of encryption, but i like it.credit to the lvl 6 challenge on arcanum.co.nz

Share this post


Link to post
Share on other sites

what GUI... I don't understand

i get the internet browser window/GUI

there 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 file

first 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.

Share this post


Link to post
Share on other sites

awesome, thanks!

[ autoit] > [ code]


1100111 00001011101111 00011101101111 00010111100100 00001111110100 00110111110010 00101101111001 0011100i didn't make up this form of encryption, but i like it.credit to the lvl 6 challenge on arcanum.co.nz

Share this post


Link to post
Share on other sites

#10 ·  Posted (edited)

not perfect... much better though

#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 by Valuater

NEWHeader1.png

Share this post


Link to post
Share on other sites

even better.... no need for TWO similar GUI's

#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)


NEWHeader1.png

Share this post


Link to post
Share on other sites

#12 ·  Posted (edited)

even better.... no need for TWO similar GUI's

#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 :D)

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 :oops:), 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 by Noobster24

Programs so far:Teh Serializer - Search for licenses for Nero - Windows - Office - Alcohol etc.

Share this post


Link to post
Share on other sites

Wow, i fixed it myself :(:D:)

Thank you all! :oops:


Programs so far:Teh Serializer - Search for licenses for Nero - Windows - Office - Alcohol etc.

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