Me.WB.Silent = True
Me.WB.navigate "http://www.byh1688.info/trendChart.html?type=41&path=0"
Me.WB.Silent = True
For Each fo In WB.object.document.All
DoEvents
If TypeName(fo) = "HTMLTableCell" Then
If Val(fo.innerHTML) > 150000000 Then
PD = True
Num = 0
Er = Er + 1
kaijiang(Er, 1) = Val(fo.innerHTML)//保存期號
Else
If PD = True Then
Num = Num + 1
End If
If Num <= 5 Then
If PD = True Then
kaijiang(Er, Num + 1) = Val(fo.innerHTML)//保存開獎的5個號碼
End If
Else
Num = 0: PD = False
End If
End If
End If
Next
上面是VB代碼，能幫我轉換成delphi代碼嗎，謝謝了！！
uj5u.com熱心網友回復：
各位幫下忙好嗎，客戶等著用，急啊轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/88745.html
標籤：VCL組件開發及應用