Gdzie znależć program Ticket alarm?

[Gość: sam]

Gdzie znaleźć programik, który dźwiękowo informuje o pojawiającej się
możliwości zakupu na stronie FIFA biletów? Wiem, że taki jest, ale nie mogę
znaleźć.

[Gość: joniu]

mowisz, masz :)

Oto, co nalezy zrobic. Owieracie Microsoft Word (albo Microsoft VIsual Basic) a
w nim narzedzia i macro. klikacie nowe macro i wklejacie ponizszy skrypt.
Pamietajcie, zeby ustawic wlasna sciezke mp3 w miejscu, gdzie jest to napisane
WIELKIMI LITERAMI (sama sciezke wklejacie z takimi znakami, jaki sa w oryginale
zapisane na kompie, cudzyslow zostawiacie). Skrypt jest ustawiony na jezyk ang
pod mecz z Kostaryka (ma nr 34 wg kolejnosci). Aby zmienic na inny mecz, nalezy
w linijce, ktora zaczyna sie od : .navigate
"tickets.fifaworldcup.com....... liczbe 34 na np 2(mecz z Ekwadorem).
Nastepnie dajecie save i potem ta sam procedura, tylko tym razem dajecie macro i
potem run. Powodzenia i udanych zakupow, mnie sie udalo i bylem na Ekwadorze
!!!, bilet wylapalem 2 dni przed meczem, teraz tez sie pojawiaja takze
powodzenia !!!
pozdrawiam JONIU.

Private Sub Form_Load()
Dim IE
Dim BrowserText
Dim Sleep_time, sleep_stamp, aq
Dim czy_jest
Dim pytanie
Dim fso, oWSH

Set IE = CreateObject("InternetExplorer.Application")

'Set IE = CreateObject("InternetExplorer.Application")

With IE
.Left = 0
.Top = 0
.Height = 50
.Width = 100
.MenuBar = 1
.Toolbar = 1
.StatusBar = 1
.Visible = 1
.navigate
"tickets.fifaworldcup.com/cgi-bin/ds_wme?affiliate=wme&id=WME_NO_SESSION&fun=list_resale_packages&doc=rs_einzel1&key=34&target=1"
'.navigate
"tickets.fifaworldcup.com/cgi-bin/ds_wme?fun=pksbyeventreihe&doc=ds_einzel1&id=WME_NO_SESSION&affiliate=wme&key=0"
'.navigate "file:///D:/test.htm"
End With

main_loop:

Do Until IE.Busy = False
DoEvents
Loop

DoEvents
BrowserText = IE.Document.Body.innerHTML
pytanie = BrowserText


czy_jest = InStr(pytanie, "Price:")



'pytanie = Right(BrowserText, Len(BrowserText) - InStr(BrowserText, "Germany -
Poland"))
'pytanie = Left(pytanie, InStr(pytanie, "Ecuador - Costa Rica"))


'czy_jest = InStr(pytanie, "tickets_yes")

'If czy_jest = 0 Then
'czy_jest = InStr(pytanie, "tickets_ltl")
'End If

'If czy_jest = 0 Then
'czy_jest = InStr(pytanie, "resale_en")
'End If


'If czy_jest = 0 Then
'pytanie = Right(BrowserText, Len(BrowserText) - InStr(BrowserText, "Poland -
Ecuador"))
'pytanie = Left(pytanie, InStr(pytanie, "England - Paraguay"))


'czy_jest = InStr(pytanie, "tickets_yes")

'If czy_jest = 0 Then
'czy_jest = InStr(pytanie, "tickets_ltl")
'End If

'If czy_jest = 0 Then
'czy_jest = InStr(pytanie, "resale_en")
'End If

'End If



'If czy_jest = 0 Then
'pytanie = Right(BrowserText, Len(BrowserText) - InStr(BrowserText, "Costa Rica
- Poland"))
'pytanie = Left(pytanie, InStr(pytanie, "Sweden - England"))


'czy_jest = InStr(pytanie, "tickets_yes")

'If czy_jest = 0 Then
'czy_jest = InStr(pytanie, "tickets_ltl")
'End If

'If czy_jest = 0 Then
'czy_jest = InStr(pytanie, "resale_en")
'End If

'End If

'If czy_jest = 0 Then
'pytanie = Right(BrowserText, Len(BrowserText) - InStr(BrowserText, "(Round of
sixteen) WA - RB"))
'pytanie = Left(pytanie, InStr(pytanie, "(Final) W61 - W62"))

'czy_jest = InStr(pytanie, "tickets_yes")

'If czy_jest = 0 Then
'czy_jest = InStr(pytanie, "tickets_ltl")
'End If
'If czy_jest = 0 Then
'czy_jest = InStr(pytanie, "resale_en")
'End If
'End If


If czy_jest <> 0 Then
DoEvents

Set oWSH = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")



oWSH.Run "RunDll32.exe " & fso.GetSpecialFolder(1) & _
"\Msdxm.ocx,RunDll " & _
"/play /minize /close " & _
"TU WKLEJACIE SCIEZKE MUZYKI(MP3)KTORA MA ZAGAC, JAK POJAWIA SIE BILETY"
'"C:\WINDOWS\Media\Windows XP - Autostart.wav"

IE.Height = 900
IE.Width = 1200
IE.Visible = 1


Exit Sub


Else
Set BrowserText = Nothing

sleep_stamp = Now()
IE.FullScreen = 0
Do Until DateDiff("s", sleep_stamp, Now()) > 2
DoEvents
Loop


IE.Refresh
DoEvents
GoTo main_loop
End If
End Sub