https://www.oklotto.it/ambi-frequenti.php
Possibile to simulate the click event on Aggiorna but set bifore the year 2024?
Please without IE object.
Naturally in VB 6.0
https://www.lottologia.com/lotto/previsioni-gruppi-omogenei/
Based this lin, how to get numeric value from each table, for:
Bari
Bari
Milano
Firenze
Torino
Note:
the number of table is dinamic
my test code:
Option Explicit
Private Sub Command1_Click()
Dim objHtml As MSHTML.HTMLDocument...
i just using :
...
Set HTML = New HTMLDocument
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "https://massimilianobenvenuti.it/i-numeri-piu-frequenti-nelle-10-ruote-del-lotto/", False
.send
HTML.body.innerHTML = .responseText
End With
...
i need to get the...
Private Sub FILL_TABELLA_ANNI()
Dim ODOM As HTMLDocument
Set ODOM = CreateObject("htmlFile")
Dim X As Long
Dim ANNO As String, POPZ As String, PERC As String
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "https://massimilianobenvenuti.it/archivio-storico-estrazioni-del-lotto-new"...
my code,
CN = Me.LNR.Caption is refred from a label in red is the number of filled rows.
On second clik on GIORNO have a blank rows!
Note:
i have a hide column 10 where numeric value, filled with:
.TextMatrix(R, 10) = Format(STRDBROW(1, K), "yyyymmddhhnnss")
is the formatted dta GIORNO...
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'https://www.tek-tips.com/viewthread.cfm?qid=1819041&action=updated
'1-flexSortGenericAscending
'2-flexSortGenericDescending
'3-flexSortNumericAscending
'4-flexSortNumericDescending...
Normally i use to create a msflexgrid:
Me.MSFlexGrid1.FormatString = "<STRADA|^PR|<COMUNE-LOCALITA'|^CAP|^LAT|^LNG|<STRADA"
now i need to create a msflexgrid with a union of 5 columns from the second col...
Possible?
note:
the merged cell have lenght 1000 and the 5 coluimn have lenght 200...
Based this link:
https://www.lottologia.com/lotto/archivio-estrazioni/
i need to download all story of extraction LOTTO.
From 1871 to 2025
I see possible to have each year based the butto .TXT
In table STRADE, have a field named REG.
With:
CAMP
CAMP
CAMP
PIEM
TOSC
TOSC
....
VENE
VENE
VENE
VENE
Now i need to devide the table STRADE in a single table based REG with all data refered REG
Note:
Maintain original table
i just have a blank table named TEMPLATE with only structure of...
In a form1 have a treeview, with big numbers of child, children and node.
When i exit to the from1, (i'm on test) i use:
Private Sub Command1_Click()
Set Form1 = Nothing
Unload Me
End Sub
to exit and return to the ide, and have free access to the ide, the opertion , take a vry, very...
I use this code:
Option Explicit
Public Function QuickRead(FName As String) As Variant
Dim I As Long
Dim RES As String
Dim L As Long
Dim V As Variant
I = FreeFile
L = FileLen(FName)
RES = Space(L)
Open FName For Binary Access Read As #I
Get #I, , RES...
based this link:
https://www.anncsu.gov.it/it/consultazione-dellarchivio/open-data/Accedi-ai-servizi-di-dowload-massivo-in-Open-data/
how to loop all link, and download the related zip file based
indirizzario regione name of regione
save the zip file Abruzzo.zip, in c:\mydir\
for example...
Option Explicit
Sub TEST2()
Dim objCurlHttp As Object
Dim strResult As String
Dim varReqToken As Variant
Dim strWebServiceUrl As String
Dim strOwnerKey As String
Dim strQry As String, MYEMAYL As String
MYEMAYL = "gss.italy@iol.it"
strWebServiceUrl =...
I just have this two code:
Private Sub INVIO_EMAIL_LIBERO()
Dim CDOConfig As Object
Dim CDOEmail As Object
Dim SMTPServer As String
Dim EmailSubject As String
Dim EmailFrom As String
Dim EmailTo As String
Dim EmailCc As String
Dim EmailBcc As String
Dim...
Ho to use this api curl in vb6.
curl --request POST \
--url https://api.ultramsg.com/yyyyyyyyyyyyyy/messages/chat \
--header 'content-type: application/x-www-form-urlencoded' \
--data-urlencode 'token=xxxxxxxxxxxxxxxx' \
--data-urlencode 'to=+393515342919' \
--data-urlencode...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.