Jump to content
Sign in to follow this  
Rigest

How to get multiple hotkeys/functions working in one script?

Recommended Posts

Rigest

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

#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

Share this post


Link to post
Share on other sites
Tvern

HotKeySet("!a", "afspraakscherm") is below your while loop, so it never gets registered. Put it under HotKeySet("!b", "Actiescherm") instead.

Share this post


Link to post
Share on other sites
Rigest
:blink: Thanks a lot Tvern! It works like a charm ;)

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.