Sun April Holiday offer code crack attempt

oneman2000

In case anybody is wondering, this is what the macro attached to 'button 1' does,

Sub Button1_Click()
Dim ie As Object
Dim chartpage As String
Dim lCount As Long
Dim strWord As String
Dim strResult As String
Dim lStartRow As Long
chartpage = "https://www.ukholidaysinthesun.co.uk"
Set ie = CreateObject("internetexplorer.Application")
With ie
lStartRow = Worksheets("data").Range("C18").Value
If lStartRow = 0 Then lStartRow = 1
For lCount = lStartRow To 10000
'Find the word
strWord = Worksheets("words").Range("A" & CStr(lCount)).Value
If Trim(strWord) <> "" Then
.Visible = True
.navigate chartpage
Do While .Busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop

Do While Not EnsureReady(ie): KillSomeTime (1): Loop


.document.forms(0).Item(0).Value = Worksheets("data").Range("C6").Value
.document.forms(0).Item(1).Value = Worksheets("data").Range("C7").Value
.document.forms(0).Item(2).Value = Worksheets("data").Range("C8").Value
.document.forms(0).Item(3).Value = Worksheets("data").Range("C9").Value
.document.forms(0).Item(4).Value = Worksheets("data").Range("C10").Value
.document.forms(0).Item(5).Value = Worksheets("data").Range("C11").Value
.document.forms(0).Item(6).Value = Worksheets("data").Range("C12").Value
.document.forms(0).Item(7).Value = Worksheets("data").Range("C13").Value
.document.forms(0).Item(8).Value = Worksheets("data").Range("C14").Value
.document.forms(0).Item(9).Value = strWord
.document.forms(0).Item(10).Value = Worksheets("data").Range("C16").Value

.document.forms(0).submit

Do While .Busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop

strResult = ie.document.body.all.Item(7).innertext
Worksheets("words").Range("B" & CStr(lCount)).Value = strResult
If strResult <> "Please enter 8 valid and unique token codes." Then MsgBox "It might be " & strWord


End If
Next lCount
End With
Set ie = Nothing

End Sub

completelybonkers_2

oneman2000 wrote: »

0001 - 0274 AAHS BAFF - oneman2000
0275 - 0554 BAFT BUDS - oneman2000
0555 - 0824 BUFF CORK - oneman2000
0825 - 1099 CORM DOMS – happybargainhunter2008
1100 - 1374 DOMY EXPO - Munchkin1974
1375 - 1649 EXUL GAID - sam-wileman
1650 - 1924 GAIN HAIK - stevenmac75
1925 - 2199 HAIL INFO - nifferwilko
2200 - 2474 INGO KIST - toptrump
2475 - 2749 KITE LOOS - jazzypinkpuppet
2750 - 3024 LOOT MOFO - sutty1966
3025 - 3299 MOGS OATH - Bellacharm
3300 - 3574 OATS PICK - NeedAssistance
3575 - 3849 PICS RARK - Artichoke
3850 - 4124 RASE SCAG - fuzzg
4125 - 4399 SCAM SOPS - completelybonkers
4400 - 4674 SORA THEN - jase666
4675 - 4949 THEN USER - KatCJ
4950 - 5224 USES WIRE - KatCJ
5225 - 5454 WIRY ZZZS - akonstan

Really really sorry oneman2000, I'm being blonde. Do I need to anything more than fill out the spreadsheet as per instructions then hit Button1? I'm keeping trying till site opens, but don't want to let anyone down by doing it wrong!!!! I don't have to put an end number in or download any words from anywhere??? Sorry xxx

artichoke

sorry i have not been around for last hour or so- works gone mad here and i can't guarranttee i will be able to give this my attention once the booking site opens....

can someone take my line and then let me know later what the code is once the crackers have had time to book..

sorry - chaos here ...

art

deanos

looks like we have enough peeps if not let me know

sam-wileman

Does anyone know what time the site opened last time?

completelybonkers_2

sam-wileman wrote: »

Does anyone know what time the site opened last time?

About 15.40 last time!! Frustratedly clicking refresh!!!:mad:

zander2007

hahaha me two

happybargainhunter2008

Same here. Can't leave the computer to do anything, just in case...

KatCJ

I'm back home now too..... will be checking in between giving toddler something to eat..... but this is obviously my priority! ;-) xx

oneman2000

completelybonkers wrote: »

Really really sorry oneman2000, I'm being blonde. Do I need to anything more than fill out the spreadsheet as per instructions then hit Button1? I'm keeping trying till site opens, but don't want to let anyone down by doing it wrong!!!! I don't have to put an end number in or download any words from anywhere??? Sorry xxx

yeap, that is all you need to do.

You don't need to enter a end number though if you go past the end of your list then assume then you can either leave it running or wait for code to be posted or PM'ed