Rigest Posted July 8, 2010 Share Posted July 8, 2010 So I finally have two of my scripts completed and they work perfectly. So the next step was to merge those functions into one script. I assumed it was as simple as copy and paste, but as always with AutoIT, things were not as easy as I thought they'd be. So both functions/scripts work perfect when tested, but as soon as I copy them into one script, the second function/hotkey isn't working. First I thought it was because of the While1/Wend, so I deleted that from the second script. It didn't help. Does anyone can tell me what I'm doing? The function that isn't working is from ;AFSPRAAKSCHERM VANAF HIER expandcollapse popup#include <GUIConstantsEx.au3> #Include <Array.au3> ;Het opstarten van alle nodige programma's Sleep (15000) Run ("C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE") WinWaitActive("Inbox - Microsoft Outlook") WinSetState ( "Inbox - Microsoft Outlook", "", @SW_MAXIMIZE) Run ("C:\Program Files\Avaya\IC71\bin\qui.exe") WinWaitActive("Avaya Agent Login") MouseClick ( "left", 640, 537) Send ("interaction_center") Sleep (2000) Run ("C:\Program Files\Internet Explorer\iexplore.exe") WinWaitActive("Nieuws_ - Windows Internet Explorer") WinSetState ( "Nieuws_ - Windows Internet Explorer", "", @SW_MAXIMIZE) MouseClick ( "left", 250, 35) Send ("https://www.p6.experian.nl/") Sleep (100) Send ("{ENTER}") Sleep (2500) Send ("69rhuP4N") ; Dit is het Experian wachtwoord Send ("{ENTER}") WinWaitActive("https://www.p6.experian.nl/ - Windows Internet Explorer") Sleep (800) MouseClick ( "left", 657, 562) Sleep (1000) MouseClick ( "left", 73, 335) Sleep(1000) MouseClick ( "left", 79, 354) Sleep (1000) Run ("C:\Program Files\Internet Explorer\iexplore.exe") WinWaitActive("Nieuws_ - Windows Internet Explorer") WinSetState ( "Nieuws_ - Windows Internet Explorer", "", @SW_MAXIMIZE) MouseClick ( "left", 250, 35) Sleep (1000) Send ("http://www.risk-solutions.nl/") Sleep (100) Send ("{ENTER}") WinWaitActive("Home - Windows Internet Explorer") Sleep (3500) MouseClick ( "left", 994, 230) Sleep (2000) MouseClick ( "left", 619, 518) WinWaitActive("Inloggen - Windows Internet Explorer") WinWaitActive("Riskportal - AuthenticationForm - Windows Internet Explorer") WinSetState ( "Riskportal - AuthenticationForm - Windows Internet Explorer", "", @SW_MAXIMIZE) MouseClick ( "left", 628, 351) Send ("santander01") Send ("{TAB}") Send ("ne3QTNH1");Risksolutions wachtwoord Send ("{TAB}") Send ("{ENTER}") Sleep (1000) MouseClick ( "left", 659, 657) Sleep (1000) MouseClick ( "left", 640, 364) Sleep (3000) MouseClick ( "left", 528, 349) Sleep(100) Send ("!{DOWN}") Send ("{TAB}") Send ("!{UP}") Sleep (100) WinActivate("Inloggen - Windows Internet Explorer") Sleep (100) MouseClick ( "left", 406, 36) Send ("http://www.gevonden.cc/") Send ("{ENTER}") Sleep (4000) MsgBox(0, "Opstarten voltooid", "Alle programma's zijn opgestart", 10) ;VANAF HIER ACTIESCHERM ;De hotkey HotKeySet("!b", "Actiescherm") While 1 Sleep(100) WEnd Func Actiescherm() GUICreate("Telefoonacties", 350,200) ;De eerste telefoonactie $Label1 = GUICtrlCreateLabel("Belactie 1", 25, 05, 60, 12) GUIStartGroup() $List1= GuiCtrlCreateList("Antwoordapparaat", 10, 20, 150, 100) GuiCtrlSetData(-1, "Telefonisch geen gehoor") GuiCtrlSetData(-1, "Telefonisch in gesprek") GuiCtrlSetData(-1, "Telefonisch buiten gebruik") GuiCtrlSetData(-1, "Debiteur belt terug") GuiCtrlSetData(-1, "Antwoordapparaat is vol") GuiCtrlSetData(-1, "Geen telefoonnummer") GuiCtrlSetData(-1, "Mobiel staat uit") ;De tweede telefoonactie $Label2 = GUICtrlCreateLabel("Belactie 2", 195, 05, 60, 12) GUIStartGroup() $List2= GuiCtrlCreateList("Geen tweede telefoonnummer", 180, 20, 150, 100) GuiCtrlSetData(-1, "Antwoordapparaat") GuiCtrlSetData(-1, "Telefonisch in gesprek") GuiCtrlSetData(-1, "Telefonisch buiten gebruik") GuiCtrlSetData(-1, "Debiteur belt terug") GuiCtrlSetData(-1, "Antwoordapparaat is vol") GuiCtrlSetData(-1, "Mobiel staat uit") GuiCtrlSetData(-1, "Telefonisch geen gehoor") ;De review $Label3 = GUICtrlCreateLabel("Review", 10, 123, 40, 12) $input_1 = GUICtrlCreateInput ("000", 50, 120, 27, 20) ;De te verzenden brief $Label4 = GUICtrlCreateLabel("Te verzenden brief", 10, 145, 100, 12) $input_2 = GUICtrlCreateInput ("0000", 105, 142, 35, 20) ;De knoppen $Ok = GUICtrlCreateButton ("Ok", 10, 170, 50) $Exit = GUICtrlCreateButton ("Cancel", 70, 170, 50) GUISetState () Do $msg = GUIGetMsg() Until $msg = $Exit Or $msg = $Ok Select Case $msg = $Exit GUIDelete () EndSelect Select Case $msg = $Ok $SelectedStatus = GUICtrlRead($List1) $SelectedStatus2 = GUICtrlRead($List2) $Reviewdays = GUICtrlRead($input_1) $Brief = GUICtrlRead($input_2) GUIDelete () ;Overschakelen naar AS400 en naar het doe-scherm Sleep (100) MouseClick ( "left" , 1167, 548 ) Sleep(100) Send ("{F7}") ;Het verzenden van de brief en het noteren daarvan4 Sleep (100) If $Brief > "0000" Then Send ("7 {ENTER}") If $Brief > "0000" Then Send ($Brief) If $Brief > "0000" Then Send ("{ENTER}{ENTER}{F5}") If $Brief > "0000" Then Send ("{ENTER}{F1}") If $Brief > "0000" Then Sleep (50) If $Brief > "0000" Then Send ("4 {ENTER}") If $Brief > "0000" Then Send ("Z") If $Brief > "0000" Then Sleep (50) If $Brief > "0000" Then Send ("INFO {TAB}") If $Brief > "0000" Then Sleep (50) If $Brief > "0000" Then Send ("OC") If $Brief > "0000" Then Send ($Brief) If $Brief > "0000" Then Sleep (50) If $Brief > "0000" Then Send ("{ENTER}") If $Brief > "0000" Then Sleep (50) If $Brief > "0000" Then Send ("{ENTER}") If $Brief > "0000" Then Sleep (50) If $Brief > "0000" Then Send ("{ENTER}") ;Het loggen van de telefoonactie op juiste stopcode/department Send ("4{ENTER}") Sleep(100) Send ("{Tab}") If $Reviewdays = "000" Then Send ("INFO") If $Reviewdays > "000" Then Send ("ARR") Sleep (50) If $Reviewdays > "000" Then Send ("{TAB}") Sleep(50) Send ($Reviewdays) Sleep(50) ;hieronder is de eerste lijst en de bijbehorende acties If $SelectedStatus = "Telefonisch geen gehoor" Then Send ("TGG") If $SelectedStatus = "Antwoordapparaat" Then Send ("AWA") If $SelectedStatus = "Telefonisch in gesprek" Then Send ("TIG") If $SelectedStatus = "Telefonisch buiten gebruik" Then Send ("TBG") If $SelectedStatus = "Debiteur belt terug" Then Send ("DBTRG") If $SelectedStatus = "Antwoordapparaat is vol" Then Send ("AWAVOL") If $SelectedStatus = "Geen telefoonnummer" Then Send ("GEEN NUMMER") If $SelectedStatus = "Mobiel staat uit" Then Send ("MOBUIT") ;hieronder is de tweede lijst en bijbehorende acties Sleep(100) If $SelectedStatus2 = "Telefonisch geen gehoor" Then Send ("/TGG") If $SelectedStatus2 = "Antwoordapparaat" Then Send ("/AWA") If $SelectedStatus2 = "Telefonisch in gesprek" Then Send ("/TIG") If $SelectedStatus2 = "Telefonisch buiten gebruik" Then Send ("/TBG") If $SelectedStatus2 = "Debiteur belt terug" Then Send ("/DBTRG") If $SelectedStatus2 = "Antwoordapparaat is vol" Then Send ("/AWAVOL") If $SelectedStatus2 = "Geen tweede telefoonnummer" Then Send (" ") If $SelectedStatus2 = "Mobiel staat uit" Then Send ("/MOBUIT") Sleep (50) Send ("{ENTER}") Sleep (50) Send ("{ENTER}") Sleep (50) Send ("{ENTER}") Sleep (50) Send ("{F1}") Sleep (150) ;uitloggen Send ("{F2}") Sleep (50) Send ("X") Sleep (50) Send ("{PGDN}") Sleep (50) Send ("X") Sleep (50) Send ("{DOWN}") Sleep (100) ;EIND ACTIESCHERM EndSelect EndFunc [b] ;AFSPRAAKSCHERM VANAF HIER[/b] HotKeySet("!a", "afspraakscherm") Func afspraakscherm() Msgbox ( 0, "Let op!", "Noteer een e-mail adres en controlleer de gegevens van de klant") $Form1 = GUICreate("Betaalafspraak", 320, 540, 400, 250) $List1= GuiCtrlCreateList("Eenmalige betaling", 10, 10, 120, 40) GuiCtrlSetData(-1, "Regeling") $Label1 = GUICtrlCreateLabel("Te betalen bedrag", 15, 115, 95,30) $Bet1 = GUICtrlCreateInput("", 110, 110, 40, 21) $Label2 = GUICtrlCreateLabel("Datum betaling", 15, 140, 95, 30) $Date1 = GUICtrlCreateDate("2010/06/03 23:13:8", 93, 135, 160, 21, 0x00) $DTM_SETFORMAT_ = 0x1032 $style = "dd/MM" GUICtrlSendMsg($Date1, $DTM_SETFORMAT_, 0, $style) $Checkbox1 = GUICtrlCreateCheckbox ("Te betalen bedrag en datum zijn altijd hetzelfde", 20, 190) $Label3 = GUICtrlCreateLabel("2e te betalen bedrag", 18, 215, 100, 100) $Label4 = GUICtrlCreateLabel("2e betaaldatum", 18, 240, 100, 100) $Bet2 = GUICtrlCreateInput("", 120, 209, 40, 21) $Date2 = GUICtrlCreateDate("2010/06/03 23:13:8", 95, 237, 170, 21, 0x00) $Label5 = GUICtrlCreateLabel("3e te betalen bedrag", 18, 270, 100, 100) $Label6 = GUICtrlCreateLabel("3e betaaldatum", 18, 295, 100, 100) $Bet3 = GUICtrlCreateInput("", 120, 263, 40, 21) $Date3 = GUICtrlCreateDate("2010/06/03 23:13:8", 95, 295, 170, 21, 0x00) $Label7 = GUICtrlCreateLabel("4e te betalen bedrag", 18, 325, 100, 100) $Label8 = GUICtrlCreateLabel("4e betaaldatum", 18, 350, 100, 100) $Bet4 = GUICtrlCreateInput("", 120, 320, 40, 21) $Date4 = GUICtrlCreateDate("2010/06/03 23:13:8", 95, 345, 170, 21, 0x00) $Label9 = GUICtrlCreateLabel("5e te betalen bedrag", 18, 375, 100, 100) $Label10 = GUICtrlCreateLabel("5e betaaldatum", 18, 400, 100, 100) $Bet5 = GUICtrlCreateInput("", 120, 371, 40, 21) $Date5 = GUICtrlCreateDate("2010/06/03 23:13:8", 95, 395, 170, 21, 0x00) $Combo4 = GUICtrlCreateCombo("Automatisch incasso in het vervolg ok", 16, 440, 200, 25) GUICtrlSetData(-1, "Debiteur controlleert de automatisch incasso") GUICtrlSetData(-1, "In het vervolg via periodieke overboeking") GUICtrlSetData(-1, "Betaling in het vervolg op tijd") $Label25 = GUICtrlCreateLabel("Review", 18, 470, 50, 20) $review1 = GUICtrlCreateInput("000", 60, 467, 40, 21) $Ok = GUICtrlCreateButton("Afspraak bevestigen", 40, 500, 115, 30) $Exit = GUICtrlCreateButton("Annuleren", 170, 500, 115, 30) GUISetState() ; Hierboven is allemaal interface Do $msg = GUIGetMsg() Until $msg = $Exit Or $msg = $Ok Select Case $msg = $Exit GUIDelete () EndSelect Select Case $msg = $Ok $Soort = GUICtrlRead ($List1) $review = Guictrlread ($review1) $Betaling1 = GUICtrlRead ($Bet1) $Datum1 = GUICtrlRead ($Date1) $Betaling2 = GUICtrlRead ($Bet2) $Datum2 = GUICtrlRead ($Date2) $Betaling3 = GUICtrlRead ($Bet3) $Datum3 = GUICtrlRead ($Date3) $Betaling4 = GUICtrlRead ($Bet4) $Datum4 = GUICtrlRead ($Date4) $Betaling5 = GUICtrlRead ($Bet5) $Datum5 = GUICtrlRead ($Date5) $Opvolging = GUICtrlRead ($Combo4) Global $EnMonth = "January|Febuary|March|April|May|June|July|August|September|October|November|December" GUIDelete () ;If $Radiolreg = 1 Then ;laat de groep Reg zien ; Hier eindigt de GUI en begint de rest ; dus als je ok klik, gebeurd het volgende ; het kopieeren van het email adres in scherm 3 naar een variabele Send ("{ENTER}") Sleep (150) Send ("3") Sleep (150) MouseClickDrag("left", 328, 594, 801, 613) Sleep (50) Send ("{CTRLDOWN}") Sleep (150) Send ("c") Sleep (150) Send ("{CTRLUP}") $Email2 = ClipGet() $Email = StringStripWS($Email2, 2 ); haalt de spaties erachter weg Sleep (50) ;klantnummer kopieeren MouseClickDrag("left", 836, 248, 962, 258) Sleep (50) Send ("{CTRLDOWN}") Sleep (150) Send ("c") Sleep (150) Send ("{CTRLUP}") $Klantnummer = ClipGet() Sleep (50) ;aanhef kopieeren Send ("{F7}") Sleep (100) Send ("7") Send ("{ENTER}") Send ("1010") Send ("{ENTER}") Sleep (150) Send ("{ENTER}") Sleep (150) Send ("{ENTER}") Sleep (150) Send ("{ENTER}") Sleep (150) Send ("{F6}") MouseClickDrag("left", 422, 706, 928, 724) Sleep (150) Send ("{CTRLDOWN}") Sleep (150) Send ("c") Sleep (150) Send ("{CTRLUP}") $Aanhef2 = ClipGet() $Aanhef = StringStripWS($Aanhef2, 2 ); haalt de spaties erachter weg Sleep (250) Send ("{F1}") Sleep (150) Send ("{F1}") Sleep (100) ;afspraak wordt genoteerd in 4 Select Case $review = "000" Send ("{F7}") Sleep (150) Send ("4 {ENTER}") Send ("{TAB}") Sleep (50) Send ("INFO {TAB}") Sleep (50) If $Soort = "Eenmalige betaling" then Send ($Betaling1) If $Soort = "Eenmalige betaling" then Send ("#",1) If $Soort = "Eenmalige betaling" then Send ($Datum1) Sleep (50) If $Soort = "Regeling" then Send ($Betaling1) If $Soort = "Regeling" then Send ("#",1) If $Soort = "Regeling" then Send ($Datum1) Sleep (250) Send ("{ENTER}{ENTER}{ENTER}") Sleep (100) If $Soort = "Regeling" then Send ("4 {ENTER}") Sleep (50) If $Soort = "Regeling" then Send ("{TAB}") Sleep (50) If $Soort = "Regeling" then Send ("INFO {TAB}") Sleep (50) If $Soort = "Regeling" then Send ("REST LREG Z9") Sleep (150) If $Soort = "Regeling" then Send ("{ENTER}{ENTER}{ENTER}") If $Soort = "Regeling" then Send ("16 {ENTER}") Sleep (250) If $Soort = "Regeling" then Send ("{F2}") Sleep (250) If $Soort = "Regeling" then Send ("==============================") If $Soort = "Regeling" then Send ("UITG: Regeling getroffen, c volgende betalingen: {TAB}") If $Soort = "Regeling" then Sleep (50) If $Soort = "Regeling" then Send ($Betaling2) If $Soort = "Regeling" then Send (" op ",1) If $Soort = "Regeling" then Send ($Datum2) If $Soort = "Regeling" then Sleep (50) If $Soort = "Regeling" then Send ("{TAB}") If $Soort = "Regeling" and $Betaling3 > "0" then Send ($Betaling3) If $Soort = "Regeling" and $Betaling3 > "0" then Send (" op ",1) If $Soort = "Regeling" and $Betaling3 > "0" then Send ($Datum3) If $Soort = "Regeling" then Sleep (50) If $Soort = "Regeling" then Send ("{TAB}") If $Soort = "Regeling" and $Betaling4 > "0" then Send ($Betaling4) If $Soort = "Regeling" and $Betaling4 > "0" then Send (" op ",1) If $Soort = "Regeling" and $Betaling4 > "0" then Send ($Datum4) If $Soort = "Regeling" then Sleep (50) If $Soort = "Regeling" then Send ("{TAB}") If $Soort = "Regeling" and $Betaling5 > "0" then Send ($Betaling5) If $Soort = "Regeling" and $Betaling5 > "0" then Send (" op ",1) If $Soort = "Regeling" and $Betaling5 > "0" then Send ($Datum5) If $Soort = "Regeling" then Sleep (50) If $Soort = "Regeling" then Send ("{ENTER}") EndSelect Select Case $review > "000" Send ("{F7} 4 {ENTER}") Send ("M") If $Soort = "Eenmalige betaling" then Send ("ARR{TAB}") If $Soort = "Regeling" then Send ("LREG") Send ($review) If $Soort = "Eenmalige betaling" then Send ($Betaling1) Sleep (50) If $Soort = "Eenmalige betaling" then Send ("#",1) Sleep (50) If $Soort = "Eenmalige betaling" then Send ($Datum1) If $Soort = "Regeling" then Send ($Betaling1) If $Soort = "Regeling" then Send ("#",1) If $Soort = "Regeling" then Send ($Datum1) Send ("{ENTER}{ENTER}{ENTER}") Sleep (500) If $Soort = "Regeling" then Send ("4 {ENTER}") Sleep (300) If $Soort = "Regeling" then Send ("M") Sleep (100) If $Soort = "Regeling" then Send ("INFO") Sleep (100) If $Soort = "Regeling" then Send ("{TAB}") Sleep (100) If $Soort = "Regeling" then Send ("REST LREG Z9") Sleep (250) If $Soort = "Regeling" then Send ("{ENTER}{ENTER}{ENTER}") Sleep (500) If $Soort = "Regeling" then Send ("16 {ENTER}") Sleep (250) If $Soort = "Regeling" then Send ("{F2}") Sleep (250) If $Soort = "Regeling" then Send ("==============================") If $Soort = "Regeling" then Send ("UITG: Regeling getroffen, c volgende betalingen: {TAB}") If $Soort = "Regeling" then Send ($Betaling2) If $Soort = "Regeling" then Send (" op ",1) If $Soort = "Regeling" then Send ($Datum2) If $Soort = "Regeling" then Send ("{TAB}") If $Soort = "Regeling" and $Betaling3 > "0" then Send ($Betaling3) If $Soort = "Regeling" and $Betaling3 > "0" then Send (" op ",1) If $Soort = "Regeling" and $Betaling3 > "0" then Send ($Datum3) If $Soort = "Regeling" then Send ("{TAB}") If $Soort = "Regeling" and $Betaling4 > "0" then Send ($Betaling4) If $Soort = "Regeling" and $Betaling4 > "0" then Send (" op ",1) If $Soort = "Regeling" and $Betaling4 > "0" then Send ($Datum4) If $Soort = "Regeling" then Send ("{TAB}") If $Soort = "Regeling" and $Betaling5 > "0" then Send ($Betaling5) If $Soort = "Regeling" and $Betaling5 > "0" then Send (" op ",1) If $Soort = "Regeling" and $Betaling5 > "0" then Send ($Datum5) If $Soort = "Regeling" then Send ("{ENTER}") EndSelect ;opvolging wordt genoteerd in 4 Sleep (100) Send ("4 {ENTER}") Sleep (100) Send ("{TAB}") Sleep (50) Send ("INFO {TAB}") Sleep (100) If $Opvolging = "Automatisch incasso in het vervolg ok" then Send ("AI IHV OK") If $Opvolging = "Debiteur controlleert de automatisch incasso" then Send ("DB C AI") If $Opvolging = "In het vervolg via periodieke overboeking" then Send ("IHV VIA PO") If $Opvolging = "Betaling in het vervolg op tijd" then Send ("BET IHV OK") Sleep (100) Send ("{ENTER}{ENTER}{ENTER}") Sleep (500) ;Er wordt een SWL verstuurd (nu even 1080) Send ("7 {ENTER}") Sleep (50) Send ("1080") Sleep (150) Send ("{ENTER}{ENTER}{F5}") Send ("{ENTER}{F1}") Sleep (150) Send ("{F1}") Sleep (1000) ;Outlook wordt geopend en er wordt een mail met vertraging gestuurd. Sleep (500) winactivate("Inbox - Microsoft Outlook", "") WinWaitActive("Inbox - Microsoft Outlook") WinSetState ( "Inbox - Microsoft Outlook", "", @SW_MAXIMIZE) MouseClick ( "left", 34,208) WinWaitActive("Naamloos bericht") WinSetState ( "Naamloos bericht", "", @SW_MAXIMIZE) MouseClick ( "left", 37,232) Sleep (250) Send ("Collections Department, Utrecht") Sleep (250) Send ("{ENTER}") Sleep (250) Send ("{TAB}{TAB}{TAB}{TAB}") Send ($Email) Sleep (100) Send ("{TAB}") Send ("{TAB}") Send ("Betalingsherinnering {TAB}") Send ("Geachte ") Send ($Aanhef) Send (", {ENTER}{ENTER}") Send ("Naar aanleiding van ons telefonisch onderhoud daterend van ") Send (@MDAY & "-" & @MON & "-" & @YEAR) Send (", willen wij u nogmaals aan onze betaalafspraak herinneren. {ENTER}{ENTER}") Send ("Wij zijn overeengekomen dat de achterstand van € ") Send ($Betaling1) Send (" vandaag wordt overgemaakt. Tevens verwachten wij dat u er zorg voor draagt dat de maandtermijnen in de toekomst op tijd aan ons worden overgemaakt.{ENTER}{ENTER}") Send ("Wij willen u waarschuwen dat als de bovenstaande afspraak niet wordt nagekomen wij genoodzaakt zijn andere maatregelen te treffen.{ENTER}{ENTER}") Send ("De betalingen kunt u doen op rekeningnummer 22.65.65.475 ter name van Santander Consumer Finance Benelux B.V. onder vermelding van uw klantnummer: ") Send ($Klantnummer) Send (". Mocht u nog vragen hebben naar aanleiding van deze e-mail kunt u telefonisch contact met ons opnemen op het telefoonnummer 030 – 63 88 400. Wij vertrouwen erop u hiermee voldoende te hebben geïnformeerd.{ENTER}{ENTER}Hoogachtend,{ENTER}{ENTER}") MouseClick ( "left", 204,181); vanaf hier wordt de handtekening afbeelding ingevoegd MouseClick ( "left", 252,419) MouseClick ( "left", 421,436) WinWaitActive ("Afbeelding invoegen") WinSetState ("Afbeeling invoegen", "", @SW_MAXIMIZE) MouseClick ( "left", 972, 181) Sleep (200) Send ("D") Sleep (200) Send ("D") Sleep (200) Send ("{ENTER}") Sleep (200) MouseClick ("left", 276, 255) Send ("{ENTER}") Sleep (200) Send ("AUT") Sleep (200) Send ("{ENTER}") Sleep (200) Send ("San") Sleep (100) Send ("{ENTER}") Sleep (250) Send ("{ENTER}{ENTER}Afdeling Collections{ENTER}") Send ("{ENTER}Santander Consumer Finance Benelux B.V.{ENTER}Winthontlaan 171, 3526 KV Utrecht{ENTER}T 030-6388400 - F 030-6388849 -{ENTER}www.santander.nl") Sleep (250) ; hier wordt de handtekening opgemaakt MouseClickDrag("left", 125, 725, 10, 628) Sleep (100) MouseClick ("left", 339, 335) Sleep (100) MouseClick ("left", 430, 395) Sleep (100) Send ("{DOWN}") MouseClickDrag("left", 145, 641, 11, 643) MouseClick ("left", 360, 334) ; hier komt de vertraging MouseClick ( "left", 355,204) MouseClick ( "left", 430,604) Sleep (100) Send ("{TAB}") Sleep (100) Send ($Datum1) Sleep (100) Send ("{TAB}") Sleep (100) Send ("8:00") Sleep (100) Send ("{ENTER}") ;nu nog verzenden en that's it Endselect Endfunc ;EIND AFSPRAAKSCHERM Link to comment Share on other sites More sharing options...
Tvern Posted July 8, 2010 Share Posted July 8, 2010 HotKeySet("!a", "afspraakscherm") is below your while loop, so it never gets registered. Put it under HotKeySet("!b", "Actiescherm") instead. Link to comment Share on other sites More sharing options...
Rigest Posted July 8, 2010 Author Share Posted July 8, 2010 Thanks a lot Tvern! It works like a charm 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