Jump to content

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

Rigest
 Share

Recommended Posts

Rigest Wayfarer

Rigest

Posted
Posted

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
Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...